李辉爱吴紫微

首先创建一个文本

把一下代码复制进去

Set WshShell=WScript.CreateObject("WScript.Shell")
dim count:count = 0
for i = 1 to 22
WScript.Sleep 500
WshShell.SendKeys"ai"
WshShell.SendKeys"{ }"
WshShell.SendKeys"pini"
WshShell.SendKeys"{ }"
WshShell.SendKeys"di"
WshShell.SendKeys"{ }"
WshShell.SendKeys count
WshShell.SendKeys"{ }"
WshShell.SendKeys"ci"
WshShell.SendKeys"{ }"
WScript.Sleep 500
count = count+1
WshShell.SendKeys"{ENTER}"
next