文章作者：shadowhider
信息来源：邪恶八进制信息安全团队（www.eviloctal.com）

  大家好，最近忙着学了学VB，这是我的第一个作品，QQ连连看秒杀外挂。其实就是模拟鼠标点击.

下面是源码：
（窗体大家自己设计吧，需要3个command，1个label，1个timer）
Dim Begin As Long, Begin1 As Long
Private Sub Command1_Click()
'开始
Timer1.Enabled = 1
Command1.Enabled = False
Command2.Enabled = 1
End Sub

Private Sub Command2_Click()
'停止 ，取消置顶
Timer1.Enabled = 0
Command1.Enabled = 1
Command2.Enabled = 0
SetWindowPos g_WindowHwnd, -2, 0, 0, 0, 0, &H2 Or &H1
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
If App.PrevInstance Then End
Label1 = "QQ连连看一键秒杀外挂" & vbCrLf & "http://hi.baidu.com/zrxc/"
Command1.Enabled = True: Command2.Enabled = False
Command1.Caption = "一键秒杀": Command2.Caption = "停止秒杀"
Timer1.Enabled = False: Timer1.Interval = 500
End Sub


Private Sub Timer1_Timer()
'查找游戏窗口并置顶
g_WindowHwnd = FindWindow("#32770", "QQ游戏 - 连连看角色版")
SetWindowPos g_WindowHwnd, -1, 0, 0, 0, 0, &H2 Or &H1
  
If g_WindowHwnd = 0 Then Exit Sub
'取游戏画面两点来判断是否在游戏中，是的话开始消
Begin = getcolor(643, 563)
Begin1 = getcolor(647, 523)
If Begin = 15783104 And Begin1 = 15783104 Then
  
Get_Boxs
Kill_Box
  
Else
Command2_Click
End If
End Sub


下面打包是模块Module1.bas的代码
Module1.rar (3.13 KB)

Module1.rar (3.13 KB)
下载次数: 72

2008-2-21 12:33

SetWindowPos g_WindowHwnd, -1, 0, 0, 0, 0, &H2 Or &H1
楼主，请问下这句话是什么意思？
实现鼠标的左右键单击？

顶一个