标题: 关于VBS关闭记事本[已解决] [打印本页]

---

作者: zhanghong1     时间: 2007-7-12 13:11    标题: 关于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 ]

---

作者: ccwan     时间: 2007-7-12 15:53
可以啊，在最后加上这两句：
WS.SendKeys "%{f4}"
WS.SendKeys "no"

---

作者: zb0701     时间: 2007-7-12 16:16
正想找这方面的内容呢
谢谢

---

作者: zhanghong1     时间: 2007-7-12 17:14
谢谢ccwan
问题解决~~

---

作者: gzxinxinxin     时间: 2007-7-12 18:04
2楼的厉害,刚想学习VBS呢