風禹科技驗證有限公司 Web News Reader

項目	內容
發文者	U.F.O
日期	2009/6/16 下午 12:22:44
標題	請教要如何分離出,寄件者,收件者,主旨,本文,以及亂碼如何才能正確的解碼??
Message Id	633807229457280000@hisdt.nntp
內文	我是用VS2008 asp.net vb想寫一個webmail但遇到一些問題下面的程式能抓出整封mail,但不太了解如何截取想要的寄件者,收件者,主旨,本文,並且參考了璉璉大大的一些文章,也不太了解如何運用璉璉大大分享的strtool來做解碼,真的不知道要如何運用T_T.. Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Dim serverMessage As String Dim tcpC As New TcpClient() Try tcpC.Connect("mail.server.com", 995) Catch ex As Exception Response.Write("Error connecting to host: " & ex.Message & " - Please check your details and try again") Response.End() End Try Dim sslstream As SslStream = New SslStream(tcpC.GetStream(), False) sslstream.AuthenticateAsClient("mis-mail.ingrasys.com") Dim sw As StreamWriter = New StreamWriter(sslstream) Dim reader As StreamReader = New StreamReader(sslstream) sw.WriteLine("USER xxxx") sw.Flush() sw.WriteLine("PASS xxxx") sw.Flush() sw.WriteLine("STAT") sw.Flush() sw.WriteLine("RETR 1") sw.Flush() sw.WriteLine("Quit") sw.Flush() serverMessage = ReadMessage(sslstream) tcpC.Close() Me.Label1.Text = Replace(serverMessage, vbCrLf, " ") End Sub Shared Function ReadMessage(ByVal sslStream As SslStream) As String Dim buffer(2048) As Byte Dim messageData As StringBuilder = New StringBuilder Dim bytes As Integer = -1 Do bytes = sslStream.Read(buffer, 0, buffer.Length) Dim decoder As Decoder = Encoding.ASCII.GetDecoder Dim chars(decoder.GetCharCount(buffer, 0, bytes)) As Char decoder.GetChars(buffer, 0, bytes, chars, 0) messageData.Append(chars) Loop While Not (bytes = 0) Return messageData.ToString End Function -- ASPNET News Reader http://tlcheng.twbbs.org/News/Reader.aspx RSS 2.0 http://tlcheng.twbbs.org/News/rss2.aspx?Action=List&Newsgroup=microsoft.public.tw.dotnet.framework.aspnet