进程ID＝组合框1.取项目数值(组合框1.現行选中项)进程句柄＝进程_打开进程(进程ID).如果真(进程句柄≤0)信息框(“指定程序不存在或无法拦截!”,0,“错误:”,)返回().如果真结束地址＝... 进程ID ＝ 組合框1.取项目数值 (组合框1.现行选中项)
进程句柄 ＝ 进程_打开进程 (进程ID)
.如果真 (进程句柄 ≤ 0)
信息框 (“指定程序不存在或无法拦截!”, 0, “错误:”, )
.子程序 开始, 逻辑型, 公开, 此命令直接对进程数据进行HOOKHOOK成功返回真。
.参数 进程句柄, 整数型, , 被HOOK程序的进程句柄
.参数 回调接口, 子程序指针, , 无参数经過时被调用转入此接口
.参数 拦截数据, 类型_HOOK数据, 参考, HOOK后返回HOOK处指令数据 用于暂停后可继续HOOK
.参数 拦截长度, 整数型, , 至少拦截5字节，不然会出错夶于5字节会自动补码“90”每字节。
.参数 插入代码, 字节集, 可空, 可空 在准备跳回前 先执行 插入的代码 一般用于堆栈平衡

.子程序 远程发包_Send, 逻辑型

.參数 套接字, 整数型
.参数 封包字节集, 字节集
.参数 封包长度, 整数型
.局部变量 封包地址, 整数型

.如果真 (进程句柄 ＞ 0)

封包地址 ＝ 内存_申请字节集内存 (進程句柄, 封包字节集, 封包长度)
调试输出 (内存_读字节集 (进程句柄, 封包地址, 封包长度))
参数 [2] ＝ 封包地址
参数 [3] ＝ 封包长度
内存_释放内存 (进程句柄, 封包地址)

你发的这些命令很多都是模块封装了其中大部分都和win32api有关系，Delphi没用过但我估计并没有很多封装命令所以你用易语言汇编转c代码寫可能只要这么多行，用Delphi可能要翻几十倍不等