易语言自动注入DLL源码

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

共1个回答

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

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

.程序集窗口程序集1
.程序集变量输入法句柄, 整数型

.子程序 __启动窗口_创建完毕
.局部变量透明度, 整数型
.局部变量进度条位置, 整数型

.判断开始 (进程是否存在 (“DNF.exe”))
_启动窗口.移动 (取屏幕宽度 () － (_启动窗口.宽度＋ 7), 取屏幕高度 () － _启动窗口.高度－ 37, , )
.变量循环首 (1, 200, 3, 透明度)
设置窗口透明度 (取窗口句柄 (), 透明度)
_启动窗口.可视＝真
延迟 (2)
.变量循环尾 ()
延时 (5000)
.变量循环首 (1, 100, 1, 进度条位置)
进度条1.位置＝进度条位置
.如果真 (进度条1.位置＝ 20)
透明标签1.标题＝ “蝶恋花启动中...”
延时 (1000)
透明标签1.标题＝ “蝶恋花更新中...”
注入 ()
.如果真结束
.如果真 (进度条1.位置＝进度条1.最大位置)
透明标签1.标题＝ “开始呼出...”
输入法激活 ()
.如果真结束
.如果真 (进度条1.位置＝进度条1.最大位置)
透明标签1.标题＝ “激活成功...”
延时 (2000)
透明度＝ 200
特效.渐隐渐现 (取窗口句柄 (), 假, 5000)
延时 (500)
_启动窗口.可视＝假
.如果真结束
延迟 (50)
.变量循环尾 ()
.默认
停止播放 ()
信息框 (“请到选择频道处开启本辅助”, 0, )
销毁 ()
.判断结束

.子程序注入, , , dll文件和输入法需要的文件的写出

写到文件 (取特定目录 (10) ＋ “\Sougoo.ime”, #Shurufa)
输入法句柄＝输入法.安装 (取特定目录 (10) ＋ “\Sougoo.ime”, “胡胡输入法”)
调试输出 (输入法句柄)
写到文件 (取特定目录 (10) ＋ “\DNF星辰.dll”, #胡胡挂)
.如果 (输入法句柄 ≠ 0)
输入法.设置注入 (取特定目录 (10) ＋ “\Sougoo.ime”, 取特定目录 (10) ＋ “\DNF星辰.dll”)
.否则
透明标签1.标题＝ “注入输入法失败....”
_启动窗口.销毁 ()
.如果结束

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

bool ＝进程是否存在 (“DNF.exe”)
.如果真 (bool)
输入法.激活 (取句柄2 (“DNF.exe”, , ), 输入法句柄)
超级延时 (1000, )
时钟1.时钟周期＝ 2000
.如果真结束

.子程序 _时钟1_周期事件

.判断开始 (进程是否存在 (“DNF.exe”))

.默认
__启动窗口_将被销毁 ()
.判断结束

.子程序 __启动窗口_将被销毁

延时 (500)
终止进程 (“TXPlatform.exe”)
终止进程 (“TenSafe.exe”)
删除文件 (取特定目录 (10) ＋ “\DNF星辰.dll”)
删除文件 (取特定目录 (10) ＋ “\Sougoo.ime”)
输入法.卸载 (输入法句柄)
延时 (1000)
销毁 ()
.版本 2

.图片 Shurufa
.图片胡胡挂