CoLIN 人工語言模擬 漢化版 2002年8月9日
原作者
布朗 alan j. brown
15 Kinloch Road
Renfrew
Scotland
PA4 0RJ
alan@barc0de.demon.co.uk
http://www.barc0de.demon.co.uk/
漢化者
陳輝
主頁： http://go2debug.yeah.net
郵件： go2debug@hotmail.com
ICQ： 149054569
簡介
通過菜單可以清空數據庫。
程序會從你的輸入中學習，如果你不想這樣，就請關閉學習功能。
原作者聲明
This program is giftware. If you like it send me something nice.
Copyright is fully reserved by Alan J. Brown, any program developed from the CoLIN source code must give Alan J. Brown appropriate credit.
更多問題
請到我的主頁 http://go2debug.yeah.net
或者給我發信 go2debug@hotmail.com
另外在布朗的主頁上有留言板
接收pop3
Public Function Retrieve(ByVal rhs As Pop3Message) As Pop3Message
Dim message, response As String
Dim msg As New Pop3Message
msg.bytes = rhs.bytes
msg.number = rhs.number
message = "RETR " + rhs.number.ToString + vbCrLf
write(message)
response = Respond()
If response.Substring(0, 3) <> "+OK" Then
Throw New Pop3Exception(response)
End If
MsgBox(msg)
msg.retrieved = True
While (1 = 1)
response = Respond()
If response = "." + vbCrLf Then
Exit While
Else
msg.message += response
End If
End While
Return msg
End Function
