B
BiT
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.Sockets
Imports System.Text
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Handles Me.Load
Dim tcpClient As New System.Net.Sockets.TcpClient()
Dim returndata As String
Dim bytes(tcpClient.ReceiveBufferSize) As Byte
Dim sendBytes As [Byte]()
tcpClient.Connect("news.giganews.com", 119)
Dim networkStream As NetworkStream = tcpClient.GetStream()
' Read the NetworkStream into a byte buffer.
networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
' 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("AUTHINFO USER ****")
networkStream.Write(sendBytes, 0, sendBytes.Length)
' Read the NetworkStream into a byte buffer.
networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
returndata = Encoding.ASCII.GetString(bytes)
TextBox1.Text = TextBox1.Text & Returndata
' Send Paswod to the server
sendBytes = Encoding.ASCII.GetBytes("AUTHINFO PASS ****")
networkStream.Write(sendBytes, 0, sendBytes.Length)
' Read the NetworkStream into a byte buffer.
networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
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.Sockets
Imports System.Text
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Handles Me.Load
Dim tcpClient As New System.Net.Sockets.TcpClient()
Dim returndata As String
Dim bytes(tcpClient.ReceiveBufferSize) As Byte
Dim sendBytes As [Byte]()
tcpClient.Connect("news.giganews.com", 119)
Dim networkStream As NetworkStream = tcpClient.GetStream()
' Read the NetworkStream into a byte buffer.
networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
' 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("AUTHINFO USER ****")
networkStream.Write(sendBytes, 0, sendBytes.Length)
' Read the NetworkStream into a byte buffer.
networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
returndata = Encoding.ASCII.GetString(bytes)
TextBox1.Text = TextBox1.Text & Returndata
' Send Paswod to the server
sendBytes = Encoding.ASCII.GetBytes("AUTHINFO PASS ****")
networkStream.Write(sendBytes, 0, sendBytes.Length)
' Read the NetworkStream into a byte buffer.
networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
returndata = Encoding.ASCII.GetString(bytes)
TextBox1.Text = TextBox1.Text & returndata
End Sub
End Class