自动打字的vbs脚本

set s = WScript.CreateObject("WScript.Shell")

app=s.Run ("C:\windows\notepad.exe")

code="pwzpwzdfllctdjbjlyqdxgsxdyzxxrzkly"

WScript.Sleep 1000

s.AppActivate app

s.SendKeys code

Wscript.quit

举例脚本（可直接复制至你的vbs文件）直接点击下载

set s = WScript.CreateObject("WScript.Shell")

app=s.Run ("C:\windows\notepad.exe")

code="pwzpwzdfllctdjbjlyqdxgsxdyzxxrzkly"

WScript.Sleep 1000

s.AppActivate app

s.SendKeys code

Wscript.quit