用易语言抓小程序里的红包封面链接出来

enter小拽

如这个小程序里的红包封面
在Fiddler里抓包是能抓出来链接的



想用易语言封装出一个傻瓜式的软件

chenboss

安装 https://esunny.vip/

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
http回调函数	整数型
WebSocket回调函数	整数型
Tcp回调函数	整数型
错误信息	文本型

' Sunny中间件  在模块中已是全局变量，直接使用即可
Sunny中间件.绑定端口 (2022)
http回调函数 ＝ 到整数 (&__示例__HTTP回调函数)
WebSocket回调函数 ＝ 0
Tcp回调函数 ＝ 0
Sunny中间件.绑定回调地址 (http回调函数, Tcp回调函数, WebSocket回调函数)
' Sunny中间件.设置IE代理 ()  ' 设置IE代理
' Sunny中间件.关闭IE代理 ()'取消IE代理
如果 (Sunny中间件.启动 ())
如果真 (Sunny中间件.安装证书 (错误信息) ＝ 假)
信息框 (“自动安装证书到系统失败,请手动安装证书！” ＋ #换行符 ＋ #换行符 ＋ 错误信息, 0, “证书安装失败”, )
' 安装证书请阅读：http://esunny.vip/ 中的 [Sunny网络中间件-示例文档]->[(教程)安装证书]
信息框 (“启动成功”, 0, , )

信息框 (Sunny中间件.取错误 (), #错误图标, “启动失败”, )

子程序名	返回值类型	公开	备 注
__示例__HTTP回调函数
参数名	类 型	参考	可空	数组	备 注
SunnyContext	整数型				Sunny中间件可创建多个 由这个参数判断是哪个Sunny回调过来的
请求唯一ID	整数型
MessageId	整数型
消息类型	整数型				#Sunny_消息类型_
请求方法	文本型
请求地址	文本型
err	文本型
pid	整数型				进程PID 若等于0 表示通过代理远程请求 无进程PID

变量名	类 型	静态	数组	备 注
sunny	Sunny
bin	字节集

' 必须使用该语句取回sunny对象
sunny ＝ MessageIdToSunny (MessageId)
调试输出 (请求地址)
' 执行流程是 发起请求->请求完成/请求失败
判断 (消息类型 ＝ #Sunny_消息类型_发起请求 )  ' 发起请求 http/https请求    ' 【sunny.请求】 可 在 【发起请求、请求完成、请求失败】 中使用
调试输出 (“消息ID”, 请求唯一ID, “开始请求”, “URL”, 请求地址)
' 修改提交数据
如果真 (请求方法 ＝ “POST”)
bin ＝ sunny.请求.取POST数据_字节集 ()
bin ＝ 子字节集替换 (bin, 到字节集 (“SunnyNet”), 到字节集 (“Hello Sunny”), , )
sunny.请求.修改Body_字节集 (bin)

' 对这个请求设置代理
如果真 (寻找文本 (请求地址, “ip138.com”, , 假) ≠ -1)
' ' 设置HTTP代理 admin=账号 123456=密码 127.0.0.1:8888=上游代理
' sunny.请求.置代理 (“http://admin:123456@127.0.0.1:8888”)
' ' 没有账号
' sunny.请求.置代理 (“http://:@127.0.0.1:8888”)
' ' 或者
' sunny.请求.置代理 (“http://127.0.0.1:8888”)
' ' 设置Socket5代理 admin=账号 123456=密码 127.0.0.1:8888=上游代理
' sunny.请求.置代理 (“socket5://admin:123456@127.0.0.1:8888”)
' ' 没有账号
' sunny.请求.置代理 (“socket5://:@127.0.0.1:8888”)
' ' 或者
' sunny.请求.置代理 (“socket5://127.0.0.1:8888”)

' 直接回复文件【2022/03/02新增】
' sunny.响应.修改或新增协议头 (“Content-Type: text/html” ＋ #换行符 ＋ “Server: Sunny”)
' sunny.响应.修改响应内容_字节集 (读入文件 (“C:\Users\qinka\Desktop\node.js”))
' 返回 ()
' 请注意  在【发起请求】中修改响应数据为 直接回复文件
' 将 不会执行【请求完成】【请求失败】
' 设置数据不需要指定文件长度,内部自动计算
' sunny.请求.终止发送() '使用后 这个请求将不会发送出去 2022-09-16 新增【只能在 发起请求 中使用】
' sunny.请求.置请求超时 (15 × 1000)  ' 对这个请求设置15秒的超时时间

判断 (消息类型 ＝ #Sunny_消息类型_请求完成 )  ' 服务器返回数据
' 修改响应请求
如果真 (寻找文本 (请求地址, “game/map_info”, , 假) ≠ -1)
bin ＝ sunny.响应.取响应Body ()
bin ＝ 子字节集替换 (bin, 到字节集 (“你好”), 到字节集 (“哈喽”), , )
sunny.响应.修改响应内容_字节集 (bin)
' 【sunny.响应】  仅可在 【请求完成】 中使用  在【发起请求、请求失败 中操作响应对象,只能操作设置数据】
调试输出 (“消息ID”, 请求唯一ID, “请求完成”, sunny.响应.取正文长度 (), “URL”, 请求地址)
判断 (消息类型 ＝ #Sunny_消息类型_请求失败 )  ' http/https请求 请求失败
' 返回数据【2023/01/06新增】
' sunny.响应.修改状态码 (200)'不设置默认就是200
' sunny.响应.修改或新增协议头 (“Content-Type: text/html” ＋ #换行符 ＋ “Server: Sunny”)
' sunny.响应.修改响应内容_字节集 (读入文件 (“C:\Users\qinka\Desktop\node.js”))
调试输出 (“消息ID”, 请求唯一ID, “URL”, 请求地址, “请求失败：” ＋ err)




返回 ()

i支持库列表	支持库注释
spec	(未知支持库)

.版本 2<br /> .支持库 spec <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 http回调函数, 整数型<br /> .局部变量 WebSocket回调函数, 整数型<br /> .局部变量 Tcp回调函数, 整数型<br /> .局部变量 错误信息, 文本型<br /> <br /> ' Sunny中间件  在模块中已是全局变量，直接使用即可<br /> Sunny中间件.绑定端口 (2022)<br /> <br /> http回调函数 ＝ 到整数 (&__示例__HTTP回调函数)<br /> WebSocket回调函数 ＝ 0<br /> Tcp回调函数 ＝ 0<br /> <br /> Sunny中间件.绑定回调地址 (http回调函数, Tcp回调函数, WebSocket回调函数)<br /> ' Sunny中间件.设置IE代理 ()  ' 设置IE代理<br /> ' Sunny中间件.关闭IE代理 ()'取消IE代理<br /> <br /> .如果 (Sunny中间件.启动 ())<br />     .如果真 (Sunny中间件.安装证书 (错误信息) ＝ 假)<br />         信息框 (“自动安装证书到系统失败,请手动安装证书！” ＋ #换行符 ＋ #换行符 ＋ 错误信息, 0, “证书安装失败”, )<br />     .如果真结束<br />     ' 安装证书请阅读：http://esunny.vip/ 中的 [Sunny网络中间件-示例文档]->[(教程)安装证书]<br />     信息框 (“启动成功”, 0, , )<br /> <br /> .否则<br />     信息框 (Sunny中间件.取错误 (), #错误图标, “启动失败”, )<br /> .如果结束<br /> <br /> <br /> .子程序 __示例__HTTP回调函数<br /> .参数 SunnyContext, 整数型, , Sunny中间件可创建多个 由这个参数判断是哪个Sunny回调过来的<br /> .参数 请求唯一ID, 整数型<br /> .参数 MessageId, 整数型<br /> .参数 消息类型, 整数型, , #Sunny_消息类型_<br /> .参数 请求方法, 文本型<br /> .参数 请求地址, 文本型<br /> .参数 err, 文本型<br /> .参数 pid, 整数型, , 进程PID 若等于0 表示通过代理远程请求 无进程PID<br /> .局部变量 sunny, Sunny<br /> .局部变量 bin, 字节集<br /> <br /> ' 必须使用该语句取回sunny对象<br /> sunny ＝ MessageIdToSunny (MessageId)<br /> 调试输出 (请求地址)<br /> ' 执行流程是 发起请求->请求完成/请求失败<br /> .判断开始 (消息类型 ＝ #Sunny_消息类型_发起请求)  ' 发起请求 http/https请求    ' 【sunny.请求】 可 在 【发起请求、请求完成、请求失败】 中使用<br />     调试输出 (“消息ID”, 请求唯一ID, “开始请求”, “URL”, 请求地址)<br />     ' 修改提交数据<br />     .如果真 (请求方法 ＝ “POST”)<br />         bin ＝ sunny.请求.取POST数据_字节集 ()<br />         bin ＝ 子字节集替换 (bin, 到字节集 (“SunnyNet”), 到字节集 (“Hello Sunny”), , )<br />         sunny.请求.修改Body_字节集 (bin)<br />     .如果真结束<br /> <br />     ' 对这个请求设置代理<br />     .如果真 (寻找文本 (请求地址, “ip138.com”, , 假) ≠ -1)<br /> <br />         ' ' 设置HTTP代理 admin=账号 123456=密码 127.0.0.1:8888=上游代理<br />         ' sunny.请求.置代理 (“http://admin:123456@127.0.0.1:8888”)<br />         ' ' 没有账号<br />         ' sunny.请求.置代理 (“http://:@127.0.0.1:8888”)<br />         ' ' 或者<br />         ' sunny.请求.置代理 (“http://127.0.0.1:8888”)<br /> <br />         ' ' 设置Socket5代理 admin=账号 123456=密码 127.0.0.1:8888=上游代理<br />         ' sunny.请求.置代理 (“socket5://admin:123456@127.0.0.1:8888”)<br />         ' ' 没有账号<br />         ' sunny.请求.置代理 (“socket5://:@127.0.0.1:8888”)<br />         ' ' 或者<br />         ' sunny.请求.置代理 (“socket5://127.0.0.1:8888”)<br /> <br />     .如果真结束<br /> <br />     ' 直接回复文件【2022/03/02新增】<br />     ' sunny.响应.修改或新增协议头 (“Content-Type: text/html” ＋ #换行符 ＋ “Server: Sunny”)<br />     ' sunny.响应.修改响应内容_字节集 (读入文件 (“C:\Users\qinka\Desktop\node.js”))<br />     ' 返回 ()<br /> <br />     ' 请注意  在【发起请求】中修改响应数据为 直接回复文件<br />     ' 将 不会执行【请求完成】【请求失败】<br />     ' 设置数据不需要指定文件长度,内部自动计算<br /> <br />     ' sunny.请求.终止发送() '使用后 这个请求将不会发送出去 2022-09-16 新增【只能在 发起请求 中使用】<br /> <br />     ' sunny.请求.置请求超时 (15 × 1000)  ' 对这个请求设置15秒的超时时间<br /> <br /> <br /> .判断 (消息类型 ＝ #Sunny_消息类型_请求完成)  ' 服务器返回数据<br />     ' 修改响应请求<br />     .如果真 (寻找文本 (请求地址, “game/map_info”, , 假) ≠ -1)<br />         bin ＝ sunny.响应.取响应Body ()<br />         bin ＝ 子字节集替换 (bin, 到字节集 (“你好”), 到字节集 (“哈喽”), , )<br />         sunny.响应.修改响应内容_字节集 (bin)<br /> <br />     .如果真结束<br />     ' 【sunny.响应】  仅可在 【请求完成】 中使用  在【发起请求、请求失败 中操作响应对象,只能操作设置数据】<br />     调试输出 (“消息ID”, 请求唯一ID, “请求完成”, sunny.响应.取正文长度 (), “URL”, 请求地址)<br /> <br /> .判断 (消息类型 ＝ #Sunny_消息类型_请求失败)  ' http/https请求 请求失败<br />     ' 返回数据【2023/01/06新增】<br />     ' sunny.响应.修改状态码 (200)'不设置默认就是200<br />     ' sunny.响应.修改或新增协议头 (“Content-Type: text/html” ＋ #换行符 ＋ “Server: Sunny”)<br />     ' sunny.响应.修改响应内容_字节集 (读入文件 (“C:\Users\qinka\Desktop\node.js”))<br /> <br />     调试输出 (“消息ID”, 请求唯一ID, “URL”, 请求地址, “请求失败：” ＋ err)<br /> <br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> <br /> 返回 ()

LEOONL

https://bbs.125.la/forum.php?mod ... amp;highlight=sunny

enter小拽

不一定要抓包，之前的源码抓内存可以提取出来，现在取不了了，找人定制的，我修复不了
核心代码

  

窗口程序集名	保 留	保 留	备 注
内存
变量名	类 型	数组	备 注
进程句柄	整数型

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

子程序名	返回值类型	公开	备 注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

如果真 (进程句柄 ＞ 0)
CloseHandle (进程句柄)
进程句柄 ＝ 0

子程序名	返回值类型	公开	备 注
初始化	逻辑型		初始化 打开进程PID 支持64位进程
参数名	类 型	参考	可空	数组	备 注
进程ID	整数型				为空 为打开自身进程

进程_提升权限 ()
如果真 (是否为空 (进程ID))
进程ID ＝ GetCurrentProcessId ()
进程句柄 ＝ OpenProcess ( #PROCESS_ALL_ACCESS, 0, 进程ID)  ' 取得操作句柄
如果真 (进程句柄 ＝ 0)  ' 打开进程失败
返回 (假)
返回 (真)

子程序名	返回值类型	公开	备 注
搜索	整数型		成功返回成员数量，需提升权限(返回结果数目,失败返回0)
参数名	类 型	参考	可空	数组	备 注
搜索内容	字节集				欲搜索的内容  其他类型-需自行转换为字节集类型
结果数组	整数型				用来保存搜索的结果
区域长度	整数型				超过这个长度的放弃搜索该区域 如果设置 最好是50000000

变量名	类 型	静态	数组	备 注
长度	整数型
内存地址	整数型
内存块信息	精易_内存属性
数据缓冲区	字节集
读取结果	逻辑型
找到地址	整数型

如果真 (是否为空 (区域长度))
区域长度 ＝ -1
清除数组 (结果数组)
长度 ＝ 取字节集长度 (搜索内容)
判断循环首 (VirtualQueryEx (进程句柄, 内存地址, 内存块信息, 28) ≠ 0)  ' 取得内存块信息
如果真 (内存块信息.当前属性 ≠ 16 且 内存块信息.当前属性 ≠ 1 且 内存块信息.当前属性 ≠ 512 且 (区域长度 ＝ -1 或 区域长度 ＞ 0 且 内存块信息.区域长度 ＜ 区域长度))  ' 判断保护状态
数据缓冲区 ＝ 取空白字节集 (内存块信息.区域长度)
读取结果 ＝ ReadProcessMemory_字节集 (进程句柄, 内存地址, 数据缓冲区, 内存块信息.区域长度, 0)
判断循环首 (读取结果 ≠ 假)
找到地址 ＝ 寻找字节集 (数据缓冲区, 搜索内容, 找到地址)  ' 查找是否有要搜索的数据
如果 (找到地址 ＝ -1)  ' 跳出 进行下次循环
跳出循环 ()
加入成员 (结果数组, 到数值 (内存地址 ＋ 找到地址 － 1))
找到地址 ＝ 找到地址 ＋ 长度
判断循环尾 ()
内存地址 ＝ 内存地址 ＋ 内存块信息.区域长度  ' 搜索下一内存块
处理事件 ()
判断循环尾 ()
返回 (取数组成员数 (结果数组))

子程序名	返回值类型	公开	备 注
读字节集	字节集		读取字节集数据(返回字节集 失败返回空)
参数名	类 型	参考	可空	数组	备 注
内存地址	整数型				内存地址 进制_十六到十 (分割的文本 [n])
长度	整数型				必须要读取的长度

变量名	类 型	静态	数组	备 注
变量	字节集			保存读取数据的变量
bool	逻辑型

变量 ＝ 取空白字节集 (长度)
bool ＝ ReadProcessMemory_字节集 (进程句柄, 内存地址, 变量, 长度, 0)
返回 (选择 (bool, 变量, {  }))

.版本 2<br /> <br /> .程序集 内存<br /> .程序集变量 进程句柄, 整数型<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> .如果真 (进程句柄 ＞ 0)<br />     CloseHandle (进程句柄)<br />     进程句柄 ＝ 0<br /> .如果真结束<br /> <br /> <br /> .子程序 初始化, 逻辑型, 公开, 初始化 打开进程PID 支持64位进程<br /> .参数 进程ID, 整数型, 可空, 为空 为打开自身进程<br /> <br /> 进程_提升权限 ()<br /> .如果真 (是否为空 (进程ID))<br />     进程ID ＝ GetCurrentProcessId ()<br /> .如果真结束<br /> 进程句柄 ＝ OpenProcess (#PROCESS_ALL_ACCESS, 0, 进程ID)  ' 取得操作句柄<br /> .如果真 (进程句柄 ＝ 0)  ' 打开进程失败<br />     返回 (假)<br /> .如果真结束<br /> 返回 (真)<br /> <br /> .子程序 搜索, 整数型, 公开, 成功返回成员数量，需提升权限(返回结果数目,失败返回0)<br /> .参数 搜索内容, 字节集, , 欲搜索的内容  其他类型-需自行转换为字节集类型<br /> .参数 结果数组, 整数型, 参考 数组, 用来保存搜索的结果<br /> .参数 区域长度, 整数型, 可空, 超过这个长度的放弃搜索该区域 如果设置 最好是50000000<br /> .局部变量 长度, 整数型<br /> .局部变量 内存地址, 整数型<br /> .局部变量 内存块信息, 精易_内存属性<br /> .局部变量 数据缓冲区, 字节集<br /> .局部变量 读取结果, 逻辑型<br /> .局部变量 找到地址, 整数型<br /> <br /> .如果真 (是否为空 (区域长度))<br />     区域长度 ＝ -1<br /> .如果真结束<br /> 清除数组 (结果数组)<br /> 长度 ＝ 取字节集长度 (搜索内容)<br /> .判断循环首 (VirtualQueryEx (进程句柄, 内存地址, 内存块信息, 28) ≠ 0)  ' 取得内存块信息<br />     .如果真 (内存块信息.当前属性 ≠ 16 且 内存块信息.当前属性 ≠ 1 且 内存块信息.当前属性 ≠ 512 且 (区域长度 ＝ -1 或 区域长度 ＞ 0 且 内存块信息.区域长度 ＜ 区域长度))  ' 判断保护状态<br />         数据缓冲区 ＝ 取空白字节集 (内存块信息.区域长度)<br />         读取结果 ＝ ReadProcessMemory_字节集 (进程句柄, 内存地址, 数据缓冲区, 内存块信息.区域长度, 0)<br />         .判断循环首 (读取结果 ≠ 假)<br />             找到地址 ＝ 寻找字节集 (数据缓冲区, 搜索内容, 找到地址)  ' 查找是否有要搜索的数据<br />             .如果 (找到地址 ＝ -1)  ' 跳出 进行下次循环<br />                 跳出循环 ()<br />             .否则<br />                 加入成员 (结果数组, 到数值 (内存地址 ＋ 找到地址 － 1))<br />             .如果结束<br />             找到地址 ＝ 找到地址 ＋ 长度<br />         .判断循环尾 ()<br />     .如果真结束<br />     内存地址 ＝ 内存地址 ＋ 内存块信息.区域长度  ' 搜索下一内存块<br />     处理事件 ()<br /> .判断循环尾 ()<br /> 返回 (取数组成员数 (结果数组))<br /> <br /> .子程序 读字节集, 字节集, 公开, 读取字节集数据(返回字节集 失败返回空) <br /> .参数 内存地址, 整数型, , 内存地址 进制_十六到十 (分割的文本 [n])<br /> .参数 长度, 整数型, , 必须要读取的长度<br /> .局部变量 变量, 字节集, , , 保存读取数据的变量<br /> .局部变量 bool, 逻辑型<br /> <br /> 变量 ＝ 取空白字节集 (长度)<br /> bool ＝ ReadProcessMemory_字节集 (进程句柄, 内存地址, 变量, 长度, 0)<br /> 返回 (选择 (bool, 变量, {  }))

调用代码：

  

内存.搜索 (到字节集 (“weixin.qq.com/cgi-bin/mmsupport-bin/showredpacket”), 结果)

内存.搜索 (到字节集 (“weixin.qq.com/cgi-bin/mmsupport-bin/showredpacket”), 结果)

抓出来的链接：
https://szsupport.weixin.qq.com/ ... _CN&wx_header=0

enter小拽

之前抓进程内存的方法能提取出来，现在不行了，看看有人能修复不

  

窗口程序集名	保 留	保 留	备 注
内存
变量名	类 型	数组	备 注
进程句柄	整数型

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

子程序名	返回值类型	公开	备 注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

如果真 (进程句柄 ＞ 0)
CloseHandle (进程句柄)
进程句柄 ＝ 0

子程序名	返回值类型	公开	备 注
初始化	逻辑型		初始化 打开进程PID 支持64位进程
参数名	类 型	参考	可空	数组	备 注
进程ID	整数型				为空 为打开自身进程

进程_提升权限 ()
如果真 (是否为空 (进程ID))
进程ID ＝ GetCurrentProcessId ()
进程句柄 ＝ OpenProcess ( #PROCESS_ALL_ACCESS, 0, 进程ID)  ' 取得操作句柄
如果真 (进程句柄 ＝ 0)  ' 打开进程失败
返回 (假)
返回 (真)

子程序名	返回值类型	公开	备 注
搜索	整数型		成功返回成员数量，需提升权限(返回结果数目,失败返回0)
参数名	类 型	参考	可空	数组	备 注
搜索内容	字节集				欲搜索的内容  其他类型-需自行转换为字节集类型
结果数组	整数型				用来保存搜索的结果
区域长度	整数型				超过这个长度的放弃搜索该区域 如果设置 最好是50000000

变量名	类 型	静态	数组	备 注
长度	整数型
内存地址	整数型
内存块信息	精易_内存属性
数据缓冲区	字节集
读取结果	逻辑型
找到地址	整数型

如果真 (是否为空 (区域长度))
区域长度 ＝ -1
清除数组 (结果数组)
长度 ＝ 取字节集长度 (搜索内容)
判断循环首 (VirtualQueryEx (进程句柄, 内存地址, 内存块信息, 28) ≠ 0)  ' 取得内存块信息
如果真 (内存块信息.当前属性 ≠ 16 且 内存块信息.当前属性 ≠ 1 且 内存块信息.当前属性 ≠ 512 且 (区域长度 ＝ -1 或 区域长度 ＞ 0 且 内存块信息.区域长度 ＜ 区域长度))  ' 判断保护状态
数据缓冲区 ＝ 取空白字节集 (内存块信息.区域长度)
读取结果 ＝ ReadProcessMemory_字节集 (进程句柄, 内存地址, 数据缓冲区, 内存块信息.区域长度, 0)
判断循环首 (读取结果 ≠ 假)
找到地址 ＝ 寻找字节集 (数据缓冲区, 搜索内容, 找到地址)  ' 查找是否有要搜索的数据
如果 (找到地址 ＝ -1)  ' 跳出 进行下次循环
跳出循环 ()
加入成员 (结果数组, 到数值 (内存地址 ＋ 找到地址 － 1))
找到地址 ＝ 找到地址 ＋ 长度
判断循环尾 ()
内存地址 ＝ 内存地址 ＋ 内存块信息.区域长度  ' 搜索下一内存块
处理事件 ()
判断循环尾 ()
返回 (取数组成员数 (结果数组))

子程序名	返回值类型	公开	备 注
读字节集	字节集		读取字节集数据(返回字节集 失败返回空)
参数名	类 型	参考	可空	数组	备 注
内存地址	整数型				内存地址 进制_十六到十 (分割的文本 [n])
长度	整数型				必须要读取的长度

变量名	类 型	静态	数组	备 注
变量	字节集			保存读取数据的变量
bool	逻辑型

变量 ＝ 取空白字节集 (长度)
bool ＝ ReadProcessMemory_字节集 (进程句柄, 内存地址, 变量, 长度, 0)
返回 (选择 (bool, 变量, {  }))

.版本 2<br /> <br /> .程序集 内存<br /> .程序集变量 进程句柄, 整数型<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> .如果真 (进程句柄 ＞ 0)<br />     CloseHandle (进程句柄)<br />     进程句柄 ＝ 0<br /> .如果真结束<br /> <br /> <br /> .子程序 初始化, 逻辑型, 公开, 初始化 打开进程PID 支持64位进程<br /> .参数 进程ID, 整数型, 可空, 为空 为打开自身进程<br /> <br /> 进程_提升权限 ()<br /> .如果真 (是否为空 (进程ID))<br />     进程ID ＝ GetCurrentProcessId ()<br /> .如果真结束<br /> 进程句柄 ＝ OpenProcess (#PROCESS_ALL_ACCESS, 0, 进程ID)  ' 取得操作句柄<br /> .如果真 (进程句柄 ＝ 0)  ' 打开进程失败<br />     返回 (假)<br /> .如果真结束<br /> 返回 (真)<br /> <br /> .子程序 搜索, 整数型, 公开, 成功返回成员数量，需提升权限(返回结果数目,失败返回0)<br /> .参数 搜索内容, 字节集, , 欲搜索的内容  其他类型-需自行转换为字节集类型<br /> .参数 结果数组, 整数型, 参考 数组, 用来保存搜索的结果<br /> .参数 区域长度, 整数型, 可空, 超过这个长度的放弃搜索该区域 如果设置 最好是50000000<br /> .局部变量 长度, 整数型<br /> .局部变量 内存地址, 整数型<br /> .局部变量 内存块信息, 精易_内存属性<br /> .局部变量 数据缓冲区, 字节集<br /> .局部变量 读取结果, 逻辑型<br /> .局部变量 找到地址, 整数型<br /> <br /> .如果真 (是否为空 (区域长度))<br />     区域长度 ＝ -1<br /> .如果真结束<br /> 清除数组 (结果数组)<br /> 长度 ＝ 取字节集长度 (搜索内容)<br /> .判断循环首 (VirtualQueryEx (进程句柄, 内存地址, 内存块信息, 28) ≠ 0)  ' 取得内存块信息<br />     .如果真 (内存块信息.当前属性 ≠ 16 且 内存块信息.当前属性 ≠ 1 且 内存块信息.当前属性 ≠ 512 且 (区域长度 ＝ -1 或 区域长度 ＞ 0 且 内存块信息.区域长度 ＜ 区域长度))  ' 判断保护状态<br />         数据缓冲区 ＝ 取空白字节集 (内存块信息.区域长度)<br />         读取结果 ＝ ReadProcessMemory_字节集 (进程句柄, 内存地址, 数据缓冲区, 内存块信息.区域长度, 0)<br />         .判断循环首 (读取结果 ≠ 假)<br />             找到地址 ＝ 寻找字节集 (数据缓冲区, 搜索内容, 找到地址)  ' 查找是否有要搜索的数据<br />             .如果 (找到地址 ＝ -1)  ' 跳出 进行下次循环<br />                 跳出循环 ()<br />             .否则<br />                 加入成员 (结果数组, 到数值 (内存地址 ＋ 找到地址 － 1))<br />             .如果结束<br />             找到地址 ＝ 找到地址 ＋ 长度<br />         .判断循环尾 ()<br />     .如果真结束<br />     内存地址 ＝ 内存地址 ＋ 内存块信息.区域长度  ' 搜索下一内存块<br />     处理事件 ()<br /> .判断循环尾 ()<br /> 返回 (取数组成员数 (结果数组))<br /> <br /> .子程序 读字节集, 字节集, 公开, 读取字节集数据(返回字节集 失败返回空) <br /> .参数 内存地址, 整数型, , 内存地址 进制_十六到十 (分割的文本 [n])<br /> .参数 长度, 整数型, , 必须要读取的长度<br /> .局部变量 变量, 字节集, , , 保存读取数据的变量<br /> .局部变量 bool, 逻辑型<br /> <br /> 变量 ＝ 取空白字节集 (长度)<br /> bool ＝ ReadProcessMemory_字节集 (进程句柄, 内存地址, 变量, 长度, 0)<br /> 返回 (选择 (bool, 变量, {  }))

调用代码