- Set object=CreateObject("wscript.shell")
- object.run "notepad"
- object.appactivate "无标题-记事本"
- WScript.Sleep 3000
- object.sendkeys "+(^)"
- WScript.Sleep 300
- object.sendkeys "+(^)"
- WScript.Sleep 300
- object.sendkeys "+(^)"
- WScript.Sleep 1000
- object.sendkeys "smq"
- object.SendKeys "{enter}"
复制代码 本想切换个输入法,试一下输入汉字,但不知道为什么不成功
[ 本帖最后由 wc726842270 于 2010-12-12 00:33 编辑 ] |