Option Strict Off
Option Explicit On
#Region "imports"
Imports Microsoft
Imports Microsoft.Win32
Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.FileIO
 
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Math
Imports System.Threading
Imports System.DateTime
Imports System.IO
Imports System.IO.File
Imports System.IO.Compression
Imports System.Net
Imports System.Net.Sockets
Imports System.Runtime
Imports System.Configuration
Imports System.Drawing
Imports System.Security
Imports System.Security.Permissions
Imports System.Windows
Imports System.Windows.Forms
Imports System.Text
Imports System.Text.RegularExpressions
 
Imports MSWinsockLib.WinsockClass
Imports MSWinsockLib.StateConstants
Imports MSWinsockLib.ErrorConstants
Imports MSWinsockLib.ProtocolConstants
#End Region
 
 
 
Public Class Form1
 
    Function add(ByVal text)
        TextBox1.Text = TextBox1.Text + text + Environment.NewLine
        Return text
    End Function
 
 
    Const portNumber As Integer = 12345
 
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        AxWinsock1.LocalPort = portNumber
        AxWinsock1.RemotePort = portNumber
        AxWinsock1.RemoteHost = "192.168.2.10"
    End Sub
 
 
    Private Sub Command1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Command1.Click
        AxWinsock1.Connect()
        Command1.Enabled = False
        add("Connect...")
    End Sub
    '####################################################
 
 
    Private Sub AxWinsock1_ConnectEvent(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles AxWinsock1.ConnectEvent
        Command1.Enabled = False
        add("->ConnectEvent")
 
    End Sub
 
 
    Private Sub AxWinsock1_ConnectionRequest(ByVal sender As Object, ByVal e As _
      AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles _
      AxWinsock1.ConnectionRequest
        add("->ConnectionRequest")
        add("--> " & e.requestID.ToString)
        AxWinsock1.Accept(e.requestID)
    End Sub
 
    Private Sub AxWinsock1_DataArrival(ByVal sender As Object, ByVal e As _
      AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles _
      AxWinsock1.DataArrival
        Dim data As String = ""
        AxWinsock1.GetData(data)
        add("->DataArrival")
        add("--> " & e.ToString)
        add("--> " & AxWinsock1.BytesReceived)
        add("--> " & data)
    End Sub
 
    Private Sub AxWinsock1_Error(ByVal sender As Object, ByVal e As _
      AxMSWinsockLib.DMSWinsockControlEvents_ErrorEvent) Handles _
      AxWinsock1.Error
        Command1.Enabled = True
        add("->Error")
        add("--> " & e.ToString)
        add("--> " & e.description.ToString)
        AxWinsock1.Close()
    End Sub
 
    Private Sub AxWinsock1_Leave(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles AxWinsock1.Leave
        add("->Leave")
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim str As String
        Dim data As Object
        str = "lol"
        data = str
        AxWinsock1.SendData(Data)
    End Sub
End Class

'############### selbe wie oben 
 
 
    Private Sub Command1_Click_1(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Command1.Click
        AxWinsock1.Listen()
        Command1.Enabled = False
        add("Connect...")
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim str As String
        Dim data As Object
        str = "lol"
        data = str
        AxWinsock1.SendData(Data)
    End Sub
End Class

--------------------
Theorie ist wenn man alles wei?, aber nichts funktioniert.
Praxis ist wenn alles funktioniert, aber niemand wei? warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand wei? warum.