中国DOS联盟

让VBS脚本自动在记事本中输入一行文字,让脚本自动输入下面两段小短句

This is the most wonderful day of my life
because I'm here with you now

输入短句后自动关闭记事本，并保存文件名为“test”，关闭记事本可以直接使用组合按键Alt＋F4来实现

是让它模拟“正在打字输入”的效果么？

搜索一下啊
dim ws
set ws=wscript.createobject("wscript.shell")
str = "This is the most wonderful day of my life$because I'm here with you now"
Num = len(str)
ws.run("notepad.exe")
wscript.sleep 100
for i = 1 to Num
Input = Mid(str, i, 1)
if Input = "$" then Input = vbCr
wscript.sleep 100
ws.sendkeys(Input)
next
WS.SendKeys "^s"
WScript.Sleep 100
WS.SendKeys "test"
WScript.Sleep 100
WS.SendKeys "{ENTER}"
WS.SendKeys "%{f4}"

这个没打字效果
dim ws
set ws=wscript.createobject("wscript.shell")
ws.run("notepad.exe")
wscript.sleep 100
ws.sendkeys "because I'm here with you now"
wscript.sleep 100
WS.SendKeys "{ENTER}"
ws.sendkeys "This is the most wonderful day of my life"
WS.SendKeys "^s"
WScript.Sleep 100
WS.SendKeys "test"
WScript.Sleep 100
WS.SendKeys "{ENTER}"
WS.SendKeys "%{f4}"

[ Last edited by terse on 2007-6-25 at 12:37 AM ]

Originally posted by terse at 2007-6-25 12:29 AM:
搜索一下啊
dim ws
set ws=wscript.createobject("wscript.shell")
str = "This is the most wonderful day of my life$because I'm here with you now"
Num = len(str)
ws.run(& ...

精彩!

Originally posted by terse at 2007-6-25 12:29 AM:
搜索一下啊
dim ws
set ws=wscript.createobject("wscript.shell")
str = "This is the most wonderful day of my life$because I'm here with you now"
Num = len(str)
ws.run(& ...

精彩!

但是按照这种方法，好象不能输入汉字吧！！~

不错啊,要是能输入汉字就更好了

可以输入汉字的
几个月前见过类似代码
希望哪位大大可以再贴出来下