為編程愛好者分享易語言教程源碼的資源網
挂機,挂機器人服務器88一年 收QQ協議|PC協議|安卓協議 收購QQ通訊協議|點擊聯系 收PCQQ協議|安卓QQ協議|聯系我 收易語言QQ協議|你有就找我 每日必買商品
注冊機|遊戲腳本|透視輔助|視頻教程 收QQ協議|PC協議|安卓協議 收購QQ通訊協議|點擊聯系 收PCQQ協議|安卓QQ協議|聯系我 收易語言QQ協議|你有就找我 挂機,挂機器人服務器88一年
易語言|按鍵精靈|app逆向|微信hook 收QQ協議|PC協議|安卓協議 收購QQ通訊協議|點擊聯系 收PCQQ協議|安卓QQ協議|聯系我 收易語言QQ協議|你有就找我 A全站文字廣告,誠邀與您合作

網站首頁 易語言相關 網絡相關源碼 正文

易語言使用互聯網管理機器源碼

三葉資源網 2013-03-12 網絡相關源碼 230 ℃ 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,(三葉資源網④群:72857039

本文暫時沒有評論,來添加一個吧(●'◡'●)

歡迎 發表評論:

百度站内搜索
關注微信公衆号
三葉資源網④群:三葉資源網③群

網站分類
随機tag
TGP饑荒一鍵指令工具數據分頁類易LOGO支持庫勁舞團獲取窗口内鼠标坐标權威指南小米路由器解析名片點贊禁止重複運行曆史登錄QQ對象增強操作模塊批量修改源碼電腦QQ文件批量下載英文智能提示自動更新獲取拼多多指定店鋪商品詳情源碼過濾手機号仿QQ音樂播放器
最新評論