码迷,mamicode.com
首页 > 其他好文 > 详细

自动登陆

时间:2018-03-30 10:48:33      阅读:115      评论:0      收藏:0      [点我收藏+]

标签:自动登陆

‘定义变量
Dim username,password,IE,ws
‘ユーザ
username = "aaaaaaaa"
‘パスワード
password = "00000000"

‘调用IE程序
Set IE = CreateObject("InternetExplorer.Application")
IE.Top = 100
IE.Left= 100
IE.Width = 1280
IE.Height = 900

‘IE.Navigate "http://localhost/tr-consumer/top"

IE.Navigate "http://localhost:9080/NBJimWeb/jhc014.do"
‘窗口可视化
IE.Visible = True

‘用循环语句确保网页加载完毕才执行下面操作
Do while IE.ReadyState<> 4 or IE.busy

loop
‘设置延迟時間
wscript.sleep 300
IE.document.getelementById("id").value=username
wscript.sleep 200
IE.document.getelementById("pass").value=password
wscript.sleep 200
IE.document.getelementById("login").click

自动登陆

标签:自动登陆

原文地址:http://blog.51cto.com/13618759/2092771

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!