怎么用VBS自动打开百度经验主页并登录账号

工具/原料

• VbsEdit编纂器
• 电脑一台
• 百度账号一个
• 收集

方式/步骤

1. 1首先百度搜刮“VbsEdit编纂器",下载并完当作安装。
2. 2

   找到VbsEdit编纂器图标，双击运行软件，进入软件界面。

   
3. 3

   将以下代码复制粘贴到VbsEdit编纂器中。

   Dim ie,Dom

   set ie = CreateObject("InternetExplorer.Application")

   With ie

   .Navigate"about:blank" 

       .Left = 0 

       .Top = 0 

       .Width = .document.parentWindow.screen.availWidth 

       .Height = .document.parentWindow.screen.availHeight

   .visible = True

   End With

   url ="https://jingyan.baidu.com/"

   Username ="我的百度账号"

   Password ="我的百度密码"

   ie.Navigate url,4

   do until 4 = ie.readyState

       WScript.sleep 200

       waittime = waittime + 200

   Loop

   Set Dom = ie.Document

   With Dom

   .getElementById("userbar-login").Click'点击登录

   WScript.Sleep 1000'期待1秒

   .getElementById("TANGRAM__PSP_10__footerULoginBtn").Click'选择用户名登录

   WScript.Sleep 1000'期待1秒

   .getElementById("TANGRAM__PSP_10__userName").value = Username'输入用户名

   .getElementById("TANGRAM__PSP_10__password").value = Password'输入用户密码

   .getElementById("TANGRAM__PSP_10__submit").Click'点击登录

   End With

   
4. 4

   点击VbsEdit保留按钮，选择保留代码位置，保留为“主动登录百度账号.vbs”文件。

   
5. 5

   在保留代码的位置，找到“主动登录百度账号.vbs”文件，双击运行法式，期待法式主动打开网页并登录账号即可，具体登录过程可以看百度视频。

   
6. 6

   创作不易，若是本经验对您有帮忙，请点击左下角的“点赞”、“投票”和“有得”，接待赐与评论，感激您的存眷，感谢。

   
7. 7

   按照示例步调操作，若是还有疑问，可在右下角疑问处联系我。

   

注重事项

• 创作不易，若是本经验对您有帮忙，请点击左下角的“点赞”、“投票”和“有得”，接待赐与评论，感激您的存眷，感谢。
• 按照示例步调操作，若是还有疑问，可在右下角疑问处联系我。