Beiträge von KriZza

KriZza

Hallo zusammen,
hat jemand von euch eine Idee? Ich versuche einen Registrywert zu schreiben, den man individuell in einer .ini - Datei anpassen kann. Das Problem ist, über den normalen Weg funktioniert alles super (wenn ich den Befehl ausschreibe). Wenn ich die Daten aus der .ini auslesen will, wird zwar ein neuer Eintrag in der Regisrty erstellt, aber die Keys und Werte werden in dem Ordernamen geschrieben und nicht als Wert angelegt.

Zur Verdeutlichung mal der QT

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiListBox.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>

[/autoit][autoit][/autoit][autoit]

Global $Msg = GUIGetMsg()
Opt("GUIOnEventMode", 1)

[/autoit][autoit][/autoit][autoit]

GUICreate("Testprogramm", 200, 200, 400, 200)
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")

[/autoit][autoit][/autoit][autoit]

$INIBUTTON = GUICtrlCreateButton(".ini bearbeiten",50,50, 100,50)
$RUN = GUICtrlCreateButton("Ausführen",50,120, 100,50)
GUICtrlSetOnEvent($INIBUTTON, "_ini")
GUICtrlSetOnEvent($RUN, "_regedit1")

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

While 1
Sleep (10)
WEnd

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

Func _exit()
Exit
EndFunc

[/autoit][autoit][/autoit][autoit]

Func _ini()
Local $INIBUTTON
Switch $Msg
Case $GUI_EVENT_CLOSE
Exit
Case $INIBUTTON
If $Msg = $INIBUTTON Then ShellExecute(@ScriptDir & "\config.ini")
EndSwitch
EndFunc

Func _regedit1()
Local $RUN, $REG1, $VAL1, $TYP1, $VALL1
If $Msg = $RUN Then
$REG1 = INIread("config.ini", "REGADD", "REG1", "")
$VAL1= INIread("config.ini", "REGADD", "VAL1", "")
$TYP1 = INIread("config.ini", "REGADD", "TYP1", "")
$VALL1 = INIread("config.ini", "REGADD", "VALL1", "")
RegWrite($REG1 & ", " & $VAL1 & ", " & $TYP1 & ", " & $VALL1)
;~ RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Control Panel\Desktop", "ScreenSaveActive", "REG_SZ", "0")
;~ MsgBox(1, "te", $REG1 & ", " & $VAL1 & ", " & $TYP1 & ", " & $VALL1)

[/autoit][autoit][/autoit][autoit]

EndIf
EndFunc

[/autoit]

Hier die Daten die in der .ini stehen.

Spoiler anzeigen

[REGADD]
REG1="HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Control Panel\Desktop"
VAL1=ScreenSaveActive
TYP1=REG_SZ
VALL1=0

KriZza

Perfekt!!
Vielen Dank! Genau so habe ich mir das vorgestellt!!

KriZza

Der Prozess soll generell nicht zwei Mal gestartet werden. Über das AutoIT - Script nicht und per Dateiebene mit einem normalem "Doppelklick" auf die .exe auch nicht. Der zweite Punkt ist aber auch nicht so wichtig, den die .exe kann in der Ordnerstruktur ja soweit versteckt werden, dass 0815 - User den nicht finden können, so könnte man sicherlich Ressoucen sparen.
Also Hauptaugenmerk liegt erstmal darauf, dass ein Prozess nicht zwei Mal über das AutoIT -Script gestartet werden kann.

KriZza

Guten Morgen,
ich hoffe ich habe nur ein relativ simples anliegen, aber ich komme momentan nicht weiter.

Problem:
Ich versuche einen Prozess nur einmal zu starten und anschließend soll überprüft werden, ob der prozess nur einmal gestartet iworden ist. Außerdem soll die Möglichkeit, den Prozess ein zweites Mal zu starten, blockiert werden.

[autoit]

Run("notepad.exe")
while 1
if ProcessExists("notepad.exe") Then
?? not run("notepad.exe")??
EndIf
WEnd

[/autoit]

Ich will also nur eine Instanz von dem Programm ausgeführt haben.

KriZza

Hallo zusammen,
ich bitte mal kurz um Hilfe, weil ich mit meinem kleinen Script nicht weiterkomme.

Problem:
Ich versuche über die GUI mit einem Buttonklick einen Rechner zu starten. Die entsprechenende wake.exe befindet sich auch in dem passenden Verzeichnis (mit msgbox überprüft). Allerdings wird die entsprechende MAC Adresse, die sich in einer .txt befindet, dabei nicht mit übergeben.
Um es ein bisschen einfacher auszudrücken:
Über den run - Befehl starte ich eine .exe, was auch funktioniert. Dabei werden die Daten der .txt nicht mit übernommen. Wenn ich die .exe per Dateiebene direkt im Verzeichnis öffne, wird die MAC - Adresse mit übergeben und es funktioniert.
Hier der ausschnitt von dem Programm:

[autoit]

$START = GUICtrlRead($1)
If $START = $GUI_CHECKED And $msg=$STARTING Then
run(@ScriptDir & "\WOL\1\wake.exe")
Sleep(1000)
Send("m")

[/autoit]

