使用vbs脚本操作登陆对话框-登陆QQ为例

由于工作原因需要在软件中调用其他软件并填入信息，发现使用vbs可以解决这个问题，以登陆qq为例。vbs脚本可将数据直接写入，也可在调用脚本命令中传参写入。

---

以直接写入为例：

Dim WshShell, GamePath
Set WshShell=WScript.CreateObject("WScript.Shell")

'GamePath为qq所在路径
GamePath="E:\vbs-test\QQ"
WScript.Sleep 200
WshShell.Run GamePath
WScript.Sleep 200
WshShell.AppActivate "QQ"
WScript.Sleep 1500
WshShell.SendKeys QQ帐号
WScript.Sleep 1000
WshShell.SendKeys "{TAB}"
WScript.Sleep 1000
'QQ密码为字符串的需要加上双引号
WshShell.SendKeys QQ密码
WScript.Sleep 1000
WshShell.SendKeys "{ENTER}"

界面切换输入行可以使用 WshShell.SendKeys “{TAB}”，

点击qq登陆界面后默认在输入账号框中，可通过 WshShell.SendKeys

直接输入账号即可，若其他对话框需要切换输入位置可以使用 WshShell.SendKeys “{TAB}”

跳转到数据输入的位置后再进行写入即可。

---

以参数写入为例：

Dim WshShell, GamePath
Set WshShell=WScript.CreateObject("WScript.Shell")

'GamePath为qq所在路径
GamePath="E:\vbs-test\QQ"
WScript.Sleep 200
WshShell.Run GamePath
WScript.Sleep 200
WshShell.AppActivate "QQ"
WScript.Sleep 1500
WshShell.SendKeys WScript.Arguments(0)
WScript.Sleep 1000
WshShell.SendKeys "{TAB}"
WScript.Sleep 1000
WshShell.SendKeys WScript.Arguments(1)
WScript.Sleep 1000
WshShell.SendKeys "{ENTER}"

调用该脚本时在后面加入两个参数即可。

“E:\vbs-test\vbs-qq.vbs” 账号 密码