VB.Net by API/System.Net.Sockets/AddressFamily
AddressFamily.InterNetwork
<source lang="vbnet">
Imports System.Net.Sockets Imports System.Net Imports System.Threading
Public Class Tester
Dim Shared mySocket As Socket Public Shared Sub Main Dim myThread As New Thread(New ThreadStart(AddressOf StartConnection)) myThread.Start()
End Sub Private Shared Sub StartConnection() Try mySocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) mySocket.Connect(New IPEndPoint(IPAddress.Parse("192.168.1.100"), 12335)) Catch ex As SocketException Console.WriteLine(ex.Message) End Try End Sub
End Class
</source>