Hey all,
I'm a casual/hobby programmer who's always used VB6. I'm trying out VB 2008
express edition now. I understand a few basic concepts about .Net, but am
doing this by myself with no more help than Google.
I dont want to do anything fancy, just connect 2 machines to chat and play
chess. I used the Winsock control in VB6, and have spent the last 4 hours
or so googling to the conclusion that it's been replaced (?) with namespace
System.Net.Sock ets...
Every tutorial/help file I've found online has looked as if you needed 6
months .Net experience before you could even BEGIN to understand it. I've
gotten this far, but whenever I run this code the program freezes up until
it gives a 'no response' error (not expecting a response at this point in
time). Is there any .Net equivalent to DoEvents() ?
Thanks in advance for any help/advice :0)
On Error GoTo erra
Dim hostEntry As IPHostEntry = Nothing
Dim server As String = txtIP.Text
Dim port As Integer = Int(txtPort.Tex t)
' Get host related information.
hostEntry = Dns.GetHostEntr y(server)
' Loop through the AddressList to obtain the supported
AddressFamily. This is to avoid
' an exception that occurs when the host IP Address is not
compatible with the address family
' (typical in the IPv6 case).
Dim address As IPAddress
For Each address In hostEntry.Addre ssList
Dim endPoint As New IPEndPoint(addr ess, port)
Dim sck As New Socket(endPoint .AddressFamily, SocketType.Stre am,
ProtocolType.Tc p)
sck.Connect(end Point)
Next address
erra:
errMsg(Err.Numb er & " - " & Err.Description )
I'm a casual/hobby programmer who's always used VB6. I'm trying out VB 2008
express edition now. I understand a few basic concepts about .Net, but am
doing this by myself with no more help than Google.
I dont want to do anything fancy, just connect 2 machines to chat and play
chess. I used the Winsock control in VB6, and have spent the last 4 hours
or so googling to the conclusion that it's been replaced (?) with namespace
System.Net.Sock ets...
Every tutorial/help file I've found online has looked as if you needed 6
months .Net experience before you could even BEGIN to understand it. I've
gotten this far, but whenever I run this code the program freezes up until
it gives a 'no response' error (not expecting a response at this point in
time). Is there any .Net equivalent to DoEvents() ?
Thanks in advance for any help/advice :0)
On Error GoTo erra
Dim hostEntry As IPHostEntry = Nothing
Dim server As String = txtIP.Text
Dim port As Integer = Int(txtPort.Tex t)
' Get host related information.
hostEntry = Dns.GetHostEntr y(server)
' Loop through the AddressList to obtain the supported
AddressFamily. This is to avoid
' an exception that occurs when the host IP Address is not
compatible with the address family
' (typical in the IPv6 case).
Dim address As IPAddress
For Each address In hostEntry.Addre ssList
Dim endPoint As New IPEndPoint(addr ess, port)
Dim sck As New Socket(endPoint .AddressFamily, SocketType.Stre am,
ProtocolType.Tc p)
sck.Connect(end Point)
Next address
erra:
errMsg(Err.Numb er & " - " & Err.Description )
Comment