易语言输入法注入用DLL怎么写?
1个回答
2013-04-19
展开全部
.版本 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”)
输入法.卸载 (输入法句柄)
.支持库 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”)
输入法.卸载 (输入法句柄)
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询