Hi
i'm trying to code simple nntp client with vb.net and sockets client class
the problem is the machine keep stuck (probbley beacuse it ain't gettin`
data from the server) after the user name sent to the server when it's try
to read the stream, i checked it out in telnet and server send stream after
i send the user name any idea why it's not workin`?
here's the code:
Imports System.Net.Sock ets
Imports System.Text
Public Class Form1
Private Sub Form1_Load(ByVa l sender As Object, ByVal e As System.EventArg s)
Handles Me.Load
Dim tcpClient As New System.Net.Sock ets.TcpClient()
Dim returndata As String
Dim bytes(tcpClient .ReceiveBufferS ize) As Byte
Dim sendBytes As [Byte]()
tcpClient.Conne ct("news.gigane ws.com", 119)
Dim networkStream As NetworkStream = tcpClient.GetSt ream()
' Read the NetworkStream into a byte buffer.
networkStream.R ead(bytes, 0, CInt(tcpClient. ReceiveBufferSi ze))
' Output the data received from the host to the console.
returndata = Encoding.ASCII. GetString(bytes )
textbox1.text = textbox1.text & Returndata
' Send user name to the server
sendBytes = Encoding.ASCII. GetBytes("AUTHI NFO USER ****")
networkStream.W rite(sendBytes, 0, sendBytes.Lengt h)
' Read the NetworkStream into a byte buffer.
networkStream.R ead(bytes, 0, CInt(tcpClient. ReceiveBufferSi ze))
returndata = Encoding.ASCII. GetString(bytes )
TextBox1.Text = TextBox1.Text & Returndata
' Send Paswod to the server
sendBytes = Encoding.ASCII. GetBytes("AUTHI NFO PASS ****")
networkStream.W rite(sendBytes, 0, sendBytes.Lengt h)
' Read the NetworkStream into a byte buffer.
networkStream.R ead(bytes, 0, CInt(tcpClient. ReceiveBufferSi ze))
returndata = Encoding.ASCII. GetString(bytes )
TextBox1.Text = TextBox1.Text & returndata
End Sub
End Class
i'm trying to code simple nntp client with vb.net and sockets client class
the problem is the machine keep stuck (probbley beacuse it ain't gettin`
data from the server) after the user name sent to the server when it's try
to read the stream, i checked it out in telnet and server send stream after
i send the user name any idea why it's not workin`?
here's the code:
Imports System.Net.Sock ets
Imports System.Text
Public Class Form1
Private Sub Form1_Load(ByVa l sender As Object, ByVal e As System.EventArg s)
Handles Me.Load
Dim tcpClient As New System.Net.Sock ets.TcpClient()
Dim returndata As String
Dim bytes(tcpClient .ReceiveBufferS ize) As Byte
Dim sendBytes As [Byte]()
tcpClient.Conne ct("news.gigane ws.com", 119)
Dim networkStream As NetworkStream = tcpClient.GetSt ream()
' Read the NetworkStream into a byte buffer.
networkStream.R ead(bytes, 0, CInt(tcpClient. ReceiveBufferSi ze))
' Output the data received from the host to the console.
returndata = Encoding.ASCII. GetString(bytes )
textbox1.text = textbox1.text & Returndata
' Send user name to the server
sendBytes = Encoding.ASCII. GetBytes("AUTHI NFO USER ****")
networkStream.W rite(sendBytes, 0, sendBytes.Lengt h)
' Read the NetworkStream into a byte buffer.
networkStream.R ead(bytes, 0, CInt(tcpClient. ReceiveBufferSi ze))
returndata = Encoding.ASCII. GetString(bytes )
TextBox1.Text = TextBox1.Text & Returndata
' Send Paswod to the server
sendBytes = Encoding.ASCII. GetBytes("AUTHI NFO PASS ****")
networkStream.W rite(sendBytes, 0, sendBytes.Lengt h)
' Read the NetworkStream into a byte buffer.
networkStream.R ead(bytes, 0, CInt(tcpClient. ReceiveBufferSi ze))
returndata = Encoding.ASCII. GetString(bytes )
TextBox1.Text = TextBox1.Text & returndata
End Sub
End Class
Comment