批量的将动态调用的DLL命令换成易语言的DLL命令调用方式

.版本 2 .支持库 spec .程序集 窗口程序集_窗口1 .程序集变量 全局子程序, 子程序结构类型, , "0" .子程序 _按钮1_被单击 .局部变量 动态加载, 文本型 .局部变量 临时文本, 文本型, , "0" .局部变量 i, 整数型 .局部变量 数字, 文本型 .局部变量 调用代码, 文本型 .局部变量 变量位置, 整数型 .局部变量 子程序位置, 整数型 .局部变量 dll名字, 文本型 .局部变量 子程序名临时数组, 文本型, , "0" .局部变量 h, 整数型 .局部变量 临时子程序, 子程序结构类型 .局部变量 清空临时子程序, 子程序结构类型 .局部变量 大量参数文本, 文本型 .局部变量 参数数组, 文本型, , "0" .局部变量 a, 整数型 .局部变量 临时参数, 文本型, , "0" .局部变量 kk, 整数型 .局部变量 dll命令代码, 文本型 .局部变量 aaaa, 整数型 .局部变量 计数, 整数型 .局部变量 子程序位置2, 整数型 .局部变量 内置调用代码, 文本型 .局部变量 调用代码2, 文本型 .局部变量 调用代码3, 文本型 动态加载 = #动态加载 调用代码 = #调用代码 dll命令代码 = “.版本 2” + #换行符 临时文本 = 分割文本 (动态加载, #换行符, ) .计次循环首 (取数组成员数 (临时文本), i) 处理事件 () Sleep (3) 数字 = 文本_取出中间文本 (临时文本 [i], “匿名全局变量_”, “ = GetMemProcAddress”, , ) .如果真 (数字 = “”) 到循环尾 () .如果真结束 数字 = “匿名全局变量_” + 数字 计数 = 计数 + 1 变量位置 = 寻找文本 (调用代码, 数字, , 假) 子程序位置 = 倒找文本 (调用代码, “.子程序”, 变量位置, 假) dll名字 = 文本_取出中间文本 (调用代码, “序 ”, #换行符, 子程序位置, ) 子程序名临时数组 = 分割文本 (dll名字, “,”, ) 子程序位置2 = 寻找文本 (调用代码, “.子程序”, 变量位置, 假) 临时子程序 = 清空临时子程序 .计次循环首 (取数组成员数 (子程序名临时数组), h) .判断开始 (h = 1) 临时子程序.命令名 = 子程序名临时数组 [h] .判断 (h = 2) 临时子程序.返回值类型 = 子程序名临时数组 [h] .判断 (h = 3) 临时子程序.是否公开 = 子程序名临时数组 [h] .判断 (h = 4) 临时子程序.备注 = 子程序名临时数组 [h] .默认 .判断结束 .计次循环尾 () ' 调试输出 (临时子程序.命令名, 临时子程序.返回值类型, 临时子程序.是否公开, 临时子程序.备注) 大量参数文本 = 文本_取出中间文本 (调用代码, “序 ”, “.子程序”, 子程序位置, ) .如果真 (寻找文本 (大量参数文本, “_动态调用子程序 (”, , 假) = -1) 调试输出 (大量参数文本) 到循环尾 () .如果真结束 内置调用代码 = 取文本中间 (调用代码, 子程序位置, 子程序位置2 - 子程序位置) 调用代码3 = “_动态调用” + 文本_取出中间文本 (内置调用代码, “_动态调用”, #换行符, , ) 调用代码2 = 调用代码3 调用代码2 = 子文本替换 (调用代码2, “_动态调用子程序 (” + 数字 + “,”, 临时子程序.命令名 + “_dll” + “(”, , , 真) 调试输出 (调用代码2) 内置调用代码 = 子文本替换 (内置调用代码, 调用代码3, 调用代码2, , , 真) 编辑框2.加入文本 (内置调用代码) 文本_取中间_批量 (大量参数文本, “.参数 ”, #换行符, 参数数组, , , , , , , ) ' 调试输出 (参数数组) .计次循环首 (取数组成员数 (参数数组), a) 临时参数 = 分割文本 (参数数组 [a], “,”, ) .计次循环首 (取数组成员数 (临时参数), kk) .判断开始 (kk = 1) 临时子程序.参数 [a].参数名 = 临时参数 [1] .判断 (kk = 2) 临时子程序.参数 [a].数据类型 = “整数型” .判断 (kk = 3) .如果真 (寻找文本 (临时参数 [3], “参考”, , 假) ≠ -1) 临时子程序.参数 [a].参考 = “传址” .如果真结束 .如果真 (寻找文本 (临时参数 [3], “可空”, , 假) ≠ -1) 临时子程序.参数 [a].可空 = “可空” .如果真结束 .如果真 (寻找文本 (临时参数 [3], “数组”, , 假) ≠ -1) 临时子程序.参数 [a].数组 = “数组” .如果真结束 .判断 (kk = 4) 临时子程序.参数 [a].备注 = 临时参数 [4] .默认 .判断结束 .计次循环尾 () .计次循环尾 () 临时子程序.是否公开 = “” dll命令代码 = dll命令代码 + “.DLL命令 ” dll命令代码 = dll命令代码 + 临时子程序.命令名 + “_dll, ” dll命令代码 = dll命令代码 + 临时子程序.返回值类型 + “, ” dll命令代码 = dll命令代码 + #imgui dll命令代码 = dll命令代码 + 临时子程序.命令名 dll命令代码 = dll命令代码 + #引号 + “, ” dll命令代码 = dll命令代码 + 临时子程序.是否公开 + “, ” dll命令代码 = dll命令代码 + 临时子程序.备注 dll命令代码 = dll命令代码 + #换行符 .计次循环首 (100, aaaa) .如果真 (临时子程序.参数 [aaaa].参数名 = “”) 到循环尾 () .如果真结束 dll命令代码 = dll命令代码 + “ .参数 ” + 临时子程序.参数 [aaaa].参数名 + “, ” dll命令代码 = dll命令代码 + 临时子程序.参数 [aaaa].数据类型 + “, ” dll命令代码 = dll命令代码 + 临时子程序.参数 [aaaa].参考 + “ ” dll命令代码 = dll命令代码 + 临时子程序.参数 [aaaa].数组 + “, ” dll命令代码 = dll命令代码 + 临时子程序.参数 [aaaa].备注 + #换行符 .计次循环尾 () ' 调试输出 (dll命令代码) .计次循环尾 () 编辑框1.加入文本 (dll命令代码) 调试输出 (计数) .子程序 _窗口1_创建完毕
相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

发表回复

您的电子邮箱地址不会被公开。 必填项已用 * 标注