Das interessiert mich einfach, weil so umfragen auf WDR, da stimmen zu einem Großteil ältere leute ab. Und alle sagen was anderes... der eine Sender sagt 10% sagen ja, der andere Sender meint: Aufgrund der Prognose der 32.000 Toten wollen sich 20% impfen lassen... 
Aber keine Sorge... Ich werde mich in Zukunft mit solchen theards zurückhalten 
Hallo, lasst ihr euch gegen Schweinegrippe impfen? Ich nicht, da Sie für mich insofern nicht bedrohlich ist, als das es nur eine ganz normal schwache grippe ist!
Wie wäre es mit SringReplace?
Hallo, mein bisheriges Script von Master Control für die Schule (von Andy gekürtzt)
Es soll:
-die sachen, wofür buttons & co bereits vorhanden sind
-evtl noch bildschirm von Clients übertragen
Es tut bereits:
-schön aussehen
-Sich mit clients verbinden
-Client und Rauminformationen aus ini auslesen
Master Control:
#include <Array.au3>
;~ Includes
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3> ;<- Für Combolist
#include <inet.au3> ;<- zum prüfen ob PChostname die endung le hat
#include <Misc.au3> ;<- zum prüfen, ob Programm bereits läüft
;testen, ob Programm bereits läuft.Wenn ja: Hinweis darauf und beenden
If _Singleton("Skript", 1) = 0 Then
MsgBox(64, "MasterControl", "MasterControl läuft bereits", 5)
Exit
EndIf
; teste, ob Programm auf Lehrer PC ausgeführt wird. Wenn nicht: Meldung + Beenden
TCPStartup()
$hostname = _TCPIpToName(@IPAddress1)
$hostnametest = StringSplit($hostname, "-")
If $hostnametest[0] = 3 Then ;wenn im hostname 3 - vorhanden sind dann
[/autoit] [autoit][/autoit] [autoit]If $hostnametest[3] <> "le" Then
MsgBox(64, "MasterControl", "Dieses Programm darf nur auf Lehrerrechnern ausgeführt werden")
Exit
EndIf
If $hostnametest[3] <> "LE" Then
MsgBox(64, "MasterControl", "Dieses Programm darf nur auf Lehrerrechnern ausgeführt werden")
Exit
EndIf
Else ; wenn im hostname keine 2 - vorhanden sind
MsgBox(64, "MasterControl", "Dieses Programm sollte auf einem Lehrerrechner der Schule ausgeführt werden")
EndIf
TCPShutdown()
$pcsinraum = IniRead(@ScriptDir & "\einstellungen.ini","infos","pcs","0")
$raumnummer = IniRead(@ScriptDir & "\einstellungen.ini","infos","raum","0")
;~ Hier startet der GUI-Code
$Gui = GUICreate("MasterControl 1.0 BETA", 350, 320); <-- Erstelle die GUI
GUICtrlCreateLabel("Auswahl der PCs", 10, 20)
; checkboxen zum PCs auswählen
Dim $pc[21]
Dim $pcip[21]
Dim $verbindung[21]
Dim $datenpcfenster[21]
For $i = 1 To $pcsinraum
$pc[$i] = GUICtrlCreateCheckbox($i, 10 + (($i > 10) * 40), 30 + ($i - (($i > 10) * 10)) * 20)
Next
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit];copyright
GUICtrlCreateLabel("© Copyright Jonathan", 110, 295)
;Icon setzten
If FileExists(@ScriptDir & "\icon.ico") Then
GUISetIcon(@ScriptDir & "\icon.ico")
Else
MsgBox(48, "Icon fehlt", "Das Icon wurde nicht gefunden. Das Programm wird ohne das Icon weiter ausgeführt!")
EndIf
;trennlinie
GUICtrlCreatePic("linie.jpg", 100, 5, 2, 310)
$Buttonuebernehmen = GUICtrlCreateButton("Übernehmen", 5, 295, 90, 25, $WS_GROUP)
$Buttonalle = GUICtrlCreateButton("alle", 55, 265, 40, 25, $WS_GROUP)
$buttonkeinen = GUICtrlCreateButton("keinen", 5, 265, 40, 25, $WS_GROUP)
;Combolist
$combo = GUICtrlCreateCombo("", 110, 10, 145, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Reboot|Sperren|Fenster|MsgBox")
$combobutton = GUICtrlCreateButton("wechseln", 270, 10, 65, 20, $WS_GROUP)
; --- --- --- --- Funktionenen --- --- --- ---
;Reboot
$neustart = GUICtrlCreateButton("Neustarten", 110, 100, 100, 50, $WS_GROUP)
$herunterfahren = GUICtrlCreateButton("Herunterfahren", 110, 150, 100, 50, $WS_GROUP)
$abmelden = GUICtrlCreateButton("Abmelden", 220, 100, 100, 50, $WS_GROUP)
$standby = GUICtrlCreateButton("Standby", 220, 150, 100, 50, $WS_GROUP)
GUICtrlSetState($neustart, $GUI_HIDE)
GUICtrlSetState($herunterfahren, $GUI_HIDE)
GUICtrlSetState($abmelden, $GUI_HIDE)
GUICtrlSetState($standby, $GUI_HIDE)
;MsgBox
$msgboxicon1 = GUICtrlCreateIcon("shell32.dll", 263, 110, 70)
$msgboxicon2 = GUICtrlCreateIcon("shell32.dll", 240, 170, 70)
GUICtrlSetState($msgboxicon1, $GUI_HIDE)
GUICtrlSetState($msgboxicon2, $GUI_HIDE)
$msgboxlabel1 = GUICtrlCreateLabel("1", 150, 72)
$msgboxlabel2 = GUICtrlCreateLabel("2", 210, 72)
$msgboxlabel3 = GUICtrlCreateLabel("Icon wählen:", 120, 40)
$msgboxlabel4 = GUICtrlCreateLabel("Text eingeben:", 120, 120)
GUICtrlSetState($msgboxlabel1, $GUI_HIDE)
GUICtrlSetState($msgboxlabel2, $GUI_HIDE)
GUICtrlSetState($msgboxlabel3, $GUI_HIDE)
GUICtrlSetState($msgboxlabel4, $GUI_HIDE)
$msgboxinhalt = GUICtrlCreateInput("", 112, 150, 228)
GUICtrlSetState($msgboxinhalt, $GUI_HIDE)
$iconwahl1 = GUICtrlCreateRadio("Icon1", 230, 70)
$iconwahl2 = GUICtrlCreateRadio("Icon2", 230, 90)
GUICtrlSetState($iconwahl1, $GUI_HIDE)
GUICtrlSetState($iconwahl2, $GUI_HIDE)
$msgboxsenden = GUICtrlCreateButton("Senden", 174, 200, 100, 50)
GUICtrlSetState($msgboxsenden, $GUI_HIDE)
For $i to $pcsinraum
$pcip[$i] = "10.20.55.55"
Next
;hostnames zu ips
;If $hostnametest[0] = 3 Then
ProgressOn("IP ermitteln", "Die IP's werden ermittelt")
TCPStartup()
For $i = 1 To $pcsinraum
$r = StringFormat("_%02u%", $i)
ProgressSet(5 * $i, "Rechner " & $i & " / " & $pcsinraum, "Die IP's werden ermittelt")
If Ping("wks-if" & $raumnummer & "-" & $r, 50) Then $pcip[$i] = TCPNameToIP("wks-if" & $raumnummer & "-" & $r)
Next
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]TCPShutdown()
ProgressOff()
;EndIf
;sperren
$sperreneingabe = GUICtrlCreateButton("Eingabe sperren", 110, 100, 100, 50, $WS_GROUP)
$sperrenbildschirm = GUICtrlCreateButton("Bildschirm sperren", 110, 150, 100, 50, $WS_GROUP)
$entsperreneingabe = GUICtrlCreateButton("Eingabe freigeben", 220, 100, 100, 50, $WS_GROUP)
$entsperrenbildschirm = GUICtrlCreateButton("Bildschirm freigeben", 220, 150, 100, 50, $WS_GROUP)
GUICtrlSetState($sperreneingabe, $GUI_HIDE)
GUICtrlSetState($sperrenbildschirm, $GUI_HIDE)
GUICtrlSetState($entsperreneingabe, $GUI_HIDE)
GUICtrlSetState($entsperrenbildschirm, $GUI_HIDE)
; Fenster
[/autoit] [autoit][/autoit] [autoit]$aktualisieren = GUICtrlCreateButton("Aktualisieren", 110, 35, 230, 20, $WS_GROUP)
GUICtrlSetState($aktualisieren, $GUI_HIDE)
; --- --- --- ---Ende Funktionen --- --- --- ---
[/autoit] [autoit][/autoit] [autoit];starticon
$starticon = GUICtrlCreateIcon("shell32.dll", 19, 200, 150);starticon
GUISetState($starticon, $GUI_HIDE)
UDPStartup()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1 ; <-- Endlosschleife anfangen
[/autoit] [autoit][/autoit] [autoit]$nMsg = GUIGetMsg(); <-- Fange die Button-Events ab
Switch $nMsg ;<-- Unterscheide die Events
Case $GUI_EVENT_CLOSE ; <-- Wenn GUI geschlossen wird dann
UDPShutdown()
Exit ; <-- Skript beenden
;;;;; reboot ;;;;;
Case $neustart
Case $herunterfahren
case $standby
Case $abmelden
Case $Buttonuebernehmen
ProgressOn("Bitte warten...", "Verbindungen werden hergestellt")
For $i = 1 To $pcsinraum
[/autoit] [autoit][/autoit] [autoit]If GUICtrlRead($pc[$i]) = $GUI_CHECKED Then
If Ping($pcip[$i]) Then
$verbindung[$i] = UDPBind($pcip[$i], 2000)
Else
ToolTip("PC " & $i & " ist nicht erreichbar")
sleep(1000)
GUICtrlSetState($pc[$i], $GUI_UNCHECKED)
EndIf
EndIf
ProgressSet(5 * $i, $i & "/" & $pcsinraum)
sleep(200)
Next
ToolTip("")
ProgressOff()
Case $Buttonalle
For $i = 1 To $pcsinraum
GUICtrlSetState($pc[$i], $GUI_CHECKED)
Next
Case $buttonkeinen
For $i = 1 To $pcsinraum
GUICtrlSetState($pc[$i], $GUI_UNCHECKED)
Next
Case $combobutton
If GUICtrlRead($combo) = "Reboot" Then
GUICtrlSetState($neustart, $GUI_SHOW)
GUICtrlSetState($herunterfahren, $GUI_SHOW)
GUICtrlSetState($abmelden, $GUI_SHOW)
GUICtrlSetState($standby, $GUI_SHOW)
Else
GUICtrlSetState($neustart, $GUI_HIDE)
GUICtrlSetState($herunterfahren, $GUI_HIDE)
GUICtrlSetState($abmelden, $GUI_HIDE)
GUICtrlSetState($standby, $GUI_HIDE)
EndIf
If GUICtrlRead($combo) = "" Then
GUICtrlSetState($starticon, $GUI_SHOW)
Else
GUICtrlSetState($starticon, $GUI_HIDE)
EndIf
[/autoit] [autoit][/autoit] [autoit]If GUICtrlRead($combo) = "MsgBox" Then
GUICtrlSetState($msgboxicon1, $GUI_SHOW)
GUICtrlSetState($msgboxicon2, $GUI_SHOW)
GUICtrlSetState($msgboxlabel1, $GUI_SHOW)
GUICtrlSetState($msgboxlabel2, $GUI_SHOW)
GUICtrlSetState($iconwahl1, $GUI_SHOW)
GUICtrlSetState($iconwahl2, $GUI_SHOW)
GUICtrlSetState($msgboxlabel3, $GUI_SHOW)
GUICtrlSetState($msgboxlabel4, $GUI_SHOW)
GUICtrlSetState($msgboxinhalt, $GUI_SHOW)
GUICtrlSetState($msgboxsenden, $GUI_SHOW)
Else
GUICtrlSetState($msgboxicon1, $GUI_HIDE)
GUICtrlSetState($msgboxicon2, $GUI_HIDE)
GUICtrlSetState($msgboxlabel1, $GUI_HIDE)
GUICtrlSetState($msgboxlabel2, $GUI_HIDE)
GUICtrlSetState($iconwahl1, $GUI_HIDE)
GUICtrlSetState($iconwahl2, $GUI_HIDE)
GUICtrlSetState($msgboxlabel3, $GUI_HIDE)
GUICtrlSetState($msgboxlabel4, $GUI_HIDE)
GUICtrlSetState($msgboxinhalt, $GUI_HIDE)
GUICtrlSetState($msgboxsenden, $GUI_HIDE)
EndIf
[/autoit] [autoit][/autoit] [autoit]If GUICtrlRead($combo) = "Sperren" Then
GUICtrlSetState($sperreneingabe, $GUI_SHOW)
GUICtrlSetState($sperrenbildschirm, $GUI_SHOW)
GUICtrlSetState($entsperreneingabe, $GUI_SHOW)
GUICtrlSetState($entsperrenbildschirm, $GUI_SHOW)
Else
GUICtrlSetState($sperreneingabe, $GUI_HIDE)
GUICtrlSetState($sperrenbildschirm, $GUI_HIDE)
GUICtrlSetState($entsperreneingabe, $GUI_HIDE)
GUICtrlSetState($entsperrenbildschirm, $GUI_HIDE)
EndIf
[/autoit] [autoit][/autoit] [autoit]If GUICtrlRead($combo) = "Fenster" Then
GUICtrlSetState($aktualisieren, $GUI_SHOW)
Else
GUICtrlSetState($aktualisieren, $GUI_HIDE)
EndIf
[/autoit] [autoit][/autoit] [autoit]Case $aktualisieren
$standartheight = 50
ProgressOn("Bitte warten...", "Infos werden abgerufen")
For $i = 1 To $pcsinraum
If Ping($pcip[$i]) Then
If GUICtrlRead($pc[$i]) = $GUI_CHECKED Then
UDPSend($verbindung[$i], "fensteranfrage")
While 1
$datenpcfenster[$i] = UDPRecv($verbindung[$i], 50000)
If $datenpcfenster[$i] <> "" Then ExitLoop
ToolTip("warte auf PC " & $i)
WEnd
ToolTip("")
$pcfenster1 = StringSplit($datenpcfenster[$i], "%")
For $x = 2 To $pcfenster1[0]
GUICtrlCreateLabel($pcfenster1, 110, $standartheight)
$standartheight += 10
Next
EndIf
EndIf
ProgressSet(5 * $i, "")
Next
ProgressOff()
[/autoit] [autoit][/autoit] [autoit]EndSwitch
[/autoit] [autoit][/autoit] [autoit]WEnd ; <-- Beginne Schleife von Vorne;### Tidy Error -> while is never closed in your script.
[/autoit] [autoit][/autoit] [autoit][/autoit]
Client:
;feststellen des Scriptpfadt
$scriptpfad = @ScriptDir & "\" & @ScriptName
;setzen der Testvariable
$regtest = 0
; überprüfen ob Schlüssel besteht und gegebenenfalls schreiben
RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","MasterControl")
if not @error then $regtest = 1
if $regtest = 0 Then RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","MasterControl","REG_SZ",$scriptpfad)
if @error Then MsgBox(48,"Fehler","Felher beim Schreiben in die Regitery")
;TCP und UDP Starten
UDPStartup
;Schleife um auf befehle zu warten
while 1
Sleep(10)
$befehl = UDPRecv(@ipadress1,1000)
WEnd
vllt. kann ja irgendjemand mit langeweile es Fertig machen^^
Glaubt ihr an Wiedergeburt nach dem Tot??
Hi,
Windows-Tastensperre von Spielen zum umgehen ?
Ich verstehe die Frage nicht so ganz, aber du kannst es ja mit folgendem probieren:
BlockInput(0)
[/autoit]meinst du so, das man am anfang auswählen kann, auf welchen Raum man das anwenden kann?
Ist das speziel für ein paar computer oder allgemein für jeden computer zb. in einer Schule
Bei uns in der schule ist das mit den hsotnames so aufgebaut:
$if = "3" ;Raumnummer von PC raum (bei uns 1 - 8 )
$rechner = 11
$hostname = "wks-if" & $if & "-" & $rechner
Vielen 1000 Dank an Andy^^
aber: wofür is das sleep(2000) in zeile 244
und Ich habe das auf UDP Aufgebaut, weil ich mit TCP etwas auf Kriegsfuß stehe^^ Aber ich werde es noch auf TCP umschreiben 
mfg. Alex
Okay, danke ich denke, ich werde das dann so machen....
nur jetzt nicht, da ich etwas Krank bin ( 
) und nciht wirklich genug denken kann, um mein komplettes Script umzuschreiben^^
mfg Jonathan
habe mir schon fast gedacht, das man das ganze viel kürzen kann, nur leider ist das etwas, worin ich mcih noch üben sollte 
ach ja, vllt. solltet ihr folgenden dateien noch im @skriptdir haben!
Hallo... unser Admin meinte, ich sollte dochmal wenn Ich lust hätte versuchen etwas für die Schule zu programmieren. *und ob ich lust habe*
Nun bin Ich ncoh nicht ganz fertig... habe bis jetzt das Grafische von dem Lehrerprog. Habt ihr irgendwelche verbesserungsvorschläge? *Außer, das man das Script um die hälfte kürzer machen könnte* Oder habt ihr Ideen und Anregungen?
Für Alle Mutigen, die sich tatsächlich durch das Script quälen wollen:
;~ Includes
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3> ;<- Für Combolist
#include <ComboConstants.au3> ;<- Für Combolist
#include <inet.au3> ;<- zum prüfen ob PChostname die endung le hat
#include <Misc.au3> ;<- zum prüfen, ob Programm bereits läüft
;testen, ob Programm bereits läuft.Wenn ja: Hinweis darauf und beenden
If _Singleton("Skript", 1) = 0 Then
MsgBox(64, "MasterControl", "MasterControl läuft bereits", 5)
Exit
EndIf
; teste, ob Programm auf Lehrer PC ausgeführt wird. Wenn nicht: Meldung + Beenden
TCPStartup()
$hostname = _TCPIpToName(@IPAddress1)
$hostnametest = StringSplit($hostname, "-")
If $hostnametest[0] = 3 Then ;wenn im hostname 3 - vorhanden sind dann
[/autoit] [autoit][/autoit] [autoit]If $hostnametest[3] <> "le" Then
MsgBox(64, "MasterControl", "Dieses Programm darf nur auf Lehrerrechnern ausgeführt werden")
Exit
EndIf
If $hostnametest[3] <> "LE" Then
MsgBox(64, "MasterControl", "Dieses Programm darf nur auf Lehrerrechnern ausgeführt werden")
Exit
EndIf
Else ; wenn im hostname keine 2 - vorhanden sind
MsgBox(64, "MasterControl", "Dieses Programm sollte auf einem Lehrerrechner der Schule ausgeführt werden")
EndIf
TCPShutdown()
[/autoit] [autoit][/autoit] [autoit];~ Hier startet der GUI-Code
$Gui = GUICreate("MasterControl 1.0 BETA", 350, 320); <-- Erstelle die GUI
GUICtrlCreateLabel("Auswahl der PCs", 10, 20)
; checkboxen zum PCs auswählen
$pc1 = GUICtrlCreateCheckbox("1", 10, 50)
$pc2 = GUICtrlCreateCheckbox("2", 10, 70)
$pc3 = GUICtrlCreateCheckbox("3", 10, 90)
$pc4 = GUICtrlCreateCheckbox("4", 10, 110)
$pc5 = GUICtrlCreateCheckbox("5", 10, 130)
$pc6 = GUICtrlCreateCheckbox("6", 10, 150)
$pc7 = GUICtrlCreateCheckbox("7", 10, 170)
$pc8 = GUICtrlCreateCheckbox("8", 10, 190)
$pc9 = GUICtrlCreateCheckbox("9", 10, 210)
$pc10 = GUICtrlCreateCheckbox("10", 10, 230)
$pc11 = GUICtrlCreateCheckbox("11", 50, 50)
$pc12 = GUICtrlCreateCheckbox("12", 50, 70)
$pc13 = GUICtrlCreateCheckbox("13", 50, 90)
$pc14 = GUICtrlCreateCheckbox("14", 50, 110)
$pc15 = GUICtrlCreateCheckbox("15", 50, 130)
$pc16 = GUICtrlCreateCheckbox("16", 50, 150)
$pc17 = GUICtrlCreateCheckbox("17", 50, 170)
$pc18 = GUICtrlCreateCheckbox("18", 50, 190)
$pc19 = GUICtrlCreateCheckbox("19", 50, 210)
$pc20 = GUICtrlCreateCheckbox("20", 50, 230)
GUISetState(@SW_SHOW)
;copyright
GUICtrlCreateLabel("© Copyright Jonathan", 110, 295)
;Icon setzten
If FileExists(@ScriptDir & "\icon.ico") Then
GUISetIcon(@ScriptDir & "\icon.ico")
Else
MsgBox(48, "Icon fehlt", "Das Icon wurde nicht gefunden. Das Programm wird ohne das Icon weiter ausgeführt!")
EndIf
;trennlinie
GUICtrlCreatePic("linie.jpg", 100, 5, 2, 310)
$Buttonuebernehmen = GUICtrlCreateButton("Übernehmen", 5, 295, 90, 25, $WS_GROUP)
$Buttonalle = GUICtrlCreateButton("alle", 55, 265, 40, 25, $WS_GROUP)
$buttonkeinen = GUICtrlCreateButton("keinen", 5, 265, 40, 25, $WS_GROUP)
;Combolist
$combo = GUICtrlCreateCombo("", 110, 10, 145, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Reboot|Sperren|Fenster|MsgBox")
$combobutton = GUICtrlCreateButton("wechseln", 270, 10, 65, 20, $WS_GROUP)
; --- --- --- --- Funktionenen --- --- --- ---
;Reboot
$neustart = GUICtrlCreateButton("Neustarten", 110, 100, 100, 50, $WS_GROUP)
$herunterfahren = GUICtrlCreateButton("Herunterfahren", 110, 150, 100, 50, $WS_GROUP)
$abmelden = GUICtrlCreateButton("Abmelden", 220, 100, 100, 50, $WS_GROUP)
$standby = GUICtrlCreateButton("Standby", 220, 150, 100, 50, $WS_GROUP)
GUICtrlSetState($neustart, $GUI_HIDE)
GUICtrlSetState($herunterfahren, $GUI_HIDE)
GUICtrlSetState($abmelden, $GUI_HIDE)
GUICtrlSetState($standby, $GUI_HIDE)
;MsgBox
$msgboxicon1 = GUICtrlCreateIcon("shell32.dll", 263, 110, 70)
$msgboxicon2 = GUICtrlCreateIcon("shell32.dll", 240, 170, 70)
GUICtrlSetState($msgboxicon1, $GUI_HIDE)
GUICtrlSetState($msgboxicon2, $GUI_HIDE)
$msgboxlabel1 = GUICtrlCreateLabel("1", 150, 72)
$msgboxlabel2 = GUICtrlCreateLabel("2", 210, 72)
$msgboxlabel3 = GUICtrlCreateLabel("Icon wählen:", 120, 40)
$msgboxlabel4 = GUICtrlCreateLabel("Text eingeben:", 120, 120)
GUICtrlSetState($msgboxlabel1, $GUI_HIDE)
GUICtrlSetState($msgboxlabel2, $GUI_HIDE)
GUICtrlSetState($msgboxlabel3, $GUI_HIDE)
GUICtrlSetState($msgboxlabel4, $GUI_HIDE)
$msgboxinhalt = GUICtrlCreateInput("", 112, 150, 228)
GUICtrlSetState($msgboxinhalt, $GUI_HIDE)
$iconwahl1 = GUICtrlCreateRadio("Icon1", 230, 70)
$iconwahl2 = GUICtrlCreateRadio("Icon2", 230, 90)
GUICtrlSetState($iconwahl1, $GUI_HIDE)
GUICtrlSetState($iconwahl2, $GUI_HIDE)
$msgboxsenden = GUICtrlCreateButton("Senden", 174, 200, 100, 50)
GUICtrlSetState($msgboxsenden, $GUI_HIDE)
$pcip1 = "192.168.178.0"
$pcip2 = "192.168.178.0"
$pcip3 = "192.168.178.0"
$pcip4 = "192.168.178.0"
$pcip5 = "192.168.178.0"
$pcip6 = "192.168.178.0"
$pcip7 = "192.168.178.0"
$pcip8 = "192.168.178.0"
$pcip9 = "192.168.178.0"
$pcip10 = "192.168.178.0"
$pcip11 = "192.168.178.0"
$pcip12 = "192.168.178.0"
$pcip13 = "192.168.178.0"
$pcip14 = "192.168.178.0"
$pcip15 = "192.168.178.0"
$pcip16 = "192.168.178.0"
$pcip17 = "192.168.178.0"
$pcip18 = "192.168.178.0"
$pcip19 = "192.168.178.0"
$pcip20 = "192.168.178.0"
;hostnames zu ips
;If $hostnametest[0] = 3 Then
ProgressOn("IP ermitteln", "Die IP's werden ermittelt")
TCPStartup()
ProgressSet(5, "Rechner 1 / 20", "Die IP's werden ermittelt")
If Ping("wks-if3-01", 50) Then $pcip1 = TCPNameToIP("wks-if3-01")
ProgressSet(10, "Rechner 2 / 20", "Die IP's werden ermittelt")
If Ping("wks-if3-02", 50) Then $pcip2 = TCPNameToIP("wks-if3-02")
ProgressSet(15, "Rechner 3 / 20", "Die IP's werden ermittelt")
If Ping("wks-if3-03", 50) Then $pcip3 = TCPNameToIP("wks-if3-03")
ProgressSet(20, "Rechner 4 / 20", "Die IP's werden ermittelt")
If Ping("wks-if3-04", 50) Then $pcip4 = TCPNameToIP("wks-if3-04")
ProgressSet(25, "Rechner 5 / 20", "Die IP's werden ermittelt")
If Ping("wks-if3-05", 50) Then $pcip5 = TCPNameToIP("wks-if3-05")
ProgressSet(30, "Rechner 6 / 20", "Die IP's werden ermittelt")
If Ping("wks-if3-06", 50) Then $pcip6 = TCPNameToIP("wks-if3-06")
ProgressSet(35, "Rechner 7 / 20", "Die IP's werden ermittelt")
If Ping("wks-if3-07", 50) Then $pcip7 = TCPNameToIP("wks-if3-07")
ProgressSet(40, "Rechner 8 / 20", "Die IP's werden ermittelt")
If Ping("wks-if3-08", 50) Then $pcip8 = TCPNameToIP("wks-if3-08")
ProgressSet(45, "Rechner 9 / 20", "Die IP's werden ermittelt")
If Ping("wks-if3-09", 50) Then $pcip9 = TCPNameToIP("wks-if3-09")
ProgressSet(50, "Rechner 10 / 20", "Die IP's werden ermittelt")
If Ping("wks-if3-10", 50) Then $pcip10 = TCPNameToIP("wks-if3-10")
ProgressSet(55, "Rechner 11 / 20", "Die IP's werden ermittelt")
If Ping("wks-if3-11", 50) Then $pcip11 = TCPNameToIP("wks-if3-11")
ProgressSet(60, "Rechner 12 / 20", "Die IP's werden ermittelt")
If Ping("wks-if3-12", 50) Then $pcip12 = TCPNameToIP("wks-if3-12")
ProgressSet(65, "Rechner 13 / 20", "Die IP's werden ermittelt")
If Ping("wks-if3-13", 50) Then $pcip13 = TCPNameToIP("wks-if3-13")
ProgressSet(70, "Rechner 14 / 20", "Die IP's werden ermittelt")
If Ping("wks-if3-14", 50) Then $pcip14 = TCPNameToIP("wks-if3-14")
ProgressSet(75, "Rechner 15 / 20", "Die IP's werden ermittelt")
If Ping("wks-if3-15", 50) Then $pcip15 = TCPNameToIP("wks-if3-15")
ProgressSet(80, "Rechner 16 / 20", "Die IP's werden ermittelt")
If Ping("wks-if3-16", 50) Then $pcip16 = TCPNameToIP("wks-if3-16")
ProgressSet(85, "Rechner 17 / 20", "Die IP's werden ermittelt")
If Ping("wks-if3-17", 50) Then $pcip17 = TCPNameToIP("wks-if3-17")
ProgressSet(90, "Rechner 18 / 20", "Die IP's werden ermittelt")
If Ping("wks-if3-18", 50) Then $pcip18 = TCPNameToIP("wks-if3-18")
ProgressSet(95, "Rechner 19 / 20", "Die IP's werden ermittelt")
If Ping("wks-if3-19", 50) Then $pcip19 = TCPNameToIP("wks-if3-19")
ProgressSet(100, "Rechner 20 / 20", "Die IP's werden ermittelt")
If Ping("wks-if3-20", 50) Then $pcip20 = TCPNameToIP("wks-if3-20")
TCPShutdown()
ProgressOff()
;EndIf
;sperren
$sperreneingabe = GUICtrlCreateButton("Eingabe sperren", 110, 100, 100, 50, $WS_GROUP)
$sperrenbildschirm = GUICtrlCreateButton("Bildschirm sperren", 110, 150, 100, 50, $WS_GROUP)
$entsperreneingabe = GUICtrlCreateButton("Eingabe freigeben", 220, 100, 100, 50, $WS_GROUP)
$entsperrenbildschirm = GUICtrlCreateButton("Bildschirm freigeben", 220, 150, 100, 50, $WS_GROUP)
GUICtrlSetState($sperreneingabe, $GUI_HIDE)
GUICtrlSetState($sperrenbildschirm, $GUI_HIDE)
GUICtrlSetState($entsperreneingabe, $GUI_HIDE)
GUICtrlSetState($entsperrenbildschirm, $GUI_HIDE)
; Fenster
[/autoit] [autoit][/autoit] [autoit]$aktualisieren = GUICtrlCreateButton("Aktualisieren", 110, 35, 230, 20, $WS_GROUP)
GUICtrlSetState($aktualisieren, $GUI_HIDE)
; --- --- --- ---Ende Funktionen --- --- --- ---
[/autoit] [autoit][/autoit] [autoit];starticon
$starticon = GUICtrlCreateIcon("shell32.dll", 19, 200, 150);starticon
GUISetState($starticon, $GUI_HIDE)
UDPStartup()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1 ; <-- Endlosschleife anfangen
[/autoit] [autoit][/autoit] [autoit]$nMsg = GUIGetMsg(); <-- Fange die Button-Events ab
Switch $nMsg ;<-- Unterscheide die Events
Case $GUI_EVENT_CLOSE ; <-- Wenn GUI geschlossen wird dann
UDPShutdown()
Exit ; <-- Skript beenden
Case $Buttonuebernehmen
ProgressOn("Bitte warten...", "Verbindungen werden hergestellt")
If GUICtrlRead($pc1) = $GUI_CHECKED Then
If Ping($pcip1) Then
$verbindung1 = UDPBind($pcip1, 2000)
Else
ToolTip("PC 1 ist nicht erreichbar")
GUICtrlSetState($pc1, $GUI_UNCHECKED)
EndIf
EndIf
ProgressSet(5, "1/20")
If GUICtrlRead($pc2) = $GUI_CHECKED Then
If Ping($pcip2) Then
$verbindung2 = UDPBind($pcip2, 2000)
Else
ToolTip("PC 2 ist nicht erreichbar")
GUICtrlSetState($pc2, $GUI_UNCHECKED)
EndIf
EndIf
ProgressSet(10, "2/20")
If GUICtrlRead($pc3) = $GUI_CHECKED Then
If Ping($pcip3) Then
$verbindung3 = UDPBind($pcip3, 2000)
Else
ToolTip("PC 3 ist nicht erreichbar")
GUICtrlSetState($pc3, $GUI_UNCHECKED)
EndIf
EndIf
ProgressSet(15, "3/20")
If GUICtrlRead($pc4) = $GUI_CHECKED Then
If Ping($pcip4) Then
$verbindung4 = UDPBind($pcip4, 2000)
Else
ToolTip("PC 4 ist nicht erreichbar")
GUICtrlSetState($pc4, $GUI_UNCHECKED)
EndIf
EndIf
ProgressSet(20, "4/20")
If GUICtrlRead($pc5) = $GUI_CHECKED Then
If Ping($pcip5) Then
$verbindung5 = UDPBind($pcip5, 2000)
Else
ToolTip("PC 5 ist nicht erreichbar")
GUICtrlSetState($pc5, $GUI_UNCHECKED)
EndIf
EndIf
ProgressSet(25, "5/20")
If GUICtrlRead($pc6) = $GUI_CHECKED Then
If Ping($pcip6) Then
$verbindung6 = UDPBind($pcip6, 2000)
Else
ToolTip("PC 6 ist nicht erreichbar")
GUICtrlSetState($pc6, $GUI_UNCHECKED)
EndIf
EndIf
ProgressSet(30, "6/20")
If GUICtrlRead($pc7) = $GUI_CHECKED Then
If Ping($pcip7) Then
$verbindung7 = UDPBind($pcip7, 2000)
Else
ToolTip("PC 7 ist nicht erreichbar")
GUICtrlSetState($pc7, $GUI_UNCHECKED)
EndIf
EndIf
ProgressSet(35, "7/20")
If GUICtrlRead($pc8) = $GUI_CHECKED Then
If Ping($pcip8) Then
$verbindung8 = UDPBind($pcip8, 2000)
Else
ToolTip("PC 8 ist nicht erreichbar")
GUICtrlSetState($pc8, $GUI_UNCHECKED)
EndIf
EndIf
ProgressSet(40, "8/20")
If GUICtrlRead($pc9) = $GUI_CHECKED Then
If Ping($pcip9) Then
$verbindung9 = UDPBind($pcip9, 2000)
Else
ToolTip("PC 9 ist nicht erreichbar")
GUICtrlSetState($pc9, $GUI_UNCHECKED)
EndIf
EndIf
ProgressSet(45, "9/20")
If GUICtrlRead($pc10) = $GUI_CHECKED Then
If Ping($pcip10) Then
$verbindung10 = UDPBind($pcip10, 2000)
Else
ToolTip("PC 10 ist nicht erreichbar")
GUICtrlSetState($pc10, $GUI_UNCHECKED)
EndIf
EndIf
ProgressSet(50, "10/20")
If GUICtrlRead($pc11) = $GUI_CHECKED Then
If Ping($pcip11) Then
$verbindung11 = UDPBind($pcip11, 2000)
Else
ToolTip("PC 11 ist nicht erreichbar")
GUICtrlSetState($pc11, $GUI_UNCHECKED)
EndIf
EndIf
ProgressSet(55, "11/20")
If GUICtrlRead($pc12) = $GUI_CHECKED Then
If Ping($pcip12) Then
$verbindung12 = UDPBind($pcip12, 2000)
Else
ToolTip("PC 12 ist nicht erreichbar")
GUICtrlSetState($pc12, $GUI_UNCHECKED)
EndIf
EndIf
ProgressSet(60, "12/20")
If GUICtrlRead($pc13) = $GUI_CHECKED Then
If Ping($pcip13) Then
$verbindung13 = UDPBind($pcip13, 2000)
Else
ToolTip("PC 13 ist nicht erreichbar")
GUICtrlSetState($pc13, $GUI_UNCHECKED)
EndIf
EndIf
ProgressSet(65, "13/20")
If GUICtrlRead($pc14) = $GUI_CHECKED Then
If Ping($pcip14) Then
$verbindung14 = UDPBind($pcip14, 2000)
Else
ToolTip("PC 14 ist nicht erreichbar")
GUICtrlSetState($pc14, $GUI_UNCHECKED)
EndIf
EndIf
ProgressSet(70, "14/20")
If GUICtrlRead($pc15) = $GUI_CHECKED Then
If Ping($pcip15) Then
$verbindung15 = UDPBind($pcip15, 2000)
Else
ToolTip("PC 15 ist nicht erreichbar")
GUICtrlSetState($pc15, $GUI_UNCHECKED)
EndIf
EndIf
ProgressSet(80, "15/20")
If GUICtrlRead($pc16) = $GUI_CHECKED Then
If Ping($pcip16) Then
$verbindung16 = UDPBind($pcip16, 2000)
Else
ToolTip("PC 16 ist nicht erreichbar")
GUICtrlSetState($pc16, $GUI_UNCHECKED)
EndIf
EndIf
ProgressSet(85, "16/20")
If GUICtrlRead($pc17) = $GUI_CHECKED Then
If Ping($pcip17) Then
$verbindung17 = UDPBind($pcip17, 2000)
Else
ToolTip("PC 17 ist nicht erreichbar")
GUICtrlSetState($pc17, $GUI_UNCHECKED)
EndIf
EndIf
ProgressSet(90, "17/20")
If GUICtrlRead($pc18) = $GUI_CHECKED Then
If Ping($pcip18) Then
$verbindung18 = UDPBind($pcip18, 2000)
Else
ToolTip("PC 18 ist nicht erreichbar")
GUICtrlSetState($pc18, $GUI_UNCHECKED)
EndIf
EndIf
ProgressSet(95, "18/20")
If GUICtrlRead($pc19) = $GUI_CHECKED Then
If Ping($pcip19) Then
$verbindung19 = UDPBind($pcip19, 2000)
Else
ToolTip("PC 19 ist nicht erreichbar")
GUICtrlSetState($pc19, $GUI_UNCHECKED)
EndIf
EndIf
ProgressSet(97, "19/20")
If GUICtrlRead($pc20) = $GUI_CHECKED Then
If Ping($pcip20) Then
$verbindung20 = UDPBind($pcip20, 2000)
Else
ToolTip("PC 20 ist nicht erreichbar")
GUICtrlSetState($pc20, $GUI_UNCHECKED)
EndIf
EndIf
ProgressSet(100, "20/20")
ToolTip("")
ProgressOff()
Case $Buttonalle
GUICtrlSetState($pc1, $GUI_CHECKED)
GUICtrlSetState($pc2, $GUI_CHECKED)
GUICtrlSetState($pc3, $GUI_CHECKED)
GUICtrlSetState($pc4, $GUI_CHECKED)
GUICtrlSetState($pc5, $GUI_CHECKED)
GUICtrlSetState($pc6, $GUI_CHECKED)
GUICtrlSetState($pc7, $GUI_CHECKED)
GUICtrlSetState($pc8, $GUI_CHECKED)
GUICtrlSetState($pc9, $GUI_CHECKED)
GUICtrlSetState($pc10, $GUI_CHECKED)
GUICtrlSetState($pc11, $GUI_CHECKED)
GUICtrlSetState($pc12, $GUI_CHECKED)
GUICtrlSetState($pc13, $GUI_CHECKED)
GUICtrlSetState($pc14, $GUI_CHECKED)
GUICtrlSetState($pc15, $GUI_CHECKED)
GUICtrlSetState($pc16, $GUI_CHECKED)
GUICtrlSetState($pc17, $GUI_CHECKED)
GUICtrlSetState($pc18, $GUI_CHECKED)
GUICtrlSetState($pc19, $GUI_CHECKED)
GUICtrlSetState($pc20, $GUI_CHECKED)
Case $buttonkeinen
GUICtrlSetState($pc1, $GUI_UNCHECKED)
GUICtrlSetState($pc2, $GUI_UNCHECKED)
GUICtrlSetState($pc3, $GUI_UNCHECKED)
GUICtrlSetState($pc4, $GUI_UNCHECKED)
GUICtrlSetState($pc5, $GUI_UNCHECKED)
GUICtrlSetState($pc6, $GUI_UNCHECKED)
GUICtrlSetState($pc7, $GUI_UNCHECKED)
GUICtrlSetState($pc8, $GUI_UNCHECKED)
GUICtrlSetState($pc9, $GUI_UNCHECKED)
GUICtrlSetState($pc10, $GUI_UNCHECKED)
GUICtrlSetState($pc11, $GUI_UNCHECKED)
GUICtrlSetState($pc12, $GUI_UNCHECKED)
GUICtrlSetState($pc13, $GUI_UNCHECKED)
GUICtrlSetState($pc14, $GUI_UNCHECKED)
GUICtrlSetState($pc15, $GUI_UNCHECKED)
GUICtrlSetState($pc16, $GUI_UNCHECKED)
GUICtrlSetState($pc17, $GUI_UNCHECKED)
GUICtrlSetState($pc18, $GUI_UNCHECKED)
GUICtrlSetState($pc19, $GUI_UNCHECKED)
GUICtrlSetState($pc20, $GUI_UNCHECKED)
Case $combobutton
[/autoit] [autoit][/autoit] [autoit]If GUICtrlRead($combo) = "Reboot" Then
GUICtrlSetState($neustart, $GUI_SHOW)
GUICtrlSetState($herunterfahren, $GUI_SHOW)
GUICtrlSetState($abmelden, $GUI_SHOW)
GUICtrlSetState($standby, $GUI_SHOW)
Else
GUICtrlSetState($neustart, $GUI_HIDE)
GUICtrlSetState($herunterfahren, $GUI_HIDE)
GUICtrlSetState($abmelden, $GUI_HIDE)
GUICtrlSetState($standby, $GUI_HIDE)
EndIf
If GUICtrlRead($combo) = "" Then
GUICtrlSetState($starticon, $GUI_SHOW)
Else
GUICtrlSetState($starticon, $GUI_HIDE)
EndIf
[/autoit] [autoit][/autoit] [autoit]If GUICtrlRead($combo) = "MsgBox" Then
GUICtrlSetState($msgboxicon1, $GUI_SHOW)
GUICtrlSetState($msgboxicon2, $GUI_SHOW)
GUICtrlSetState($msgboxlabel1, $GUI_SHOW)
GUICtrlSetState($msgboxlabel2, $GUI_SHOW)
GUICtrlSetState($iconwahl1, $GUI_SHOW)
GUICtrlSetState($iconwahl2, $GUI_SHOW)
GUICtrlSetState($msgboxlabel3, $GUI_SHOW)
GUICtrlSetState($msgboxlabel4, $GUI_SHOW)
GUICtrlSetState($msgboxinhalt, $GUI_SHOW)
GUICtrlSetState($msgboxsenden, $GUI_SHOW)
Else
GUICtrlSetState($msgboxicon1, $GUI_HIDE)
GUICtrlSetState($msgboxicon2, $GUI_HIDE)
GUICtrlSetState($msgboxlabel1, $GUI_HIDE)
GUICtrlSetState($msgboxlabel2, $GUI_HIDE)
GUICtrlSetState($iconwahl1, $GUI_HIDE)
GUICtrlSetState($iconwahl2, $GUI_HIDE)
GUICtrlSetState($msgboxlabel3, $GUI_HIDE)
GUICtrlSetState($msgboxlabel4, $GUI_HIDE)
GUICtrlSetState($msgboxinhalt, $GUI_HIDE)
GUICtrlSetState($msgboxsenden, $GUI_HIDE)
EndIf
[/autoit] [autoit][/autoit] [autoit]If GUICtrlRead($combo) = "Sperren" Then
GUICtrlSetState($sperreneingabe, $GUI_SHOW)
GUICtrlSetState($sperrenbildschirm, $GUI_SHOW)
GUICtrlSetState($entsperreneingabe, $GUI_SHOW)
GUICtrlSetState($entsperrenbildschirm, $GUI_SHOW)
Else
GUICtrlSetState($sperreneingabe, $GUI_HIDE)
GUICtrlSetState($sperrenbildschirm, $GUI_HIDE)
GUICtrlSetState($entsperreneingabe, $GUI_HIDE)
GUICtrlSetState($entsperrenbildschirm, $GUI_HIDE)
EndIf
[/autoit] [autoit][/autoit] [autoit]If GUICtrlRead($combo) = "Fenster" Then
GUICtrlSetState($aktualisieren, $GUI_SHOW)
Else
GUICtrlSetState($aktualisieren, $GUI_HIDE)
EndIf
[/autoit] [autoit][/autoit] [autoit]Case $aktualisieren
$standartheight = 50
ProgressOn("Bitte warten...", "Infos werden abgerufen")
If Ping($pcip1) Then
If GUICtrlRead($pc1) = $GUI_CHECKED Then
UDPSend($verbindung1, "fensteranfrage")
While 1
$datenpcfenster1 = UDPRecv($verbindung1, 50000)
If $datenpcfenster1 <> "" Then ExitLoop
ToolTip("warte auf PC 1")
WEnd
ToolTip("")
$pcfenster1 = StringSplit($datenpcfenster1, "%")
For $i2 To $pcfenster1[0]
GUICtrlCreateLabel($pcfenster1, 110, $standartheight)
$standartheight += 10
Next
EndIf
EndIf
ProgressSet(5,"")
If Ping($pcip2) Then
If GUICtrlRead($pc2) = $GUI_CHECKED Then
UDPSend($verbindung2, "fensteranfrage")
While 1
$datenpcfenster2 = UDPRecv($verbindung2, 5000)
If $datenpcfenster2 <> "" Then ExitLoop
ToolTip("warte auf PC 2")
WEnd
ToolTip("")
$pcfenster2 = StringSplit($datenpcfenster2, "%")
For $i2 To $pcfenster2[0]
GUICtrlCreateLabel($pcfenster2, 110, $standartheight)
$standartheight += 10
Next
EndIf
EndIf
ProgressSet(10,"")
If Ping($pcip3) Then
If GUICtrlRead($pc3) = $GUI_CHECKED Then
UDPSend($verbindung3, "fensteranfrage")
While 1
$datenpcfenster3 = UDPRecv($verbindung3, 5000)
If $datenpcfenster3 <> "" Then ExitLoop
ToolTip("warte auf PC 3")
WEnd
ToolTip("")
$pcfenster3 = StringSplit($datenpcfenster3, "%")
For $i2 To $pcfenster3[0]
GUICtrlCreateLabel($pcfenster3, 110, $standartheight)
$standartheight += 10
Next
EndIf
EndIf
ProgressSet(15,"")
If Ping($pcip4) Then
If GUICtrlRead($pc4) = $GUI_CHECKED Then
UDPSend($verbindung4, "fensteranfrage")
While 1
$datenpcfenster4 = UDPRecv($verbindung4, 5000)
If $datenpcfenster4 <> "" Then ExitLoop
ToolTip("warte auf PC 4")
WEnd
ToolTip("")
$pcfenster4 = StringSplit($datenpcfenster4, "%")
For $i2 To $pcfenster4[0]
GUICtrlCreateLabel($pcfenster4, 110, $standartheight)
$standartheight += 10
Next
EndIf
EndIf
ProgressSet(20,"")
If Ping($pcip5) Then
If GUICtrlRead($pc5) = $GUI_CHECKED Then
UDPSend($verbindung5, "fensteranfrage")
While 1
$datenpcfenster5 = UDPRecv($verbindung5, 5000)
If $datenpcfenster5 <> "" Then ExitLoop
ToolTip("warte auf PC 5")
WEnd
ToolTip("")
$pcfenster5 = StringSplit($datenpcfenster5, "%")
For $i2 To $pcfenster5[0]
GUICtrlCreateLabel($pcfenster5, 110, $standartheight)
$standartheight += 10
Next
EndIf
EndIf
ProgressSet(25,"")
If Ping($pcip6) Then
If GUICtrlRead($pc6) = $GUI_CHECKED Then
UDPSend($verbindung6, "fensteranfrage")
While 1
$datenpcfenster6 = UDPRecv($verbindung6, 5000)
If $datenpcfenster6 <> "" Then ExitLoop
ToolTip("warte auf PC 6")
WEnd
ToolTip("")
$pcfenster6 = StringSplit($datenpcfenster6, "%")
For $i2 To $pcfenster6[0]
GUICtrlCreateLabel($pcfenster6, 110, $standartheight)
$standartheight += 10
Next
EndIf
EndIf
ProgressSet(30,"")
If Ping($pcip7) Then
If GUICtrlRead($pc7) = $GUI_CHECKED Then
UDPSend($verbindung7, "fensteranfrage")
While 1
$datenpcfenster7 = UDPRecv($verbindung7, 5000)
If $datenpcfenster1 <> "" Then ExitLoop
ToolTip("warte auf PC 7")
WEnd
ToolTip("")
$pcfenster7 = StringSplit($datenpcfenster7, "%")
For $i2 To $pcfenster7[0]
GUICtrlCreateLabel($pcfenster7, 110, $standartheight)
$standartheight += 10
Next
EndIf
EndIf
ProgressSet(35,"")
If Ping($pcip8) Then
If GUICtrlRead($pc8) = $GUI_CHECKED Then
UDPSend($verbindung8, "fensteranfrage")
While 1
$datenpcfenster8 = UDPRecv($verbindung8, 5000)
If $datenpcfenster1 <> "" Then ExitLoop
ToolTip("warte auf PC 8")
WEnd
ToolTip("")
$pcfenster8 = StringSplit($datenpcfenster8, "%")
For $i2 To $pcfenster8[0]
GUICtrlCreateLabel($pcfenster8, 110, $standartheight)
$standartheight += 10
Next
EndIf
EndIf
ProgressSet(40,"")
If Ping($pcip9) Then
If GUICtrlRead($pc9) = $GUI_CHECKED Then
UDPSend($verbindung9, "fensteranfrage")
While 1
$datenpcfenster9 = UDPRecv($verbindung9, 5000)
If $datenpcfenster9 <> "" Then ExitLoop
ToolTip("warte auf PC 9")
WEnd
ToolTip("")
$pcfenster9 = StringSplit($datenpcfenster9, "%")
For $i2 To $pcfenster9[0]
GUICtrlCreateLabel($pcfenster9, 110, $standartheight)
$standartheight += 10
Next
EndIf
EndIf
ProgressSet(45,"")
If Ping($pcip10) Then
If GUICtrlRead($pc10) = $GUI_CHECKED Then
UDPSend($verbindung10, "fensteranfrage")
While 1
$datenpcfenster10 = UDPRecv($verbindung10, 5000)
If $datenpcfenster10 <> "" Then ExitLoop
ToolTip("warte auf PC 10")
WEnd
ToolTip("")
$pcfenster10 = StringSplit($datenpcfenster10, "%")
For $i2 To $pcfenster10[0]
GUICtrlCreateLabel($pcfenster10, 110, $standartheight)
$standartheight += 10
Next
EndIf
EndIf
ProgressSet(50,"")
If Ping($pcip11) Then
If GUICtrlRead($pc11) = $GUI_CHECKED Then
UDPSend($verbindung11, "fensteranfrage")
While 1
$datenpcfenster11 = UDPRecv($verbindung11, 5000)
If $datenpcfenster11 <> "" Then ExitLoop
ToolTip("warte auf PC 11")
WEnd
ToolTip("")
$pcfenster11 = StringSplit($datenpcfenster11, "%")
For $i2 To $pcfenster11[0]
GUICtrlCreateLabel($pcfenster11, 110, $standartheight)
$standartheight += 10
Next
EndIf
EndIf
ProgressSet(55,"")
If Ping($pcip12) Then
If GUICtrlRead($pc12) = $GUI_CHECKED Then
UDPSend($verbindung12, "fensteranfrage")
While 1
$datenpcfenster12 = UDPRecv($verbindung12, 5000)
If $datenpcfenster12 <> "" Then ExitLoop
ToolTip("warte auf PC 12")
WEnd
ToolTip("")
$pcfenster12 = StringSplit($datenpcfenster12, "%")
For $i2 To $pcfenster12[0]
GUICtrlCreateLabel($pcfenster12, 110, $standartheight)
$standartheight += 10
Next
EndIf
EndIf
ProgressSet(60,"")
If Ping($pcip13) Then
If GUICtrlRead($pc13) = $GUI_CHECKED Then
UDPSend($verbindung13, "fensteranfrage")
While 1
$datenpcfenster13 = UDPRecv($verbindung13, 5000)
If $datenpcfenster13 <> "" Then ExitLoop
ToolTip("warte auf PC 13")
WEnd
ToolTip("")
$pcfenster13 = StringSplit($datenpcfenster13, "%")
For $i2 To $pcfenster13[0]
GUICtrlCreateLabel($pcfenster13, 110, $standartheight)
$standartheight += 10
Next
EndIf
EndIf
ProgressSet(65,"")
If Ping($pcip14) Then
If GUICtrlRead($pc14) = $GUI_CHECKED Then
UDPSend($verbindung14, "fensteranfrage")
While 1
$datenpcfenster14 = UDPRecv($verbindung14, 5000)
If $datenpcfenster14 <> "" Then ExitLoop
ToolTip("warte auf PC 14")
WEnd
ToolTip("")
$pcfenster14 = StringSplit($datenpcfenster14, "%")
For $i2 To $pcfenster14[0]
GUICtrlCreateLabel($pcfenster14, 110, $standartheight)
$standartheight += 10
Next
EndIf
EndIf
ProgressSet(70,"")
If Ping($pcip15) Then
If GUICtrlRead($pc15) = $GUI_CHECKED Then
UDPSend($verbindung15, "fensteranfrage")
While 1
$datenpcfenster15 = UDPRecv($verbindung15, 5000)
If $datenpcfenster15 <> "" Then ExitLoop
ToolTip("warte auf PC 15")
WEnd
ToolTip("")
$pcfenster15 = StringSplit($datenpcfenster15, "%")
For $i2 To $pcfenster15[0]
GUICtrlCreateLabel($pcfenster15, 110, $standartheight)
$standartheight += 10
Next
EndIf
EndIf
ProgressSet(75,"")
If Ping($pcip16) Then
If GUICtrlRead($pc16) = $GUI_CHECKED Then
UDPSend($verbindung16, "fensteranfrage")
While 1
$datenpcfenster16 = UDPRecv($verbindung16, 5000)
If $datenpcfenster16 <> "" Then ExitLoop
ToolTip("warte auf PC 16")
WEnd
ToolTip("")
$pcfenster16 = StringSplit($datenpcfenster16, "%")
For $i2 To $pcfenster16[0]
GUICtrlCreateLabel($pcfenster16, 110, $standartheight)
$standartheight += 10
Next
EndIf
EndIf
ProgressSet(80,"")
If Ping($pcip17) Then
If GUICtrlRead($pc17) = $GUI_CHECKED Then
UDPSend($verbindung1, "fensteranfrage")
While 1
$datenpcfenster17 = UDPRecv($verbindung17, 5000)
If $datenpcfenster17 <> "" Then ExitLoop
ToolTip("warte auf PC 17")
WEnd
ToolTip("")
$pcfenster17 = StringSplit($datenpcfenster17, "%")
For $i2 To $pcfenster17[0]
GUICtrlCreateLabel($pcfenster17, 110, $standartheight)
$standartheight += 10
Next
EndIf
EndIf
ProgressSet(85,"")
If Ping($pcip18) Then
If GUICtrlRead($pc18) = $GUI_CHECKED Then
UDPSend($verbindung18, "fensteranfrage")
While 1
$datenpcfenster1 = UDPRecv($verbindung18, 5000)
If $datenpcfenster18 <> "" Then ExitLoop
ToolTip("warte auf PC 18")
WEnd
ToolTip("")
$pcfenster18 = StringSplit($datenpcfenster18, "%")
For $i2 To $pcfenster18[0]
GUICtrlCreateLabel($pcfenster18, 110, $standartheight)
$standartheight += 10
Next
EndIf
EndIf
ProgressSet(90,"")
If Ping($pcip19) Then
If GUICtrlRead($pc19) = $GUI_CHECKED Then
UDPSend($verbindung19, "fensteranfrage")
While 1
$datenpcfenster19 = UDPRecv($verbindung19, 5000)
If $datenpcfenster19 <> "" Then ExitLoop
ToolTip("warte auf PC 19")
WEnd
ToolTip("")
$pcfenster19 = StringSplit($datenpcfenster19, "%")
For $i2 To $pcfenster19[0]
GUICtrlCreateLabel($pcfenster19, 110, $standartheight)
$standartheight += 10
Next
EndIf
EndIf
ProgressSet(95,"")
If Ping($pcip20) Then
If GUICtrlRead($pc20) = $GUI_CHECKED Then
UDPSend($verbindung20, "fensteranfrage")
While 1
$datenpcfenster20 = UDPRecv($verbindung20, 5000)
If $datenpcfenster20 <> "" Then ExitLoop
ToolTip("warte auf PC 20")
WEnd
ToolTip("")
$pcfenster20 = StringSplit($datenpcfenster20, "%")
For $i2 To $pcfenster20[0]
GUICtrlCreateLabel($pcfenster20, 110, $standartheight)
$standartheight += 10
Next
EndIf
EndIf
ProgressSet(100,"")
ProgressOff()
EndSwitch
[/autoit] [autoit][/autoit] [autoit]WEnd ; <-- Beginne Schleife von Vorne;### Tidy Error -> while is never closed in your script.
[/autoit] [autoit][/autoit] [autoit][/autoit]
Danke schonmal im vorraus^^
Hallo, wollte etwas schreiben, wo eine WinList verschiken kann, aber es geht net
habe natührlich einen anfang:
$sIP = Inputbox('IP-Angabe', 'Adresse des Servers', @IPAddress1)
UDPStartup()
[/autoit] [autoit][/autoit] [autoit]$sListe = ""
[/autoit] [autoit][/autoit] [autoit]$hSocket = UDPOpen($sIP, 2000)
[/autoit] [autoit][/autoit] [autoit]$sListe = WInList()
[/autoit] [autoit][/autoit] [autoit]UDPSend($hSocket, $sListe)
[/autoit] [autoit][/autoit] [autoit][/autoit]
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Change2CUI=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
UDPStartup()
$hSocket = UDPBind(@IPAddress1, 2000)
[/autoit] [autoit][/autoit] [autoit]While 1
$sData = UDPRecv($hSocket, 512)
If $sData <> "" Then
_ArrayDisplay($sData)
EndIf
WEnd
Ich finde den Taswchenrechner auch cool^^
Super Arbeit! 
Auch von mir ein Welcome. Wir können bald eine "Graue AutoIt-Fraktion" bilden.
Dann treten wir zur nächsten Wahl an.
$
Klar machen wir...
[autoit]
If $stimme = "AutoIT" then
$entscheidung = "richtig"
else
$waeler = " hat keine Ahnung"
EndIf
Nur wieso machst du vorher eine Ping auf die Adresse??
Nur ein TCPNameToIP würde doch reichen??
Die Antwortzeit wenn ein Server nicht antwortet, könntest du mit den Zeitfunktionen ermitteln.MfG
Der_Doc
Damit er fals der PC nicht an ist, erst garnicht versucht die IP aufzulösen.
Hallo, laut diesem Script müsste das ganze Maximal eine Sekunde dauern... Leider dauert das erheblich länger, woran liegt das?
ProgressOn("IP ermitteln","Die IP's für die Computer werden ermittelt")
TCPStartup()
ProgressSet(5,"Rechner 1 / 20","Die IP's für die Computer werden ermittelt")
If Ping("wks-if3-01",50) Then $pcip1 = TCPNameToIP("wks-if3-01")
ProgressSet(10,"Rechner 2 / 20","Die IP's für die Computer werden ermittelt")
If Ping("wks-if3-02",50) Then $pcip2 = TCPNameToIP("wks-if3-02")
ProgressSet(15,"Rechner 3 / 20","Die IP's für die Computer werden ermittelt")
If Ping("wks-if3-03",50) Then $pcip3 = TCPNameToIP("wks-if3-03")
ProgressSet(20,"Rechner 4 / 20","Die IP's für die Computer werden ermittelt")
If Ping("wks-if3-04",50) Then $pcip4 = TCPNameToIP("wks-if3-04")
ProgressSet(25,"Rechner 5 / 20","Die IP's für die Computer werden ermittelt")
If Ping("wks-if3-05",50) Then $pcip5 = TCPNameToIP("wks-if3-05")
ProgressSet(30,"Rechner 6 / 20","Die IP's für die Computer werden ermittelt")
If Ping("wks-if3-06",50) Then $pcip6 = TCPNameToIP("wks-if3-06")
ProgressSet(35,"Rechner 7 / 20","Die IP's für die Computer werden ermittelt")
If Ping("wks-if3-07",50) Then $pcip7 = TCPNameToIP("wks-if3-07")
ProgressSet(40,"Rechner 8 / 20","Die IP's für die Computer werden ermittelt")
If Ping("wks-if3-08",50) Then $pcip8 = TCPNameToIP("wks-if3-08")
ProgressSet(45,"Rechner 9 / 20","Die IP's für die Computer werden ermittelt")
If Ping("wks-if3-09",50) Then $pcip9 = TCPNameToIP("wks-if3-09")
ProgressSet(50,"Rechner 10 / 20","Die IP's für die Computer werden ermittelt")
If Ping("wks-if3-10",50) Then $pcip10 = TCPNameToIP("wks-if3-10")
ProgressSet(55,"Rechner 11 / 20","Die IP's für die Computer werden ermittelt")
If Ping("wks-if3-11",50) Then $pcip11 = TCPNameToIP("wks-if3-11")
ProgressSet(60,"Rechner 12 / 20","Die IP's für die Computer werden ermittelt")
If Ping("wks-if3-12",50) Then $pcip12 = TCPNameToIP("wks-if3-12")
ProgressSet(65,"Rechner 13 / 20","Die IP's für die Computer werden ermittelt")
If Ping("wks-if3-13",50) Then $pcip13 = TCPNameToIP("wks-if3-13")
ProgressSet(70,"Rechner 14 / 20","Die IP's für die Computer werden ermittelt")
If Ping("wks-if3-14",50) Then $pcip14 = TCPNameToIP("wks-if3-14")
ProgressSet(75,"Rechner 15 / 20","Die IP's für die Computer werden ermittelt")
If Ping("wks-if3-15",50) Then $pcip15 = TCPNameToIP("wks-if3-15")
ProgressSet(80,"Rechner 16 / 20","Die IP's für die Computer werden ermittelt")
If Ping("wks-if3-16",50) Then $pcip16 = TCPNameToIP("wks-if3-16")
ProgressSet(85,"Rechner 17 / 20","Die IP's für die Computer werden ermittelt")
If Ping("wks-if3-17",50) Then $pcip17 = TCPNameToIP("wks-if3-17")
ProgressSet(90,"Rechner 18 / 20","Die IP's für die Computer werden ermittelt")
If Ping("wks-if3-18",50) Then $pcip18 = TCPNameToIP("wks-if3-18")
ProgressSet(95,"Rechner 19 / 20","Die IP's für die Computer werden ermittelt")
If Ping("wks-if3-19",50) Then $pcip19 = TCPNameToIP("wks-if3-19")
ProgressSet(100,"Rechner 20 / 20","Die IP's für die Computer werden ermittelt")
If Ping("wks-if3-20",50) Then $pcip20 = TCPNameToIP("wks-if3-20")
TCPShutdown()
ProgressOff()
Ich glaube AutoIT mag mich nicht mehr... 
ja mein problem ist ich höre kein beep
[autoit]Beep(2000,50)
[/autoit]
Beep(1000,50)
Beep(3000,25)das raselt extrem schnell durch ich sehe kaum das autoiticon in der symbolleiste....
Der pc ist selbstgebaut mit vindows vista 64bit und ja ich bin mir sicher ich hab ein beeper eingebaut den beim bios start medt sich ja das teil^^hat eine ahnug warum ich das problem habe
was ich auch sagen wollte ich hab ein trainer wenn man da gewissen sachen an und ausschalltet gibt der das auch über den beeper aus und da tut es
hm.. du könntest entweder z.b. mal schreiben
Beep(2000,500)
Beep(1000,500)
Beep(3000,250)
oder ein paar
sleep($x)
[/autoit]reinbauen, wobei du $x durch eine Angabe in Milisekunden ersetzten musst, oder vorher zuweisen musst
hallo, DjDominik und Ich hatten vor, eine art mini Teamviewer zu bauen. nun haben wir auch schon einen Anfang, aber irgendwie funktioniert das nicht so ganz
Serverscript
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: DjDominik & Jonathan
Script Function:
Sendet Scrennshots an den Client
#ce ----------------------------------------------------------------------------
#include <ScreenCapture.au3>
#include <TCPSend.au3>
Global $hAcc, $hScreenshot, $hSocket, $hIP
[/autoit] [autoit][/autoit] [autoit]$hScreenshot = _ScreenCapture_Capture("")
_ScreenCapture_SaveImage(@TempDir & "\Screen.jpg", $hScreenshot)
TCPStartup()
[/autoit] [autoit][/autoit] [autoit]$hSocket = TCPListen(@IPAddress1, 2000)
[/autoit] [autoit][/autoit] [autoit]While True = True
$hIP = SocketToIP($hAcc)
_TCPFileSend(@TempDir & "\Screen.jpg", $hIP, 2000)
TCPCloseSocket($hAcc)
WEnd
Func OnAutoItExit()
TCPCloseSocket($hSocket)
EndFunc ;==>OnAutoItExit
Clientscript
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: DjDominik & Jonathan
Script Function:
Sendet Scrennshots an den Client
#ce ----------------------------------------------------------------------------
#include <ScreenCapture.au3>
#include <TCPSend.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $hIP = InputBox("MiniTV Remote", "Die IP des Servers", "", " M")
If @error Then Exit
TCPConnect($hIP, 2000)
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Autoit\MiniTV\BackUp\Gui.kxf
$Gui = GUICreate("MiniTV Remote Screen", 510, 328, 192, 114)
$Pic = GUICtrlCreatePic("", 8, 8, 492, 276, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$ExitButton = GUICtrlCreateButton("Beenden", 216, 296, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
_TCPFileRecv(@TempDir & "\Recv.jpg", @IPAddress1, 2000)
GUICtrlSetImage($Pic, @TempDir & "\Recv.jpg")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
und wer es nciht hat: TCPSend: (nicht von DjDominik und mir)
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: DELmE
Script Function:
_TCPFileRecv
Description:
Receives a file being sent over a TCP connection
Parameters:
rFile The name of the file to save to
Ip The Ip to listen on for the file (default = @IPAddress1)
Port The port to listen on for incoming file data (default = 7894)
Return value:
Success _TCPFileRecv returns 1 if the file was successfully received and written
Failure _TCPFileRecv returns 0 if the function failed
#ce ----------------------------------------------------------------------------
Func _TCPFileRecv($rFile, $Ip = @IpAddress1, $Port = 7895)
If $Ip = "" Then $Ip = @IpAddress1
If $Ip = -1 Then $Ip = @IpAddress1
If $Port = "" Then $Port = 7894
If $Port = -1 Then $Port = 7894
$opt = AutoItSetOption("TCPTimeout", 2000)
Local $error = False
Local $buff
$TCPListen = TCPListen($Ip, $Port)
[/autoit] [autoit][/autoit] [autoit]$no_recv_count = 0
[/autoit] [autoit][/autoit] [autoit]$TCPAcc = TCPAccept($TCPListen)
If $TCPAcc = -1 Then
$error = True
Else
Do
$TCPRecv = TCPRecv($TCPAcc, 100000)
If $TCPRecv = "" Then
$no_recv_count += 1
Else
$str = BinaryToString($TCPRecv)
$buff &= $str
$no_recv_count = 0
EndIf
Until $no_recv_count >= 15
If $buff = "" Then
$error = True
Else
$buff = StringToBinary($buff)
$rFileOpen = FileOpen($rFile, 16 + 2)
If $rFileOpen = -1 Then
$error = True
Else
$rFileWrite = FileWrite($rFileOpen, $buff)
If $rFileWrite = 0 Then
$error = True
EndIf
FileClose($rFileOpen)
EndIf
EndIf
EndIf
TCPCloseSocket($TCPListen)
AutoItSetOption("TCPTimeout", $opt)
If $error = True Then
Return 0
Else
Return 1
EndIf
EndFunc ;==> _TCPFileRecv
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.0.0
Author: DELmE
Script Function:
_TCPFileSend
Description:
Sends a file over a TCP connection
Parameters:
sFile The file to be sent
Ip The Ip to send on (default = @IPAddress1)
Port The port to send the file data on (default = 7894)
Return value:
Success _TCPFileSend returns 1 if the file was successfully sent out
Failure _TCPFileSend returns 0 if an error occurred
#ce ----------------------------------------------------------------------------
Func _TCPFileSend($sFile, $Ip = @IPAddress1, $Port = 7895)
If $Ip = -1 Then $Ip = @IPAddress1
If $Ip = "" Then $Ip = @IPAddress1
If $Port = -1 Then $Port = 7894
If $Port = "" Then $Port = 7894
$opt = AutoItSetOption("TCPTimeout", 2000)
Local $error = False
$sFileOpen = FileOpen($sFile, 16 + 0)
$sFileRead = FileRead($sFileOpen)
FileClose($sFileOpen)
$sFileSize = BinaryLen($sFileRead)
$TCPConn = TCPConnect($Ip, $Port)
If $TCPConn = -1 Then
$error = True
Else
If $sFileSize < 100000 Then
$TCPSend = TCPSend($TCPConn, $sFileRead)
If $TCPSend = 0 Then
$TCPConn = TCPConnect($Ip, $Port)
$TCPSend = TCPSend($TCPConn, $sFileRead)
EndIf
Else
$buff = $sFileRead
Do
$TCPSend = TCPSend($TCPConn, BinaryMid($buff, 1, 100000))
If $TCPSend = 0 Then
$TCPConn = TCPConnect($Ip, $Port)
$TCPSend = TCPSend($TCPConn, BinaryMid($buff, 1, 100000))
EndIf
$buff = BinaryMid($buff, $TCPSend + 1)
Until BinaryLen($buff) = 0
EndIf
EndIf
TCPCloseSocket($TCPConn)
AutoItSetOption("TCPTimeout", $opt)
If $error = True Then
Return 0
Else
Return 1
EndIf
EndFunc ;==> _TCPFileSend
Func SocketToIP($SHOCKET)
Local $sockaddr, $aRet
$sockaddr = DllStructCreate("short;ushort;uint;char[8]")
[/autoit] [autoit][/autoit] [autoit]$aRet = DllCall("Ws2_32.dll", "int", "getpeername", "int", $SHOCKET, _
"ptr", DllStructGetPtr($sockaddr), "int*", DllStructGetSize($sockaddr))
If Not @error And $aRet[0] = 0 Then
$aRet = DllCall("Ws2_32.dll", "str", "inet_ntoa", "int", DllStructGetData($sockaddr, 3))
If Not @error Then $aRet = $aRet[0]
Else
$aRet = 0
EndIf
$sockaddr = 0
[/autoit] [autoit][/autoit] [autoit]Return $aRet
EndFunc ;==>SocketToIP
und wieder ein Jahr älter...
Hoffentlich gefällt dir dein geburtstag sogut, das du ihn nächstes Jahr wieder feierst^^
