易語言 小米註冊機

來源:互聯網
上載者:User

標籤:

<img src="http://img.blog.csdn.net/20150618000356362?watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQvdTAxMzUxMTY0Mg==/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center" alt="" />.版本 2.支援庫 spec.程式集 視窗程序集_註冊.子程式 子程式_驗證碼.局部變數 驗證碼地址, 文本型.局部變數 返回位元組集, 位元組集驗證碼地址 = “https://account.xiaomi.com/pass/getCode?icodeType=register&_=1409128150831”返回位元組集 = 網頁_訪問 (驗證碼地址, 0)圖片_轉換 (返回位元組集, 2, , 返回位元組集)圖片框1.圖片 = 返回位元組集.子程式 子程式_註冊, 文本型.參數 使用者名稱, 文本型.參數 密碼, 文本型.參數 驗證碼, 文本型.局部變數 地址, 文本型.局部變數 資料, 文本型.局部變數 返迴文本, 文本型地址 = “https://account.xiaomi.com/pass/register”資料 = “passToken=&passport_ph=&qs=&email=” + 使用者名稱 + “&password=” + 密碼 + “&repassword=” + 密碼 + “&inputcode=” + 驗證碼返迴文本 = 到文本 (網頁_訪問 (地址, 1, 資料))返回 (編碼_utf8到gb2312 (返迴文本)).子程式 _按鈕_註冊_被單擊.局部變數 返迴文本, 文本型返迴文本 = 子程式_註冊 (編輯框_使用者名稱.內容, 編輯框_密碼.內容, 編輯框_驗證碼.內容).如果 (尋找文本 (返迴文本, “系統已經發送了一封啟用郵件到您的郵箱”, , 假) ≠ -1)    資訊框 (“註冊成功,請登陸郵箱啟用”, 0, ).否則    資訊框 (“註冊失敗”, 0, ).如果結束調試輸出 (返迴文本).子程式 _編輯框_驗證碼_獲得焦點子程式_驗證碼 ().子程式 _圖片框1_滑鼠左鍵被放開, 邏輯型.參數 橫向位置, 整數型.參數 縱向位置, 整數型.參數 功能鍵狀態, 整數型子程式_驗證碼 ().子程式 _按鈕_登陸視窗_被單擊載入 (視窗_登陸, , 假).子程式 _時鐘1_周期事件.判斷開始 (取時間間隔 (到時間 (“3014/8/27/20/15”), 取現行時間 (), 8) < 0)    時鐘1.刻度 = 0    資訊框 (“試用期已到!長期使用請聯絡QQ:381559244!”, 0, )    結束 ().預設.判斷結束.判斷開始 (編輯框_使用者名稱.內容 ≠ “”)    編輯框_驗證碼.禁止 = 假.預設    編輯框_驗證碼.禁止 = 真.判斷結束

易語言 小米註冊機

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.