QQ连连看外挂源码-VB源代码

最新推荐文章于 2012-12-06 23:21:00 发布

envon123

最新推荐文章于 2012-12-06 23:21:00 发布

阅读量3.1k

点赞数

分类专栏： VB 游戏辅助文章标签： QQ连连看连连看VB源代码连连看代码连连看外挂连连看辅助

本文链接：https://blog.csdn.net/envon123/article/details/7192568

版权

本文分享了QQ连连看的外挂源码，包括VB类模块代码和窗体代码示例，提供了详细的实现过程。此外，还提供了一个下载链接，可以在CSDN上获取该外挂的示例代码。

摘要由CSDN通过智能技术生成

下面是类模块代码：

Option Explicit

'|^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'|                                                                     北
'|    QQ连连看辅助 (原创代码和算法,请保留版权信息)                      |
'|                                                                      |
'|    作者:E旺, QQ:407542585 { Code By:EnVon } [2012-01-08]   西 _______|_______ 东
'|                                                                      |
'|    程序中,东西方向表示水平方向,南北方向表示竖直方向                  |
'|                                                                      |
'|                                                                     南
'|
'|^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

'API类型定义
Private Type POINTAPI
    x As Long
    y As Long
End Type
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private Const SRCCOPY = &HCC0020
Private Const WM_SETCURSOR = &H20
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUT