.支持庫 internet
.支持庫 script
.支持庫 iconv.程序集 窗口程序集1.子程序 _按鈕1_被單擊.如果 (編輯框1.內容 ≠ “” 且 編輯框2.內容 ≠ “” 且 編輯框3.內容 ≠ “”)
信息框 (登錄 (), 0, )
圖片框1.圖片 = HTTP讀文件 (“ /getimage?aid=15000101&uin=” + 編輯框1.內容)
.否則
信息框 (“請輸入號-密-驗證碼”, 0, ).如果結束
.子程序 登錄, 文本型
.局部變量 腳本組件, 腳本組件
.局部變量 加密後的值, 文本型
.局部變量 返回文件, 字節集
.局部變量 返回文本, 文本型腳本組件 = 腳本組件1
腳本組件.執行 (#JScript)
加密後的值 = 腳本組件.運行 (“md5_3”, 編輯框2.內容)
加密後的值 = 腳本組件.運行 (“md5”, 加密後的值 + 到大寫 (編輯框3.內容))返回文件 = HTTP讀文件 (“ /login?u=” + 編輯框1.內容 + “&p=” + 加密後的值 + “&verifycode=” + 編輯框3.內容 + “&=on&aid=15000101&u1=%2Fqzone%2Fv5%2Floginsucc.html%3Fpara%3Dizone&ptredirect=1&h=1&from_ui=1&dumy=&fp=loginerroralert”)
返回文本 = 到文本 (編碼轉換 (返回文件, #編碼_UTF_8, #編碼_GB18030, )).如果 (尋找文本 (返回文本, “。”, , 假) > -1)
返回文本 = 取文本中間 (返回文本, 1, 倒找文本 (返回文本, “。”, , 假) + 1)
.否則
返回文本 = 取文本中間 (返回文本, 1, 倒找文本 (返回文本, “!”, , 假) + 1)
.如果結束
返回文本 = 取文本中間 (返回文本, 倒找文本 (返回文本, “'”, , 假) + 1, 取文本長度 (返回文本) - 倒找文本 (返回文本, “'”, , 假))
返回 (返回文本).子程序 _編輯框1_內容被改變圖片框1.圖片 = { }
.如果真 (編輯框1.內容 ≠ “”)
圖片框1.圖片 = HTTP讀文件 (“ /getimage?aid=15000101&uin=” + 編輯框1.內容)
編輯框3.內容 = “”
.如果真結束