用vbs脚本实现软件的自动登录

由于工作原因，需要登录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 "{