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