找到VbsEdit編纂器圖標,雙擊運行軟件,進入軟件界面。
將以下代碼復制粘貼到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 '選擇用戶名登錄
.getElementById("TANGRAM__PSP_10__userName").value = Username '輸入用戶名
.getElementById("TANGRAM__PSP_10__password").value = Password '輸入用戶暗碼
.getElementById("TANGRAM__PSP_10__submit").Click '點擊登錄
點擊VbsEdit保留按鈕,選擇保留代碼位置,保留為“主動登錄百度賬號.vbs”文件。
在保留代碼的位置,找到“主動登錄百度賬號.vbs”文件,雙擊運行法式,期待法式主動打開網頁并登錄賬號即可,具體登錄過程可以看百度視頻。
創作不易,若是本經驗對您有幫忙,請點擊左下角的“點贊”、“投票”和“有得”,接待賜與評論,感激您的存眷,感謝。
按照示例步調操作,若是還有疑問,可在右下角疑問處聯系我。
0 篇文章
如果覺得我的文章對您有用,請隨意打賞。你的支持將鼓勵我繼續創作!