利用winsock编程实现邮件服务器

来源：百度知道 编辑：UC知道 时间：2024/06/30 09:32:44
求教各位大虾
利用winsock编程实现邮件服务器（等待来自不同客户端的邮件传输TCP链接，并根据请求建立相应的连接实现邮件服务）
这个用VB实现的话代码

Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub cmdSelect_Click()
cmdDialog.ShowOpen
txtAttach = cmdDialog.FileName
End Sub
Private Sub cmdSend_Click()
cmdSend.Enabled = False
If ValidateEntry = False Then
MsgBox "请输入完整的信息！", vbCritical + vbOKOnly, Me.Caption: cmdSend.Enabled = True: Exit Sub
End If
If txtAttach.Text <> "" Then
lblStatus = "附件编码…"
Base64EncodeFile txtAttach.Text, rtfAttach, txtOutput
End If
lblStatus = "连接到服务器…"
ConnectToServer txtServer.Text, Winsock1
End Sub
Private Sub Form_Load()
txtAttach = ""
txtBody = ""
txtFromAddress = ""
txtServer = ""
txtSubject = ""
txtToAddress = ""
End Sub
Private Sub Winsock1_Connect()
lblSta