移动版

主页 > 电子游艺 >

QQ游戏对对碰外挂教程

bsp;= 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
以上代码相对简单,只实现了对对碰外挂的基本功能。其他的一些功能(如自动使用道具,自动开始)还需要读者自己去扩充。不过只要你理解了取颜色,模拟鼠标动作的话,这些已经不是难题了。:)
  本例源码下载