易語言登陸qq源碼

⑴ 易語言驗證qq密碼的源碼

你將需要：1為編輯框編輯框2為帳戶密碼作為驗證按鈕，然後輸入以下代碼

版本2

支持庫網路
>
..>如果（編輯框1。內容=「」或者編輯框2的內容=「賬號或密碼不能為空」）

消息框（「錯誤」，0）
>。否則

如果（連接發送伺服器（「smtp.qq.com」，25，刪除這兩個空（編輯框內容），同時刪除空（編輯框2的內容））= TRUE）

消息框（「右」，0，）

。否則

消息框（「錯誤」，0，）

。如果最終

。如果的結束

⑵ 易語言怎麼做仿QQ登陸器

易語言源碼：易語言自己簡單編寫QQ登陸器。這個源碼非常簡單，非常適合易語言入門初學的童鞋們學習，大家有興趣可以下載本文附件的源碼。
本文附件下載：（QQ登陸器易語言源碼）
這里給大家說一下如何編寫吧，太簡單了本程序都不用編寫代碼，只需要一個超文本瀏覽框即可實現。
打開易語言主程序，新建一個Windows空白程序，然後添加一個超文本瀏覽框控制項，地址就是利用了mini
webQQ來實現的，然後調整好窗口的大小就搞定了，
編寫好了編譯出來就成了一個獨立的exe程序，界面如下：（大家可以自己美化）

⑶ qq登陸易語言源代碼

QQ:130810098
_Silvermoon_專用模塊.ec 問我要吧。不過加我要有說明。
引用該模塊命令：
_登陸QQ() 返回邏輯 。
參 數： 賬號 文本型 不允許接受空數據
密碼 文本型 不允許接受空數據
是否登陸 邏輯型 允許接受空數據 默認為 真 若為真，則登陸，否則檢測賬號密碼是否正確。

⑷ 易語言實現QQ登錄

.版本 2
.支持庫 spec
.支持庫 internet
.支持庫 dp1

.子程序 _編輯框_QQ帳號_列表項被選擇
.局部變數 密碼, 文本型

