For i = 0 To 9999 KeyPress 69, 1 Delay 100 //根据实际情况适当延时 PassWord = String(4 - Len(i), "0") & i For j = 1 To 4 Key = Asc(Mid(PassWord, j, 1)) KeyPress Key, 1 Next Delay 100 //根据实际情况适当延时Next这个我可以写再看看别人怎么说的。
10,按键精灵破解6位纯数字密码
//上面的是你写好到输入密码的地方,下面开始输入密码b = 0rem 输入密码If b<10 Then b = "00000" & bElse If b < 100 Then b = "0000" & b Else If b < 1000 Then b = "000" & b Else If b < 10000 Then b = "00" & b Else If b < 100000 Then b = "0" & b Else If b < 1000000 Then Else If b < 10000000 Then Goto 结束 End If End If End If End If End If End IfEnd IfSayString b//这里加入你确认密码和判断是否正确的语句b = b + 1Goto 输入密码Rem 结束