请vbs高手帮忙看看,哪里错了

来源:百度知道 编辑:UC知道 时间:2024/06/08 03:39:48
一个大哥教我的,方法是运行abot.exe后能5秒后自动按回车。不用我再去点开始。但是我照他做了后发现提示“系统找不到指定的文件”是为什么啊?代码在下面。还有他有循环10次点击,我想取消这个功能。点一次就可以。能帮我改好吗?谢谢
Dim WshShell
Dim i
Dim j
Dim k
Set WshShell=WScript.CreateObject("WScript.Shell")

while TRUE
WshShell.Run"D:\Program Files\d2\abot041\ABot.exe"
WScript.Sleep 5000
for i=1 to 10
WshShell.SendKeys("{ENTER}")
WScript.Sleep 3000
next
wend

VBS根DOS老版本一样,不支持长路径,这个VBS文件和D:\Program Files\d2\abot041\ABot.exe放在一个文件夹下,直接调用

WshShell.Run"ABot.exe" 看看
下面是循环10次点击
for i=1 to 10
WshShell.SendKeys("{ENTER}")
WScript.Sleep 3000
next

下面是只有一次点击(把循环去掉就可以了)

WshShell.SendKeys("{ENTER}")