בעיה עם Sockets ב vb.net

[nondos]

שלום

כתבתי קוד ב vb.net 2005 להורדת הודעה מקבוצות דיון והצגתו ב textbox

הקוד עובד, אך רק עם הודעות קטנות בהודעות גדולות הקוד מציג רק את תחילת ההודעה.

Imports System.Xml
Imports System.Net.Sockets
Imports System.Text
Public Class Form1

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) 
Handles Me.Load

Dim _username As String = "********"
Dim _password As String = "********"
Dim tcpClient As New TcpClient
Dim sendBytes As [Byte]()
Dim _buffer As String

tcpClient.Connect("news.giganews.com", 119)

Dim networkStream As NetworkStream = tcpClient.GetStream()

'Read the Welcome message into a byte buffer.
Dim bytes(tcpClient.ReceiveBufferSize) As Byte
networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))

'send username to the server
sendBytes = Encoding.ASCII.GetBytes("AUTHINFO USER " & _username & vbCrLf)
networkStream.Write(sendBytes, 0, sendBytes.Length)
ReDim bytes(tcpClient.ReceiveBufferSize)
NetworkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))

' Send Passwrod to the server
sendBytes = Encoding.ASCII.GetBytes("AUTHINFO PASS " & _password & vbCrLf)
networkStream.Write(sendBytes, 0, sendBytes.Length)
ReDim bytes(tcpClient.ReceiveBufferSize)
networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))

'reset the buffer
_buffer = ""

'send command to get the message body
sendBytes = Encoding.ASCII.GetBytes("BODY <4637803c$0$32575$6c4159fb@tele2news.tweaknews.nl>" & vbCrLf)
networkStream.Write(sendBytes, 0, sendBytes.Length)

' Read the NetworkStream into a byte buffer.
ReDim bytes(tcpClient.ReceiveBufferSize)
networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
_buffer = _buffer & Encoding.GetEncoding("windows-1255").GetString(bytes)
While networkStream.DataAvailable = True
ReDim bytes(tcpClient.ReceiveBufferSize)
networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
_buffer = _buffer & Encoding.GetEncoding("windows-1255").GetString(bytes)
End While

TextBox1.Text = _buffer

End Sub

End Class

אני חושב שיש בעיה בשורה של ה while והתנאי שם לא מתאים והקוד יוצא מהלולאה לפני שהוא מוריד את כל ההודעה אבל לא הצלחתי ליצור תנאי אחר מתאים

תודה רבה

[SaarD]

למה שלא תיצור STREAM READER ותעשה תנאי של READER.READ

???

[nondos]

נסיתי לעבוד עם stream אבל לא הצלחתי ואני לא יודע כל כך איך לעבוד עם stream

אתה יכול בבקשה לתת דוגמא שממנה אוכל ללמוד

תודה