首先创建一个文本

把一下代码复制进去

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

保存退出

把文本的后缀名改成.vbs

之后找到一下这个人的对话框

 

姓名：吴紫微

别名：屁妮

性别：女

年龄：20

生日：5月3日

就读于黄河水利职业技术学院

之后双击文件.vbs

最后点击这个人的对话框的输入框

有奇迹！！！！！！！！！