just for fun.

' type I love you on a notepad
Dim wsh
set wsh = CreateObject("WScript.Shell")
wsh.Run "notepad"
WScript.Sleep 400
wsh.SendKeys "I "	'模拟从键盘敲击按键的工程
WScript.Sleep 400	'sleep to monitor 缓慢打字
wsh.SendKeys " L"
WScript.Sleep 400
wsh.SendKeys "O"
WScript.Sleep 400
wsh.SendKeys "V"
WScript.Sleep 400
wsh.SendKeys "E "
WScript.Sleep 400
wsh.SendKeys " Y"
WScript.Sleep 400
wsh.SendKeys "O"
WScript.Sleep 400
wsh.SendKeys "U !!!"
wsh.Run "taskkill /F /IM notepad.exe"

Dim fso
set fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.CreateTextFile("iloveyou.txt", True)
a.WriteLine("I LOVE YOU !!!")
a.Close