易语言模拟QQ广告源码

系统结构:AnimateForm,取进程路径,CreateRectRgn,DeleteObject,SetWindowRgn,CombineRgn,OpenProcess,GetModuleFileNameExA,GetSystemDirectoryA,Sleep,

======特效模块集
           |  |
           |  |------ AnimateForm
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _刷新_被单击
           |  |
           |  |------ 取进程路径
           |  |
           |  |------ _按钮被单击
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |
======窗口程序集2
           |  |
           |  |
======窗口程序集3
           |  |
           |  |------ _窗口2_创建完毕
           |  |
           |  |------ _透明标签1_鼠标左键被按下
           |  |
           |  |
======窗口程序集4
           |  |
           |  |------ _窗口3_创建完毕
           |  |
           |  |------ _透明标签1_鼠标左键被按下
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateRectRgn
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   SetWindowRgn
           |  |
           |  |---[dll]------   CombineRgn
           |  |
           |  |---[dll]------   OpenProcess
           |  |
           |  |---[dll]------   GetModuleFileNameExA
           |  |
           |  |---[dll]------   GetSystemDirectoryA
           |  |
           |  |---[dll]------   Sleep

调用的DLL命令:

.DLL命令 CreateRectRgn, 整数型, "gdi32.dll"
    .参数 X1, 整数型
    .参数 Y1, 整数型
    .参数 X2, 整数型
    .参数 Y2, 整数型

.DLL命令 DeleteObject, 整数型, "gdi32"
    .参数 hObject, 整数型

.DLL命令 SetWindowRgn, 整数型, "user32"
    .参数 hwnd, 整数型
    .参数 hrgn, 整数型
    .参数 bRedraw, 逻辑型

.DLL命令 CombineRgn, 整数型, "gdi32.dll"
    .参数 hDestRgn, 整数型
    .参数 hSrcRgn1, 整数型
    .参数 hSrcRgn2, 整数型
    .参数 nCombineMode, 整数型

.DLL命令 OpenProcess, 整数型, "kernel32", "OpenProcess", , 打开一个现有进程的句柄。返回值Long，如执行成功，返回进程句柄；零表示失败。会设置GetLastErrora。
    .参数 dwDesiredAccess, 整数型, , Long，指定这个句柄要求的访问方法。指定API32.TXT文件中以PROCESS_???开头的一个或多个常数
    .参数 bInheritHandle, 整数型, , Long，如句柄能够由子进程继承，则为TRUE
    .参数 dwProcessId, 整数型, , Long，要打开那个进程的进程标识符

.DLL命令 GetModuleFileNameExA, 整数型, "psapi.dll", , , 获取一个已装载模板的完整路径名称。返回值Long，如执行成功，返回复制到lpFileName的实际字符数量；零表示失败。会设置GetLastErrora。
    .参数 hModule, 整数型, , 备注1无法读取，请您提供该API名报易BBS中ID号klasp完善。
    .参数 dd, 整数型
    .参数 lpFileName, 文本型, , 备注2无法读取，请您提供该API名报易BBS中ID号klasp完善。
    .参数 nSize, 整数型, , 备注3无法读取，请您提供该API名报易BBS中ID号klasp完善。

.DLL命令 GetSystemDirectoryA, 整数型, "kernel32", "GetSystemDirectoryA", , 这个函数能取得Windows系统目录（System目录）的完整路径名。在这个目录中，包含了所有必要的系统文件。根据微软的标准，其他定制控件和一些共享组件也可放到这个目录。通常应避免在这个目录里创建文件。在网络环境中，往往需要管理员权限才可对这个目录进行写操作。返回值Long，装载到lpBuffer缓冲区的字符数量。如lpBuffer不够大，不能容下文件名，则返回要求的缓冲区长度。
    .参数 lpBuffer, 文本型, , 备注1无法读取，请您提供该API名报易BBS中ID号klasp完善。
    .参数 nSize, 整数型, , 备注2无法读取，请您提供该API名报易BBS中ID号klasp完善。

.DLL命令 Sleep, , "kernel32.dll"
    .参数 dwMilliseconds, 整数型