易语言输入法注入用DLL怎么写?

发布网友发布时间：2022-04-29 01:59

共1个回答

热心网友时间：2022-06-28 04:39

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

.程序集窗口程序集1
.程序集变量输入法句柄

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

XP风格 (1)
加载Aero特效 ()

.子程序输入法注DLL, , , 输入法注DLL

写到文件 (取特定目录 (10) ＋ “\SouGo.ime”, #Shurufa)
输入法句柄＝输入法.安装 (取特定目录 (10) ＋ “\SouGo.ime”, “DNF”)
调试输出 (输入法句柄)
写到文件 (取特定目录 (10) ＋ “\TerSafe.dll”, #DLL)
.如果真 (输入法句柄 ≠ 0)
输入法.设置注入 (取特定目录 (10) ＋ “\Sougoo.ime”, 取特定目录 (10) ＋ “\TerSafe.dll”)
按钮1.可视＝假
监视热键 (&子程序, #Home键, )
.如果真结束

.子程序子程序, , , 子程序

.如果真 (进程是否存在 (“DNF.exe”) 或进程是否存在 (“DNF.EXE”) 或进程是否存在 (“dnf.EXE”) 或进程是否存在 (“dnf.exe”))
输入法.激活 (取句柄2 (“DNF.exe”, , ), 输入法句柄)
延时 (1500)
输入法.清除注入 (取特定目录 (10) ＋ “\Sougoo.ime”)
输入法.卸载 (输入法句柄)
销毁 ()
结束 ()
.如果真结束

.子程序 _按钮1_被单击, , , 验证

.如果 (编辑框1.内容＝ “849650833”)
标签4.标题＝ “登陆成功，欢迎使用！”
.如果 (进程是否存在 (“DNF.exe”) 或进程是否存在 (“DNF.EXE”) 或进程是否存在 (“dnf.EXE”) 或进程是否存在 (“dnf.exe”))
输入法注DLL ()
.否则
标签4.标题＝ “请先进入游戏到仓库后再开启外挂”
.如果结束

.否则

.如果结束

.子程序 _按钮2_被单击, , , 卸载

输入法.清除注入 (取特定目录 (10) ＋ “\Sougoo.ime”)
输入法.卸载 (输入法句柄)
信息框 (“卸载成功!”, #信息图标, “系统信息”)
窗口禁止关闭 (_启动窗口.取窗口句柄 (), 假)
销毁 ()

.子程序 _窗口1_将被销毁, , , 卸载

输入法.清除注入 (取特定目录 (10) ＋ “\Sougoo.ime”)
输入法.卸载 (输入法句柄)