NNTP Client

[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.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

[Spam Catcher]

"BiT" <sh********@wal la.comwrote in
news:Ka******** *************** *******@giganew s.com:

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:

Have you looked at the Indy Socket class? I think it has a NNTP classes
prebuilt. Otherwise nSoftware's IPWorks package has a good NNTP client.
Also take a look at TCPTrace from PocketSoap. It's a free application
allowing you to see the TCP stream. AFAIK, you're supposed to get a return
code with every command you issue - are you getting those codes back? Maybe
you didn't send the end of line terminator so the server hasn't processed
the command?

[BiT]

I think i didn't send the end of line terminator, how do i do it?

thanks

"Spam Catcher" <sp**********@r ogers.comwrote in message
news:Xn******** *************** ***********@127 .0.0.1...

"BiT" <sh********@wal la.comwrote in
news:Ka******** *************** *******@giganew s.com:

>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:

Have you looked at the Indy Socket class? I think it has a NNTP classes
prebuilt. Otherwise nSoftware's IPWorks package has a good NNTP client.
Also take a look at TCPTrace from PocketSoap. It's a free application
allowing you to see the TCP stream. AFAIK, you're supposed to get a return
code with every command you issue - are you getting those codes back?
Maybe
you didn't send the end of line terminator so the server hasn't processed
the command?

[Spam Catcher]

"BiT" <sh********@wal la.comwrote in
news:Gq******** *************** *******@giganew s.com:

I think i didn't send the end of line terminator, how do i do it?

You could try sending VBCRLF (return character).

[BiT]

Works Great

thanks

"Spam Catcher" <sp**********@r ogers.comwrote in message
news:Xn******** *************** **********@127. 0.0.1...

"BiT" <sh********@wal la.comwrote in
news:Gq******** *************** *******@giganew s.com:

>I think i didn't send the end of line terminator, how do i do it?

You could try sending VBCRLF (return character).