UC知道VBS穷举输入,VBS高手请进
来源：百度知道 编辑：UC知道 时间：2024/06/09 08:06:51
MsgBox "OK , ready to start !"
MyAppName=inputbox("程序名称：")
Set a = CreateObject("WScript.Shell")
a.appactivate MyAppName
For i=811208 to 811209
a.SendKeys "" & i
wscript.sleep 2000
a.SendKeys "{Enter}"
wscript.sleep 2000
a.SendKeys "{Enter}"
wscript.sleep 2000
Next
MsgBox "Done !"
怎么样才能让下次穷举的数据自动覆盖前次数据？(在密码栏）或者先自动清除，再举下次，直到输入验正正确为止，停止
请将完整的语句发给我下好吗？
急用，谢谢！感谢“ weiln - 江湖新秀 四级” 的回答！
MyAppName=inputbox("程序名称：")
Set a = CreateObject("WScript.Shell")
a.appactivate MyAppName
For i=811208 to 811209
a.SendKeys "" & i
wscript.sleep 2000
a.SendKeys "{Enter}"
wscript.sleep 2000
a.SendKeys "{Enter}"
wscript.sleep 2000
Next
MsgBox "Done !"
怎么样才能让下次穷举的数据自动覆盖前次数据？(在密码栏）或者先自动清除，再举下次，直到输入验正正确为止，停止
请将完整的语句发给我下好吗？
急用，谢谢！感谢“ weiln - 江湖新秀 四级” 的回答！
程序很长,没时间不弄了,所以也不好写,在公司没有VB,不过把思想给你,用IF语句,嵌套起来吧.先定义密码,假如为I,再定义穷举的数字,假如为X,然后定义窗体,就是输入密码的那个,里面如果X不等于I,那么清空,再输入下一个,直到得到正确的然后把X输出来.就行了.清除语句,IF X!=I,passbox=""OK?
不好意思,我在公司上班才能上网,没有时间呀.