Stuck with creating a new socket after a dispose

M

mrdutchie

Well-known member
Joined
Jul 7, 2003
Messages
78
Location
WI, USA
for several days I cant figure out how to make a new connection after I
disposed it.

So I want to connect, disconnect, connect etc.....
What am I missing here?

This is what I have

Public mysocket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Public theend As Boolean
Public server As String = "news.ultrafeed.com"
Public serverport As Long = 119
Public ipsolve As IPHostEntry = Dns.Resolve(server)
Public ipend As New IPEndPoint(ipsolve.AddressList(0), serverport)
Public bb(1024) As Byte


Public Sub login()
If mysocket.Connected = True Then
MsgBox("Allready connected")
Exit Sub
Else
Dim server As String = "news.ultrafeed.com"
Dim serverport As Long = 119
Dim ipsolve As IPHostEntry = Dns.Resolve(server)
Dim ipend As New IPEndPoint(ipsolve.AddressList(0), serverport)
Dim mysocket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
End If

Dim msg1 As Byte() = Encoding.ASCII.GetBytes("AUTHINFO user xxxx" & vbCrLf)
Dim msg2 As Byte() = Encoding.ASCII.GetBytes("AUTHINFO pass xxxx" & vbCrLf)
mysocket.Connect(ipend)
bb.Clear(bb, 0, 1024)
bytes = mysocket.Receive(bb, bb.Length, 0)
txtinfo.Text = Encoding.ASCII.GetString(bb)
loginfo.Text = Encoding.ASCII.GetString(bb)
mysocket.Send(msg1, 0, msg1.Length, 0)
bb.Clear(bb, 0, 1024)
bytes = mysocket.Receive(bb, bb.Length, 0)
txtinfo.Text = Encoding.ASCII.GetString(bb)
loginfo.Text = Encoding.ASCII.GetString(bb)
mysocket.Send(msg2, 0, msg2.Length, 0)
bb.Clear(bb, 0, 1024)
bytes = mysocket.Receive(bb, bb.Length, 0)
txtinfo.Text = txtinfo.Text + Encoding.ASCII.GetString(bb)
loginfo.Text = loginfo.Text + Encoding.ASCII.GetString(bb)
End Sub


Private Sub Disconnect()
Dim msg2 As Byte() = Encoding.ASCII.GetBytes("QUIT" & vbCrLf)
bb.Clear(bb, 0, 1024)
mysocket.Send(msg2, 0, msg2.Length, 0)
bytes = mysocket.Receive(bb, bb.Length, 0)
txtinfo.Text = txtinfo.Text + Encoding.ASCII.GetString(bb)
mysocket.Shutdown(SocketShutdown.Both)
mysocket.Close()
End Sub
 
Back
Top