我有一个自动登陆黄金岛的vbs如下
QQPath="D:\安装的程序\HJD\H_Loader.exe"
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 20000
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "abcde"
WScript.Sleep 2000
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "1234567"
WScript.Sleep 200
请问其中的WshShell.SendKeys "{delete}"这一句有办法简化吗?
还有就是删除键怎么表示
[ Last edited by 26933062 on 2007-4-23 at 09:38 PM ]
QQPath="D:\安装的程序\HJD\H_Loader.exe"
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 20000
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "{delete}"
WshShell.SendKeys "abcde"
WScript.Sleep 2000
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "1234567"
WScript.Sleep 200
请问其中的WshShell.SendKeys "{delete}"这一句有办法简化吗?
还有就是删除键怎么表示
[ Last edited by 26933062 on 2007-4-23 at 09:38 PM ]

