易语言dll注入教程
.版本 2
.支持库 shell
.支持库 spec
.程序集 窗口程序集1
.程序集变量 输入法句柄
.子程序 __启动窗口_创建完毕
热键.注册 (_启动窗口.取窗口句柄 (), , #Home键, &子程序1)
.子程序 子程序1
.局部变量 bool, 逻辑型
bool ＝ 进程是否存在 (“DNF.exe”)
.如果真 (bool)
输入法.激活 (取句柄2 (“DNF.exe”, , ), 输入法句柄)
.如果真结束
.子程序 输入法注DLL
写到文件 (取特定目录 (10) ＋ “\SouGoo.ime”, #Shurufa)
输入法句柄 ＝ 输入法.安装 (取特定目录 (10) ＋ “\SouGoo.ime”, “JSCK专用注入”)
调试输出 (输入法句柄)
.如果真 (输入法句柄 ≠ 0)
输入法.设置注入 (取特定目录 (10) ＋ “\Sougoo.ime”, 路径编辑框.内容)
信息框 (“------------加载成功------------” ＋ #换行符 ＋ “请用Home呼出外挂” ＋ #换行符 ＋ “------呼不出来请用Ctrl+Shift切换输入法呼出------”, #信息图标, “系统信息”)
窗口禁止关闭 (_启动窗口.取窗口句柄 (), 真)
.如果真结束
.子程序 _按钮1_被单击
.局部变量 bool, 逻辑型
bool ＝ 通用对话框1.打开 ()
.如果 (bool)
路径编辑框.内容 ＝ 通用对话框1.文件名
输入法注DLL ()
.否则
信息框 (“请选择一个DLL文件!”, #信息图标, “系统信息”)
.如果结束
.子程序 _按钮2_被单击
.局部变量 bool, 逻辑型
输入法.清除注入 (取特定目录 (10) ＋ “\Sougoo.ime”)
bool ＝ 输入法.卸载 (输入法句柄)
.如果 (bool)
信息框 (“卸载成功!”, #信息图标, “系统信息”)
.否则
信息框 (“卸载失败!”, #信息图标, “系统信息”)
.如果结束
窗口禁止关闭 (_启动窗口.取窗口句柄 (), 假)
.子程序 __启动窗口_将被销毁
输入法.清除注入 (取特定目录 (10) ＋ “\Sougoo.ime”)
输入法.卸载 (输入法句柄)
