為編程愛好者分享易語言教程源碼的資源網
挂機,挂機器人服務器88一年 收QQ協議|PC協議|安卓協議 收購QQ通訊協議|點擊聯系 收PCQQ協議|安卓QQ協議|聯系我 收易語言QQ協議|你有就找我 每日必買商品
注冊機|遊戲腳本|透視輔助|視頻教程 收QQ協議|PC協議|安卓協議 收購QQ通訊協議|點擊聯系 收PCQQ協議|安卓QQ協議|聯系我 收易語言QQ協議|你有就找我 挂機,挂機器人服務器88一年
易語言|按鍵精靈|app逆向|微信hook 收QQ協議|PC協議|安卓協議 收購QQ通訊協議|點擊聯系 收PCQQ協議|安卓QQ協議|聯系我 收易語言QQ協議|你有就找我 A全站文字廣告,誠邀與您合作

網站首頁 易語言相關 網絡相關源碼 正文

易語言郵件發送客戶端源碼

三葉資源網 2013-03-02 網絡相關源碼 315 ℃ 0 評論

源碼程序使用易語言客戶組件向QQ郵箱發送消息實現郵件發送功能。

@黑客源碼

.版本 2
.支持庫 spec

.程序集 窗口程序集1
.程序集變量 cishu, 整數型

.子程序 _按鈕1_被單擊

客戶1.連接 (“smtp.qq.com”, 25)

.子程序 _客戶1_數據到達
.局部變量 kk, 文本型
.局部變量 pp, 文本型
.局部變量 pp2, 文本型
.局部變量 date, 文本型

kk = 到文本 (客戶1.取回數據 ())

