📄 frmgetpass.frm
字号:
E_2 = True
Exit Function
End If
'===============
Next j
Next i
End Function
Private Function E_3() As Boolean
E_3 = False
Dim i As Long
Dim j As Long
Dim k As Long
For i = 1 To Max
For j = 1 To Max
For k = 1 To Max
'===============
Num = Num + 1
If stopFlag = True Then
Set vbExcel = Nothing
MsgBox "用户中断!!"
Exit Function
End If
PassWord = strChar(i) + strChar(j) + strChar(k)
Label1.Caption = "探测次数:" & Str(Num) & " 密码:" & PassWord
DoEvents
OK = OpenExcel(Filename, PassWord)
If OK = True Then
E_3 = True
Exit Function
End If
'===============
Next k
Next j
Next i
End Function
Private Function E_4() As Boolean
E_4 = False
Dim i As Long
Dim j As Long
Dim k As Long
Dim l As Long
For i = 1 To Max
For j = 1 To Max
For k = 1 To Max
For l = 1 To Max
'===============
Num = Num + 1
If stopFlag = True Then
Set vbExcel = Nothing
MsgBox "用户中断!!"
Exit Function
End If
PassWord = strChar(i) + strChar(j) + strChar(k) + strChar(l)
Label1.Caption = "探测次数:" & Str(Num) & " 密码:" & PassWord
DoEvents
OK = OpenExcel(Filename, PassWord)
If OK = True Then
E_4 = True
Exit Function
End If
'===============
Next l
Next k
Next j
Next i
End Function
Private Function E_5() As Boolean
E_5 = False
Dim i As Long
Dim j As Long
Dim k As Long
Dim l As Long
Dim m As Long
For i = 1 To Max
For j = 1 To Max
For k = 1 To Max
For l = 1 To Max
For m = 1 To Max
'===============
Num = Num + 1
If stopFlag = True Then
Set vbExcel = Nothing
MsgBox "用户中断!!"
Exit Function
End If
PassWord = strChar(i) + strChar(j) + strChar(k) + strChar(l) + strChar(m)
Label1.Caption = "探测次数:" & Str(Num) & " 密码:" & PassWord
DoEvents
OK = OpenExcel(Filename, PassWord)
If OK = True Then
E_5 = True
Exit Function
End If
'===============
Next m
Next l
Next k
Next j
Next i
End Function
Private Function E_6() As Boolean
E_6 = False
Dim i As Long
Dim j As Long
Dim k As Long
Dim l As Long
Dim m As Long
Dim n As Long
For i = 1 To Max
For j = 1 To Max
For k = 1 To Max
For l = 1 To Max
For m = 1 To Max
For n = 1 To Max
'===============
Num = Num + 1
If stopFlag = True Then
Set vbExcel = Nothing
MsgBox "用户中断!!"
Exit Function
End If
PassWord = strChar(i) + strChar(j) + strChar(k) + strChar(l) + strChar(m) + strChar(n)
Label1.Caption = "探测次数:" & Str(Num) & " 密码:" & PassWord
DoEvents
OK = OpenExcel(Filename, PassWord)
If OK = True Then
E_6 = True
Exit Function
End If
'===============
Next n
Next m
Next l
Next k
Next j
Next i
End Function
Private Function E_7() As Boolean
E_7 = False
Dim i As Long
Dim j As Long
Dim k As Long
Dim l As Long
Dim m As Long
Dim n As Long
Dim o As Long
For i = 1 To Max
For j = 1 To Max
For k = 1 To Max
For l = 1 To Max
For m = 1 To Max
For n = 1 To Max
For o = 1 To Max
'===============
Num = Num + 1
If stopFlag = True Then
Set vbExcel = Nothing
MsgBox "用户中断!!"
Exit Function
End If
PassWord = strChar(i) + strChar(j) + strChar(k) + strChar(l) + strChar(m) + strChar(n) + strChar(o)
Label1.Caption = "探测次数:" & Str(Num) & " 密码:" & PassWord
DoEvents
OK = OpenExcel(Filename, PassWord)
If OK = True Then
E_7 = True
Exit Function
End If
'===============
Next o
Next n
Next m
Next l
Next k
Next j
Next i
End Function
Private Function E_8() As Boolean
E_8 = False
Dim i As Long
Dim j As Long
Dim k As Long
Dim l As Long
Dim m As Long
Dim n As Long
Dim o As Long
Dim p As Long
For i = 1 To Max
For j = 1 To Max
For k = 1 To Max
For l = 1 To Max
For m = 1 To Max
For n = 1 To Max
For o = 1 To Max
For p = 1 To Max
'===============
Num = Num + 1
If stopFlag = True Then
Set vbExcel = Nothing
MsgBox "用户中断!!"
Exit Function
End If
PassWord = strChar(i) + strChar(j) + strChar(k) + strChar(l) + strChar(m) + strChar(n) + strChar(o) + strChar(p)
Label1.Caption = "探测次数:" & Str(Num) & " 密码:" & PassWord
DoEvents
OK = OpenExcel(Filename, PassWord)
If OK = True Then
E_8 = True
Exit Function
End If
'===============
Next p
Next o
Next n
Next m
Next l
Next k
Next j
Next i
End Function
Private Function E_9() As Boolean
E_9 = False
Dim i As Long
Dim j As Long
Dim k As Long
Dim l As Long
Dim m As Long
Dim n As Long
Dim o As Long
Dim p As Long
Dim q As Long
For i = 1 To Max
For j = 1 To Max
For k = 1 To Max
For l = 1 To Max
For m = 1 To Max
For n = 1 To Max
For o = 1 To Max
For p = 1 To Max
For q = 1 To Max
'===============
Num = Num + 1
If stopFlag = True Then
Set vbExcel = Nothing
MsgBox "用户中断!!"
Exit Function
End If
PassWord = strChar(i) + strChar(j) + strChar(k) + strChar(l) + strChar(m) + strChar(n) + strChar(o) + strChar(p) + strChar(q)
Label1.Caption = "探测次数:" & Str(Num) & " 密码:" & PassWord
DoEvents
OK = OpenExcel(Filename, PassWord)
If OK = True Then
E_9 = True
Exit Function
End If
'===============
Next q
Next p
Next o
Next n
Next m
Next l
Next k
Next j
Next i
End Function
Private Function E_10() As Boolean
E_10 = False
Dim i As Long
Dim j As Long
Dim k As Long
Dim l As Long
Dim m As Long
Dim n As Long
Dim o As Long
Dim p As Long
Dim q As Long
Dim r As Long
For i = 1 To Max
For j = 1 To Max
For k = 1 To Max
For l = 1 To Max
For m = 1 To Max
For n = 1 To Max
For o = 1 To Max
For p = 1 To Max
For q = 1 To Max
For r = 1 To Max
'===============
Num = Num + 1
If stopFlag = True Then
Set vbExcel = Nothing
MsgBox "用户中断!!"
Exit Function
End If
PassWord = strChar(i) + strChar(j) + strChar(k) + strChar(l) + strChar(m) + strChar(n) + strChar(o) + strChar(p) + strChar(q) + strChar(r)
Label1.Caption = "探测次数:" & Str(Num) & " 密码:" & PassWord
DoEvents
OK = OpenExcel(Filename, PassWord)
If OK = True Then
E_10 = True
Exit Function
End If
'===============
Next r
Next q
Next p
Next o
Next n
Next m
Next l
Next k
Next j
Next i
End Function
Private Function E_11() As Boolean
E_11 = False
Dim i As Long
Dim j As Long
Dim k As Long
Dim l As Long
Dim m As Long
Dim n As Long
Dim o As Long
Dim p As Long
Dim q As Long
Dim r As Long
Dim s As Long
For i = 1 To Max
For j = 1 To Max
For k = 1 To Max
For l = 1 To Max
For m = 1 To Max
For n = 1 To Max
For o = 1 To Max
For p = 1 To Max
For q = 1 To Max
For r = 1 To Max
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -