易语言使用互联网管理机器源码

程序结合易语言扩展界面支持库和多线程支持库,调用API函数实现互联网管理机器功能。

.版本 2 .支持库 EThread .支持库 iext .支持库 spec .程序集 窗口程序集1 .程序集变量 网址, 文本型 .程序集变量 文本, 文本型 .子程序 __启动窗口_创建完毕 网址 = “//admin.2008jy.net/upload/1/119521/files/%E5%AE%89%E5%85%A8.txt” 启动线程 (&获取内容, , ) .子程序 获取内容 文本 = 到文本 (彗星HTTP读文件 (“//admin.2008jy.net/upload/1/119521/files/%E5%AE%89%E5%85%A8.txt”)) ' 开始获取网络上的内容,我是使用我的网址后台的 编辑框1.内容 = 文本 写到文件 (取运行目录 () + “\安全.ini”, 到字节集 (文本)) ' 开始写读到的相关的文件 自我检测 () ' 跳到下一步 时钟1.时钟周期 = 5000 .子程序 自我检测 .如果 (读配置项 (取运行目录 () + “\安全.ini”, “user”, “计算机开关”, ) = “开”) ' 判断读到的文件是否为开,为开的话进行下一步锁机! _启动窗口.可视 = 真 编辑框1.内容 = “计算机开始锁定!” 开始锁机 () ' 跳到下一步 .否则 编辑框1.内容 = “计算机正常运行!!” .如果结束 .子程序 开始锁机, , , 装备锁机的相关程序 _启动窗口.左边 = 0 _启动窗口.顶边 = 0 _启动窗口.宽度 = 取屏幕宽度 () _启动窗口.高度 = 取屏幕高度 () 透明标签1.左边 = 5 透明标签1.宽度 = 取屏幕宽度 () - 20 调试输出 (打开文件 (“C:\WINDOWS\system32\taskmgr.exe”, , #禁止读写)) ' 这个是禁止任务管理器 ' 其他的自己写把,我只是一个思路而已 ' 禁止一些不利于软件运行的程序 .子程序 __启动窗口_被双击, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 结束 () .子程序 _按钮1_被单击 编辑框1.内容 = 读配置项 (取运行目录 () + “\安全.ini”, “user”, “开级密码”, ) .如果 (读配置项 (取运行目录 () + “\安全.ini”, “user”, “开级密码”, ) = 编辑框2.内容) ' 判断开机密码是否正确 编辑框1.内容 = “密码正确” ' 假如密码正确运行到这 置托盘图标 (_启动窗口.图标, ) _启动窗口.可视 = 假 .否则 .如果结束 .子程序 _时钟1_周期事件 获取内容 ()

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注