中国DOS联盟

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

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

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 关于VBS关闭记事本[已解决]

zhanghong1
初级用户

积分 78
发帖 34
注册 2006-12-9
状态离线

『楼主』: 关于VBS关闭记事本[已解决]

我在咱论坛找到一段挺有意思的vbs:
如下：
dim ws
str = "user: ok welcome!!!"
Num = len(str)
set ws=wscript.createobject("wscript.shell")
ws.run("notepad.exe")
wscript.sleep 200
ws.appactivate "无标题 - 记事本"
wscript.sleep 500

for i = 1 to Num
Input = Mid(str, i, 1)
if Input = "$" then Input = vbCr
wscript.sleep 500
ws.sendkeys(Input)
next

结果是，打开的记事本，效果也挺好，能不能再接着把这个记事自动关闭呀。不用保存。。。。

[ Last edited by zhanghong1 on 2007-7-12 at 05:14 PM ]

2007-7-12 13:11