VBS 自动登陆

2019独角兽企业重金招聘Python工程师标准>>>

1.关于网页元素属性
IE浏览器打开网页时，有很多元素，比如说一个文本框，一个按键等。每个元素都会有对应的“name”、“ID”，“style”，“class”等属性。
其中的“ID”和“name”属性是我们获取元素关键，理论上每个元素的
ID属性都是不同，经常发现会缺省，缺省时默认ID=name。
我们通过IE.document.getElementById(“”).value来获取并修改（传递）其属性。
查看到以上“登录”按钮ID=”tj_login” 一般通过查找button或者submit等关键字。
这时我们就可以通过IE.document.getElementById(“tj_login”).click来模拟点击该按钮。然后就进入登录页面。

继续查找登陆界面关于文本框的元素（账号和用户名）的ID通过
IE.documentgetElementByid(“TANGRAM__PSP_8__userName”).value=””  （账号）
IE.document.getElementByid(“TANGRAM__PSP_8__password”).value=””   （密码）
来分别修改（传递）文本框账户和密码:
 
如果运行的时候如果发现找不到对象（以上两行确实出现了这种情况）
1）IE.document.getElementByid中的“byid”有时候要求“i”和“b”要大写或者小写，否则报找不到对象错误。
2）使用ID不可靠，可以尝试用name属性
通过IE.documentgetElementByid(“userName”).value=””  （账号）
IE.document.getElementByid(“password”).value=””   （密码）
总之多试几个总会有的。

2.VBS脚本代码及分析：
Dim username,password,IE  ‘定义变量
username = "×××××"  ‘输入用户名
password = "×××××"  ‘输入密码
Set IE =CreateObject("InternetExplorer.Application")   ‘调用IE程序
ie.FullScreen=0            ‘全屏化IE对象
IE.Visible = True           ‘窗口可视化
IE.Navigate "http://www.baidu.com/"   ‘打开百度网站
Do while IE.ReadyState<> 4 or IE.busy   ‘用循环语句确保网页加载完毕才执行下面操作
wscript.sleep 2000                   ‘设置延迟2000ms
loop
IE.document.getelementByid("tj_login").click          ‘模拟第一次登陆按键的点击
IE.document.getelementByid("userName").value=username   ‘修改（传入）账户
IE.document.getelementByid("password").value=password   ‘修改（传入）密码
Do while IE.ReadyState<> 4 or IE.busy   ‘用循环语句确保网页加载完毕才执行下面操作
wscript.sleep 2000                   ‘设置延迟2000ms
loop
IE.document.getelementById("TANGRAM__PSP_8__submit").click  ‘模拟按第二次登陆键
3.保存代码
把以上代码复制粘贴到TXT文档，另存为*.vbs文件，记得在资源管理器中设置显示文件的后缀名。双击运行即可。
还可以添加到系统任务计划以实现每天自动打开某网页。不用每天早上都要重新手动登录。
 

转载于:https://my.oschina.net/sjlmsssmf/blog/2876493