1、首先 在桌面右键新建文本文档。
2、将下方代码复制到记事本中，保存。
Dim WshShell
Set WshShell=wscript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 500
WshShell.AppActivate "无标题 - 记事本"
dim a
a="i love you "
for i =1 to len(a)
WScript.sleep 300
wshshell.sendkeys mid(a,i,1)
next
dim b
set b=CreateObject("SAPI.SpVoice")
b.Speak("i love you")
3、然后关闭这个记事本，将记事本把后面个txt改成vbs。如果你记事本没有显示txt就随便打开一个文件夹点击“工具-文件夹选项-查看-高级设置隐藏已知文件类型扩展”前面的勾勾去掉点击确定。
4、点击就会弹出记事本，自动输入i love you 电脑也会发出i love you