.支持庫 pop3
.子程序 接收郵件子程序, , , 正在接收第 * 封郵件，總***有 * 封郵件，剩余 * 封郵件。
.局部變量 郵件個數, 整數型
.局部變量 郵件大小, 整數型
.局部變量 計次, 整數型
.局部變量 郵件信息, 郵件信息
.局部變量 郵件附件, 附件信息, , "0"
標簽1.標題 ＝ “正在連接服務器.....”
.如果 (連接收信服務器 (“pop.qq.com”, 110, “用戶名”, “密碼”, 30000, 3))
標簽1.標題 ＝ “連接服務器成功，準備開始接收郵件！”
.否則
標簽1.標題 ＝ “服務器連接失敗。”
返回 ()
.如果結束
獲取郵件信息 (郵件個數, 郵件大小)
.如果真 (郵件個數 ＝ 0)
標簽1.標題 ＝ “暫時沒有郵件！”
返回 ()
.如果真結束
.計次循環首 (郵件個數, 計次)
標簽1.標題 ＝ “正在接收第 ” ＋ 到文本 (計次) ＋ “ 封郵件，總***有 ” ＋ 到文本 (郵件個數) ＋ “ 封郵件，剩余 ” ＋ 到文本 (郵件個數 － 計次) ＋ “封郵件。”
郵件信息 ＝ 接收郵件 (計次)
輸出調試文本 (郵件信息.取文本內容 ())
郵件附件 ＝ 郵件信息.取附件 ()
郵件附件 [1].取名稱 ()
.計次循環尾 ()
標簽1.標題 ＝ “本次接收完成！”
斷開收信服務器 ()