.如果真 (尋找文本 (帳號密碼, 編輯框_QQ帳號.內容, 1, 假) ≠ -1)
密碼 ＝ 文本_取出中間文本 (帳號密碼, 「&username=」 ＋ 編輯框_QQ帳號.內容 ＋ 「&password=」, #換行符)
編輯框_QQ密碼.內容 ＝ 文本_解密 (密碼, 編輯框_QQ帳號.內容 ＋ 「123456789」)
是否需要驗證碼 (刪首尾空 (編輯框_QQ帳號.內容))
.如果真結束

.子程序 _按鈕_登錄_被單擊
.局部變數 QQ帳號, 文本型
.局部變數 QQ密碼, 文本型
.局部變數 驗證碼, 文本型

QQ帳號 ＝ 刪首尾空 (編輯框_QQ帳號.內容)
QQ密碼 ＝ 編輯框_QQ密碼.內容
驗證碼 ＝ 編輯框_驗證碼.內容
登錄QQ空間 (QQ帳號, QQ密碼, 驗證碼)

.子程序 登錄QQ空間
.參數 QQ帳號, 文本型
.參數 QQ密碼, 文本型
.參數 驗證碼, 文本型
.局部變數 登錄地址, 文本型
.局部變數 登錄返回, 文本型
.局部變數 讀入文件, 位元組集
.局部變數 保存值, 位元組集

登錄地址 ＝ 「http://ptlogin2.qq.com/login?u=」 ＋ QQ帳號 ＋ 「&p=」 ＋ QQ密碼加密 (QQ密碼, 驗證碼判斷碼, QQ密碼加密值) ＋ 「&verifycode=」 ＋ 驗證碼 ＋ 「&aid=549000912&u1=http%3A%2F%2Fqzs.qq.com%2Fqzone%2Fv5%2Floginsucc.html%3Fpara%3Dizone&h=1&ptredirect=0&ptlang=2052&from_ui=1&my=&low_login_enable=0®master=&fp=loginerroralert&action=16-57-1375238731962&mibao_css=&t=1&g=1&js_ver=10036&js_type=1&login_sig=6Nl0dpHM2EGOuS-*5kozukn1mvyI」
登錄返回 ＝ 編碼_utf8到gb2312 (到文本 (網頁_訪問 (登錄地址, 0, , , , , , , , , g_tk)))
g_tk ＝ 計算G_tk (g_tk)
.如果 (尋找文本 (登錄返回, 「登錄成功！」, 1, 假) ≠ -1)
讀入文件 ＝ 讀入文件 (取運行目錄 () ＋ 「\Flash.is」)
.如果真 (尋找文本 (到文本 (讀入文件), 刪首尾空 (編輯框_QQ帳號.內容), , 假) ≠ -1)
文本_刪除指定文本行 (到文本 (讀入文件), 文本_取文本所在行 (到文本 (讀入文件), 刪首尾空 (編輯框_QQ帳號.內容), ))
.如果真結束
保存值 ＝ 到位元組集 (「&username=」 ＋ 刪首尾空 (編輯框_QQ帳號.內容) ＋ 「&password=」 ＋ 文本_加密 (編輯框_QQ密碼.內容, 刪首尾空 (編輯框_QQ帳號.內容) ＋ 「123456789」) ＋ #換行符)
.如果 (尋找文本 (到文本 (讀入文件), 到文本 (保存值), , 假) ≠ -1)

.否則
寫到文件 (取運行目錄 () ＋ 「\Flash.is」, 讀入文件 ＋ 保存值)
.如果結束
編輯框_QQ帳號.禁止 ＝ 真
編輯框_QQ密碼.禁止 ＝ 真
編輯框_驗證碼.禁止 ＝ 真
載入 (窗口1, , 假)
_啟動窗口.可視 ＝ 假
.否則
信息框 (「登錄失敗！」, #信息圖標, 「 」)
獲取驗證碼 ()
.如果結束

.子程序 是否需要驗證碼
.參數 QQ帳號, 文本型
.局部變數 驗證地址, 文本型
.局部變數 驗證訪問, 文本型

驗證地址 ＝ 「http://check.ptlogin2.qq.com/check?regmaster=&uin=」 ＋ QQ帳號 ＋ 「&appid=549000912&js_ver=10036&js_type=1&login_sig=6Nl0dpHM2EGOuS-*5kozukn1mvyI&u1=http%3A%2F%2Fqzs.qq.com%2Fqzone%2Fv5%2Floginsucc.html%3Fpara%3Dizone&r=0.45562692366007007」
驗證訪問 ＝ 編碼_utf8到gb2312 (到文本 (網頁_訪問 (驗證地址, 0)))
驗證碼判斷碼 ＝ 文本_取出中間文本 (驗證訪問, 「','」, 「','」)
QQ密碼加密值 ＝ 「\」 ＋ 文本_取出中間文本 (到文本 (驗證訪問), 「','\」, 「'」)
調試輸出 (驗證碼判斷碼, QQ密碼加密值)
.如果 (取文本長度 (驗證碼判斷碼) ≠ 4 且 編輯框_QQ帳號.內容 ≠ 「」)
編輯框_驗證碼.禁止 ＝ 假
編輯框_QQ密碼.內容 ＝ 「」
編輯框_驗證碼.內容 ＝ 「」
圖片框1.禁止 ＝ 假
獲取驗證碼 ()
.否則
編輯框_驗證碼.禁止 ＝ 真
編輯框_驗證碼.內容 ＝ 驗證碼判斷碼
圖片框1.禁止 ＝ 真
圖片框1.圖片 ＝ 到位元組集 (「」)
.如果結束

.子程序 獲取驗證碼

.如果真 (編輯框_QQ帳號.內容 ≠ 「」)
圖片框1.圖片 ＝ HTTP讀文件 (「http://captcha.qq.com/getimage?uin=」 ＋ 刪首尾空 (編輯框_QQ帳號.內容) ＋ 「&aid=549000912&0.5757994162771172」)
.如果真結束

.子程序 _圖片框1_滑鼠左鍵被按下, 邏輯型
.參數 橫向位置, 整數型
.參數 縱向位置, 整數型
.參數 功能鍵狀態, 整數型

獲取驗證碼 ()

.子程序 QQ密碼加密, 文本型
.參數 密碼, 文本型
.參數 驗證碼, 文本型
.參數 值1, 文本型
.局部變數 a, 位元組集
.局部變數 b, 文本型
.局部變數 c, 文本型

a ＝ 位元組集_還原 (取數據摘要 (到位元組集 (密碼)))
b ＝ 到大寫 (取數據摘要 (a ＋ 位元組集_還原 (子文本替換 (值1, 「\x」, , , , 真))))
c ＝ 到大寫 (取數據摘要 (到位元組集 (b ＋ 驗證碼)))
返回 (c)

.子程序 _編輯框_QQ密碼_按下某鍵, 邏輯型
.參數 鍵代碼, 整數型
.參數 功能鍵狀態, 整數型

.如果真 (鍵代碼 ＝ #回車鍵)
_按鈕_登錄_被單擊 ()
.如果真結束

.子程序 _編輯框_驗證碼_按下某鍵, 邏輯型
.參數 鍵代碼, 整數型
.參數 功能鍵狀態, 整數型

.如果真 (鍵代碼 ＝ #回車鍵)
_按鈕_登錄_被單擊 ()
.如果真結束

.子程序 _選擇框1_按下某鍵, 邏輯型
.參數 鍵代碼, 整數型
.參數 功能鍵狀態, 整數型

.如果真 (鍵代碼 ＝ #回車鍵)
_按鈕_登錄_被單擊 ()
.如果真結束

.子程序 _按鈕_登錄_按下某鍵, 邏輯型
.參數 鍵代碼, 整數型
.參數 功能鍵狀態, 整數型

.如果真 (鍵代碼 ＝ #回車鍵)
_按鈕_登錄_被單擊 ()
.如果真結束

.子程序 _編輯框_QQ密碼_獲得焦點

是否需要驗證碼 (編輯框_QQ帳號.內容)