[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
1楼 跳转到 »
发表于 2010-11-19 20:08 | 显示全部帖子
这个是一个软件还是一个网页登陆页面？
网页登陆页面，请把源码发出来
---学无止境---

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
2楼
发表于 2010-11-20 21:17 | 显示全部帖子 
  1. Dim ie

  2. Set ie = CreateObject("InternetExplorer.Application")

  3. ie.Visible = True

  4.  '把http:\192.168.1.1换成你的网页地址

  5. ie.Navigate "http:\192.168.1.1"

  6. While ie.Busy Or ie.ReadyState <> 4

  7.   WScript.Sleep 200

  8. Wend

  9. '把YourName换为你的用户名

  10. ie.Document.getElementbyId("DDDDD").value="YourName" 

  11. '把YourPassword换成密码

  12. ie.Document.getElementbyId("upass").value="YourPassword" 

  13. WScript.Sleep 500

  14. ie.Document.getElementbyId("0MKKey").click

  15. Set ie = nothing
复制代码
1

评分人数

---学无止境---

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
3楼
发表于 2010-11-20 21:18 | 显示全部帖子

回复 7楼 的帖子

注意，楼上代码的前提是默认浏览器是IE
---学无止境---

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
4楼
发表于 2010-11-20 21:23 | 显示全部帖子
原帖由 sky02 于 2010-11-18 18:47 发表
用VBS方便会一点．


PS：说点题外话。2L的哥们，16帖就是少校了，牛
---学无止境---

TOP

返回列表