Ich habe mir ein kleines ,,ich schik dir ne nachricht" script für ne Lan Party geschrieben.
allerdings geht es nicht, und ich wollte mal fragen, ob ihr einen Fehler findet...
Aber bitte nicht vergessen: Ich bin noch Anfänger... Drum bitte noch nicht mich zuposten, warum ich die Dateien nciht zusammenführe um auch ne Antwort zurück schiken zu können....
Der Sender
Spoiler anzeigen
;Scripter: Jonathan
;auf Grundlage von: DjDominik
HotKeySet("{F1}","senden")
HotKeySet("{F3}","beenden")
HotKeySet("{F2}","newip")
func senden()
$nachricht = InputBox("Nachricht","Gib die Nachricht ein")
if @error then Exit
TCPSend($client,"Message|" & $nachricht)
EndFunc
Func beenden()
TCPShutdown()
Exit
EndFunc
Func newip()
$client = TCPConnect($ipadresse,1)
EndFunc
TCPStartup()
[/autoit] [autoit][/autoit] [autoit]$ipadresse = InputBox("IP","An welche IP möchtest du eine Nachricht schiken?")
if @error then Exit
Sleep(500)
$client = TCPConnect($ipadresse,2000)
MsgBox(0,"Funktionen","F1 = Nachricht Senden F2 = Neue IP-Adresse F3 = Beenden")
while 1
Sleep(30)
WEnd
Der Empfänger
Spoiler anzeigen
;Scripter: Jonathan
;auf Grundlage von: DjDominik
HotKeySet("{F4}","beenden")
Func beenden()
TCPShutdown()
Exit
EndIf
EndFunc
TCPStartup()
$socket = TCPListen(@IPAddress1, 2000)
while 1
$eingehendenachricht = TCPRecv($socket, 2000)
If not $eingehendenachricht = "" Then
$befehl = StringSplit($eingehendenachricht, "|")
Switch $befehl[0]
Case "Message"
MsgBox(64, "Neue Nachricht!", $Kommando[1])
EndSwitch
EndIf
WEnd