程序结合易语言扩展界面支持库和多线程支持库,调用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_周期事件
获取内容 ()