[原创]VB打造QQ连连看秒杀外挂(开源代码)
文章作者：shadowhider信息来源：邪恶八进制信息安全团队（[url]www.eviloctal.com[/url]）
大家好，最近忙着学了学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的代码
[attach]11020[/attach] SetWindowPos g_WindowHwnd, -1, 0, 0, 0, 0, &H2 Or &H1
楼主，请问下这句话是什么意思？
实现鼠标的左右键单击？ SetWindowPos g_WindowHwnd, -1, 0, 0, 0, 0, &H2 Or &H1
楼主，请问下这句话是什么意思？
实现鼠标的左右键单击？
汗,告诉你吧,这是获取某个窗口的坐标..............汗都整出来鼠标点击了 SetWindowPos g_WindowHwnd, -1, 0, 0, 0, 0, &H2 Or &H1就是将程序窗口置顶
[url]http://0xx.org.cn/show-13-1.html[/url]这是一篇关于这个连连看外挂的分析 我记得以前在这边看到过一个 .net 的连连看外挂。也是开源的。
页:
[1]