多个账号自动登录百度经验主页

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

东西/原料

• VbsEdit编纂器 百度网盘下载链接：1VborMh7DOKYMBDVnSspZFg 暗码：itmc
• 电脑一台
• 收集

方式/步调

1. 1

   起首从百度网盘下载VbsEdit编纂器，然后完当作安装。

   
2. 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. 3

   把代码中UserName = Array(Array("账号1","暗码1"),Array("账号2","暗码2"),Array("账号3","暗码3"))的账号1、暗码1等替代当作小我的账号暗码。

   
4. 4

   保留到桌面，然后在桌面双击文件，让法式主动运行。

5. 5

   可以看到法式打开网页后，主动登录账号，若是已经登录了其他账号，会先将已登录的账号主动退出来，再从头登录。

   
6. 6

   所有账号登录完当作后，主动跳出提醒，法式运行完毕，并统计用时。

   

注重事项

• 若是法式无法挪用IE浏览器，请先将IE浏览器设置为默认浏览器。