多個賬號自動登錄百度經驗主頁

之前有寫過一篇經驗，介紹了怎么用VBS主動打開百度經驗本家兒頁并登錄賬號，但這種環境只合用于1個賬號，且那時并未登岸賬號的環境下，若是存在多個賬號，想實現登錄一個賬號后，退出該賬號，繼續登錄下一個賬號，需要怎么做呢，請閱讀下文。

東西/原料

VbsEdit編纂器百度網盤下載鏈接：1VborMh7DOKYMBDVnSspZFg 暗碼：itmc
電腦一臺
收集

方式/步調

1
起首從百度網盤下載VbsEdit編纂器，然后完當作安裝。
2
雙擊VbsEdit編纂器圖標，打開軟件，把下面的代碼放進去。
'-----------------------------------------------------------------函數朋分線'獲取劇本路徑Function?GetPath()??????????????????????????????????'獲取劇本路徑????GetPath?=?createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path?&?"\"????End?Function'-----------------------------------------------------------------函數朋分線'計時Function?TimeStart()??????????????????????????????'計時起頭????TimeStart?=?timerEnd?Function'-----------------------------------------------------------------函數朋分線Function?TimeEnd(TimeSt)???????????????????????????'計時竣事????TimeEnd?=?Timer????MsgBox?"運行完畢,用時"?&?Int(TimeEnd?-?TimeSt)?&?"秒,法式已退出!"End?Function'-----------------------------------------------------------------函數朋分線'登錄網頁Function?Load(url)????ie.Navigate?url,4????do?until?4?=?ie.readyState????????WScript.sleep?200????????waittime??=?waittime?+?200????????If?waittime?>?5000?Then????????????ie.Quit????????????set?ie?=?CreateObject("InternetExplorer.Application")????????????ie.Visible?=?true????????????ie.Navigate?url,4????????????waittime?=?0????????End?if????loopEnd?Function'------------------------------------------------------------------函數朋分線'登錄賬號Function?Load2(MyUserName,Password)????On?Error?Resume?next????Set?Dom2?=?Dom.getElementById("userbar-login")????If?Err.Number?<>?0?Then????????Set?Dom2?=?Dom.getElementById("userbar")????????For?k?=?0?To?Dom2.all.length?-1????????????If?Dom2.all(k).className?=?"my-info?menu-hide"?Then????????????????Dom2.all(k).className?=?"my-info?menu-show"????????????????WScript.Sleep?2000????????????????Dom.getElementById("userbar-logout").click????????????????Exit?for????????????End?If????????Next????????Err.Clear????End?If????On?Error?Goto?0????????????WScript.Sleep?2000????????With?Dom????????.getElementById("userbar-login").Clic?????????????'點擊登錄????????WScript.Sleep?2000????????.getElementById("TANGRAM__PSP_10__footerULoginBtn").Click????????'選擇用戶名登錄????????.getElementById("TANGRAM__PSP_10__userName").value?=?MyUserName????'輸入用戶名????????.getElementById("TANGRAM__PSP_10__password").value?=?Password????'輸入用戶暗碼????????.getElementById("TANGRAM__PSP_10__submit").Click????????????????'點擊登錄????End?With????WScript.sleep?5000End?Function'----------------------------------------------------------------工作朋分線TimeSt?=?TimeStart()??????'計時起頭mypath?=?GetPath()??????????'獲取當前劇本路徑UserName?=?Array(Array("賬號1","暗碼1"),Array("賬號2","暗碼2"),Array("賬號3","暗碼3"))Dim?ie,Dom,Dom2set?ie?=?CreateObject("InternetExplorer.Application")ie.visible?=?Trueurl?=?"https://jingyan.baidu.com/"For?i?=?0?To?UBound(UserName)????MyUserName?=?UserName(i)(0)????Password?=?UserName(i)(1)????Call?Load(url)???????????????????????'進入百度經驗本家兒頁????Set?Dom?=?ie.Document????Call?Load2(MyUserName,Password)???????'登錄賬號NextCall?TimeEnd(TimeSt)???????'計時竣事'----------------------------------------------------------------完當作朋分線
3
把代碼中UserName?=?Array(Array("賬號1","暗碼1"),Array("賬號2","暗碼2"),Array("賬號3","暗碼3"))的賬號1、暗碼1等替代當作小我的賬號暗碼。
4
保留到桌面，然后在桌面雙擊文件，讓法式主動運行。
5
可以看到法式打開網頁后，主動登錄賬號，若是已經登錄了其他賬號，會先將已登錄的賬號主動退出來，再從頭登錄。
6
所有賬號登錄完當作后，主動跳出提醒，法式運行完畢，并統計用時。