調試輸出 (到文本 (客戶1.取回數據 ()))
.如果 (kk = “220 smtp.qq.com Esmtp QQ Mail Server” + #換行符)
    客戶1.發送數據 (“HELO smtp.qq.com” + #換行符)
.否則

.如果結束
.如果 (kk = “250 smtp.qq.com” + #換行符)
    客戶1.發送數據 (“AUTH  LOGIN” + #換行符)
.否則

.如果結束
.如果 (kk = “334 VXNlcm5hbWU6” + #換行符)
    客戶1.發送數據 (BASE64編碼 (到字節集 (“408477779@qq.com”)) + #換行符)
.否則

.如果結束
.如果 (kk = “334 UGFzc3dvcmQ6” + #換行符)
    客戶1.發送數據 (BASE64編碼 (到字節集 (“”)) + #換行符)
.否則

.如果結束
.如果 (kk = “235 Authentication successful” + #換行符)
    客戶1.發送數據 (“MAIL FROM:<408477779@qq.com>” + #換行符)
.否則

.如果結束

調試輸出 (cishu)
.如果 (kk = “250 Ok” + #換行符)
    .如果 (cishu ≠ 1 或 cishu ≠ 0)
        .如果 (cishu = 2)
            客戶1.發送數據 (“RCPT TO:<13526686842@163.com> ” + #換行符)
        .否則
            客戶1.發送數據 (“MAIL FROM:<408477779@qq.com>” + #換行符)
        .如果結束
        .如果 (cishu = 3)
            客戶1.發送數據 (“DATA ” + #換行符)
        .否則

        .如果結束

    .否則
        客戶1.發送數據 (“RCPT TO:<408477779@qq.com> ” + #換行符)
    .如果結束
    cishu = 1 + cishu
.否則

.如果結束

.如果 (kk = “354 End data with <CR><LF>.<CR><LF>” + #換行符)
    date = BASE64編碼 (讀入文件 (“E:\2.jpg”))
    客戶1.發送數據 (“FROM:<408477779@qq.com>” + #換行符 + “to:<408477779@163.com>” + #換行符 + “subject:hello,you!” + #換行符 + “MIME_Version: 1.0” + #換行符 + “Content-type: text/html” + #換行符 + “Content-Transfer-Encoding: quoted-printable” + #換行符 + “X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.6157” + #換行符 + #換行符)
    pp2 = “<!DOCTYPE HTML>” + #換行符 + “<html>” + #換行符 + “<HEAD>” + #換行符 + “<META HTTP-EQUIV=3D” + #雙引号左 + “Content-Type” + #雙引号右 + “ ” + “CONTENT=3D” + #雙引号左 + “text/html; charset=gb2312” + #雙引号右 + “>” + #換行符 + “</HEAD>” + #換行符 + “<body><a href= http://www.baidu.com  target= _blank>wo  ce  shi yixia</a> ” + “<img src='data:image/jpeg;base64, ” + date + “' alt='abc.jpg' /> ” + #換行符 + “</body></html>” + #換行符 + “.” + #換行符
    客戶1.發送數據 (pp2)

.否則

.如果結束
.如果 (kk = “250 Ok: queued as ” + #換行符)
    客戶1.發送數據 (“quit” + #換行符)
.否則

.如果結束

' “ Content-Type: application/octet-stream;” + #換行符 + “ name=” + #雙引号左 + “eeeeee.e” + #雙引号右 + #換行符 + “Content-Disposition: attachment; filename='eeeeee.e'” + BASE64編碼 (讀入文件 (“E:\eeeeee.e”)) + #雙引号右


' '最主要的就是 Content-Type: text/html;  Content-Transfer-Encoding: base64類型和編碼
' 其實完全不用不懂網頁的話,你就找網頁吧他BASE64編碼,然後 個兩行 把編碼粘進去不過先要聲明Content-Type和編碼


.子程序 BASE64編碼, 文本型
.參數 二進制數據, 字節集, 參考
.局部變量 數據長度
.局部變量 整倍數
.局部變量 X
.局部變量 編碼文本, 文本型
.局部變量 行字數
.局部變量 三字節, 字節集
.局部變量 三字節組, 字節型, , "3"
.局部變量 四字節組, 字節型, , "4"
.局部變量 n
.局部變量 編碼值
.局部變量 xx

數據長度 = 取字節集長度 (二進制數據)

xx = 取啟動時間 ()
整倍數 = 數據長度 \ 3
.如果真 (數據長度 % 3 ≠ 0)
    整倍數 = 整倍數 + 1
.如果真結束
.計次循環首 (整倍數, X)
    三字節 = 取字節集中間 (二進制數據, (X - 1) × 3 + 1, 3)
    .計次循環首 (3, n)
        三字節組 [n] = 取字節集數據 (取字節集中間 (三字節, n, 1), #字節型, )
    .計次循環尾 ()
    四字節組 [1] = 位與 (三字節組 [1], 252) ÷ 4
    四字節組 [2] = 位或 (位與 (三字節組 [1], 3) × 16, 三字節組 [2] ÷ 16)
    四字節組 [3] = 位或 (位與 (三字節組 [2], 15) × 4, 三字節組 [3] ÷ 64)
    四字節組 [4] = 位與 (三字節組 [3], 63)
    .計次循環首 (取字節集長度 (三字節) + 1, n)  ' 這裡循環次數不用3,而用實際長度,考慮到數據長度不總是3的整倍數
        編碼值 = 四字節組 [n] + 1
        四字節組 [n] = 取代碼 (“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”, 編碼值)
        處理事件 ()
    .計次循環尾 ()
    編碼文本 = 編碼文本 + 到文本 (四字節組)
    行字數 = 行字數 + 4
    .如果真 (行字數 = 76)
        行字數 = 0
        編碼文本 = 編碼文本 + #換行符
    .如果真結束

    處理事件 ()
.計次循環尾 ()
.如果真 (n < 5)  ' 如果編碼文本長度不是4的整倍數,後面補"="
    編碼文本 = 編碼文本 + 取重複文本 (5 - n, “=”)
.如果真結束
輸出調試文本 (到文本 (取啟動時間 () - xx))
返回 (編碼文本)
文件下載


Tags:

來源:三葉資源網,歡迎分享,公衆号:iisanye,(三葉資源網④群:72857039

本文暫時沒有評論,來添加一個吧(●'◡'●)

歡迎 發表評論:

百度站内搜索
關注微信公衆号
三葉資源網④群:三葉資源網③群

網站分類
随機tag
HOOKlibcurlB站取QQ昵稱引流軟件源碼網絡相關源碼隐藏外部程序注冊表操作自動更新JS多線程例程閃送APP精易模塊源碼群控模拟器APK查詢工具UI界面超級編輯框應用QQPC8.6協議源碼高級截圖RibbonUI
最新評論