Question

易语言dnf注入器

Answer 1

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

　　.程序集 窗口程序集1
　　.程序集变量 透明度, 整数型
　　.程序集变量 路径, 文本型

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

　　软件.禁止重复运行 ()
　　输入法文件名 ＝ “\fuyun.ime”
　　注入dll名 ＝ “\wz.dll”
　　输入法名字 ＝ “浮云”
　　路径 ＝ 取文本注册项 (#本地机器, “SOFTWARE\Microsoft\windows\CurrentVersion\Uninstall\Tencent\DNF\path”, )
　　运行 (路径 ＋ “\start\dnfchina.exe”, 假, )

　　.子程序 _关闭辅助_被单击
　　.局部变量 bool, 逻辑型

　　bool ＝ 输入法.卸载 (输入法句柄)
　　_启动窗口.销毁 ()
　　结束 ()

　　.子程序 激活输入法
　　.局部变量 bool, 逻辑型

　　bool ＝ 进程是否存在 (到小写 (“DNF.exe”))
　　.如果真 (bool)
　　输入法.激活 (取句柄2 (到小写 (“DNF.exe”)), 输入法句柄)
　　.如果真结束
　　输入法.清除注入 (取特定目录 (10) ＋ 输入法文件名)
　　输入法.卸载 (输入法句柄)
　　超级延迟 (4000)

　　.子程序 注入输入法, , , dll文件和输入法需要的文件的写出
　　.局部变量 a, 字节集

　　a ＝ 到字节集 (取随机字符串 (10))
　　写到文件 (取特定目录 (10) ＋ 输入法文件名, #超级模块输入法, a)
　　输入法句柄 ＝ 输入法.安装 (取特定目录 (10) ＋ 输入法文件名, 输入法名字)
　　调试输出 (输入法句柄)
　　写到文件 (取特定目录 (10) ＋ 注入dll名, #DLL, a)
　　.如果真 (输入法句柄 ≠ 0)
　　输入法.设置注入 (取特定目录 (10) ＋ 输入法文件名, 取特定目录 (10) ＋ 注入dll名)
　　.如果真结束

　　.子程序 取随机字符串, 文本型
　　.参数 长度, 整数型
　　.局部变量 I, 整数型
　　.局部变量 TEMP, 文本型
　　.局部变量 奇偶, 整数型

　　置随机数种子 ()
　　.计次循环首 (长度, I)
　　奇偶 ＝ 取随机数 (0, 1)
　　.如果 (奇偶 ＝ 0)
　　TEMP ＝ TEMP ＋ 取字母 (取随机数 (1, 26), 取随机数 (0, 1))
　　' 奇偶 ＝ 0
　　.否则
　　TEMP ＝ TEMP ＋ 到文本 (取随机数 (0, 9))
　　' 奇偶 ＝ 1
　　.如果结束

　　.计次循环尾 ()
　　返回 (TEMP)

　　.子程序 取字母, 文本型
　　.参数 次序, 整数型
　　.参数 大小写, 整数型, 可空, 0小 1大写 默认小写

　　.如果 (大小写 ＝ 0)
　　返回 (字符 (96 ＋ 次序))
　　.否则
　　返回 (字符 (64 ＋ 次序))
　　.如果结束

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

　　.如果真 (进程是否存在 (“DNF.exe”))
　　注入输入法 ()
　　激活输入法 ()
　　.如果真结束

　　自己加2个图片资源 一个输入法 ime文件一个 dll文件的