Hat jemand von eine eine Idee warum die Daten aus der .txt, in dem Script nicht mit übernommen werden? Weitere Parameter sind in der wake.exe nicht hinterlegt.

Gruß, KriZza

KriZza

Hallo zusammen,
ich mache gerade ein kleines Projekt und komme gar nicht weiter. Ich hoffe mal ihr könnt mir helfen!
Also Ziel ist es einen Bildschirmschoner ersatz zu erstellen, allerdings soll dann immer der Internet Explorer neu gestartet / gestartet werden.
Wenn 10 / 15 Minuten keine Mausbewegung am Rechner stattfindet, dann soll sich der Prozess iexplore.exe schließen und wieder neu öffnen, bzw. das erste mal starten. Allerdings komm ich momentan gar nicht weiter mit meinem Script. Meine Mausbewegungen werden nicht gespeichert. Ich hoffe jemand kann mir helfen, wo der fehler liegt.

[autoit]

#NoTrayIcon

[/autoit][autoit][/autoit][autoit]

$PRGPATH = @ProgramFilesDir&"\Internet Explorer\"
$PRG2CHECK = "iexplore.exe"

[/autoit][autoit][/autoit][autoit]

While 1
Sleep(1000)
$MousePosition = MouseGetPos()
sleep (3000)
$NewMousePosition = MouseGetPos()

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

If not $MousePosition[0] = $NewMousePosition[0] AND $MousePosition[1] = $NewMousePosition[1] then
sleep (900000) ;900000 = 15 MIN 600000= 10MIN
ProcessClose ($PRG2CHECK)
Run($PRGPATH&$PRG2CHECK)

[/autoit][autoit][/autoit][autoit]

EndIf
Wend

[/autoit]

KriZza

Naja leider isses nicht so ganz einfach

Also folgende Ausgangsposition: Ich habe vier unterschiedliche Rechner an denen ein Script laufen soll der Werte in eine .ini schreibt. Also 1.ini, 2.ini usw. diese .inis werden täglich an einen internen Server gesendet, damit ich nicht immer auf die Rechner zugreifen muss. Bis dahin klappt alles.

Nun das Problem: Ich habe mehrere Rechner an denen ich eine GUI von mir ausführe. Nun möchte ich, dass die ich per Kopfdruck von diesen Rechnern aus die .ini die auf dem Server liegt. Auf meinen jeweiligen Arbeitsrechner kopiert, damit ich von meinem Script aus den .ini Wert auslesen kann.

Im Prinzip brauche ich einnen Befehl mit dem Gegenteil von FileCopy, also Filereceive oder Fileget oder sowas in der Richtung. Wo ich dann von der Workstation aus immer auf den Pfad vom Server zugreifen kann und die immer Gleichheißenden .inis in mein @ScriptDir kopieren.

Ich hoffe ich habs mal nicht all zu schwer jetzt erklärt.

Gruß,
KriZza

KriZza

Klar das ist kein Problem.
Allerdings bleibt die Frage, wie ich die Dateien dann auf meinen Rechner bekomme. Ich habe jetzt die .ini kopiert und die liegt auf einem Server. Wenn ich jetzt an einer Workstation das Programm aufrufe und auf einen Button klicke, soll die .ini von dem server auf meinen Rechner kopiert werden damit in den Wert auslesen kann. Ich denkmal das ist dann doch schon komplizierter.

Oder ist es möglich eine .ini über das Netzwerk auszulesen?

Gruß,
KriZza

KriZza

Tastatur - Ladestand der kabellosen Tastatur

KriZza

Nabend,

die Idee ist da aber ich hab gerade gar keine Idee wie ich das umsetzen kann.

Also folgendes, ich habe ein Script geschrieben was täglich den Tastaturstand von SetPoint ausliest und in einer .ini speichert. Diesen Text will ich jetzt von einem anderen Rechner im Netzwerk aufrufen, bzw. den Wert aus der .ini auslesen um in der GUI weiter zu verarbeiten.

Dafür muss ich jetzt die .ini von Rechner A nach Rechner B befördern. Das ganze soll natürlich voll automatisch und im Hintergrund passieren und müsste dann im @ScriptDir landen damit ich die Datei weiter verarbeiten kann.

Meine Idee war es bis jetzt die Datei auf einen Server zu senden und man von da aus die .ini abrufen (empfangen) kann.

Die .ini könnte dann ja sofort nach dem erhalt des Tastaturstands an den Server gesendet, bzw. dort zwischen gespeichert werden. Wenn ich dann von meiner GUI aus den Wert auslesen will, soll die Datei (die immer gleich heißt) auf meinen Rechner in den Script-Ordner kopiert werden.

Hat jemand eine Idee für mich wie ich das umsetzen könnte.

Gruß,
KriZza

KriZza

Naja einen besonderen Grund warum ich psexec über die Konsole starte hab ich nicht. Ich hab das nur aus Testzwecken so eingebaut.

sleep in der 7. Zeile brauch ich auch nicht unbedingt aber der in der 12. ist das ja für die Progressbar ja absolut wichtig.

Und leider kann ich im Moment deswegen das Programm während der Ausführung nicht beenden.

Gruß,
KriZza

KriZza

