多个账号自动登录百度经验主页 _百度网盘下载链接：https:

之前有写过一篇经验，介绍了怎么用VBS主动打开百度经验本家儿页并登录账号，但这种环境只合用于1个账号，且那时并未登岸账号的环境下，若是存在多个账号，想实现登录一个账号后，退出该账号，继续登录下一个账号，需要怎么做呢，请阅读下文。

文章插图

需要这些哦
VbsEdit编纂器百度网盘下载链接：https://pan.baidu.com/s/1VborMh7DOKYMBDVnSspZFg 暗码：itmc
电脑一台
收集
方式/
1起首从百度网盘下载VbsEdit编纂器，然后完当作安装。

文章插图

2双击VbsEdit编纂器图标，打开软件，把下面的代码放进去。
'-----------------------------------------------------------------函数朋分线'获取剧本路径Function?GetPath()??????????????????????????????????'获取剧本路径????GetPath?=?createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path?&?"\"?????Function'-----------------------------------------------------------------函数朋分线'计时Function?TimeStart()??????????????????????????????'计时起头????TimeStart?=?timer?Function'-----------------------------------------------------------------函数朋分线Function?Time(TimeSt)???????????????????????????'计时竣事????Time?=?Timer????MsgBox?"运行完毕,用时"?&?Int(Time?-?TimeSt)?&?"秒,法式已退出!"?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?????????if????loop?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?????????????If????????Next????????Err.Clear?????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????????????????'点击登录?????With????WScript.sleep?5000?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?Time(TimeSt)???????'计时竣事'----------------------------------------------------------------完当作朋分线