
| Quote: | |
|
附件 1:this.BMP (2006-5-14 22:34, 11.89 K, 下载附件所需积分 1 点 ,下载次数: 5)
![]()
CODE: [Copy to clipboard]strExeFile = "D:\one.exe"
With CreateObject("Wscript.Shell")
for i = 1 to 8
.Run strExeFile '运行程序
Wscript.Sleep 500 '等待半秒,假设你的程序启动需要半秒
.SendKeys "~" '发送一个回车键
next
end With
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |