Question

易语言代码用Delphi怎么写呢？

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

还有以下这子程序
.版本 2
.支持库 spec

.子程序 远程发包_Send, 逻辑型
.参数 套接字, 整数型
.参数 封包字节集, 字节集
.参数 封包长度, 整数型
.局部变量 封包地址, 整数型
.局部变量 参数, 整数型, , "4"

.如果真 (进程句柄 ＞ 0)
hook_Send.暂停 (Send_返回.原始地址, Send_返回.原始数据)
封包地址 ＝ 内存_申请字节集内存 (进程句柄, 封包字节集, 封包长度)
调试输出 (内存_读字节集 (进程句柄, 封包地址, 封包长度))
参数 [1] ＝ 套接字
参数 [2] ＝ 封包地址
参数 [3] ＝ 封包长度
参数 [4] ＝ 0
进程_远程调用call (进程句柄, Send_返回.原始地址, 参数, )
内存_释放内存 (进程句柄, 封包地址)
hook_Send.继续 (Send_返回.原始地址, Send_返回.hook数据)
返回 (真)
.如果真结束
返回 (假)

Answer 1

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