标题: [求助]VBS延时(已经解决,谢谢大家!) [打印本页]

---

作者: ttytxz     时间: 2007-11-19 11:07    标题: [求助]VBS延时(已经解决,谢谢大家!)

各位大侠,请帮我在下面的代码里加一个延时的代码:谢谢!
Set oshell=CreateObject("wscript.shell")
oshell.SendKeys "dzh2.exe"

(我希望能够先运行上面的代码,延时15秒钟后再运行下面的代码,谢谢)

Set oshell=CreateObject("wscript.shell")
oshell.SendKeys "%{F6}"
Set oshell=CreateObject("wscript.shell")
oshell.SendKeys "^{ENTER}"
Set oshell=CreateObject("wscript.shell")
oshell.SendKeys "%{F6}"
Set oshell=CreateObject("wscript.shell")
oshell.SendKeys "0061"
Set oshell=CreateObject("wscript.shell")
oshell.SendKeys "^{ENTER}"

[ Last edited by ttytxz on 2007-11-22 at 11:01 PM ]

---

作者: lxmxn     时间: 2007-11-19 13:48
延时15秒：wscript.sleep 15000

---

作者: ttytxz     时间: 2007-11-19 14:43
加入以后软件运行不了

---

作者: lxmxn     时间: 2007-11-19 14:51
是vbs脚本吗？

---

作者: ttytxz     时间: 2007-11-19 15:05
是的

---

作者: lxmxn     时间: 2007-11-19 15:47
我测试没问题，不知道你测试的代码是怎么样的？

---

作者: sonicandy     时间: 2007-11-21 21:54
oshell.SendKeys "dzh2.exe" => oshell.run "dzh2.exe", 1, false

---

作者: Xdao     时间: 2007-11-21 23:17
Set oshell=CreateObject("wscript.shell")
oshell.run "dzh2.exe" '这里好象要把路径写对 好象不能包含中文
wscript.sleep 15000

oshell.SendKeys "%{F6}"

oshell.SendKeys "^{ENTER}"

oshell.SendKeys "%{F6}"

oshell.SendKeys "0061"

oshell.SendKeys "^{ENTER}"

---

作者: ttytxz     时间: 2007-11-22 12:18
已经解决,谢谢大家!
把文件放在想要运行的程序同一个文件夹的情况下不用写路径也可以.