标题: 简化这个vbs [打印本页]

---

作者: 26933062     时间: 2007-4-24 06:22    标题: 简化这个vbs

我有一个自动登陆黄金岛的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 ]

---

作者: bjsh     时间: 2007-4-24 06:51
这里是"论坛";

是讨论;

不是来让谁给你写什么东西;

你可以搜下老贴;学习些东西;自己来写;

遇到想不通的或者难写下去的地方来这里交流;

---

作者: zhoushijay     时间: 2007-4-24 09:24
黄金岛是啥？
是游戏吗？

---

作者: mountvol     时间: 2007-4-24 11:12
for i = 1 to 17
    wshshell.sendkeys "{delete}"
next

---

作者: zh159     时间: 2007-4-24 11:14
LZ是发命令么？

---

作者: 26933062     时间: 2007-4-24 15:07
4楼的谢谢
能解释一下 for i = 1 to 17  这句吗?

---

作者: zh159     时间: 2007-4-24 15:53
用不着for ... next

WshShell.SendKeys "{delete 17}"

---

作者: everest79     时间: 2007-4-24 23:20
有如标题一样简化

---

作者: slore     时间: 2007-4-25 05:05
貌似可以发送按键全选然后DEL吧?