Imports System.Net.Sockets
Imports System.Net
Imports System.Text
 
 
 
 
Public Class Form1
    Dim instance As TcpClient
    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MenuItem4.Click
        Application.Exit()
 
    End Sub
 
    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MenuItem2.Click
        Dim server As New Socket(AddressFamily.InterNetwork, _
                                 SocketType.Stream, ProtocolType.Tcp)
        Dim iphost As IPHostEntry = Dns.Resolve("77.20.xx.xx")
 
        Dim countbytesfromserver As Int32
        Dim serveraddress As IPAddress = iphost.AddressList(0)
        Dim EP As New IPEndPoint(serveraddress, 21)
        Dim bytes(1024) As Byte
        server.Connect(EP)
        Try
 
            Dim laber As String = "teststring"
 
            Dim port As Int32 = CType(server.RemoteEndPoint,  _
            IPEndPoint).Port
            Dim tcpip As String = CType(server.RemoteEndPoint,  _
            IPEndPoint).Address.ToString
            'countbytesfromserver = server.Receive(bytes) 
            'Dim stream As NetworkStream = instance.GetStream()
            Dim message() As Byte = Encoding.ASCII.GetBytes(laber)
            server.Send(message)
 
            Do While True
                countbytesfromserver = server.Receive(bytes)
                Dim str As String = Encoding.ASCII.GetString(bytes, 0, _
                                                             countbytesfromserv_
                                                             er)
                TextBox1.Text = str
 
            Loop
        Catch ex As Exception
            MsgBox("da hat was nicht geklappt")
 
        Finally
            server.Shutdown(SocketShutdown.Both)
            server.Close()
 
        End Try
 
    End Sub
End Class