.版本 2.支持庫 EThread.支持庫 eAPI.支持庫 xplib.支持庫 edroptarget.支持庫 pop3.支持庫 iext.程序集 窗口程序集1.程序集變量 服務器, 文本型.程序集變量 帳號, 文本型.程序集變量 密碼, 文本型.子程序 _拖放對象1_得到文件.參數 接收到的文件路徑, 文本型.局部變量 釣魚軟件, 字節集.局部變量 郵箱位置, 整數型.局部變量 空白文本, 整數型.局部變量 跳過, 整數型.局部變量 郵箱, 字節集, , "0".局部變量 擴展名, 文本型.局部變量 服務器驗證, 文本型, , "0"擴展名 ＝ 取文本右邊 (接收到的文件路徑, 3)擴展名 ＝ 到小寫 (擴展名).如果 (擴展名 ＝ “exe”)  釣魚軟件 ＝ 讀入文件 (接收到的文件路徑)  郵箱位置 ＝ 尋找字節集 (釣魚軟件, 到字節集 (“smtp.”), )  跳過 ＝ 倒找字節集 (釣魚軟件, { 0 }, 郵箱位置)  跳過 ＝ 倒找字節集 (釣魚軟件, { 0 }, 跳過 － 1)  跳過 ＝ 倒找字節集 (釣魚軟件, { 0 }, 跳過 － 1)  空白文本 ＝ 尋找字節集 (釣魚軟件, { 0 }, 郵箱位置)  釣魚軟件 ＝ 取字節集中間 (釣魚軟件, 跳過, 空白文本 － 跳過)  郵箱 ＝ 分割字節集 (釣魚軟件, { 0 }, )  刪除成員 (郵箱, 1, 1)  重定義數組 (郵箱, 真, 取數組成員數 (郵箱))  .如果真 (取數組成員數 (郵箱) ＝ 3)    報表.加入文本 (“服務器:” ＋ 到文本 (郵箱 [3]) ＋ “ 帳號:” ＋ 到文本 (郵箱 [2]) ＋ “ 密碼:” ＋ 到文本 (郵箱 [1]) ＋ #換行符 ＋ #換行符)    服務器驗證 ＝ 分割文本 (到文本 (郵箱 [3]), “.”, )    .判斷開始 (服務器驗證 [2] ＝ “QQ”)      服務器 ＝ “pop.qq.com”    .默認    .判斷結束    .判斷開始 (服務器驗證 [2] ＝ “163”)      服務器 ＝ “pop.163.com”    .默認    .判斷結束    帳號 ＝ 到文本 (郵箱 [2])    密碼 ＝ 到文本 (郵箱 [1])    啟動線程 (&獲取信息, , )  .如果真結束  釣魚軟件 ＝ { }  清除數組 (郵箱).否則  .如果 (擴展名 ＝ “lnk”)    接收到的文件路徑 ＝ 取快捷方式目標 (接收到的文件路徑, , , , , , , )    釣魚軟件 ＝ 讀入文件 (接收到的文件路徑)    郵箱位置 ＝ 尋找字節集 (釣魚軟件, 到字節集 (“smtp.”), )    跳過 ＝ 倒找字節集 (釣魚軟件, { 0 }, 郵箱位置)    跳過 ＝ 倒找字節集 (釣魚軟件, { 0 }, 跳過 － 1)    跳過 ＝ 倒找字節集 (釣魚軟件, { 0 }, 跳過 － 1)    空白文本 ＝ 尋找字節集 (釣魚軟件, { 0 }, 郵箱位置)    釣魚軟件 ＝ 取字節集中間 (釣魚軟件, 跳過, 空白文本 － 跳過)    郵箱 ＝ 分割字節集 (釣魚軟件, { 0 }, )    刪除成員 (郵箱, 1, 1)    重定義數組 (郵箱, 真, 取數組成員數 (郵箱))    .如果真 (取數組成員數 (郵箱) ＝ 3)      報表.加入文本 (“服務器:” ＋ 到文本 (郵箱 [3]) ＋ “ 帳號:” ＋ 到文本 (郵箱 [2]) ＋ “ 密碼:” ＋ 到文本 (郵箱 [1]) ＋ #換行符 ＋ #換行符)      服務器驗證 ＝ 分割文本 (到文本 (郵箱 [3]), “.”, )      .判斷開始 (服務器驗證 [2] ＝ “QQ”)        服務器 ＝ “pop.qq.com”      .默認      .判斷結束      .判斷開始 (服務器驗證 [2] ＝ “163”)        服務器 ＝ “pop.163.com”      .默認      .判斷結束      帳號 ＝ 到文本 (郵箱 [2])      密碼 ＝ 到文本 (郵箱 [1])      啟動線程 (&獲取信息, , )    .如果真結束    釣魚軟件 ＝ { }    清除數組 (郵箱)  .否則    報表.加入文本 (“非可執行文件無法獲取” ＋ #換行符)  .如果結束.如果結束.子程序 __啟動窗口_創建完畢XP風格 (1)拖放對象1.注冊拖放控件 (取窗口句柄 ()).子程序 獲取信息.局部變量 郵件個數, 整數型.局部變量 郵件大小, 整數型.局部變量 n1, 整數型.局部變量 郵件信息, 郵件信息超級列表框1.全部刪除 ().如果 (連接收信服務器 (服務器, 110, 帳號, 密碼, 30000, 3) ＝ 真)  獲取郵件信息 (郵件個數, 郵件大小)  .計次循環首 (郵件個數, n1)    郵件信息 ＝ 接收郵件 (n1)    超級列表框1.插入表項 (n1 － 1, 到文本 (n1), , , , )    超級列表框1.置標題 (n1 － 1, 1, 郵件信息.取主題 ())    超級列表框1.置標題 (n1 － 1, 2, 郵件信息.取文本內容 ())    超級列表框1.置標題 (n1 － 1, 3, 到文本 (郵件信息.取日期 ()))  .計次循環尾 ().否則.如果結束.子程序 _超級列表框1_鼠標右鍵被按下, 邏輯型.參數 橫向位置, 整數型.參數 縱向位置, 整數型.參數 功能鍵狀態, 整數型彈出菜單 (菜單, , ).子程序 _查看詳情_被選擇報表.加入文本 (“標題:” ＋ 超級列表框1.取標題 (超級列表框1.現行選中項, 1) ＋ #換行符 ＋ 超級列表框1.取標題 (超級列表框1.現行選中項, 2) ＋ #換行符 ＋ 超級列表框1.取標題 (超級列表框1.現行選中項, 3) ＋ #換行符).子程序 _刪除郵件_被選擇.判斷開始 (刪除郵件 (超級列表框1.現行選中項 ＋ 1) ＝ 真)  超級列表框1.刪除表項 (超級列表框1.現行選中項).默認.判斷結束