Hallo,
ich hab versucht mit Hilfe von [ offen ] net.exe bzw. Net Send Starten ein Script zu machen, das erkennt welche Server/PC's im LAN online sind und an diese gleichzeitig die gleiche Nachricht schickt.
Bin jedoch nicht weit gekommen. Gibt's da schon was fertiges oder kann mir jemand helfen??? 
Danke!
1. Subnetz anpingen, so dass du alle PCs erhältst.
2. In Forschleife befehle senden
1. Subnetz anpingen, so dass du alle PCs erhältst.
2. In Forschleife befehle senden
zu 1. ja hab ich mit [ gelöst ] alle computer im netz auflisten
zu2. genau da ischs problem. hab das komplette client script in ne schleife gepackt:
#include <GUIConstants.au3>
#include <array.au3>
#include <_PingAll.au3>
#include <INet.au3>
#include <ArrayMore.au3>
;$IP = @IPAddress1
;MsgBox ("","","Die Server-Ip ist: " & $IP )
ClipPut(@IPAddress1)
$aPingAll = _PingAll(20, 50, "", "", "", "", "", 0, 0, 0, 0, 0, 5, " ", "1", "0", 0, 0)
;_PingAll($ipstart, $ipend, $iprange = "", $port01 = "", $port02 = "", $port03 = "", $port04 = "",
;$radim = 0, $winxp = 1, $vnc = 1, $ShowName = 1, $ShowMac = 1, $dealy = 100, $slash = "|", $yes = 1, $no = 0, $showprog = 1, $showbevore = 1)
_Array2DEmptyDel($aPingAll,0) ;_Array2DEmptyDel(ByRef $avArray [, $Col=0])
_ArrayDelete($aPingAll, 0); Erstes Element aus dem Array löschen
$sUbound = (UBound($aPingAll) -1)
if $aPingAll[$sUbound] = "" then _ArrayDelete($aPingAll,($sUbound))
;_ArrayDisplay($aPingAll, "ipadress gesamt")
for $x =0 to UBound($aPingAll) -1 ;
$IP = $aPingAll[$x]
;MsgBox("","$IP",$IP)
$Port = 31758
$ConnectedSocket = TCPConnect($IP, $Port)
If $ConnectedSocket = -1 Then
MsgBox(16, "Error", "Es ist bei dem Verbindungsversuch ein Fehler aufgetreten, vermutlich ist kein Server gestartet!")
Exit
EndIf
call ("_senden")
;HotKeySet("^s", "_Senden") ; ctrg + s
While 1
$Empfang = TCPRecv($ConnectedSocket, 9999)
If $Empfang <> "" Then
MsgBox(0, "Nachricht", $Empfang)
EndIf
Sleep(500)
WEnd
Func _Senden()
$Nachricht = InputBox("Nachricht senden Client", "Schreibe deine Nachricht")
If $Nachricht <> "" Then
TCPSend($ConnectedSocket, $Nachricht)
EndIf
EndFunc ;==>_Senden
next
[/autoit]Ja und, was ist das für ein Problem? Dann mach doch einfachh ein Schleife rein!
wie???
über die ganze for - schleife drüber?
du kanst so viele schleifen rein machen wie du willst!
[autoit]For $1 = 1 To 5
For $2 = 1 To 5
MsgBox (0,"",$1 & "," & $2,1)
Next
Next
ja aber wie muss ich das genau programmieren ???????????? 
stell mal genaue fragen!
also ich möchte das dieser teil des scripts mehrmals wiederholt wird, d.h. es sollen alle PC's die Nachricht nacheinander bekommen
for $x =0 to UBound($aPingAll) -1 ;
$IP = $aPingAll[$x]
;MsgBox("","$IP",$IP)
next
for $z =0 to UBound($ip) -1
$Port = 31758
$ConnectedSocket = TCPConnect($IP, $Port)
If $ConnectedSocket = -1 Then
MsgBox(16, "Error", "Es ist bei dem Verbindungsversuch ein Fehler aufgetreten, vermutlich ist kein Server gestartet!")
Exit
EndIf
call ("_senden")
;HotKeySet("^s", "_Senden") ; ctrg + s
While 1
$Empfang = TCPRecv($ConnectedSocket, 9999)
If $Empfang <> "" Then
MsgBox(0, "Nachricht", $Empfang)
EndIf
Sleep(500)
WEnd
Func _Senden()
$Nachricht = InputBox("Nachricht senden Client", "Schreibe deine Nachricht")
If $Nachricht <> "" Then
TCPSend($ConnectedSocket, $Nachricht)
EndIf
EndFunc ;==>_Senden
next
hab jetzt mehrer varianten mit for schleifen versucht aber ich bekomm jedesmal die Fehlermeldung "For statment has no matching 'Next' statment"
deshalb noch mal meine Frage wie kann ich das in eine Schleife Packen , egal ob While oder For 
Eine Func darf nicht in eine Schleife!
for $x =0 to UBound($aPingAll) -1 ;
$IP = $aPingAll[$x]
;MsgBox("","$IP",$IP)
next
for $z =0 to UBound($ip) -1
$Port = 31758
$ConnectedSocket = TCPConnect($IP, $Port)
If $ConnectedSocket = -1 Then
MsgBox(16, "Error", "Es ist bei dem Verbindungsversuch ein Fehler aufgetreten, vermutlich ist kein Server gestartet!")
Exit
EndIf
call ("_senden")
;HotKeySet("^s", "_Senden") ; ctrg + s
While 1
$Empfang = TCPRecv($ConnectedSocket, 9999)
If $Empfang <> "" Then
MsgBox(0, "Nachricht", $Empfang)
EndIf
Sleep(500)
WEnd
next
Func _Senden()
$Nachricht = InputBox("Nachricht senden Client", "Schreibe deine Nachricht")
If $Nachricht <> "" Then
TCPSend($ConnectedSocket, $Nachricht)
EndIf
EndFunc ;==>_Senden
Ja, genau, außerdem drück in Scite mal STRG + T, wirkt ware Wunder 
Dann seihst du was du falsch machst (S. Tidy)
ok - danke für die hilfe
Eine Func darf nicht in eine Schleife!
*Blöde Frage:* warum ??? - hab ine inem andern script von mir auch eine func in einer if-schleife 
und es funktioniert
If ist keine SChleife!
alles klar 
leider funktioniert das script aber nicht
#include <GUIConstants.au3>
#include <array.au3>
#include <_PingAll.au3>
#include <INet.au3>
#include <ArrayMore.au3>
;$IP = @IPAddress1
;MsgBox ("","","Die Server-Ip ist: " & $IP )
ClipPut(@IPAddress1)
$aPingAll = _PingAll(20, 50, "", "", "", "", "", 0, 0, 0, 0, 0, 5, " ", "1", "0", 0, 0)
;_PingAll($ipstart, $ipend, $iprange = "", $port01 = "", $port02 = "", $port03 = "", $port04 = "",
;$radim = 0, $winxp = 1, $vnc = 1, $ShowName = 1, $ShowMac = 1, $dealy = 100, $slash = "|", $yes = 1, $no = 0, $showprog = 1, $showbevore = 1)
_Array2DEmptyDel($aPingAll, 0) ;_Array2DEmptyDel(ByRef $avArray [, $Col=0])
_ArrayDelete($aPingAll, 0); Erstes Element aus dem Array löschen
$sUbound = (UBound($aPingAll) - 1)
If $aPingAll[$sUbound] = "" Then _ArrayDelete($aPingAll, ($sUbound))
_ArrayDisplay($aPingAll, "ipadress gesamt")
For $x = 0 To UBound($aPingAll) - 1 ;
$IP = $aPingAll[$x]
MsgBox("","$IP",$IP)
Next
For $z = 0 To UBound($IP) - 1
$Port = 31758
$ConnectedSocket = TCPConnect($IP, $Port)
If $ConnectedSocket = -1 Then
MsgBox(16, "Error", "Es ist bei dem Verbindungsversuch ein Fehler aufgetreten, vermutlich ist kein Server gestartet!")
Exit
Else
msgBox("", "Erfolg","$ConnectedSocket: "& $ConnectedSocket)
EndIf
Call("_Senden")
;HotKeySet("^s", "_Senden") ; ctrg + s
While 1
$Empfang = TCPRecv($ConnectedSocket, 9999)
If $Empfang <> "" Then
MsgBox(0, "Nachricht", $Empfang)
EndIf
Sleep(500)
WEnd
Next
Func _Senden()
$Nachricht = InputBox("Nachricht senden Client", "Schreibe deine Nachricht")
If $Nachricht <> "" Then
TCPSend($ConnectedSocket, $Nachricht)
EndIf
EndFunc ;==>_Senden
Zeig mir mal deinen Server
DArf in eine If-Abfrage eine Funktion rein??
Klaro, es darf alles in eine Func!
wenn die Func einen Wert zurückgibt, gegen den du prüfen kannst klar....
If myfunc() Then
MsgBox(0,"","geht doch ;-)")
EndIf
Func myfunc()
Return(1)
EndFunc
Und auserdem mein Script sendet doch an alle eine Nachricht!Jedenfalls die ersten!
DArf in eine If-Abfrage eine Funktion rein??
Nein darf es nicht. Der Funktionsaufruf schon ,aber nicht die Funktion selbst.