Nabend,
ich versuch gerade ne Progressbar zu erstellen, die "hochläuft" während ich einen Prozess oder besser gesagt einen Auftrag ausführen will.

Die Progressbar soll auch nicht irgendwo drauf zugreifen und was überprüfen, sondern einfach nur als Countdown laufen.

Allerdings läufts bei mir nur so, dass entweder der Auftrag zuerst ausgeführt wird und dann erst die Progressbar hochläuft oder genau andersrum.
Und das sleep geht mir auch auf die nerven, weil ich währed des Prozesses das Programm nicht verlassen kann!!

Hat jemand eine Idee, wie ich das Script sinvoll umstellen kann?!

Spoiler anzeigen

[autoit]

$blah = GUICtrlRead($A1)
If $blah = $GUI_CHECKED And $msg=$RUN Then
$Programmpfad = INIread("config.ini", "Pfade", "ProgrammA", "")
$remote=INIread("config.ini", "IPS", "RaumA", "")
$Zugang=INIread("config.ini", "Zugang", "Benutzer", "")
run(@ComSpec & " /k psexec \\" & $remote & " " & $Zugang & " " & $Programmpfad)
sleep (5000)
ProcessClose ("cmd.exe")
$wait = 20
For $i = 0 To 100 Step 20
GUICtrlSetData($ProA1, $i)
sleep (1000)
Next
EndIf

[/autoit]

Gruß, Krizza

KriZza

Super! Hat gepasst! Danke für deine Hilfe

KriZza

Ja genau, den Fehler habe ich auch schon gefunden. Aber es passt immernoch nicht. Die Daten werden kopiert und ein Screenshot wird erstellt.

Allerdings klappt der Befehl: GUICtrlSetState($Verkn, $GUI_CHECKED) nicht. Die Checkbox ist zwar aktiv, aber der Status wird nicht erkannt. Erst wenn ich die Checkbox manuell aktiviere. >> Woran liegt das ?

