Option Explicit
 
Private Sub Command1_Click()
WSockSendenB Text1.Text
Text1.Text = ""
End Sub
 
Private Sub Form_Load()
Winsock1.RemoteHost = "localhost"
Winsock1.RemotePort = 53852
 
Text1 = ""
TimerLeerlaufErhalten.Interval = 30000
TimerVerbinden.Interval = 3000
Command1.Enabled = False
TimerVerbinden_Timer
End Sub
 
Public Function StringB(Number As Long, Character As String)
Dim CharInt As String
CharInt = MidB$(Character, 1, 1)
StringB = String(Int(Number / 2), CharInt & CharInt)
If Number Mod 2 = 1 Then StringB = StringB & CharInt
End Function
 
Public Sub LongNachByte(Zahl As Long, ByteArr() As Byte)
ReDim ByteArr(3) As Byte
ByteArr(0) = Int(Zahl / 256 ^ 3)
ByteArr(1) = Int((Zahl Mod 256& * 256& * 256&) / 256 ^ 2)
ByteArr(2) = Int((Zahl Mod 256& * 256&) / 256)
ByteArr(3) = Zahl Mod 256
End Sub
 
Public Sub WSockSendenB(TextB As String)
On Error Resume Next
Dim TextLaenge As String
Dim TextLaengeArr() As Byte
LongNachByte LenB(TextB), TextLaengeArr
TextLaenge = TextLaengeArr
Dim asdaArr() As Byte
asdaArr = TextLaenge & TextB
Winsock1.SendData asdaArr
If Not Err.Number = 0 Then
    Winsock1.Close
    Winsock1_Close
End If
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    KeyAscii = 0
    If Command1.Enabled Then Command1_Click
End If
End Sub
 
Private Sub TimerLeerlaufErhalten_Timer()
WSockSendenB ""
End Sub
 
Private Sub TimerVerbinden_Timer()
TimerVerbinden.Enabled = False
Label1 = "Verbinde..."
Winsock1.Close
Winsock1.Connect
End Sub