易語言通過post實現對小米路由器操作的代碼

今天小編就爲大家分享一篇關於易語言通過post實現對小米路由器操作的代碼,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來看看吧

操作小米路由器的代碼

此功能需要加載精易模塊5.6

.版本 2
.支持庫 iext2
.程序集 窗口程序集_啓動窗口
.程序集變量 IP, 文本型
.程序集變量 cookie, 文本型
.程序集變量 token, 文本型
.子程序 登錄, 文本型
.參數 密碼, 文本型
.參數 返回內容, 文本型, 參考
.參數 token, 文本型, 參考
.局部變量 臨時, 文本型
.局部變量 deviceId, 文本型
.局部變量 key, 文本型
.局部變量 時間戳, 文本型
.局部變量 隨機數, 文本型
.局部變量 psw, 文本型
.局部變量 nonce, 文本型
.局部變量 密碼加密, 文本型
.局部變量 nonce編碼, 文本型
臨時 = 網頁_訪問S (“http://” + IP + “/cgi-bin/luci/web”)
deviceId = 文本_取出中間文本 (臨時, “deviceId = '”, “'”)
key = 文本_取出中間文本 (臨時, “key: '”, “'”)
時間戳 = 時間_到時間戳 (, 真)
隨機數 = 文本_取隨機範圍數字 (1000, 9999)
psw = 密碼
nonce = “0_” + deviceId + “_” + 時間戳 + “_” + 隨機數
密碼加密 = 校驗_取sha1 (到字節集 (nonce + 校驗_取sha1 (到字節集 (psw + key))))
增加日誌 (“key:” + #換行符 + key)
增加日誌 (“nonce:” + #換行符 + nonce)
增加日誌 (“nonce編碼:” + #換行符 + nonce編碼)
返回內容 = 網頁_訪問S (“http://” + IP + “/cgi-bin/luci/api/xqsystem/login”, 1, “username=admin&password=” + 密碼加密 + “&logtype=2&nonce=” + nonce, , cookie, , , 真)
token = 文本_取出中間文本 (返回內容, “token” + #引號 + “:” + #引號, #引號)
.如果真 (尋找文本 (返回內容, #引號 + “code” + #引號 + “:0”, , 假) = -1)
  返回 (“失敗”)
.如果真結束
返回 (“成功”)
.子程序 增加日誌
.參數 日誌內容, 文本型
日誌編輯框.加入文本 (日誌內容 + #換行符 + “------------------------------------------------------------------------” + #換行符)
.子程序 _登陸按鈕_被單擊
.局部變量 返回, 文本型
.局部變量 返回內容, 文本型
.局部變量 psw, 文本型
IP = IP編輯框.地址
psw = 密碼編輯框.內容
token = “”
.如果真 (IP = “” 或 psw = “”)
  信息框 (“IP或密碼不能爲空”, 0, )
  返回 ()
.如果真結束
返回 = 登錄 (psw, 返回內容, token)
.判斷開始 (返回 = “成功”)
  增加日誌 (“登陸成功:” + #換行符 + 返回內容)
  增加日誌 (“token:” + #換行符 + token)
.默認
  增加日誌 (“登錄失敗:” + #換行符 + 返回內容)
.判斷結束
.子程序 _斷開按鈕_被單擊
.局部變量 返回, 文本型
.如果真 (token = “”)
  信息框 (“請先登錄”, 0, )
  返回 ()
.如果真結束
返回 = 網頁_訪問S (“http://” + IP + “/cgi-bin/luci/;stok=” + token + “/api/xqnetwork/pppoe_stop”)
.判斷開始 (尋找文本 (返回, #引號 + “code” + #引號 + “:0”, , 假) = -1)
  增加日誌 (“斷網失敗:” + #換行符 + 返回)
.默認
  增加日誌 (“斷網成功:” + #換行符 + 返回)
.判斷結束
.子程序 _撥號按鈕_被單擊
.局部變量 返回, 文本型
.如果真 (token = “”)
  信息框 (“請先登錄”, 0, )
  返回 ()
.如果真結束
返回 = 網頁_訪問S (“http://” + IP + “/cgi-bin/luci/;stok=” + token + “/api/xqnetwork/pppoe_start”)
.判斷開始 (尋找文本 (返回, #引號 + “code” + #引號 + “:0”, , 假) = -1)
  增加日誌 (“撥號失敗:” + #換行符 + 返回)
.默認
  增加日誌 (“撥號成功:” + #換行符 + 返回)
.判斷結束

運行結果:

總結

以上就是這篇文章的全部內容了,希望本文的內容對大家的學習或者工作具有一定的參考學習價值,謝謝大家對神馬文庫的支持。如果你想了解更多相關內容請查看下面相關鏈接

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章