由于工作原因,需要登录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 200
Count1 = Count1 -1
If Count1 = 0 Then '判断Count变量值是否为0,如果是则退出循环
msgbox "启动脚本执行失败,请检查网络连接",,"提示"
Wscript.quit
Exit Do
End If
Loop
wscript.Sleep 500
Wshell.SendKeys "{LEFT}"
Wshell.SendKeys "{