由于工作原因，需要登錄VMware Horizon辦公。但該軟件沒(méi)有記住密碼的功能，每次輸入密碼都很煩，所以想著能不能搞個(gè)自動(dòng)登錄，來(lái)解決每次輸密碼的煩惱。

說(shuō)實(shí)話，我能想到的就是bat，但嘗試了一下，沒(méi)成功，果斷放棄。

搜索引擎上搜了一下，可以考慮用vbs 腳本。但之前沒(méi)有了解過(guò)vbs，就翻教程看。經(jīng)過(guò)幾個(gè)小時(shí)的研究，擼了幾行腳本，話不多說(shuō)，直接上代碼。

dim program program="程序安裝路徑" set Wshell=CreateObject("Wscript.Shell") set oexec=Wshell.Exec(program) '啟動(dòng)程序 '檢查彈窗1是否彈出 Dim Count1:Count1 = 100 '檢查窗口彈出的總次數(shù)，超出該次數(shù)退出檢查 Do While Wshell.AppActivate("VMware Horizon Client") <> true '當(dāng)窗口激活時(shí)，停止循環(huán)wscript.Sleep 200Count1 = Count1 -1If Count1 = 0 Then '判斷Count變量值是否為0，如果是則退出循環(huán)msgbox "啟動(dòng)腳本執(zhí)行失敗，請(qǐng)檢查網(wǎng)絡(luò)連接",,"提示"Wscript.quitExit DoEnd If Loop wscript.Sleep 500 Wshell.SendKeys "{LEFT}" Wshell.SendKeys "{ENTER}" '檢查彈窗2是否彈出 Dim Count2:Count2 = 100 '檢查窗口彈出的總次數(shù)，超出該次數(shù)退出檢查 Do While Wshell.AppActivate("登錄") <> true '當(dāng)窗口激活時(shí)，停止循環(huán)wscript.Sleep 200Count2 = Count2 -1If Count2 = 0 Then '判斷Count變量值是否為0，如果是則退出循環(huán)msgbox "啟動(dòng)腳本執(zhí)行失敗，請(qǐng)檢查用戶名密碼",,"提示"Wscript.quitExit DoEnd If Loop wscript.Sleep 500 Wshell.SendKeys "{TAB}" Wshell.SendKeys "用戶密碼" Wshell.SendKeys "{ENTER}" wscript.Sleep 3000 Wshell.SendKeys "{ENTER}" Wscript.quit

（vbs剛接觸，只研究了幾個(gè)小時(shí)，代碼也是生拼硬湊的，還有優(yōu)化空間，后續(xù)有時(shí)間了再優(yōu)化補(bǔ)充，還請(qǐng)見(jiàn)諒）

試了幾次，腳本運(yùn)行還很順利，不僅解決了輸密碼的煩惱，也減少了鼠標(biāo)點(diǎn)擊“確定”的次數(shù)，一個(gè)字：爽

?

ps:上述腳本只不過(guò)是簡(jiǎn)單的判斷和按鍵輸入，后續(xù)可以修改后用于其他軟件的自動(dòng)登錄。

總結(jié)

以上是生活随笔為你收集整理的用vbs脚本实现软件的自动登录的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。