怎么用VBS穷举简单的密码

来源：百度知道 编辑：UC知道 时间：2024/04/30 17:53:36
用VBS穷举 0到99999 从0开始每输入一次密码按两次回车.试到正确密码则停止.. 应该怎么弄啊?

MsgBox "OK , ready to start !"
MyAppName=inputbox("程序名称：")
Set a = CreateObject("WScript.Shell")
a.appactivate MyAppName
For i=1 to 99999
a.SendKeys "" & i
wscript.sleep 2000
a.SendKeys "{Enter}"
wscript.sleep 2000
a.SendKeys "{Enter}"
wscript.sleep 2000
Next
MsgBox "Done !"

'使用方法：双击VBS文件，单击“确定”，输入现在这个程序的标题（比如QQ），单击确定，程序开始穷举，你等一会就可以了。给我加点分！