中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [求助]VBS延时(已经解决,谢谢大家!)
作者:
标题: [求助]VBS延时(已经解决,谢谢大家!) 上一主题 | 下一主题
ttytxz
初级用户





积分 44
发帖 16
注册 2007-11-16
状态 离线
『楼 主』:  [求助]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 ]

2007-11-19 11:07
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
lxmxn
版主




积分 11386
发帖 4938
注册 2006-7-23
状态 离线
『第 2 楼』:  

延时15秒:wscript.sleep 15000

2007-11-19 13:48
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
ttytxz
初级用户





积分 44
发帖 16
注册 2007-11-16
状态 离线
『第 3 楼』:  

加入以后软件运行不了

2007-11-19 14:43
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
lxmxn
版主




积分 11386
发帖 4938
注册 2006-7-23
状态 离线
『第 4 楼』:  

是vbs脚本吗?

2007-11-19 14:51
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
ttytxz
初级用户





积分 44
发帖 16
注册 2007-11-16
状态 离线
『第 5 楼』:  

是的

2007-11-19 15:05
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
lxmxn
版主




积分 11386
发帖 4938
注册 2006-7-23
状态 离线
『第 6 楼』:  

我测试没问题,不知道你测试的代码是怎么样的?

2007-11-19 15:47
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
sonicandy
中级用户





积分 273
发帖 91
注册 2007-5-7
状态 离线
『第 7 楼』:  

oshell.SendKeys "dzh2.exe" => oshell.run "dzh2.exe", 1, false

2007-11-21 21:54
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
Xdao
新手上路





积分 19
发帖 7
注册 2007-9-19
状态 离线
『第 8 楼』:  

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}"

2007-11-21 23:17
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
ttytxz
初级用户





积分 44
发帖 16
注册 2007-11-16
状态 离线
『第 9 楼』:  

已经解决,谢谢大家!
把文件放在想要运行的程序同一个文件夹的情况下不用写路径也可以.

2007-11-22 12:18
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: