套接字封包实现字节发送附输入法注入器

易语言 2020-07-11 14:22:10

套接字封包实现字节发送附输入法注入器

封包 = J_指针到字节集 (封包地址, 封包长度)
返回值 = J_发送封包 (套接字, 封包地址, 封包长度, 整数)
.如果真 (八音 = { })
.如果真 (取文本右边 (J_字节到十六 (封包), 8) = “E3590000” 且 取文本左边 (J_字节到十六 (封包), 8) = “04000000”)
八音封包 = 套接字
八音 = 封包 ' 八音

输入法注入工具.标题 = “正在注入....” + 到文本 (取随机数 (25, 35)) + “%”
句柄 = ImmInstallIME (取System32目录 () + “EIme.dll”, “Windows 标准输入法扩展服务”)
处理事件 ()
延时 (500)
输入法注入工具.标题 = “正在注入....” + 到文本 (取随机数 (36, 55)) + “%”
.如果真 (句柄 ≠ 0)
处理事件 ()
延时 (500)
输入法注入工具.标题 = “正在注入....” + 到文本 (取随机数 (56, 83)) + “%”
CopyFile (DLL路径标签.标题, 取System32目录 () + “EIme.dll”, 1)
处理事件 ()
延时 (500)
输入法注入工具.标题 = “正在注入....” + 到文本 (取随机数 (76, 100)) + “%”
IMESetPubString (DLL路径标签.标题, 0, 1, 0, 0, 0)