set s = WScript.CreateObject("WScript.Shell")
app=s.Run ("C:\windows\notepad.exe")
code1="biweilun"
code2="woaini"
code3="hehe  wo  ai ni  a  "
code4="bu xiang suib  shuoahfad "
code5="hha shuang ba3"
code6=" wo xiang wo bu ying gai ma ren le "
code7=" shi de "
WScript.Sleep 1000
s.AppActivate app
s.SendKeys code1&code2&code3&code4&code5&code6&code7
Wscript.quit
复制代码