qq游戏对对碰手机版?新版qq游戏对对碰?QQ游戏对对碰外挂教程 [QQ安全] IT.com.cn IT世界网(3)

If boxs(i, j).type = boxs(i + 1, j - 2).type And boxs(i, j).type = boxs(i + 1, j - 1).type Then
mouseClick boxs(i, j).x, boxs(i, j).y
mouseClick boxs(i + 1, j).x, boxs(i + 1, j).y
Exit Function
End If
Next j
Next i

'- -- 情况
For i = 0 To 7
For j = 0 To 4

If boxs(i, j).type = boxs(i, j + 2).type And boxs(i, j).type = boxs(i, j + 3).type Then
mouseClick boxs(i, j).x, boxs(i, j).y
mouseClick boxs(i, j + 1).x, boxs(i, j + 1).y
Exit Function
End If
Next j
Next i

End Function

这里的鼠标模拟用了鼠标事件.你也可以用sendmessage来实现.

'**********过程名:DelayTime******************
'作者:Cyril
'书写日期:2004.10.23
'编辑日期:2002.10.23
'目的:模拟鼠标单击
'方法:mouseClick(ByVal x As Long, ByVal y As Long)
'说明:x -- 方块相对游戏窗口的X; y -- 方块相对游戏窗口的Y;
'返回值:无
'应用于:MainMod模块
'********************************************
Public Sub mouseClick(ByVal x As Long, ByVal y As Long)
Dim po As POINTAPI 'po点击前鼠标位置
Dim kX As Long '方块的绝对X坐标
Dim kY As Long '方块的绝对Y坐标
Dim winRECT As RECT '游戏窗口的RECT

'获得游戏窗口的RECT
GetWindowRect g_WindowHwnd, winRECT
'绝对坐标 = 游戏窗口左上角坐标 + 游戏中的相对坐标
kX = winRECT.Left + x
kY = winRECT.Top + y
'获得鼠标点击前位置
GetCursorPos po
'模拟鼠标移动
mouse_event MOUSEEVENTF_MOVE Or MOUSEEVENTF_ABSOLUTE, kX * 65535 / 1024, kY * 65535 / 768, 0&, 0&
'模拟鼠标按下弹起
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP Or MOUSEEVENTF_ABSOLUTE, 0, 0, 0&, 0&
'点击后返回原先位置
SetCursorPos po.x, po.y
End Sub

'**********过程名:DelayTime******************
'作者:Cyril
'书写日期:2004.10.23
'编辑日期:2002.10.23
'目的:取游戏中某点颜色
'方法:getColor(ByVal newX As Long, ByVal newY As Long) As Long
'说明:newX -- 要取颜色的点的X; newY -- 要取颜色的点的Y;(X,Y均相对于游戏窗口)
'返回值:Long
'应用于:MainMod模块
'********************************************
Public Function getColor(ByVal newX As Long, ByVal newY As Long) As Long
Dim windowDC As Long
'获取游戏场景
windowDC = GetDC(g_WindowHwnd)
'取场景中 (newX,newY)坐标的颜色
getColor = GetPixel(windowDC, newX, newY)
'释放场景（不要漏掉此项）
ReleaseDC g_WindowHwnd, windowDC
End Function

＇＝＝＝＝在窗体中＝＝＝＝＝＝＝＝在窗体中＝＝＝＝＝＝＝＝在窗体中＝＝＝
Option Explicit
'##################################################################
'## 过程名称：Command5_Click
'## 参数： 无
'##################################################################
Private Sub Command5_Click()
Command6.Enabled = Not Command6.Enabled
Command5.Enabled = Not Command5.Enabled
Timer1.Enabled = True
End Sub

'##################################################################
'## 过程名称：Command6_Click
'## 参数： 无
'##################################################################
Private Sub Command6_Click()
Timer1.Enabled = False
Command6.Enabled = Not Command6.Enabled
Command5.Enabled = Not Command5.Enabled
End Sub

'##################################################################
'## 过程名称：Form_Load
'## 参数： 无
'##################################################################
Private Sub Form_Load()
g_WindowHwnd = FindWindow(vbNullString, "对对碰")
'窗口总在前
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

'##################################################################
'## 过程名称：Label2_Click
'## 参数： 无
'##################################################################
Private Sub Label2_Click()
End Sub

'##################################################################
'## 过程名称：Timer1_Timer
'## 参数： 无
'##################################################################
Private Sub Timer1_Timer()
killBox
End Sub

以上代码相对简单，只实现了对对碰外挂的基本功能。其他的一些功能（如自动使用道具，自动开始）还需要读者自己去扩充。不过只要你理解了取颜色，模拟鼠标动作的话，这些已经不是难题了。：）
本例源码下载：
作者对对碰外挂作品Easy对对碰 1.5下载：

以上就是关于qq游戏对对碰外挂的全部内容，相信你一定会非常满意。

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/ruanjian/article-19759-3.html