易语言QQ堂游戏辅助源码

系统结构:GetWindowThreadProcessId,OpenProcess,WriteProcessMemory,FindWindow,CloseHandle,

======窗口程序集1
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _超级链接框1_鼠标左键被按下
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetWindowThreadProcessId
           |  |
           |  |---[dll]------   OpenProcess
           |  |
           |  |---[dll]------   WriteProcessMemory
           |  |
           |  |---[dll]------   FindWindow
           |  |
           |  |---[dll]------   CloseHandle

调用的DLL命令:

.DLL命令 GetWindowThreadProcessId, 整数型
    .参数 Hprocess, 整数型
    .参数 Pid, 整数型, 传址

.DLL命令 OpenProcess, 整数型
    .参数 dwDesiredAccess, 整数型
    .参数 bInheritHandle, 逻辑型
    .参数 dwProcessId, 整数型

.DLL命令 WriteProcessMemory, 整数型, , , , , 在指定进程中写内存
    .参数 hProcess, 整数型
    .参数 lpBaseAddress, 整数型
    .参数 lpBuffer, 字节集
    .参数 nSize, 整数型
    .参数 lpNumberOfBytesWritten, 整数型

.DLL命令 FindWindow, 整数型, "user32", "FindWindowA", , , 寻找窗口列表中第一个符合指定条件的顶级窗口（在vb里使用：FindWindow最常见的一个用途是获得ThunderRTMain类的隐藏窗口的句柄；该类是所有运行中vb执行程序的一部分。获得句柄后，可用api函数GetWindowText取得这个窗口的名称；该名也是应用程序的标题）  找到窗口的句柄。如未找到相符窗口，则返回零。会设置GetLastError
    .参数 窗口类名, 文本型, , 指向包含了窗口类名的空中止（C语言）字串的指针；或设为零，表示接收任何类
    .参数 窗口文本, 文本型, , 指向包含了窗口文本（或标签）的空中止（C语言）字串的指针；或设为零，表示接收任何窗口标题  示例Dim hw&, cnt&Dim rttitle As  * 256hw& = FindWindow("ThunderRT5Main", vbNullString) ' ThunderRTMain under VB4cnt = GetWindowText(hw&, rttitle, 255)MsgBox Left$(rttitle, cnt), 0, "RTMain title";

.DLL命令 CloseHandle, 整数型
    .参数 hObject, 整数型