易语言版媒体嗅探器

系统结构:设置钩子,开始挂钩,停止挂钩,卸载钩子,mysend,初始化,文本处理,Send,设置内存属性,取模块函数地址,取模块句柄,

======钩子
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 设置钩子
           |  |
           |  |------ 开始挂钩
           |  |
           |  |------ 停止挂钩
           |  |
           |  |------ 卸载钩子
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ mysend
           |  |
           |  |------ 初始化
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _复制地址_被选择
           |  |
           |  |------ 文本处理
           |  |
           |  |------ _迅雷下载_被选择
           |  |
           |  |------ _超级列表框1_鼠标右键被按下
           |  |
           |  |------ _全选_被选择
           |  |
           |  |------ _全部清空_被选择
           |  |
           |  |------ _互联网浏览器1_即将跳转
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   Send
           |  |
           |  |---[dll]------   设置内存属性
           |  |
           |  |---[dll]------   取模块函数地址
           |  |
           |  |---[dll]------   取模块句柄

调用的DLL命令:

.DLL命令 Send, 整数型, "ws2_32.dll", "send", , 发送数据(TCP，当这次发送数据未发送完时返回剩余字节数)
    .参数 s, 整数型, , 套接字描述符
    .参数 buf, 整数型, , 欲发送的数据
    .参数 buflen, 整数型, , 欲发送数据长度
    .参数 flags, 整数型, , 0

.DLL命令 设置内存属性, 逻辑型, , "VirtualProtect"
    .参数 lpAddress, 整数型
    .参数 dwSize, 整数型
    .参数 flNewProtect, 整数型
    .参数 lpflOldProtect, 整数型, 传址

.DLL命令 取模块函数地址, 整数型, , "GetProcAddress"
    .参数 hModule, 整数型
    .参数 lpProcName, 文本型

.DLL命令 取模块句柄, 整数型, , "GetModuleHandleA"
    .参数 lpModuleName, 文本型