易語言快遞源碼

① （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」, #重寫, ) ' 創建要瀏覽的超文本內容的網頁文件
插入文本 (文件號, 郵件 [索引].取超文本內容 ())
關閉文件 (文件號)
.計次循環首 (郵件 [索引].取附件個數 (), 計次變數)
.如果真 (附件 [計次變數].取是否嵌入式附件 ())
文件號 ＝ 打開文件 (臨時文件 ＋ 附件 [計次變數].取名稱 (), #重寫, ) ' 創建要瀏覽的超文本網頁的附件文件
插入位元組集 (文件號, 附件 [計次變數].取數據 ())
關閉文件 (文件號)
.如果真結束

.計次循環尾 ()

.子程序 回調函數, 邏輯型
.參數 類型, 整數型
.參數 第幾封, 整數型
.參數 位元組數, 整數型

.判斷開始 (#命令類型.驗證用戶名 ＝ 類型)
標准輸出 (, 「驗證用戶信息」)
.默認

.判斷結束
返回 (真)

② 易語言POST獲取網頁源代碼數據

在進行網頁數據抓取時，特別是需要登錄後才能訪問的網頁，我們需要抓取的不僅僅是簡單的ID、密碼和標記，還要包括Cookies等其他重要信息。Cookies是網站為了辨別用戶身份、進行會話跟蹤而儲存在用戶本地終端上的數據。

抓包的過程可以分為多個步驟。首先，我們需要選擇合適的抓包工具，如Fiddler或Wireshark，來捕捉網路請求和響應。當登錄成功後，瀏覽器會發送包含用戶認證信息的請求，這些信息通常以Cookies的形式存儲在用戶的瀏覽器中。我們需要在登錄成功後，查看瀏覽器網路請求中的Cookies欄位，記錄下這些關鍵信息。

記錄下來的Cookies等信息對於後續的自動化操作非常重要。在使用易語言進行網頁數據抓取時，我們需要將這些Cookies信息添加到HTTP請求頭中，以模擬瀏覽器的行為。這樣，伺服器就可以正確識別出我們是已登錄的用戶，從而允許我們訪問受限的頁面。

此外，我們還需要注意的是，抓包時要確保網路環境的安全性和隱私保護。使用抓包工具時，不要在公共場所進行操作，避免個人信息泄露。同時，在處理抓取到的數據時，也要遵循相關法律法規，避免侵犯他人隱私。

在使用易語言進行POST請求獲取網頁源代碼數據時，我們可以通過設置請求頭中的Cookie欄位來傳遞之前抓取到的Cookies信息。這樣可以確保我們的請求被伺服器正確識別為已登錄用戶，從而獲取到完整的網頁源代碼數據。

總之，通過抓包獲取ID、密碼、標記以及Cookies等信息對於進行網頁數據抓取至關重要。在使用易語言進行自動化操作時，我們需要正確設置請求頭中的這些信息，以模擬用戶的真實行為，從而順利獲取到網頁源代碼數據。

③ 易語言源碼在哪裡找的

易語言作為一種中文編程語言，其源代碼可以從多個途徑獲取。其中，LvCode平台提供了一個豐富的資源庫，專門收集和分享易語言的源代碼和項目文件。http://www.lvcode.com/downilst/4.html是一個指向易語言源代碼下載列表的鏈接，其中包含了大量有價值的代碼資源。
訪問該頁面後，用戶可以找到各種類型的易語言代碼，從基礎的編程示例到復雜的項目工程，應有盡有。不僅如此，這些源代碼大多由經驗豐富的開發者貢獻，對於初學者來說，它們是學習和模仿的寶貴資源。

除了LvCode平台，還有一些其他渠道也可以獲取易語言的源代碼。例如，開發者社區中的論壇和討論組，往往會有用戶分享自己的代碼作品。此外，GitHub等代碼託管平台也有可能找到相關的開源項目。這些項目不僅提供了完整的源代碼，還附有詳細的注釋和使用說明，幫助用戶更好地理解和應用。

值得注意的是，獲取源代碼的同時，也需要尊重原作者的版權。在使用這些代碼時，最好遵循開源協議，適當引用和致謝，以保持良好的社區氛圍。同時，積極參與代碼的改進和優化，共同推動易語言的發展。

總之，易語言的源代碼可以通過多種途徑獲取，無論是初學者還是經驗豐富的開發者，都能從中找到適合自己的資源。通過學習和實踐，可以不斷提高自己的編程技能，進一步推動易語言生態的發展。

④ 易語言源傳送文件帶進度的源碼

易語言中實現文件傳輸帶有進度條的源碼可以參考，這里提供一個下載鏈接：http://www.rayfile.com/files/9d260323-7825-11df-a64f-0015c55db73d/。盡管應用的模塊較多，但你可以從中借鑒一些有用的部分。

該源碼中實現了一個文件傳輸功能，並且帶有進度條顯示，這在文件傳輸過程中是非常有用的。它能夠幫助用戶實時了解文件傳輸的進度，避免長時間等待帶來的焦慮。源碼中涉及到了文件讀寫、網路傳輸、進度條更新等多個方面的內容。

文件傳輸模塊首先通過網路連接將文件從發送方傳輸到接收方。在傳輸過程中，源碼會不斷地更新進度條，以顯示當前傳輸的進度。這需要通過定時器或者線程來實現，以保證進度條的實時更新。

在接收端，源碼會將接收到的數據寫入到目標文件中。接收端需要不斷地讀取接收到的數據，並將其寫入到目標文件中。這一過程需要處理好數據緩沖，以避免數據丟失或者損壞。

該源碼還提供了一些輔助功能，如文件選擇、進度條樣式調整等。這些功能使得文件傳輸更加方便和靈活。你可以根據自己的需求，對源碼進行適當的修改和擴展。

總之，這個源碼對於希望在易語言中實現文件傳輸帶有進度條功能的開發者來說，是一個很好的參考和學習資源。

⑤ 易語言 打開源碼常常沒響應

文件名後綴設置成bak看下