QQ游戏对对碰教程
佚名
'释放场景（不要漏掉此项）
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
以上代码相对简单，只实现了对对碰的基本功能。其他的一些功能（如自动使用道具，自动开始）还需要读者自己去扩充。不过只要你理解了取颜色，模拟鼠标动作的话，这些已经不是难题了。：）
本例源码下载http://www.sguca.com/other/source.rar
作者对对碰作品Easy对对碰 1.5下载：http://www.sguca.com/other/EasyTwins.rar