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