Hey,
hab mir mal das tcpsend und recv thema angeschaut und versuch da grad was zu basteln..
krieg aber immer nen error in expression..
Opt('MustDeclareVars', 1)
;==============================================
;==============================================
; CLIENT! Startet mich, nachdem der Server gestartet wurde!!!!!!!!!!!!!!!
;==============================================
;==============================================
Example()
[/autoit][autoit][/autoit][autoit]Func Example()
; Richte einige wiederverwendbare Informationen ein.
;--------------------------
Local $ConnectedSocket, $szData
; Set $szIPADDRESS Wir ändern den PC-Namen in eine IP-Adresse.
; Local $szServerPC = @ComputerName
; Local $szIPADDRESS = TCPNameToIP($szServerPC)
Local $szIPADDRESS = "192.168.245.128"
Local $nPORT = 33891
; Startet den TCP Service
;==============================================
TCPStartup()
; Initialisiert eine Variable, um eine Verbindung anzugeben.
;==============================================
Dim $ConnectedSocket = -1
; Versucht, zu einem Server mit der IP und dem PORT 33891 zu verbinden.
;=======================================================
$ConnectedSocket = TCPConnect($szIPADDRESS, $nPORT)
; Falls es einen Fehler gibt, wird er angezeigt
If @error Then
MsgBox(4112, "Fehler", "TCP-Connect schlug mit folgendem WSA-Fehler fehl: " & @error)
; Wenn es keinen Fehler gibt, dann erscheint wiederholt eine Inputbox zur Eingabe von Daten, die zum Server gesendet werden sollen.
Else
; Fragt fortwährend nach Daten, die zum Server gesendet werden sollen.
While 1
; InputBox für die zu versendenden Daten
$szData = "IP Adresse: " @IPAddress1 & "Computername: "@ComputerName "Zeit des Clienten: "& @Hour & ":" & @min ":" & @sec
; Wenn die Inputbox geschlossen wird oder leer bleibt, wird die Schleife beendet.
If @error Or $szData = "" Then ExitLoop
; Wir sollten Daten in $szData haben... Lasst uns versuchen, sie durch unseren verbundenen Socket zu versenden.
TCPSend($ConnectedSocket,$szData)
; Wenn das Senden mit @error fehlgeschlagen ist, dann ist der Socket getrennt.
;----------------------------------------------------------------
If @error Then ExitLoop
WEnd
EndIf
EndFunc ;==>Example
is das standart ding bis auf n paar veränderungen
[autoit]$szData = "IP Adresse: " @IPAddress1 & "Computername: "@ComputerName "Zeit des Clienten: "& @Hour & ":" & @min ":" & @sec
[/autoit]error kommt hier.
gruß
Kev