易语言外部网页加广告源码

系统结构:按进程名获取窗口信息,进程获取线程,枚举窗口过程,API_寻找顶级窗口,API_寻找子窗口,API_创建快照,API_第一个进程,API_下一个进程,API_第一个线程,API_下一个线程,API_枚举任务窗口,API_取父窗口,API_关闭句柄,API_置父窗口,API_取窗口矩形,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _预览按钮_被单击
           |  |
           |  |------ _开始按钮_被单击
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ 按进程名获取窗口信息
           |  |
           |  |------ 进程获取线程
           |  |
           |  |------ 枚举窗口过程
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_寻找顶级窗口
           |  |
           |  |---[dll]------   API_寻找子窗口
           |  |
           |  |---[dll]------   API_创建快照
           |  |
           |  |---[dll]------   API_第一个进程
           |  |
           |  |---[dll]------   API_下一个进程
           |  |
           |  |---[dll]------   API_第一个线程
           |  |
           |  |---[dll]------   API_下一个线程
           |  |
           |  |---[dll]------   API_枚举任务窗口
           |  |
           |  |---[dll]------   API_取父窗口
           |  |
           |  |---[dll]------   API_关闭句柄
           |  |
           |  |---[dll]------   API_置父窗口
           |  |
           |  |---[dll]------   API_取窗口矩形

调用的DLL命令:

.支持库 EdirectX

.DLL命令 API_寻找顶级窗口, 整数型, "user32", "FindWindowA"
    .参数 窗口类名, 整数型, , 0
    .参数 窗口文本, 文本型, , bt

.DLL命令 API_寻找子窗口, 整数型, "user32", "FindWindowExA", , 寻找子窗口_ (0, 局部_窗口句柄, 字符 (0), 字符 (0))
    .参数 窗口句柄1, 整数型
    .参数 窗口句柄2, 整数型
    .参数 窗口类名, 文本型
    .参数 窗口文本, 文本型

.DLL命令 API_创建快照, 整数型, , "CreateToolhelp32Snapshot"
    .参数 lFlags, 整数型
    .参数 lProcessID, 整数型

.DLL命令 API_第一个进程, 整数型, , "Process32First"
    .参数 hSnapShot, 整数型
    .参数 uProcess, PROCESSENTRY32

.DLL命令 API_下一个进程, 整数型, , "Process32Next"
    .参数 hSnapShot, 整数型
    .参数 uProcess, PROCESSENTRY32

.DLL命令 API_第一个线程, 逻辑型, "Kernel32.dll", "Thread32Next", 公开
    .参数 快照句柄, 整数型
    .参数 线程入口结构, 线程入口结构, 传址

.DLL命令 API_下一个线程, 逻辑型, "Kernel32.dll", "Thread32Next", 公开
    .参数 快照句柄, 整数型
    .参数 线程入口结构, 线程入口结构

.DLL命令 API_枚举任务窗口, 整数型, "user32.dll", "EnumThreadWindows", , 枚举与指定任务相关的窗口　非零表示成功，零表示失败
    .参数 线程标识符, 整数型, , 某线程的标识符，它的窗口将被枚举
    .参数 函数指针, 子程序指针, , 指向一个函数的指针，要求为每个子窗口都调用这个函数。用AddressOf运算符获得函数在标准模式下的地址
    .参数 自定义数值, 整数型, , 在枚举期间，传递给dwcbkd32d.ocx定制控件之EnumWindows事件的值。这个值的含义是由程序员规定的

.DLL命令 API_取父窗口, 整数型, "user32.dll", "GetParent", , 判断指定窗口的父窗口　父窗口的句柄。如窗口没有父，或遇到错误，则返回零。会设置GetLastError
    .参数 窗口句柄, 整数型, , 欲测试的窗口的句柄

.DLL命令 API_关闭句柄, 整数型, , "CloseHandle"
    .参数 hObject, 整数型

.DLL命令 API_置父窗口, 整数型, "user32", "SetParent"
    .参数 hWndChild, 整数型
    .参数 hWndNewParent, 整数型, ,   

.DLL命令 API_取窗口矩形, 整数型, "user32", "GetWindowRect", , ,
    .参数 窗口句柄, 整数型
    .参数 矩形区域, 矩形