为编程爱好者分享易语言教程源码的资源网
三叶资源网官方③群:33301895 网络创业点子 C全站文字广告,诚邀与您合作 三叶资源网培训教程视频 三叶资源网官方③群:33301895
三叶资源网官方③群:33301895 网络创业点子 B全站文字广告,诚邀与您合作 三叶资源网培训教程视频 三叶资源网官方③群:33301895

网站首页 易语言相关 网络相关源码 正文

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

三叶资源网 2013-03-12 网络相关源码 180 ℃ 0 评论

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

获取内容 ()


文件下载

Tags:

来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网官方③群:33301895

本文暂时没有评论,来添加一个吧(●'◡'●)

欢迎 发表评论:

百度站内搜索
关注微信公众号
三叶资源网官方③群:三叶资源网官方③群

网站分类
随机tag
未闻花名UI英魂之刃代理采集小号桃源挖矿弹幕解析引流软件源码压枪辅助QQ注册LOL微博降权内存特征码饿了么CharlesQQ二维码登录独立Cookies链接器Vstart变现httpwacth内存
最新评论