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