Und meine zweites Problem besteht darin, dass der Pfad von der Verkünpfung nicht stimmt. Unter den Eigenschaften der Verknüpfung steht >> C:\80\main.au3, also meine $Location wird nicht erkannt :(. Wo liegt da mein Fehler???

Gruß,
KriZza

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Global $i = 0

[/autoit] [autoit][/autoit] [autoit]

#NoTrayIcon

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$Window = GUICreate("test Programm", 476, 66, @DesktopHeight / 2.5, @DesktopWidth / 4)
$Location = GUICtrlCreateInput("C:\Programme\test", 8, 16, 257, 21)
$Locate = GUICtrlCreateButton("Installationspfad", 272, 16, 97, 25, 0)
$Install = GUICtrlCreateButton("Installieren", 376, 16, 89, 25, 0)
$Verkn = GuiCtrlCreateCheckbox("Verknüpfung auf dem Desktop erstellen (empfohlen)",8,40,290,30)
$Progress1 = GuiCtrlCreateProgress(335, 50, 127, 13)
GuiCtrlSetData(-1, $i)

[/autoit] [autoit][/autoit] [autoit]

GUICtrlSetState($Verkn, $GUI_CHECKED)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg()

Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $Locate
$var = FileSelectFolder("Bitte Installationspfad angeben", "", -1, @ProgramFilesDir & "\test")
GUICtrlSetData($Location, $var)

Case $Verkn
$test = GUICtrlGetState($Location)
If GUICtrlRead($Verkn) = 1 Then
FileCreateShortcut($test & "\main.au3",@DesktopDir & "\test.lnk")
EndIf
Case $Install

DirCreate(GUICtrlRead($Location))
DirCopy(@ScriptDir, GUICtrlRead($Location),1)
FileCopy(@ScriptDir & "\" & "Addons" & "\" & "test.exe", @SystemDir, 1)
$wait = 20
GUICtrlSetData($progress1, $i)
Sleep($wait)

[/autoit] [autoit][/autoit] [autoit]

For $i = 0 To 100
$MSG = GUIGetMsg()
GUICtrlSetData($PROGRESS1, $i)
sleep($wait)
Next
$confirm = MsgBox(0, "Installation abgeschlossen", "Die Installation ist fertiggestellt")
If $confirm = 6 Then ; Checked "ja"
EndIf
Exit

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit]

KriZza

naja eine idee hab ich noch is zwar n bisschen unkonventionell aber naja:

"echo. pushd & "%1" & "

oder halt zwischen den & noch Chr(34) einbauen

KriZza

Hi,
naja n Profi bin ich nich aber versuchs mal mit 'Hochzeichen' entweder mit oder ohne Anführungszeichen "' '" oder ' '

KriZza

Genial Danke!!
Aber ich brauche nochmal kurz hilfe
Ich versuche jetzt schon irgendwie verzweifelt eine Verknüpfung zu meinem "Variabelen Pfad" zu erstellen aber das klappt irgendwie alles nicht.
Also ich bin auch schon soweit auf den Trichter gekommen wo der Fehler ist (siehe Fragezeichen) allerdings habe ich schon alle möglichen Variationen ausprobiert. Mehr fehlt wahrscheinlich wieder eine Funktion. Kann mir jemand weiterhelfen?

Spoiler anzeigen

[autoit]

Case $Locate
$var = FileSelectFolder("Bitte Installationspfad angeben", "", -1, @ProgramFilesDir & "\TestOrdner")
GUICtrlSetData($Location, $var)
Case $Verkn
FileCreateShortcut("??????", @DesktopDir & "Verknüfung.lnk")

[/autoit]

KriZza

Hi,
ich hoffe mal mir kann jemand weiterhelfen!

Das Script (siehe Anhang) soll alle Daten die in meinem Scriptordner hinterlegt sind, bei Aktivierung des Scripts in einen "Default"-Ordner kopieren. Vom Grundprinzip her ist alles klar. Der Neue Ordner wird am richtigen Pfad erstellt und meine Dateien werden auch kopiert. Allerdings werden die Dateien in den flaschen Ordner kopiert. Sobald ich das Script ausführe wird automatisch in dem Scriptordner ein neuer Ordner, der "3" heißt erstellt und kopiert die Daten dahin. Der Ordner in meinem angegebenen Pfad bleibt allerdings leer. Ich vermute mal, das der Fehler beim Punkt SetData liegt, aber was genau ist falsch?

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

$Window = GUICreate("testprg", 476, 66, 3, 4)
$Location = GUICtrlCreateInput("C:\test\test", 8, 16, 257, 21)
$Loc = GUICtrlCreateButton("pfad", 272, 16, 97, 25, 0)
$Inst = GUICtrlCreateButton("Installieren", 376, 16, 89, 25, 0)
$Verkn = GuiCtrlCreateCheckbox("Verknüpfung Desktop",8,40,290,30)
GuiCtrlCreateProgress(335, 50, 127, 13)
GuiCtrlSetData(-1, 0)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $Loc
$var = FileSelectFolder("pfad angeben", "", -1, @ProgramFilesDir & "\test")
GUICtrlSetData($Location, $var)
Case $Verkn
FileCreateShortcut("", @DesktopDir & "test")
Case $Inst

DirCreate($Location)
FileCopy(@ScriptDir & "\" & "MAIN.au3", $Location, 1)

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit]

KriZza

Hallo erstmal zusammen,

ich hab bislang schon echt nützliche Beiträge hier im Forum gefunden, allerdings komme ich jetzt leider nicht weiter und muss auch mal selber einen Post erstellen.

Vorab, ich bin ziemlich neu dabei in Programmier und AutoIt - Geschichten, deswegen nicht gleich an den Kopf fassen wg. meiner unübersichtlichen Schreibweise.

Aber nun gut. mein ersten Problem besteht darin eine Verknüpfung zu aktiven Checkboxen zu erstellen. Klar wenn ich die unteren Funktionen in die While - Schleife schreibe dann funktioniert das Programm allerdings kann ich ja dann den Button nicht mehr ansprechen. // EDIT das hat sich schonmal erledigt = Select / Case

Dann habe ich gar keine Ahnung davon wie ich einen Neustart Verknüpfen kann. Welchen Befehl kann ich dafür verwenden einen Rechner neuzustarten?

Und meine vorerst letzte Frage: Ist es nicht Möglich in While - Schleife eine func einzubauen?

KriZza

Hallo erstmal zusammen,

ich hab bislang schon echt nützliche Beiträge hier im Forum gefunden, allerdings komme ich jetzt leider nicht weiter und muss auch mal selber einen Post erstellen.

Vorab, ich bin ziemlich neu dabei in Programmier und AutoIt - Geschichten, deswegen nicht gleich an den Kopf fassen wg. meiner unübersichtlichen Schreibweise.

Aber nun gut. mein ersten Problem besteht darin eine Verknüpfung zu aktiven Checkboxen zu erstellen. Klar wenn ich die unteren Funktionen in die While - Schleife schreibe dann funktioniert das Programm allerdings kann ich ja dann den Button nicht mehr ansprechen.

[autoit]

If $msg = $A1 meine CheckBox or $msg = $B1 or $msg = $C1 or $msg = $D1 AND $msg = $RUN meinBUTTON Then
$cstate = Bitand(GUICtrlRead($A1),$GUI_CHECKED) or Bitand(GUICtrlRead($B1),$GUI_CHECKED) or Bitand(GUICtrlRead($C1),$GUI_CHECKED) or Bitand(GUICtrlRead($D1),$GUI_CHECKED)
if $cstate = $GUI_CHECKED then run("C:\Programme\xy1.exe")
EndIf

[/autoit]

Dann habe ich gar keine Ahnung davon wie ich einen Neustart Verknüpfen kann. Welchen Befehl kann ich dafür verwenden einen Rechner neuzustarten?

Und meine vorerst letzte Frage: Ist es nicht Möglich in While - Schleife eine func einzubauen?

Anbei noch das komplett geschriebene bis jetzt.

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

;GUI und allgemeines aussehen
GUICreate("ConferenceCheck",380,300)
GUISetState(@SW_SHOW)
#NoTrayIcon

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;Variabelen
$PRGPATH = @ProgramFilesDir

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

; MENU
GuiCtrlCreateMenu("LOG")

[/autoit] [autoit][/autoit] [autoit]

;Checkbox
$AlleRooms = GuiCtrlCreateCheckbox("Alle Rooms auswählen", 20, 200, 150, 20)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

; BUTTON
$RUN = GuiCtrlCreateButton("Ausführen", 190, 235, 180, 30)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$END = GuiCtrlCreateButton("Beenden", 20, 235, 60, 30)

[/autoit] [autoit][/autoit] [autoit]

;Tabs
GuiCtrlCreateTab(20, 20, 350, 175)
GuiCtrlCreateTabItem("Raum A")
GUICtrlSetState(-1, $GUI_FOCUS)
$A1 = GUICtrlCreateCheckbox("Starte Programm1",30,50)
$ProA1 = GuiCtrlCreateProgress(215, 55, 127, 13)
GuiCtrlSetData(-1, 2)
$A2 = GUICtrlCreateCheckbox("Starte Programm2",30,70)
$ProA2 = GuiCtrlCreateProgress(215, 75, 127, 13)
GuiCtrlSetData(-1, 20)
$A3 = GUICtrlCreateCheckbox("Starte Programm3",30,90)
$ProA3 = GuiCtrlCreateProgress(215, 95, 127, 13)
GuiCtrlSetData(-1, 40)
$A4 = GUICtrlCreateCheckbox("Batteriestand der Tastatur prüfen",30,110)
$ProA4 = GuiCtrlCreateProgress(215, 115, 127, 13)
GuiCtrlSetData(-1, 60)
$A5 = GUICtrlCreateCheckbox("Update Check starten",30,130)
$ProA5 = GuiCtrlCreateProgress(215, 135, 127, 13)
GuiCtrlSetData(-1, 80)
$A6 = GUICtrlCreateCheckbox("Rechner neustart",30,150)
$ProA6 = GuiCtrlCreateProgress(215, 155, 127, 13)
GuiCtrlSetData(-1, 100)
$AlleFunksA = GuiCtrlCreateCheckbox("Alle Funktionen auswählen", 30, 170, 150, 20)
$WichFunksA = GuiCtrlCreateCheckbox("Wichtigste Funktionen", 215, 170, 150, 20)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

GuiCtrlCreateTabItem("Raum B")
$B1 = GUICtrlCreateCheckbox("Programm 1",30,50)
GuiCtrlCreateProgress(215, 55, 127, 13)
GuiCtrlSetData(-1, 2)
$B2 = GUICtrlCreateCheckbox("Programm 2",30,70)
GuiCtrlCreateProgress(215, 75, 127, 13)
GuiCtrlSetData(-1, 20)
$B3 = GUICtrlCreateCheckbox("Programm 3",30,90)
GuiCtrlCreateProgress(215, 95, 127, 13)
GuiCtrlSetData(-1, 40)
$B4 = GUICtrlCreateCheckbox("Batteriestand der Tastatur prüfen",30,110)
GuiCtrlCreateProgress(215, 115, 127, 13)
GuiCtrlSetData(-1, 60)
$B5 = GUICtrlCreateCheckbox("Update Check starten",30,130)
GuiCtrlCreateProgress(215, 135, 127, 13)
GuiCtrlSetData(-1, 80)
$B6 = GUICtrlCreateCheckbox("Rechner neustart",30,150)
GuiCtrlCreateProgress(215, 155, 127, 13)
GuiCtrlSetData(-1, 100)
$AlleFunksB = GuiCtrlCreateCheckbox("Alle Funktionen auswählen", 30, 170, 150, 20)
$WichFunksB = GuiCtrlCreateCheckbox("Wichtigste Funktionen", 215, 170, 150, 20)

[/autoit] [autoit][/autoit] [autoit]

GuiCtrlCreateTabItem("Raum C")
$C1 = GUICtrlCreateCheckbox("Programm 1",30,50)
GuiCtrlCreateProgress(215, 55, 127, 13)
GuiCtrlSetData(-1, 2)
$C2 = GUICtrlCreateCheckbox("Programm 2",30,70)
GuiCtrlCreateProgress(215, 75, 127, 13)
GuiCtrlSetData(-1, 20)
$C3 = GUICtrlCreateCheckbox("Programm 3",30,90)
GuiCtrlCreateProgress(215, 95, 127, 13)
GuiCtrlSetData(-1, 40)
$C4 = GUICtrlCreateCheckbox("Batteriestand der Tastatur prüfen",30,110)
GuiCtrlCreateProgress(215, 115, 127, 13)
GuiCtrlSetData(-1, 60)
$C5 = GUICtrlCreateCheckbox("Update Check starten",30,130)
GuiCtrlCreateProgress(215, 135, 127, 13)
GuiCtrlSetData(-1, 80)
$C6 = GUICtrlCreateCheckbox("Rechner neustart",30,150)
GuiCtrlCreateProgress(215, 155, 127, 13)
GuiCtrlSetData(-1, 100)
$AlleFunksC = GuiCtrlCreateCheckbox("Alle Funktionen auswählen", 30, 170, 150, 20)
$WichFunksC = GuiCtrlCreateCheckbox("Wichtigste Funktionen", 215, 170, 150, 20)

[/autoit] [autoit][/autoit] [autoit]

GuiCtrlCreateTabItem("Raum D")
$D1 = GUICtrlCreateCheckbox("Programm 1",30,50)
GuiCtrlCreateProgress(215, 55, 127, 13)
GuiCtrlSetData(-1, 2)
$D2 = GUICtrlCreateCheckbox("Programm 2",30,70)
GuiCtrlCreateProgress(215, 75, 127, 13)
GuiCtrlSetData(-1, 20)
$D3 = GUICtrlCreateCheckbox("Programm 3",30,90)
GuiCtrlCreateProgress(215, 95, 127, 13)
GuiCtrlSetData(-1, 40)
$D4 = GUICtrlCreateCheckbox("Batteriestand der Tastatur prüfen",30,110)
GuiCtrlCreateProgress(215, 115, 127, 13)
GuiCtrlSetData(-1, 60)
$D5 = GUICtrlCreateCheckbox("Update Check starten",30,130)
GuiCtrlCreateProgress(215, 135, 127, 13)
GuiCtrlSetData(-1, 80)
$D6 = GUICtrlCreateCheckbox("Rechner neustart",30,150)
GuiCtrlCreateProgress(215, 155, 127, 13)
GuiCtrlSetData(-1, 100)
$AlleFunksD = GuiCtrlCreateCheckbox("Alle Funktionen auswählen", 30, 170, 150, 20)
$WichFunksD = GuiCtrlCreateCheckbox("Wichtigste Funktionen", 215, 170, 150, 20)

[/autoit] [autoit][/autoit] [autoit]

GuiCtrlCreateTabItem("")

[/autoit] [autoit][/autoit] [autoit]

;Funktionen

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;Schleife für GUI anzeigen und Funktion

[/autoit] [autoit][/autoit] [autoit]

While 1
Sleep (10)
$msg = GUIGetMsg()
If $msg = $END Or $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

[/autoit] [autoit][/autoit] [autoit]

$msg = GUIGetMsg()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If $msg = $A1 or $msg = $B1 or $msg = $C1 or $msg = $D1 Then
$cstate = Bitand(GUICtrlRead($A1),$GUI_CHECKED) or Bitand(GUICtrlRead($B1),$GUI_CHECKED) or Bitand(GUICtrlRead($C1),$GUI_CHECKED) or Bitand(GUICtrlRead($D1),$GUI_CHECKED)
if $cstate = $GUI_CHECKED then run("C:\Programme\xy1.exe")
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If $msg = $A2 or $msg = $B2 or $msg = $C2 or $msg = $D2 Then
$cstate = Bitand(GUICtrlRead($A2),$GUI_CHECKED) or Bitand(GUICtrlRead($B2),$GUI_CHECKED) or Bitand(GUICtrlRead($C2),$GUI_CHECKED) or Bitand(GUICtrlRead($D2),$GUI_CHECKED)
if $cstate = $GUI_CHECKED then run("C:\Programme\xy2.exe")
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If $msg = $A3 or $msg = $B3 or $msg = $C3 or $msg = $D3 Then
$cstate = Bitand(GUICtrlRead($A3),$GUI_CHECKED) or Bitand(GUICtrlRead($B3),$GUI_CHECKED) or Bitand(GUICtrlRead($C3),$GUI_CHECKED) or Bitand(GUICtrlRead($D3),$GUI_CHECKED)
if $cstate = $GUI_CHECKED then run("C:\Programme\xy3.exe")
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If $msg = $A4 or $msg = $B4 or $msg = $C4 or $msg = $D4 Then
$cstate = Bitand(GUICtrlRead($A4),$GUI_CHECKED) or Bitand(GUICtrlRead($B4),$GUI_CHECKED) or Bitand(GUICtrlRead($C4),$GUI_CHECKED) or Bitand(GUICtrlRead($D4),$GUI_CHECKED)
if $cstate = $GUI_CHECKED then run("C:\Programme\xy4.exe);Script einfügen
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If $msg = $A5 or $msg = $B5 or $msg = $C5 or $msg = $D5 Then
$cstate = Bitand(GUICtrlRead($A5),$GUI_CHECKED) or Bitand(GUICtrlRead($B5),$GUI_CHECKED) or Bitand(GUICtrlRead($C5),$GUI_CHECKED) or Bitand(GUICtrlRead($D5),$GUI_CHECKED)
if $cstate = $GUI_CHECKED then run("C:\Programme\xy5.exe")
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If $msg = $A6 or $msg = $B6 or $msg = $C6 or $msg = $D6 Then
$cstate = Bitand(GUICtrlRead($A6),$GUI_CHECKED) or Bitand(GUICtrlRead($B6),$GUI_CHECKED) or Bitand(GUICtrlRead($C6),$GUI_CHECKED) or Bitand(GUICtrlRead($D6),$GUI_CHECKED)
if $cstate = $GUI_CHECKED then run("C:\Programme\xy6.exe")
EndIf
;____________________________________________________________________________________________________________________
;------------------------------Raum A------CHECKBOX = ALLE FUNKTIONEN--------------------------------------
;____________________________________________________________________________________________________________________
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $AlleFunksA
If GUICtrlRead($AlleFunksA) = 1 Then
GUICtrlSetState($A1, $GUI_CHECKED)
GUICtrlSetState($A2, $GUI_CHECKED)
GUICtrlSetState($A3, $GUI_CHECKED)
GUICtrlSetState($A4, $GUI_CHECKED)
GUICtrlSetState($A5, $GUI_CHECKED)
GUICtrlSetState($A6, $GUI_CHECKED)
else
GUICtrlSetState($A1, $GUI_UNCHECKED)
GUICtrlSetState($A2, $GUI_UNCHECKED)
GUICtrlSetState($A3, $GUI_UNCHECKED)
GUICtrlSetState($A4, $GUI_UNCHECKED)
GUICtrlSetState($A5, $GUI_UNCHECKED)
GUICtrlSetState($A6, $GUI_UNCHECKED)
EndIf
EndSwitch
;_____________________________________________Wichtige Funktionen________________________________________________
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $WichFunksA
If GUICtrlRead($WichFunksA) = 1 Then
GUICtrlSetState($A1, $GUI_CHECKED)
GUICtrlSetState($A2, $GUI_CHECKED)
GUICtrlSetState($A3, $GUI_CHECKED)
GUICtrlSetState($A4, $GUI_CHECKED)

[/autoit] [autoit][/autoit] [autoit]

else
GUICtrlSetState($A1, $GUI_UNCHECKED)
GUICtrlSetState($A2, $GUI_UNCHECKED)
GUICtrlSetState($A3, $GUI_UNCHECKED)
GUICtrlSetState($A4, $GUI_UNCHECKED)

[/autoit] [autoit][/autoit] [autoit]

EndIf
EndSwitch
;____________________________________________________________________________________________________________________
;-------------------------------RAUM B-----CHECKBOX = ALLE FUNKTIONEN--------------------------------------
;____________________________________________________________________________________________________________________
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $AlleFunksB
If GUICtrlRead($AlleFunksB) = 1 Then
GUICtrlSetState($B1, $GUI_CHECKED)
GUICtrlSetState($B2, $GUI_CHECKED)
GUICtrlSetState($B3, $GUI_CHECKED)
GUICtrlSetState($B4, $GUI_CHECKED)
GUICtrlSetState($B5, $GUI_CHECKED)
GUICtrlSetState($B6, $GUI_CHECKED)
else
GUICtrlSetState($B1, $GUI_UNCHECKED)
GUICtrlSetState($B2, $GUI_UNCHECKED)
GUICtrlSetState($B3, $GUI_UNCHECKED)
GUICtrlSetState($B4, $GUI_UNCHECKED)
GUICtrlSetState($B5, $GUI_UNCHECKED)
GUICtrlSetState($B6, $GUI_UNCHECKED)
EndIf
EndSwitch
;_____________________________________________Wichtige Funktionen________________________________________________
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $WichFunksB
If GUICtrlRead($WichFunksB) = 1 Then
GUICtrlSetState($B1, $GUI_CHECKED)
GUICtrlSetState($B2, $GUI_CHECKED)
GUICtrlSetState($B3, $GUI_CHECKED)
GUICtrlSetState($B4, $GUI_CHECKED)

[/autoit] [autoit][/autoit] [autoit]

else
GUICtrlSetState($B1, $GUI_UNCHECKED)
GUICtrlSetState($B2, $GUI_UNCHECKED)
GUICtrlSetState($B3, $GUI_UNCHECKED)
GUICtrlSetState($B4, $GUI_UNCHECKED)

[/autoit] [autoit][/autoit] [autoit]

EndIf
EndSwitch

[/autoit] [autoit][/autoit] [autoit]

;____________________________________________________________________________________________________________________
;-----------------------------------Raum C CHECKBOX = ALLE FUNKTIONEN--------------------------------------
;____________________________________________________________________________________________________________________
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $AlleFunksC
If GUICtrlRead($AlleFunksC) = 1 Then
GUICtrlSetState($C1, $GUI_CHECKED)
GUICtrlSetState($C2, $GUI_CHECKED)
GUICtrlSetState($C3, $GUI_CHECKED)
GUICtrlSetState($C4, $GUI_CHECKED)
GUICtrlSetState($C5, $GUI_CHECKED)
GUICtrlSetState($C6, $GUI_CHECKED)
else
GUICtrlSetState($C1, $GUI_UNCHECKED)
GUICtrlSetState($C2, $GUI_UNCHECKED)
GUICtrlSetState($C3, $GUI_UNCHECKED)
GUICtrlSetState($C4, $GUI_UNCHECKED)
GUICtrlSetState($C5, $GUI_UNCHECKED)
GUICtrlSetState($C6, $GUI_UNCHECKED)
EndIf
EndSwitch
;_____________________________________________Wichtige Funktionen________________________________________________
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $WichFunksC
If GUICtrlRead($WichFunksC) = 1 Then
GUICtrlSetState($C1, $GUI_CHECKED)
GUICtrlSetState($C2, $GUI_CHECKED)
GUICtrlSetState($C3, $GUI_CHECKED)
GUICtrlSetState($C4, $GUI_CHECKED)

[/autoit] [autoit][/autoit] [autoit]

else
GUICtrlSetState($C1, $GUI_UNCHECKED)
GUICtrlSetState($C2, $GUI_UNCHECKED)
GUICtrlSetState($C3, $GUI_UNCHECKED)
GUICtrlSetState($C4, $GUI_UNCHECKED)

[/autoit] [autoit][/autoit] [autoit]

EndIf
EndSwitch
;_________________________________________________________________________________________________________________
;--------------------------------------Raum D---CHECKBOX = ALLE FUNKTIONEN--------------------------------------
;____________________________________________________________________________________________________________________
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $AlleFunksD
If GUICtrlRead($AlleFunksD) = 1 Then
GUICtrlSetState($D1, $GUI_CHECKED)
GUICtrlSetState($D2, $GUI_CHECKED)
GUICtrlSetState($D3, $GUI_CHECKED)
GUICtrlSetState($D4, $GUI_CHECKED)
GUICtrlSetState($D5, $GUI_CHECKED)
GUICtrlSetState($D6, $GUI_CHECKED)
else
GUICtrlSetState($D1, $GUI_UNCHECKED)
GUICtrlSetState($D2, $GUI_UNCHECKED)
GUICtrlSetState($D3, $GUI_UNCHECKED)
GUICtrlSetState($D4, $GUI_UNCHECKED)
GUICtrlSetState($D5, $GUI_UNCHECKED)
GUICtrlSetState($D6, $GUI_UNCHECKED)
EndIf
EndSwitch
;_____________________________________________Wichtige Funktionen________________________________________________
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $WichFunksD
If GUICtrlRead($WichFunksD) = 1 Then
GUICtrlSetState($D1, $GUI_CHECKED)
GUICtrlSetState($D2, $GUI_CHECKED)
GUICtrlSetState($D3, $GUI_CHECKED)
GUICtrlSetState($D4, $GUI_CHECKED)

[/autoit] [autoit][/autoit] [autoit]

else
GUICtrlSetState($D1, $GUI_UNCHECKED)
GUICtrlSetState($D2, $GUI_UNCHECKED)
GUICtrlSetState($D3, $GUI_UNCHECKED)
GUICtrlSetState($D4, $GUI_UNCHECKED)

[/autoit] [autoit][/autoit] [autoit]

EndIf
EndSwitch
;___________________________________________________________________________________________________________________________________________________
;____________________________________________________________________________________________________________________
;-------------------------------------------------ALLE Räume------------------------------------
;____________________________________________________________________________________________________________________
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $AlleRooms
If GUICtrlRead($AlleRooms) = 1 Then
GUICtrlSetState($A1, $GUI_CHECKED)
GUICtrlSetState($A2, $GUI_CHECKED)
GUICtrlSetState($A3, $GUI_CHECKED)
GUICtrlSetState($A4, $GUI_CHECKED)
GUICtrlSetState($B1, $GUI_CHECKED)
GUICtrlSetState($B2, $GUI_CHECKED)
GUICtrlSetState($B3, $GUI_CHECKED)
GUICtrlSetState($B4, $GUI_CHECKED)
GUICtrlSetState($C1, $GUI_CHECKED)
GUICtrlSetState($C2, $GUI_CHECKED)
GUICtrlSetState($C3, $GUI_CHECKED)
GUICtrlSetState($C4, $GUI_CHECKED)
GUICtrlSetState($D1, $GUI_CHECKED)
GUICtrlSetState($D2, $GUI_CHECKED)
GUICtrlSetState($D3, $GUI_CHECKED)
GUICtrlSetState($D4, $GUI_CHECKED)
else
GUICtrlSetState($A1, $GUI_UNCHECKED)
GUICtrlSetState($A2, $GUI_UNCHECKED)
GUICtrlSetState($A3, $GUI_UNCHECKED)
GUICtrlSetState($A4, $GUI_UNCHECKED)
GUICtrlSetState($B1, $GUI_UNCHECKED)
GUICtrlSetState($B2, $GUI_UNCHECKED)
GUICtrlSetState($B3, $GUI_UNCHECKED)
GUICtrlSetState($B4, $GUI_UNCHECKED)
GUICtrlSetState($C1, $GUI_UNCHECKED)
GUICtrlSetState($C2, $GUI_UNCHECKED)
GUICtrlSetState($C3, $GUI_UNCHECKED)
GUICtrlSetState($C4, $GUI_UNCHECKED)
GUICtrlSetState($D1, $GUI_UNCHECKED)
GUICtrlSetState($D2, $GUI_UNCHECKED)
GUICtrlSetState($D3, $GUI_UNCHECKED)
GUICtrlSetState($D4, $GUI_UNCHECKED)
EndIf
EndSwitch

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]

Beiträge von KriZza

RegWrite mit Daten von INIread

Prozess nur einmal starten!

Prozess nur einmal starten!

Prozess nur einmal starten!

WOL / Kein Übergabe der MAC-Adresse

Mausbewegung erkennen und überwachen

Dateien im lokalen Netz senden und empfangen!

Dateien im lokalen Netz senden und empfangen!

Dateien im lokalen Netz senden und empfangen!

Dateien im lokalen Netz senden und empfangen!

Progressbar und "Run" ?!

Progressbar und "Run" ?!

Create Shortcut!!

Create Shortcut!!

Problem mit Anführungszeichen

Problem mit Anführungszeichen

Create Shortcut!!

Create Shortcut!!

GUI - Verknüpfung und viele weitere fragen ;) -Teil 2

GUI - Verknüpfung und viele weitere fragen ;)