vbscript網(wǎng)頁模擬登錄效果代碼
更新時(shí)間：2018年04月30日 15:22:01 投稿：mdxy-dxy
電腦瀏覽器記住密碼功能好蛋疼~有時(shí)候不好用~~登錄CMCC-EDU的時(shí)候老是要輸入帳號。?？戳丝吹卿涰撁娴木W(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
效果圖
相關(guān)文章
VBS教程：屬性-AvailableSpace 屬性...2006-11-11
VBS教程：方法-Write 方法...2006-11-11
VBS基礎(chǔ)篇 - 循環(huán)(for、Do、While)
經(jīng)常地，當(dāng)編寫代碼時(shí)，我們希望將一段代碼執(zhí)行若干次，我們可以在代碼中使用循環(huán)語句來完成這項(xiàng)工作,需要的朋友可以參考下2018-05-05
vbs實(shí)現(xiàn)壓縮功能的代碼2008-02-02
vbs中通過intpu傳值進(jìn)行運(yùn)算的方法，需要的朋友可以參考下。2011-03-03
VBS教程：運(yùn)算符-Or 運(yùn)算符...2006-11-11
下面的代碼比較經(jīng)典，瞬間關(guān)閉所有的ie的腳本2008-06-06
VBS教程：VBScript 語句-Randomize 語句
VBS教程：VBScript 語句-Randomize 語句...2006-11-11
VBS教程：方法-Items 方法...2006-11-11
VBS教程：對象-Match 對象...2006-11-11