文件名称:06pop3
- 所属分类：
- Internet/网络编程
- 资源属性：
- [Windows] [Visual.Net] [Basic/ASP] [源码]
- 上传时间：
- 2008-10-13
- 文件大小：
- 1.59kb
- 下载次数：
- 0次
- 提 供 者：
- 数**
- 相关连接：
- 无
- 下载说明：
- 别用迅雷下载，失败请重下，重下不扣分！
介绍说明－－下载内容均来自于网络，请自行研究使用
接收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-receive pop3 Public Function Retrieve (ByVal rh As Pop3Message s) As Pop3Message Dim message, response As String Dim msg As New Pop3Message ms rhs.bytes g.bytes = = rhs.number me msg.number ssage = "RETR" rhs.number.ToString vbCrLf WRI te (message) response = Respond () If response. Substring (0, 3)
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-receive pop3 Public Function Retrieve (ByVal rh As Pop3Message s) As Pop3Message Dim message, response As String Dim msg As New Pop3Message ms rhs.bytes g.bytes = = rhs.number me msg.number ssage = "RETR" rhs.number.ToString vbCrLf WRI te (message) response = Respond () If response. Substring (0, 3)
(系统自动生成,下载前可以参看下载内容)
下载文件列表
压缩包 : 8736100306pop3.rar 列表 pop3.aspx