|
QQ游戏对对碰外挂教程(11) '====在窗体中========在窗体中========在窗体中=== 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
|