快捷導(dǎo)航

vbscript網(wǎng)頁模擬登錄效果代碼

更新時(shí)間：2018年04月30日 15:22:01 投稿：mdxy-dxy

電腦瀏覽器記住密碼功能好蛋疼~有時(shí)候不好用~~登錄CMCC-EDU的時(shí)候老是要輸入帳號。。看了看登錄頁面的網(wǎng)頁源碼~~擼起個(gè)Vbs腳本~讀取配置文件，簡單實(shí)現(xiàn)了自己登錄CMCC-EDU,把帳號存在同級目錄下就好,需要的朋友可以參考下

閑的蛋疼今天~
電腦瀏覽器記住密碼功能好蛋疼~有時(shí)候不好用~~登錄CMCC-EDU的時(shí)候老是要輸入帳號。?？戳丝吹卿涰撁娴木W(wǎng)頁源碼~~擼起個(gè)Vbs腳本~讀取配置文件，簡單實(shí)現(xiàn)了自己登錄CMCC-EDU,把帳號存在同級目錄下就好。一行帳號，一行密碼。
好久不用vbs~都忘記了快~~

'自動登錄CMCC-EDU
'By:Seven 2014/2/25
On Error Resume Next
Set WshShell = CreateObject("wscript.Shell")
Set fso = CreateObject("scripting.filesystemobject")
Set ie = CreateObject("InternetExplorer.Application")
Set list = fso.OpenTextFile("帳號.txt")
ie.Visible=1
ie.Navigate "www.baidu.com"
Do Until ie.ReadyState =4 : WScript.Sleep 200 : Loop
ie.document.getElementByIdx_x("bpssUSERNAME").Value=List.ReadLine
ie.document.getElementByIdx_x("bpssBUSPWD").Value=List.ReadLine
Set AllElement=ie.Document
For i=0 To AllElement.all.length-1
if AllElement.all(i).tagname="INPUT" Then
if AllElement.all(i).value="登錄" Then 
AllElement.all(i).click
End If
End if
Next

效果圖