易语言hook WSASend

hook WSASend ，用到精易模块，效果看图。

.版本 2
.支持库 spec
.支持库 HtmlView

.程序集 窗口程序集1
.程序集变量 APIHook, 类_APIHOOK

.子程序 __启动窗口_创建完毕

APIHook.安装 (“ws2_32.dll”, “WSASend”, &myWSASend)

.子程序 myWSASend, 整数型
.参数 s, 整数型
.参数 lpBuffers, 整数型
.参数 dwBufferCount, 整数型
.参数 lpNumberOfBytesSent, 整数型, 参考
.参数 dwFlags, 整数型
.参数 lpOverlapped, 整数型
.参数 lpCompletionRoutine, 整数型
.局部变量 返回值, 整数型
.局部变量 字节集, 字节集

字节集 ＝ 指针到字节集 (lpBuffers ＋ 4, 4)
调试输出 (指针到文本 (取字节集数据 (字节集, #整数型, )))
' lpBuffers指向一个WSABUF结构，前4位是数据长度，后4位是数据在内存里的地址。
APIHook.暂停 (“ws2_32.dll”, “WSASend”)
返回值 ＝ WSASend (s, lpBuffers, dwBufferCount, lpNumberOfBytesSent, dwFlags, lpOverlapped, lpCompletionRoutine)
APIHook.继续 (“ws2_32.dll”, “WSASend”)
返回 (返回值)

.子程序 __启动窗口_将被销毁

APIHook.卸载 (“ws2_32.dll”, “WSASend”)

.子程序 _按钮1_被单击

超文本浏览框1.地址 ＝ “www.qq.com”

@先锋小七