VB自动登录脚本

搞了一晚上，就为了个全自动登录，直接给出脚本：

Set WshShell=WScript.CreateObject("WScript.Shell")     '创建对象，可以实现虚拟键盘

Set ie=WScript.CreateObject("InternetExplorer.Application")    '创建对象，打开IE

ie.visible=true    'IE转至前台

ie.navigate "http://bbs.ruoren.com/thread-6646-1-1.html"    '打开网页

Do 

Wscript.Sleep 200 

Loop Until ie.ReadyState=4     '等待网页打开完成

strContent = ie.document.body.innerText     '读取网页内容

 

Dim zhanghao,pwd    '变量，存放账户，密码

 

Dim regEx,Match,Matches    '变量，存放正则表达式，搜索结果

Set regEx = New RegExp       '新建正则表达式

regEx.Pattern = "账号(.*)密码"   '设置正则表达式样式

regEx.Global = True   '开启全局，查找全部符合条件的结果

Set Matches = regEx.Execute(strContent)  '开始搜索

 

ie.navigate "http://lixian.vip.xunlei.com/"    '跳转到登录页面

For Each Match in Matches    

zhanghao=Mid(Match.Value,3,9)     '提取账号、密码

pwd="bbs.ruoren.com"

Do 

Wscript.Sleep 200 

Loop Until ie.ReadyState=4 

 

ie.document.getElementById("u").value=zhanghao    '输入账号、密码。如果上次已经登录成功，将找不到输入点，出错，报警，完成登录

ie.document.getElementById("p_show").value=pwd

 

Wscript.Sleep 1000    '等1s然后回车，虚拟触发。

WshShell.SendKeys "{ENTER}"

 

Wscript.Sleep 5000   '过5s后再次尝试登录

 

Next