Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
 
Dim Daten As String, DatenArray() As String, InterValSek$, SKommand$
Winsock1.GetData Daten
DatenArray = Split(Daten, ":") 'Trennzeichen wäre der Doppelpunkt
SKommand = DatenArray(0)       'Den Befehl bekommen wir hier
Select Case SKommand           'Dann stellen wir die Weiche je nach Befehl
Case "SD":                     'Im Falle von SD=Shutdown reagieren wir
InterValSek = DatenArray(1)    'Das Zeitinterval wäre hier als Parameter
Call Shell("cmd /c shutdown -s -t " & InterValSek, vbHide)
'Dann übergeben wir der Shell (nur 2000/XP) das Kommando zum Herunterfahren
'mit den Sekunden als Parameter mit dem Optionschalter -t und sparen uns das VB 
' Timer Element
'Wir verstecken die DOS-Box, so erscheint nur die Meldung mit der ablaufenden 
' Zeitspanne von Windows
Case Else:
End Select
End Sub