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

說實話，我能想到的就是bat，但嘗試了一下，沒成功，果斷放棄。

搜索引擎上搜了一下，可以考慮用vbs 腳本。但之前沒有了解過vbs，就翻教程看。經過幾個小時的研究，擼了幾行腳本，話不多說，直接上代碼。

dim program program="程序安裝路徑" set Wshell=CreateObject("Wscript.Shell") set oexec=Wshell.Exec(program) '啟動程序 '檢查彈窗1是否彈出 Dim Count1:Count1 = 100 '檢查窗口彈出的總次數，超出該次數退出檢查 Do While Wshell.AppActivate("VMware Horizon Client") <> true '當窗口激活時，停止循環wscript.Sleep 200Count1 = Count1 -1If Count1 = 0 Then '判斷Count變量值是否為0，如果是則退出循環msgbox "啟動腳本執行失敗，請檢查網絡連接",,"提示"Wscript.quitExit DoEnd If Loop wscript.Sleep 500 Wshell.SendKeys "{LEFT}" Wshell.SendKeys "{ENTER}" '檢查彈窗2是否彈出 Dim Count2:Count2 = 100 '檢查窗口彈出的總次數，超出該次數退出檢查 Do While Wshell.AppActivate("登錄") <> true '當窗口激活時，停止循環wscript.Sleep 200Count2 = Count2 -1If Count2 = 0 Then '判斷Count變量值是否為0，如果是則退出循環msgbox "啟動腳本執行失敗，請檢查用戶名密碼",,"提示"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剛接觸，只研究了幾個小時，代碼也是生拼硬湊的，還有優化空間，后續有時間了再優化補充，還請見諒）

試了幾次，腳本運行還很順利，不僅解決了輸密碼的煩惱，也減少了鼠標點擊“確定”的次數，一個字：爽

?

ps:上述腳本只不過是簡單的判斷和按鍵輸入，后續可以修改后用于其他軟件的自動登錄。

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。