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

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

@易语言源码网

.版本 2
.支持库 EThread
.支持库 iext
.支持库 spec

.程序集 窗口程序集1
.程序集变量 网址, 文本型
.程序集变量 文本, 文本型

.子程序 __启动窗口_创建完毕

网址 ＝ “http://admin.2008jy.net/upload/1/119521/files/%E5%AE%89%E5%85%A8.txt”
启动线程 (&获取内容, , )

.子程序 获取内容

文本 ＝ 到文本 (彗星HTTP读文件 (“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_周期事件

获取内容 ()