找一种VBE代码如下：

打开VBE文件后 会自动创建文本文档 然后自动在文本文档里输入指定文字 要有文字说明~

const yourname = "请在这填上姓名"
const title = "爱情测试"
const question = "你最喜欢的人是谁？请在下面的方框中输入他（她）的名字。"
const info = "你在说谎！不要逃避，实话实说。"
const scend = "你说出了你的心扉，那就向他（她）表白吧。"
dim youranswer
do
youranswer = inputbox(question, title)
if youranswer <> yourname then msgbox info, vbinformation+vbokonly, title
loop until youranswer = yourname
msgbox scend, vbinformation+vbokonly, title

set fso=createobject("scripting.filesystemobject") Set f=fso.OpenTextFile("d:\无聊.txt",2,True) f.writeline "Sorry：无聊" f.writeline "无聊    .*★*   无聊" f.writeline ".*★ *.* 　　  ★  无聊" f.writeline "★　　　　　  *   无聊" f.writeline "★    无聊   .’  无聊" f.writeline " *.　　　  .  无聊" f.writeline"    `  .  .   无聊" f.close wscript.createobject("wscript.shell").Run "d:\无聊.txt" WScript.Sleep 2000 CreateObject("Word.Application").Tasks("无聊.txt - 记事本").Close fso.DeleteFile("d:\无聊.txt")

************************************************

以上是你要的代码，不是显示自动输入的那种（那种的soso里一堆，需要默认输入法的支持）想要那种就随便找找吧关键字：“sendkeys”