中国DOS联盟

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

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

游客 注册 登录 会员 网志 搜索 命令提示符 Bash 上传 统计
中国DOS联盟论坛
现在时间是 2026-08-06 13:28
欢迎新会员 hello8888666　 RSS
共 48,039 主题排行 / 350,124 发帖 / 今日 0 篇 / 48,251 会员排行 不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [求助]VBS延时(已经解决,谢谢大家!) 查看 2,231　回复 8
推荐给朋友 分享到 X 分享到 微博 分享到 Telegram 分享到 QQ空间 复制链接 二维码
楼 主 [求助]VBS延时(已经解决,谢谢大家!) 发表于 2007-11-19 11:07　·　 中国 广东 广州 天河区 电信
ttytxz
初级用户
★
积分 44
发帖 16
注册 2007-11-16 12:02
18年会员
UID 102825
性别 男
状态 离线
各位大侠,请帮我在下面的代码里加一个延时的代码:谢谢!
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 ]
第 2 楼 发表于 2007-11-19 13:48　·　 中国 湖北 武汉 电信
lxmxn
版主
★★★★★
积分 11,386
发帖 4,938
注册 2006-07-23 17:10
20年会员
UID 59080
状态 离线
延时15秒：wscript.sleep 15000
第 3 楼 发表于 2007-11-19 14:43　·　 中国 广东 广州 天河区 电信
ttytxz
初级用户
★
积分 44
发帖 16
注册 2007-11-16 12:02
18年会员
UID 102825
性别 男
状态 离线
加入以后软件运行不了
第 4 楼 发表于 2007-11-19 14:51　·　 中国 湖北 武汉 电信
lxmxn
版主
★★★★★
积分 11,386
发帖 4,938
注册 2006-07-23 17:10
20年会员
UID 59080
状态 离线
是vbs脚本吗？
第 5 楼 发表于 2007-11-19 15:05　·　 中国 广东 广州 天河区 电信
ttytxz
初级用户
★
积分 44
发帖 16
注册 2007-11-16 12:02
18年会员
UID 102825
性别 男
状态 离线
是的
第 6 楼 发表于 2007-11-19 15:47　·　 中国 湖北 武汉 电信
lxmxn
版主
★★★★★
积分 11,386
发帖 4,938
注册 2006-07-23 17:10
20年会员
UID 59080
状态 离线
我测试没问题，不知道你测试的代码是怎么样的？
第 7 楼 发表于 2007-11-21 21:54　·　 中国 北京 利达宽带
sonicandy
中级用户
★★
积分 273
发帖 91
注册 2007-05-07 18:12
19年会员
UID 87770
性别 男
状态 离线
oshell.SendKeys "dzh2.exe" => oshell.run "dzh2.exe", 1, false
第 8 楼 发表于 2007-11-21 23:17　·　 中国 山西 大同 电信
Xdao
新手上路
★
积分 19
发帖 7
注册 2007-09-19 11:47
18年会员
UID 97768
性别 男
状态 离线
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}"
第 9 楼 发表于 2007-11-22 12:18　·　 中国 广东 广州 天河区 电信
ttytxz
初级用户
★
积分 44
发帖 16
注册 2007-11-16 12:02
18年会员
UID 102825
性别 男
状态 离线
已经解决,谢谢大家!
把文件放在想要运行的程序同一个文件夹的情况下不用写路径也可以.
可打印版本 | 订阅主题 | 收藏主题
论坛跳转:
[ 联系联盟系统管理团队 - 中国DOS联盟 - 简版 ]

Sponsored by ifanr Inc | © 2001–2023