Beiträge von autoBert

**autoBert**

Hallo Manilus,

Zitat von Manlius

Ich hab einfach vor, Tastendrücken und Mausbewegungen an ein nicht aktives Fenster zu schicken...

Edit: also iwie geht das mit den tastendrücken nich...Das Script schreibt nichts:

Spoiler anzeigen

[autoit]

#include <Mouse.au3>
#include <Key.au3>
[/autoit] [autoit][/autoit] [autoit]
Run ("Notepad.exe")
WinWait ("Unbenannt - Editor")
Sleep (2000)
$simul = SimulKey ("Unbenannt - Editor]","Hallo Leute")
If $simul = 1 Then
MsgBox (32,"Erfolg","Erfolg")
Else
MsgBox (16,"Fehlgeschlagen","Die dll User32 konnte nicht geladen werden")
EndIf
[/autoit]

Alles anzeigen

Zitat von Manlius

Zitat von »AutoBert«
Hallo manilus,

das wichtigste in deinem Skript hast du leider vergessen, nämlich die func die du in Zeile 8 aufrufst:
[autoit]
$simul = SimulKey ("Unbenannt - Editor]","Hallo Leute")
[/autoit]
mfg (Auto)Bert

???
Die Funktion is doch da, oder nicht?!?!?!?

Ich kann sie in deinem geposteten Skript nicht entdecken, außerdem wäre es nett wenn du etwas genauer beschreiben würdest, was du vor hast,

mfg (Auto)Bert

**autoBert**

Hallo al-magic,

Zitat von al-magic

Stelle mir vor eine Webseite in einem Fenster zu öffnen und per Editor die Befehle direkt in ein Listing eintragen zu können.
Dieses Listing soll möglichst in Einzelschritten direkt überprüfbar sein und es soll einen Runmodus geben.

Einen Trace- oder Debug-Modus gibt es in AutoIt nicht,

mfg (Auto)Bert

**autoBert**

Hallo dominik,

Skript lies sich nicht kompilieren, daher $radioNachtschaltEIN als globale Variable definiert. Deine MSG-Loop Schleifen habe ich zu einer zusammengefasst.

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include "RestrictControlRegExp.au3"

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

Global $radioNachtschaltEIN

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

;If FileExists("Variablen.ini") Then FileDelete("Variablen.ini")
#Region ### START Koda GUI section ### Form=d:\programme\baycom\poc32\batch\gui alarme\aform1.kxf
$Form1_1 = GUICreate("Einstellungen für Alarmierung :", 633, 447, 193, 115)
$Label1 = GUICtrlCreateLabel("Einstellungen", 224, 24, 175, 33) ;GUICtrlCreateLabel ( "text", left, top [, width [, height [, style [, exStyle]]]] )
GUICtrlSetFont(-1, 18, 800, 0, "Arial")
GUICtrlCreateGroup("", -99, -99, 1, 1)
_RegEx_RestrictControl_setup(20) ; spezial funktion
$Group2 = GUICtrlCreateGroup("Einstellungen", 384, 120, 209, 300) ;GUICtrlCreateGroup ( "text", left, top [, width [, height [, style [, exStyle]]]] )
$TelefonAUS = GUICtrlCreateCheckbox("Telefon Anruf ausschalten", 400, 152, 150, 17);GUICtrlCreateCheckbox ( "text", left, top [, width [, height [, style [, exStyle]]]] )
$GoogleSTARTEN = GUICtrlCreateCheckbox("Google Maps starten", 400, 176, 150, 25)
$SoundAUS = GUICtrlCreateCheckbox("Sound ausschalten", 400, 208, 121, 25)
$Ausgangspos = GUICtrlCreateCheckbox("Nach Suche in Ausgangsposition", 400, 240, 175, 25)
$FreieSuche = GUICtrlCreateCheckbox("Freie Suchauswahl ein", 400, 272, 130, 25)
$DiagnoseEIN = GUICtrlCreateCheckbox("Diagnose Meldungen ein", 400, 305, 135, 25)
$EnergiesprNAus = GUICtrlCreateCheckbox("Energiespar nicht ausschalten", 400, 337, 175, 25)
$Label2 = GUICtrlCreateLabel("Lautstärke in % (30)", 20, 192, 140, 33)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
$Lautstaerke = GUICtrlCreateInput('', 150, 192, 25, 20);GUICtrlCreateInput ( "text", left, top [, width [, height [, style [, exStyle]]]] )
_RegEx_RestrictControl_add($Lautstaerke, "^[0-9]{0,3}$"); Eingabe: nur ziffern 0-9 / und nur 3 stellen

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

$Group3 = GUICtrlCreateGroup("Nachtschaltung", 15, 220, 280, 80)
;$radioNachtschaltEIN= GUICtrlCreateRadio("Nachtschaltung ein", 30, 235, 110, 25)
;$radioNachtschaltAUS = GUICtrlCreateRadio("Nachtschaltung aus", 30, 255, 113, 25)

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

$Label3 = GUICtrlCreateLabel("Uhrzeit Beginn (23)", 140, 238, 130, 33)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
$UhrzeitBegi = GUICtrlCreateInput("", 265, 238, 20, 20)
_RegEx_RestrictControl_add($UhrzeitBegi, "^[0-9]{0,2}$"); Eingabe: nur ziffern 0-9 / und nur 2 stellen

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

$Label4 = GUICtrlCreateLabel("Uhrzeit Ende (07)", 140, 259, 130, 33)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
$UhrzeitEnde = GUICtrlCreateInput("", 265, 259, 20, 20)
_RegEx_RestrictControl_add($UhrzeitEnde, "^[0-9]{0,2}$"); Eingabe: nur ziffern 0-9 / und nur 2 stellen

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

$Label5 = GUICtrlCreateLabel("Anzahl der Meldungen die eingelesen werden sollen (20):", 20, 140, 200, 33)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
$AnzahlMeldungen = GUICtrlCreateInput('', 220, 150, 25, 20)
_RegEx_RestrictControl_add($AnzahlMeldungen, "^[0-9]{0,3}$"); Eingabe: nur ziffern 0-9 / und nur 2 stellen

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

GUICtrlCreateGroup("", -99, -99, 1, 1)
$hbtnSave = GUICtrlCreateButton("Speichern", 96, 368, 81, 41, 0)
$hbtnExit = GUICtrlCreateButton("Beenden ", 200, 368, 81, 41, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $hbtnSave
$check1TELEFON = GUICtrlRead($TelefonAUS) ; 4 = nicht gechecked ///// 1= gechecked
$check2GOOGLE = GUICtrlRead($GoogleSTARTEN)
$check3SOUND = GUICtrlRead($SoundAUS)
$check4AUSGpos = GUICtrlRead($Ausgangspos)
$check5SUCHE = GUICtrlRead($FreieSuche)
$check6DIAG = GUICtrlRead($DiagnoseEIN)
$check7ENERGIE = GUICtrlRead($EnergiesprNAus)
$eingabe1LAUTST = GUICtrlRead($Lautstaerke)
$eingabe2UHRBEG = GUICtrlRead($UhrzeitBegi)
$eingabe3UHREND = GUICtrlRead($UhrzeitEnde)
$eingabe4ANZAHL = GUICtrlRead($AnzahlMeldungen)

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

If $eingabe1LAUTST > 0 Then
;Sleep(500)
Local $iniRead = IniRead(@ScriptDir & "\Variablen.ini", "Lautstärke", "Prozent", "nichts gefunden")
If $eingabe1LAUTST <> $iniRead Then
IniWrite(@ScriptDir & "\Variablen.ini", "Lautstärke", "Prozent", $eingabe1LAUTST)
MsgBox("", "73", "Einstellung aktualisiert !")
EndIf
EndIf
If $eingabe4ANZAHL > 0 Then
;Sleep(500)
Local $iniRead = IniRead(@ScriptDir & "\Variablen.ini", "Suchmenge", "Anzahl", "nichts gefunden")
If $eingabe4ANZAHL <> $iniRead Then
IniWrite(@ScriptDir & "\Variablen.ini", "Suchmenge", "Anzahl", $eingabe4ANZAHL)
MsgBox("", "80", "Einstellung aktualisiert !")
EndIf
EndIf
;--------------------------------------------
If $eingabe2UHRBEG > 0 Then
;Sleep(500)
Local $iniRead = IniRead(@ScriptDir & "\Variablen.ini", "UhrzeitBeginn", "Stunde", "nichts gefunden")
If $eingabe2UHRBEG <> $iniRead Then
IniWrite(@ScriptDir & "\Variablen.ini", "UhrzeitBeginn", "Stunde", $eingabe2UHRBEG)
MsgBox("", "88", "Einstellung aktualisiert !")
EndIf
Else
IniWrite(@ScriptDir & "\Variablen.ini", "UhrzeitBeginn", "Stunde", "23")

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

EndIf
If $eingabe3UHREND > 0 Then
;Sleep(500)
Local $iniRead = IniRead(@ScriptDir & "\Variablen.ini", "UhrzeitEnde", "Stunde", "nichts gefunden")
If $eingabe3UHREND <> $iniRead Then
IniWrite(@ScriptDir & "\Variablen.ini", "UhrzeitEnde", "Stunde", $eingabe3UHREND)
MsgBox("", "97", "Einstellung aktualisiert !")
EndIf
Else
IniWrite(@ScriptDir & "\Variablen.ini", "UhrzeitEnde", "Stunde", "07")

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

EndIf
;----------------------------------------

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

If $check1TELEFON = 1 Then ; 1 = Telefon ausschalten , d.h. ini auf 0 setzen
IniWrite(@ScriptDir & "\Variablen.ini", "Telefon", "anrufen", "0") ;IniWrite ( "filename", "section", "key", "value" )
EndIf
If $check1TELEFON = 4 Then
IniWrite(@ScriptDir & "\Variablen.ini", "Telefon", "anrufen", "1") ;IniWrite ( "filename", "section", "key", "value" )

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

EndIf
If $check2GOOGLE = 1 Then
IniWrite(@ScriptDir & "\Variablen.ini", "Google", "Start", "1") ;IniWrite ( "filename", "section", "key", "value" )

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

EndIf
If $check2GOOGLE = 4 Then
IniWrite(@ScriptDir & "\Variablen.ini", "Google", "Start", "0") ;IniWrite ( "filename", "section", "key", "value" )

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

EndIf
If $check3SOUND = 1 Then
IniWrite(@ScriptDir & "\Variablen.ini", "Sound", "Eingeschaltet", "0") ;IniWrite ( "filename", "section", "key", "value" )

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

EndIf
If $check3SOUND = 4 Then
IniWrite(@ScriptDir & "\Variablen.ini", "Sound", "Eingeschaltet", "1") ;IniWrite ( "filename", "section", "key", "value" )

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

EndIf
If $check4AUSGpos = 1 Then
IniWrite(@ScriptDir & "\Variablen.ini", "Ausgangsposition", "zurück", "1") ;IniWrite ( "filename", "section", "key", "value" )

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

EndIf
If $check4AUSGpos = 4 Then
IniWrite(@ScriptDir & "\Variablen.ini", "Ausgangsposition", "zurück", "0") ;IniWrite ( "filename", "section", "key", "value" )

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

EndIf
If $check5SUCHE = 1 Then
IniWrite(@ScriptDir & "\Variablen.ini", "Suchauswahl", "ein", "1") ;IniWrite ( "filename", "section", "key", "value" )

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

EndIf
If $check5SUCHE = 4 Then
IniWrite(@ScriptDir & "\Variablen.ini", "Suchauswahl", "ein", "0") ;IniWrite ( "filename", "section", "key", "value" )

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

EndIf
If $check6DIAG = 1 Then
IniWrite(@ScriptDir & "\Variablen.ini", "Diagnose", "ein", "1") ;IniWrite ( "filename", "section", "key", "value" )

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

EndIf
If $check6DIAG = 4 Then
IniWrite(@ScriptDir & "\Variablen.ini", "Diagnose", "ein", "0") ;IniWrite ( "filename", "section", "key", "value" )

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

EndIf
If $check7ENERGIE = 1 Then
IniWrite(@ScriptDir & "\Variablen.ini", "Energie", "aus", "0") ;IniWrite ( "filename", "section", "key", "value" )

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

EndIf
If $check7ENERGIE = 4 Then
IniWrite(@ScriptDir & "\Variablen.ini", "Energie", "aus", "1") ;IniWrite ( "filename", "section", "key", "value" )

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

EndIf
Case $hbtnExit
;FileDelete("Variablen.ini")

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

Exit
Case $Gui_Event_Close
;FileDelete("Variablen.ini")

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

Exit
Case $nMsg = $radioNachtschaltEIN
;MsgBox(64, 'Info:', 'You clicked the Radio 1 and it is Checked.')
EndSwitch
WEnd

[/autoit]

Teste aber bitte das ganze noch aus, sollte aber funktionieren. Im MsgLoop-Modus benötigst du keinen sleep und GuiGetMsg darf nur 1-mal benutzt werden,

mfg (Auto)Bert

**autoBert**

Hallo

hast du es schon einam so

[autoit]

run(@ScriptDir & "\WOL\1\wake.exe",@ScriptDir & "\WOL\1\wake.exe")

[/autoit]

versucht?

Edit: Workingdir angepasst (siehe Beitrag #4 von Andy)
mfg (Auto)Bert

**autoBert**

Hallo Jonathan,

die MAC-Adresse ist physikalisch fest auf der Netzwerkkarte abgelegt. Sie dient dazu eine Netzwerkkarte eindeutig zu indetifzieren, eine Möglichkeit diese zu ändern ist mir nicht bekannt und mir fällt auch kein Grund ein warum man dies tun sollte.

mfg (Auto)Bert

**autoBert**

Hallo Mrx007,

Auszug aus den AGB's von Gamig.de :

Zitat

1.12.An den von gamigo betriebenen Spiele darf der Nutzer jeweils nur mit einem Account teilnehmen („Verbot von Multiaccounts“). Das nähere ist aus den Verhaltensregeln zu entnehmen.

lies dir also bitte die Forenregeln durch,

mfg (Auto)Bert

**autoBert**

Hallo SchrotterCh,

[autoit]

#include <EditConstants.au3>
...
$Input = GUICtrlCreateInput("", 8, 32, 225, 21,$ES_PASSWORD)
...

[/autoit]

Zitat

Auszug aus der Hilfe:
$ES_PASSWORD | 0x0020 | Zeigt für jedes eingegebene Zeichen ein Sternchen (*) an.

mfg (Auto)Bert

**autoBert**

Hallo Calypso,

wenn du "Gänsefüsschen" verwenden möchtest dann setze diese doch einfach in "einfache Hochkommas", also so

[autoit]

HotKeySet(' "" ', "") ;ohne die Leerzeichen

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo manilus,

das wichtigste in deinem Skript hast du leider vergessen, nämlich die func die du in Zeile 8 aufrufst:

[autoit]

$simul = SimulKey ("Unbenannt - Editor]","Hallo Leute")

[/autoit]

mfg (Auto)Bert

**autoBert**

Raupi ,

Zitat

@simon. Kann es sein, das du die vorherigen Beiträge nicht richtig liest? Ist mir jetz schon des öfteren aufgefallen, das du absolut unnütze Beiträge abgiebst.

liegt wohl daran, dass er einige User auf seiner Ignore-Liste hat, dadurch kann er die Beiträge nicht lesen, noch nicht einmal die für ihn wichtigen,

@manilus, was hast du den genau vor?

mfg (Auto)Bert

**autoBert**

Hallo SchrotterCh,

das geht nur für normale Progressbars (siehe Hilfe dazu) nicht aber für marquee (afaik),

mfg (Auto)Bert

**autoBert**

Hallo search247,

welches Prgramm friert ein, dein AutoIt-Skript oder freehand 9? Du könntest ja in deinem Skript überprüfen ob etwas in der Zwischenablage ist und wenn nicht eine MsgBox ausgeben.

[autoit]

$bak = ClipGet()
if $bak ="" then
MsgBox(64,"Zwischenablage","ist leer")
Else
.... ; Funktionen zum einfügen
EndIf

[/autoit]

mfg (Auto)Bert

@kloklo man kann seine Posts auch editieren, einfach auf bearbeiten drücken

**autoBert**

Hallo ThinkCross,

diese Änderungen müssten eigenlich reichen:

[autoit]

;Gruppen-Variablen
Global $input_searchgroup, $btn_searchgroup, $lLDapWert

[/autoit][autoit]

Func _Gruppen_Fenster() ;nur die Controls erzeugen
Local $wert
GUICtrlCreateLabel("Gruppe:", 10, 40)
$input_searchgroup = GUICtrlCreateInput("", 100, 40, 140, 20)
GUICtrlSetState(-1, $GUI_FOCUS)
$btn_searchgroup = GUICtrlCreateButton("Suchen", 270, 40, 60, 20)
GUICtrlCreateLabel("LDAP:", 10, 70)
;$wert = $returnwert
$lLDapWert = GUICtrlCreateLabel($wert, 100, 70)
MsgBox(4096, "", $wert)
EndFunc ;==>_Gruppen_Fenster

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

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE Or $msg = $item_help_exit
GuiDelete($hguiGroup)
GUIDelete($hguiDC)
GUIDelete($hmainGui)
Exit
Case $msg = $item_dc_dcs
GUISetState(@SW_SHOW, $hguiDC)
GUISetState(@SW_HIDE, $hguiGroup)
Case $msg = $item_group_search
GUISetState(@SW_SHOW, $hguiGroup)
GUISetState(@SW_HIDE, $hguiDC)
Case $msg = $btn_searchgroup
$returnwert = _SearchGroupLDAP(GUICtrlRead($input_searchgroup))
GUICtrlSetData($lLDapWert,$returnwert) ;hier wird der Wert in das Control geschrieben
;_Gruppen_Fenster() <=============== unnötig da die Controls bereits erstellt
EndSelect
WEnd

[/autoit]

üblicherweise werden in AutoIt alle GUIs (auch Hilfs-GUIs) am Anfang mit den benötigten Controls erstellt. Die GUIs kannst du mit GUISetState z.B

[autoit]

GUISetState(@SW_SHOW, $hguiDC)

[/autoit]

anzeigen bzw.

[autoit]

GUISetState(@SW_HIDE, $hguiDC)

[/autoit]

ausblenden.
Für Controls verwendest du falls es einmal nötig sein sollte GUICtrlSetState, aber Achtung hier ist die Reihenfolge genau umgedreht.
Um Werte aus einem Control zu lesen, nimmt man am einfachsten GuiCtrlRead zum Schreiben GuiCtrlSetData.
Es gibt aber auch Spezialfälle, wo man die UDFs benutzen muss. Für Controls aus denen du lesen bzw. in die du schreiben musst, musst du die ID des Controls in einer (meist global) Variablen abspeichern.
Wenn du eine Funktion in der Controls erstellt werden, immer wieder aufrufst, werden immer wieder neue Controls an der alten Position erstellt.
Falls du in einer Hilfs-GUI zusätzliche Controls erstellen musst, solltest du vorher GUISwitch benutzen, damit auch die richtige GUI angesprochen wird.

Ich kann dein Projekt leider nicht testen, da ich weder einen Domänen- noch einen LDap-Server habe (sitze an einem Netbook StandAlone)

mfg (Auto)Bert

**autoBert**

Hallo @eF_Hacks,

das Beispiel ist im MsgLoop-Modus wie auch der Ursprung von ThinkCross. @GUI_CtrlId ist jedoch ausschliesslich im OnEvent-Modus verfügbar.

mfg (Auto)Bert

**autoBert**

Hallo subzero007,

hier noch eine andere Version (nämlich mit ListView und nicht ListBox):

Spoiler anzeigen

[autoit]

#include <ListviewConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
;#include <SliderConstants.au3>
#Include <GuiListView.au3>
#Include <Array.au3>
#Include <File.au3>

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

Opt("GUIOnEventMode", 1)
Opt("MustDeclareVars",1)

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

Global $hGUI = GUICreate("LV from Ini", 1024, 550, Default, Default, $WS_SIZEBOX, $WS_EX_ACCEPTFILES)
GUISetOnEvent($GUI_EVENT_CLOSE, "_GUIEvents")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "_GUIEvents")
GUISetOnEvent($GUI_EVENT_RESTORE, "_GUIEvents")
;GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, "_leftClicked")
;GUISetOnEvent($GUI_EVENT_PRIMARYUP, "_leftReleased")
Local $pic=GUICtrlCreatePic("C:\WINDOWS\Help\Tours\htmlTour\safe_easy_easier.jpg",10,10);, @DesktopWidth/2, @DesktopHeight/2)
GUICtrlSetResizing(-1, $GUI_DOCKBORDERS) ;Abstand zu allen 4 Seiten bleibt fix
Global $hListview = GUICtrlCreateListView("Quelle|Ziel", 10, 10, 1004, 500)
GUICtrlSetResizing(-1, $GUI_DOCKBORDERS) ;Abstand zu allen 4 Seiten bleibt fix
_GUICtrlListView_SetExtendedListViewStyle($hListView, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT))
_GUICtrlListView_SetColumnWidth($hListView, 0, 502)
_GUICtrlListView_SetColumnWidth($hListView, 1, 502)
IF FileExists(@ScriptDir&"\Backup.ini") Then
Local $aData = IniReadSection(@ScriptDir&"\Backup.ini","Backup")
_ArrayDisplay($aData)
For $i = 1 To UBound($aData) - 1 Step 2
if StringReplace($aData[$i][0],"Quelle","") = StringReplace($aData[$i+1][0],"Ziel","") Then GUICtrlCreateListViewItem($aData[$i][1] & "|" & $aData[$i+1][1],$hListView)
Next
Else
MsgBox(64,"Fehler","Ini-Datei fehlt",30)
EndIf

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

;Local $deletebutton = GuiCtrlCreateButton("&Delete List",54,252,60,28)
;GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKSIZE + $GUI_DOCKBOTTOM)
;Abstand Links und unten bleibt fix die Größe (Breite und Höhe) ebenso
;Local $insertbutton = GuiCtrlCreateButton("&Insert",10,252,40,28)
;GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKSIZE + $GUI_DOCKBOTTOM)
;Abstand Links und unten bleibt fix die Größe (Breite und Höhe) ebenso
GUISetState(@SW_SHOW)

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

While True
Sleep(10)
WEnd

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

Func _GUIEvents()
Select
Case @GUI_CtrlId = $GUI_EVENT_CLOSE
Exit
;Case @GUI_CtrlId = $GUI_EVENT_MINIMIZE
;Case @GUI_CtrlId = $GUI_EVENT_RESTORE
EndSelect
EndFunc ;==> _GUIEvents()

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

mfg (Auto)Bert

**autoBert**

Hallo Kleiner27,

um dein Skript nachträglich zu formatieren (TABs und Kommentare einfügen) kannst du in Scite Tidy benutzen. Einfach unter Tools -> Tidy AutoIt Source aufrufen, das Ergebnis sieht dann so aus:

Spoiler anzeigen

[autoit]

#include <WindowsConstants.au3>
#include <ProgressConstants.au3>
#include <GuiButton.au3>
#include <Process.au3>
#include <GuiTab.au3>
#include <INet.au3>
#include <String.au3>
#include <File.au3>
Opt('GUIOnEventMode', 1)
#cs ----------------------------------------------------------------------------
Windows Info v 0.0.1
#ce ----------------------------------------------------------------------------
If IsAdmin() Then
Else
MsgBox(0, '', 'Sie besitzen nicht volle Admin rechte' & @CRLF & 'Sie werden viele Funktionen nicht ausführen können!' & @CRLF & @CRLF & 'Melden sie sich als Admin an um den vollen Umfang des Tools nutzen zu können!')
EndIf
_mein()
Func _mein()

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

Global $GUI1, $Input_Time, $IP
Global $pichinetgo = @ScriptDir & '\data\Grafik\5-r.gif', $pichinetgu = @ScriptDir & '\data\Grafik\5-r.gif', $pichinetgb = @ScriptDir & '\data\Grafik\7-b.gif', $pica = @ScriptDir & '\data\Grafik\0-a.jpg', $picn = @ScriptDir & '\data\Grafik\1-n.jpg', $pich = @ScriptDir & '\data\Grafik\2-h.jpg', $pichdruck = @ScriptDir & '\data\Grafik\4-d.gif', $pichmail = @ScriptDir & '\data\Grafik\3-e.GIF'
Local $msg, $OptionsMenu, $OptionsMenu1, $OptionsMenu2, $OptionsMenu3, $OptionsMenu4, $OptionsMenu5, $OptionsMenu6, $OptionsMenu7
Local $OptionsItem1, $OptionsItem2, $OptionsItem3, $OptionsItem4, $hTab, $proItem

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

$GUI1 = GUICreate('PC: ' & @LogonDomain, 800, 620, Default, Default)
GUISetOnEvent(-3, '_Exit')
GUISetBkColor(0xFFFFFF, $GUI1)
$OptionsMenu = GUICtrlCreateMenu(' M&enü ')
$OptionsItem = GUICtrlCreateMenu('Windows-Start ', $OptionsMenu)
$OptionsItem1 = GUICtrlCreateMenu('W&indows-Tools', $OptionsItem)
GUICtrlCreateMenuItem('System-Config-Programm', $OptionsItem1)
GUICtrlSetOnEvent(-1, '_AutostartS')
GUICtrlCreateMenuItem('S&ysedit', $OptionsItem1)
GUICtrlSetOnEvent(-1, '_sysedit')
GUICtrlCreateMenuItem('E&reignisanzeige', $OptionsItem1)
GUICtrlSetOnEvent(-1, '_ereignisa')
GUICtrlCreateMenuItem('P&erformance-Monitor', $OptionsItem1)
GUICtrlSetOnEvent(-1, '_performa')
GUICtrlCreateMenuItem('S&ystem-Info', $OptionsItem1)
GUICtrlSetOnEvent(-1, '_sysInfo')
GUICtrlCreateMenuItem('N&et-Diagnose-XP', $OptionsItem1)
GUICtrlSetOnEvent(-1, '_netdiagXP')
GUICtrlCreateMenuItem('G&eräte-Manager', $OptionsItem1)
GUICtrlSetOnEvent(-1, '_geretman')
GUICtrlCreateMenuItem('T&ask-Manager', $OptionsItem1)
GUICtrlSetOnEvent(-1, '_taskman')
GUICtrlCreateMenuItem('S&icherheitscenter', $OptionsItem1)
GUICtrlSetOnEvent(-1, '_sicherhcent')
GUICtrlCreateMenuItem('A&blagenappe', $OptionsItem1)
GUICtrlSetOnEvent(-1, '_ablagemap')
GUICtrlCreateMenuItem('A&ssisten für neue Verbindungen', $OptionsItem1)
GUICtrlSetOnEvent(-1, '_assineuv')
GUICtrlCreateMenuItem('S&ytemwiederherstellung', $OptionsItem1)
GUICtrlSetOnEvent(-1, '_syswierdher')
$OptionsItem2 = GUICtrlCreateMenu('L&abel', $OptionsItem)
GUICtrlCreateMenuItem(@HomeDrive, $OptionsItem2)
GUICtrlSetOnEvent(-1, '_Label')
GUICtrlCreateMenuItem('W&indows', $OptionsItem2)
GUICtrlSetOnEvent(-1, '_LabelW')
GUICtrlCreateMenuItem('s&ystem32', $OptionsItem2)
GUICtrlSetOnEvent(-1, '_Sys32')
GUICtrlCreateMenuItem('P&rogramme', $OptionsItem2)
GUICtrlSetOnEvent(-1, '_Programme')
GUICtrlCreateMenuItem('U&ser-Ordner', $OptionsItem2)
GUICtrlSetOnEvent(-1, '_UserP')
GUICtrlCreateMenuItem('A&nwendungsdaten', $OptionsItem2)
GUICtrlSetOnEvent(-1, '_AnweDat')
GUICtrlCreateMenuItem('T&mp', $OptionsItem2)
GUICtrlSetOnEvent(-1, '_Stmp')
GUICtrlCreateMenuItem('E&igene Datein', $OptionsItem2)
GUICtrlSetOnEvent(-1, '_EigeneD')
GUICtrlCreateMenuItem('D&esktop', $OptionsItem2)
GUICtrlSetOnEvent(-1, '_Desktop')
$OptionsItem3 = GUICtrlCreateMenu('A&utostart', $OptionsItem2)
GUICtrlCreateMenuItem('A&utostart-Ordner', $OptionsItem3)
GUICtrlSetOnEvent(-1, '_AutostartO')
GUICtrlCreateMenuItem('A&utostart-System', $OptionsItem3)
GUICtrlSetOnEvent(-1, '_AutostartS')

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

$OptionsItem4 = GUICtrlCreateMenu('P&rogramm-Start', $OptionsMenu)
GUICtrlCreateMenu('Befehlszeile-Menüs', $OptionsItem4)
GUICtrlCreateMenu('C&md-VBS', $OptionsItem4)
GUICtrlCreateMenu('N&etzwerk', $OptionsItem4)
GUICtrlCreateMenu('B&esonderheit', $OptionsItem4)
GUICtrlCreateMenu('H&lfe', $OptionsMenu)

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

GUICtrlCreateMenuItem('', $OptionsMenu)
GUICtrlCreateMenuItem('S&perren ', $OptionsMenu)
GUICtrlSetOnEvent(-1, 'sperre')
GUICtrlCreateMenuItem('A&bmelden ', $OptionsMenu)
GUICtrlCreateMenuItem('N&eu start ', $OptionsMenu)
GUICtrlCreateMenuItem('A&usschalten ', $OptionsMenu)
GUICtrlCreateMenuItem('', $OptionsMenu)
GUICtrlCreateMenuItem('S&chließen ', $OptionsMenu)
GUICtrlSetOnEvent(-3, '_Exit')
$OptionsMenu1 = GUICtrlCreateMenu(' W&indows-Tools ')
GUICtrlCreateMenuItem('M&enü', $OptionsMenu1)
GUICtrlSetOnEvent(-1, '_wtools')

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

$OptionsMenu2 = GUICtrlCreateMenu(' W&indows-Einstellungen ')
GUICtrlCreateMenuItem('M&enü', $OptionsMenu2)
GUICtrlSetOnEvent(-1, '_weinstellungen')
$OptionsMenu3 = GUICtrlCreateMenu(' C&md-Befehle ')
GUICtrlCreateMenuItem('M&enü', $OptionsMenu3)
GUICtrlSetOnEvent(-1, '_EigeneD')

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

$OptionsMenu4 = GUICtrlCreateMenu(' C&md-Befehle+Vbs ')
GUICtrlCreateMenuItem('M&enü', $OptionsMenu4)
GUICtrlSetOnEvent(-1, '_EigeneD')

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

$OptionsMenu5 = GUICtrlCreateMenu(' Netzwek ')
GUICtrlCreateMenuItem('M&enü', $OptionsMenu5)
GUICtrlSetOnEvent(-1, '_EigeneD')

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

$OptionsMenu6 = GUICtrlCreateMenu(' Besonderheit ')
GUICtrlCreateMenuItem('M&enü', $OptionsMenu6)
GUICtrlSetOnEvent(-1, '_EigeneD')

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

$OptionsMenu7 = GUICtrlCreateMenu(' H&ilfe ')
GUICtrlCreateMenuItem('M&enü', $OptionsMenu7)
GUICtrlSetOnEvent(-1, '_EigeneD')

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

GUICtrlCreateGroup('Windows - Tools', 5, 10, 120, 160)
GUICtrlCreateButton('Ereignisanzeige', 13, 30, 104, 22)
GUICtrlSetOnEvent(-1, '_ereignisa')
GUICtrlCreateButton('Performance-Monitor', 13, 55, 104, 22)
GUICtrlSetOnEvent(-1, '_performa')
GUICtrlCreateButton('Geräte-Manager', 13, 105, 104, 22)
GUICtrlSetOnEvent(-1, '_geretman')
GUICtrlCreateButton('Task-Manager', 13, 80, 104, 22)
GUICtrlSetOnEvent(-1, '_taskman')
GUICtrlCreateButton('Sicherheitscenter', 13, 130, 104, 22)
GUICtrlSetOnEvent(-1, '_sicherhcent')
GUICtrlCreateGroup('Schnell - Start', 5, 180, 120, 210)
GUICtrlCreateButton(@HomeDrive, 15, 200, 102, 22)
GUICtrlSetOnEvent(-1, '_Label')
GUICtrlCreateButton('Windows', 15, 225, 102, 22)
GUICtrlSetOnEvent(-1, '_LabelW')
GUICtrlCreateButton('System32', 15, 250, 102, 22)
GUICtrlSetOnEvent(-1, '_Sys32')
GUICtrlCreateButton('Programme', 15, 275, 102, 22)
GUICtrlSetOnEvent(-1, '_Programme')
GUICtrlCreateButton('U&ser-Ordner', 15, 300, 102, 22)
GUICtrlSetOnEvent(-1, '_UserP')
GUICtrlCreateButton('Eigene-Datein', 15, 325, 102, 22)
GUICtrlSetOnEvent(-1, '_EigeneD')
GUICtrlCreateButton('Desktop', 15, 350, 102, 22)
GUICtrlSetOnEvent(-1, '_Desktop')
GUICtrlCreateGroup('Abmelden', 25, 400, 74, 58)
GUICtrlCreatePic($pica, 44, 416, 35, 35)
GUICtrlSetTip(-1, 'Wird ohne Wartezeit ausgeführt!')
GUICtrlSetOnEvent(-1, 'abmelden')
GUICtrlCreateGroup('Neu start', 25, 465, 74, 58)
GUICtrlCreatePic($picn, 44, 481, 35, 35)
GUICtrlSetTip(-1, 'Wird ohne Wartezeit ausgeführt!')
GUICtrlSetOnEvent(-1, 'neustart')
GUICtrlCreateGroup('Ausschalten', 25, 530, 74, 58)
GUICtrlCreatePic($pich, 44, 546, 35, 35)
GUICtrlSetTip(-1, 'Wird ohne Wartezeit ausgeführt!')
GUICtrlSetOnEvent(-1, 'herunterfahren')
GUICtrlCreatePic($pichinetgo, 0, 0, 800, 10)
GUICtrlCreatePic($pichinetgu, 0, 595, 800, 10)
GUICtrlCreatePic($pichinetgb, 695, 275, 70, 70)
GUICtrlCreateGroup('Drucken', 690, 465, 74, 58)
GUICtrlCreatePic($pichdruck, 709, 481, 35, 35)
GUICtrlSetTip(-1, 'Zu druckende Datei wählen')
GUICtrlSetOnEvent(-1, '_drucken')
GUICtrlCreateGroup('Email', 690, 530, 74, 58)
GUICtrlCreatePic($pichmail, 709, 546, 35, 35)
GUICtrlSetTip(-1, 'Das Standard E-Mail Programm wir aufgerufen!')
GUICtrlSetOnEvent(-1, '_Emal')
Global $in, $bo, $in1, $bo1
GUICtrlCreateGroup('B&efehlszeile', 140, 10, 517, 160)
GUICtrlCreateLabel('Befehl mit Ausgabe !', 322, 30, 120, 19)
$in = GUICtrlCreateInput("", 180, 50, 370, 19)
GUICtrlSetTip(-1, 'Um den Befehl zu Bestätigen - OK Klicken!')
$bo = GUICtrlCreateButton("OK", 570, 50, 50, 19)
GUICtrlSetOnEvent(-1, '_befzeilausgabe')
GUICtrlCreateLabel('Befehl nur Ausführen !', 322, 95, 120, 19)
$in1 = GUICtrlCreateInput("", 180, 115, 370, 19)
GUICtrlSetTip(-1, 'Um den Befehl zu Bestätigen - OK Klicken!')
$bo1 = GUICtrlCreateButton("OK", 570, 115, 50, 19)
GUICtrlSetOnEvent(-1, '_befzeilausfueren')
GUICtrlCreateGroup('Datum', 672, 10, 120, 75)
GUICtrlCreateInput('' & @MDAY & '-' & @MON & '-' & @YEAR, 695, 40, 73, 19)
GUICtrlCreateGroup('Uhrzeit', 672, 95, 120, 75)
$Input_Time = GUICtrlCreateInput('' & @HOUR & ':' & @MIN & ':' & @SEC, 695, 125, 73, 19)
Local $listview, $hTab, $VOL, $SERIAL, $TOTAL, $FREE
$hTab = GUICtrlCreateTab(140, 184, 520, 405)
$VOL = DriveGetLabel("C:\")
$SERIAL = DriveGetSerial("C:\")
$TOTAL = _StringAddThousandsSep(StringReplace(Round(DriveSpaceTotal("C:\"), 2), '.', ','), ".", ",") & " MB"
$FREE = _StringAddThousandsSep(StringReplace(Round(DriveSpaceFree("C:\"), 2), '.', ','), ".", ",") & " MB"
_GUICtrlTab_SetMinTabWidth($hTab, 514)
GUICtrlCreateTabItem(' Computer - Informationen - Überblick')
$listview = GUICtrlCreateListView(' | | | |', 160, 212, 475, 335, $WS_VSCROLL)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|Benutzername :|' & @UserName, $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|Pc - Name :|' & @ComputerName, $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|System :|' & @OSVersion, $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|Bulid-Nummer :|' & @OSBuild, $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|Architekturtyp :|' & @OSArch, $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|CPU-Architektur :|' & @CPUArch, $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|Label :|' & $VOL, $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|Label-Seriennummer :|' & $SERIAL, $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|Windows-Ordner :|' & @WindowsDir, $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|System32-Ordner :|' & @SystemDir, $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|Programm-Ordner :|' & @ProgramFilesDir, $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|Profil-Ordner :|' & @UserProfileDir, $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|Anwendungsdaten-Ordner :|' & @AppDataDir, $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|Tmp-Ordner :|' & @TempDir, $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|Eigene-Datein-Ordner :|' & @MyDocumentsDir, $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|Desktop-Ordner :|' & @DesktopDir, $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|Startmenü-Ordner :|' & @StartMenuDir, $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|Autostart-Ordner :|' & @StartupDir, $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|Logon-Domain :|' & @LogonDomain, $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|Logon-DNS-Domain :|' & @LogonDNSDomain, $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|Logon-Server :|' & @LogonServer, $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|Netzwerk-Adapters1 :|' & @IPAddress1, $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|Netzwerk-Adapters2 :|' & @IPAddress2, $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|Netzwerk-Adapters3 :|' & @IPAddress3, $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|Netzwerk-Adapters4 :|' & @IPAddress4, $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|Total-Speicher :|' & $TOTAL, $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|Freier-Speicher :|' & $FREE, $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|Desktop-W-(Pixels) :|' & @DesktopWidth, $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|Desktop-H-(Picels) :|' & @DesktopHeight, $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|Farbtiefe :|' & @DesktopDepth & ' Bits pro Pixel', $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateListViewItem('*|Bildwiederholung :|' & @DesktopRefresh & ' Hertz', $listview)
GUICtrlCreateListViewItem('', $listview)
GUICtrlCreateButton('Überblick-Speicher', 390, 558, 120, 19)
GUICtrlSetOnEvent(-1, 'schnspeich')
GUICtrlCreateButton('Internet-IP-Anzeigen', 517, 558, 120, 19)
GUICtrlSetOnEvent(-1, '_ip')
GUISetState()
;----------------------------------------------------------------Fenster2 Windows Tools----------------------------------------------------------------------
Global $GUI2 = GUICreate('Windows-Tools', 200, 500, Default, Default)
GUISetBkColor(0xFFFFFF, $GUI2)
GUICtrlCreatePic($pichinetgo, 0, 0, 200, 10)
GUICtrlCreatePic($pichinetgu, 0, 490, 200, 15)
GUISetOnEvent(-3, '_Exit2')
GUICtrlCreateButton('System-Config-Programm', 20, 20, 160, 22)
GUICtrlSetOnEvent(-1, '_AutostartS')
GUICtrlCreateButton('Sysedit', 20, 60, 160, 22)
GUICtrlSetOnEvent(-1, '_sysedit')
GUICtrlCreateButton('Ereignisanzeige', 20, 100, 160, 22)
GUICtrlSetOnEvent(-1, '_ereignisa')
GUICtrlCreateButton('Performance-Monitor', 20, 140, 160, 22)
GUICtrlSetOnEvent(-1, '_performa')
GUICtrlCreateButton('System-Info', 20, 180, 160, 22)
GUICtrlSetOnEvent(-1, '_sysInfo')
GUICtrlCreateButton('Net-Diagnose-XP', 20, 220, 160, 22)
GUICtrlSetOnEvent(-1, '_netdiagXP')
GUICtrlCreateButton('Geräte-Manager', 20, 260, 160, 22)
GUICtrlSetOnEvent(-1, '_geretman')
GUICtrlCreateButton('Task-Manager', 20, 300, 160, 22)
GUICtrlSetOnEvent(-1, '_taskman')
GUICtrlCreateButton('Sicherheitscenter', 20, 340, 160, 22)
GUICtrlSetOnEvent(-1, '_sicherhcent')
GUICtrlCreateButton('Ablagemappe', 20, 380, 160, 22)
GUICtrlSetOnEvent(-1, '_ablagemap')
GUICtrlCreateButton('Assistent für neu Verbindungen', 20, 420, 160, 22)
GUICtrlSetOnEvent(-1, '_assineuv')
GUICtrlCreateButton('Systemwiederherstellung', 20, 460, 160, 22)
GUICtrlSetOnEvent(-1, '_syswierdher')
GUISetState(@SW_HIDE, $GUI2)
;----------------------------------------------------------------Fenster2 Windows Tools----------------------------------------------------------------------

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

;----------------------------------------------------------------Fenster3 Windows Einstellungen----------------------------------------------------------------------
Global $GUI3, $spbab, $spbab1, $spbab2, $spbab3, $spbab4, $spbab5, $spbab6, $spbab7, $spbab8, $spbab9, $spbab10, $spbab11, $spbab12, $spbab13
$GUI3 = GUICreate('Windows-Einstellungen', 390, 600, Default, Default)
GUISetBkColor(0xFFFFFF, $GUI3)
GUICtrlCreatePic($pichinetgo, 0, 0, 700, 10)
GUICtrlCreatePic($pichinetgu, 0, 590, 700, 15)
GUISetOnEvent(-3, '_Exit3')
GUICtrlCreateTabItem('System')
GUICtrlCreateGroup('Allgmein', 50, 40, 285, 315)
$spbab = GUICtrlCreateCheckbox('Sprechblasen abschalten', 75, 70, 250, 19)
GUICtrlSetOnEvent(-1, '_spreBabsch')
$spbab1 = GUICtrlCreateCheckbox('Performance erhöhen', 75, 100, 250, 19)
GUICtrlSetOnEvent(-1, '_perfoerhoe')
$spbab2 = GUICtrlCreateCheckbox('Beep-Ton ausschalten', 75, 130, 250, 19)
GUICtrlSetOnEvent(-1, '_beepaus')
$spbab3 = GUICtrlCreateCheckbox('Schneller anmelden', 75, 160, 250, 19)
GUICtrlSetOnEvent(-1, '_schanmeld')
$spbab4 = GUICtrlCreateCheckbox('Schneller herunterfahren', 75, 190, 250, 19)
GUICtrlSetOnEvent(-1, '_schherfah')
$spbab5 = GUICtrlCreateCheckbox('Windows schneller beenden', 75, 220, 250, 19)
GUICtrlSetOnEvent(-1, '_wschbeend')
$spbab6 = GUICtrlCreateCheckbox('Keine Neustart nach Bluescreen', 75, 250, 250, 19)
GUICtrlSetOnEvent(-1, '_kneustnablu')
$spbab7 = GUICtrlCreateCheckbox('Explorer absichern', 75, 280, 250, 19)
GUICtrlSetOnEvent(-1, '_exabsich')
$spbab8 = GUICtrlCreateCheckbox('Treibersuche beschleunigen', 75, 310, 250, 19)
GUICtrlSetOnEvent(-1, '_treibesch')
GUICtrlCreateGroup('Sicherheit', 50, 380, 285, 170)
$spbab9 = GUICtrlCreateCheckbox('Administrative Freigaben entfernen', 75, 400, 250, 19)
GUICtrlSetOnEvent(-1, '_adminfreient')
$spbab10 = GUICtrlCreateCheckbox('Privatspähre schützen', 75, 430, 250, 19)
GUICtrlSetOnEvent(-1, '_privatsch')
$spbab11 = GUICtrlCreateCheckbox('Cmd.exe sperren', 75, 460, 250, 19)
GUICtrlSetOnEvent(-1, '_cmdspe')
$spbab12 = GUICtrlCreateCheckbox('Cmd.exe und Batch ausführung sperren', 75, 490, 250, 19)
GUICtrlSetOnEvent(-1, '_cmdubspe')
$spbab13 = GUICtrlCreateCheckbox('Starten des Registry-Editors verhindern ', 75, 520, 250, 19)
GUICtrlSetOnEvent(-1, '_reditspe')
If FileExists('data\data-vbs\' & @ComputerName & '\WILzs\Log\sprBabsch') Then
_GUICtrlButton_Enable($spbab, False)
EndIf
If FileExists('data\data-vbs\' & @ComputerName & '\WILzs\Log\perfoerhoe') Then
_GUICtrlButton_Enable($spbab1, False)
EndIf
If FileExists('data\data-vbs\' & @ComputerName & '\WILzs\Log\beepaus') Then
_GUICtrlButton_Enable($spbab2, False)
EndIf
If FileExists('data\data-vbs\' & @ComputerName & '\WILzs\Log\schanmeld') Then
_GUICtrlButton_Enable($spbab3, False)
EndIf
If FileExists('data\data-vbs\' & @ComputerName & '\WILzs\Log\schherfah') Then
_GUICtrlButton_Enable($spbab4, False)
EndIf
If FileExists('data\data-vbs\' & @ComputerName & '\WILzs\Log\wschbeend') Then
_GUICtrlButton_Enable($spbab5, False)
EndIf
If FileExists('data\data-vbs\' & @ComputerName & '\WILzs\Log\kneustnablu') Then
_GUICtrlButton_Enable($spbab6, False)
EndIf
If FileExists('data\data-vbs\' & @ComputerName & '\WILzs\Log\exabsich') Then
_GUICtrlButton_Enable($spbab7, False)
EndIf
If FileExists('data\data-vbs\' & @ComputerName & '\WILzs\Log\treibesch') Then
_GUICtrlButton_Enable($spbab8, False)
EndIf
If FileExists('data\data-vbs\' & @ComputerName & '\WILzs\Log\adminfreient') Then
_GUICtrlButton_Enable($spbab9, False)
EndIf
If FileExists('data\data-vbs\' & @ComputerName & '\WILzs\Log\privatsch') Then
_GUICtrlButton_Enable($spbab10, False)
EndIf
If FileExists('data\data-vbs\' & @ComputerName & '\WILzs\Log\cmdspe') Then
_GUICtrlButton_Enable($spbab11, False)
EndIf
If FileExists('data\data-vbs\' & @ComputerName & '\WILzs\Log\cmdubspe') Then
_GUICtrlButton_Enable($spbab12, False)
EndIf
If FileExists('data\data-vbs\' & @ComputerName & '\WILzs\Log\reditspe') Then
_GUICtrlButton_Enable($spbab13, False)
EndIf
GUISetState(@SW_HIDE, $GUI3)
;----------------------------------------------------------------Fenster3 Windows Einstellungen----------------------------------------------------------------------

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

;___________________________________________________________________________________________________Ladebalken
Global $Ladebal, $Progress1
$Ladebal = GUICreate('', 200, 25, -1, -1, $WS_POPUP, $WS_EX_TOOLWINDOW)
$Progress1 = GUICtrlCreateProgress(0, 0, 200, 25, $PBS_MARQUEE)
$hProgress = GUICtrlGetHandle($Progress1)
_SendMessage($hProgress, $PBM_SETMARQUEE, True, 0)
GUISetState(@SW_HIDE, $Ladebal)
;-----------------------------------------------------------------------------------------------------------
While 1
GUICtrlSetData($Input_Time, @HOUR & ':' & @MIN & ':' & @SEC)
Sleep(1)
WEnd
EndFunc ;==>_mein

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

;------------------------------------------------------------------EXIT____gui1__________________________________________________________________________________________
;Hauptmenü
Func _Exit()
Exit
EndFunc ;==>_Exit
;Fenster2
Func _Exit2()
GUISetState(@SW_HIDE, $GUI2)
EndFunc ;==>_Exit2
;fenster3
Func _Exit3()
GUISetState(@SW_HIDE, $GUI3)
EndFunc ;==>_Exit3
;---------------------------------------------------------------EXIT________gui3___________________________________________________________________________________
;Start c:\
Func _Label()
ShellExecute(@HomeDrive)
EndFunc ;==>_Label
;Start c:\Windows
Func _LabelW()
ShellExecute(@WindowsDir)
EndFunc ;==>_LabelW
;Start System32
Func _Sys32()
ShellExecute(@SystemDir)
EndFunc ;==>_Sys32
;Start Programme
Func _Programme()
ShellExecute(@ProgramFilesDir)
EndFunc ;==>_Programme
;Start UserProfile
Func _UserP()
ShellExecute(@UserProfileDir)
EndFunc ;==>_UserP
;Start AnwendungDat
Func _AnweDat()
ShellExecute(@AppDataDir)
EndFunc ;==>_AnweDat
;Start Tmp
Func _Stmp()
ShellExecute(@TempDir)
EndFunc ;==>_Stmp
;Start Eigene Datein
Func _EigeneD()
ShellExecute(@MyDocumentsDir)
EndFunc ;==>_EigeneD
;Start Desktop
Func _Desktop()
ShellExecute(@DesktopDir)
EndFunc ;==>_Desktop
;Austostart Ordner
Func _AutostartO()
ShellExecute(@StartupDir)
EndFunc ;==>_AutostartO
;Autostart System
Func _AutostartS()
_RunDOS('Start Msconfig')
EndFunc ;==>_AutostartS
;Start E_Mail Programm
Func _Emal()
_INetMail('', '', '')
EndFunc ;==>_Emal
;pc sperren
Func sperre()
_RunDOS('rundll32.exe user32.dll,LockWorkStation')
EndFunc ;==>sperre
;abmelden
Func abmelden()
_RunDOS('shutdown -l -t 00')
EndFunc ;==>abmelden
;Neustart
Func neustart()
_RunDOS('shutdown -r -t 00')
EndFunc ;==>neustart
;herunterfahren
Func herunterfahren()
_RunDOS('shutdown -s -t 00')
EndFunc ;==>herunterfahren
;---------------------------------------------------------------------------Drucken---------------------------------------------------------------------------------
Func _drucken()
$file = FileOpenDialog("Zu druckende Datei wählen ", " ", "Textdokumente (*.txt) ", 1)
If @error Then GUISetState(@SW_HIDE, $file)
$print = _FilePrint($file)
If $print Then
MsgBox(0, "Drucken ", "Die Datei wurde gedruckt. ")
Else
MsgBox(0, "Drucken ", "Es wurden keine Datei gedruckt. ")
EndIf
EndFunc ;==>_drucken
;---------------------------------------------------------------------------Drucken---------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------Internet IP---------------------------------------------------------------
Func _ip()
$IP = _GetIP()
MsgBox(0, 'Deine Interne IP', 'Ist : ' & $IP)
EndFunc ;==>_ip
;--------------------------------------------------------------------------------------Internet IP---------------------------------------------------------------
;------------------------------------------------------------------------Überbick Speichern--------------------------------------------------------------------
Func schnspeich()
Dim $VOL, $SERIAL, $PublicIP, $TOTAL, $FREE
Local $fileoschsp = FileOpen('data\Speicher-Berichte\Computer-Informationen-Überblick.txt', 2)
FileWriteLine($fileoschsp, '******************** Computer - Informationen - Überblick *******************' & @CRLF & @CRLF & @CRLF & 'Benuzername : ' & @UserName & @CRLF & @CRLF & 'PC-Name : ' & @ComputerName & @CRLF & @CRLF & 'System : ' & @OSVersion & @CRLF & @CRLF & 'Bulid-Nummer : ' & @OSBuild & @CRLF & @CRLF & 'Architekturtyp : ' & @OSArch & @CRLF & @CRLF & 'CPU-Architektur : ' & @CPUArch & @CRLF & @CRLF & 'Label : ' & $VOL & @CRLF & @CRLF & 'Label-Seriennummer : ' & $SERIAL & @CRLF & @CRLF & 'Windows-Ordner : ' & @WindowsDir & @CRLF & @CRLF & 'System32-Ordner : ' & @SystemDir & @CRLF & @CRLF & 'Programm-Ordner : ' & @ProgramFilesDir & @CRLF & @CRLF & 'Profil-Ordner : ' & @UserProfileDir & @CRLF & @CRLF & 'Anwendungsdaten-Ordner : ' & @AppDataDir & @CRLF & @CRLF & 'Tmp-Ordner : ' & @TempDir & @CRLF & @CRLF & 'Eigene-Datein-Ordner : ' & @MyDocumentsDir & @CRLF & @CRLF & 'Desktop-Ordner : ' & @DesktopDir & @CRLF & @CRLF & 'Startmenü-Ordner : ' & @StartMenuDir & @CRLF & @CRLF & 'Autostart-Ordner : ' & @StartupDir & @CRLF & @CRLF & 'Logon-Domain : ' & @LogonDomain & @CRLF & @CRLF & 'Logon-DNS-Domain : ' & @LogonDNSDomain & @CRLF & @CRLF & 'Logon-Server : ' & @LogonServer & @CRLF & @CRLF & 'Netzwerk-Adapters1 : ' & @IPAddress1 & @CRLF & @CRLF & 'Netzwerk-Adapters2 : ' & @IPAddress2 & @CRLF & @CRLF & 'Netzwerk-Adapters3 : ' & @IPAddress3 & @CRLF & @CRLF & 'Netzwerk-Adapters4 : ' & @IPAddress4 & @CRLF & @CRLF & 'Inernet-IP : ' & $PublicIP & @CRLF & @CRLF & 'Total-Speicher : ' & $TOTAL & @CRLF & @CRLF & 'Freier-Speicher : ' & $FREE & @CRLF & @CRLF & 'Desktop-W-(Pixels) : ' & @DesktopWidth & @CRLF & @CRLF & 'Desktop-H-(Picels) : ' & @DesktopHeight & @CRLF & @CRLF & 'Farbtiefe : ' & @DesktopDepth & ' Bits pro Pixel' & @CRLF & @CRLF & 'Bildwiederholung : ' & @DesktopRefresh & ' Hertz')
FileClose($fileoschsp)
MsgBox(0, "Speicher Bericht", "Wurde erfolgreich erstellt!")
EndFunc ;==>schnspeich
;------------------------------------------------------------------------Überbick Speichern--------------------------------------------------------------------
;----------------------------------------------------------------------------Befehlzeilen Befehl ausführen und anzeigen-------------------------------------------------------------
Func _befzeilausgabe()
$al = GUICtrlRead($in, 1)
RunWait(@ComSpec & ' /c ' & $al & '>data\Speicher-Berichte\Ausgabe.txt', '', @SW_HIDE)
$filopbef = FileOpen('data\Speicher-Berichte\Ausgabe.txt', 0)
If $filopbef = -1 Then
MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
Exit
EndIf
While 1
$buchstabe = FileRead($filopbef, 1250)
If @error = -1 Then ExitLoop
MsgBox(0, 'Ausgabe', $buchstabe)
WEnd
FileClose($filopbef)
EndFunc ;==>_befzeilausgabe
;----------------------------------------------------------------------------Befehlzeilen Befehl ausführen und anzeigen-------------------------------------------------------------
;--------------------------------------------------------------------------Befehlzeile befehl ausführen------------------------------------------------------------
Func _befzeilausfueren()
$al = GUICtrlRead($in1, 1)
RunWait(@ComSpec & ' /c ' & $al)
EndFunc ;==>_befzeilausfueren
;--------------------------------------------------------------------------Befehlzeile befehl ausführen------------------------------------------------------------
;------------------------------------------------------------------------Windows-Tool´s Aufrufen------------------------------------------------------------------
Func _wtools()
GUISetState(@SW_SHOW, $GUI2)
EndFunc ;==>_wtools
;------------------------------------------------------------------------Windows-Tool´s - Tool´s Aufrufen------------------------------------------------------------------
Func _sysedit()
_RunDOS('sysedit.exe')
EndFunc ;==>_sysedit
Func _ereignisa()
_RunDOS('eventvwr.exe')
EndFunc ;==>_ereignisa
Func _performa()
_RunDOS('Perfmon')
EndFunc ;==>_performa
Func _sysInfo()
_RunDOS('winmsd.exe')
EndFunc ;==>_sysInfo
Func _netdiagXP()
_RunDOS('netsh diag gui')
EndFunc ;==>_netdiagXP
Func _geretman()
_RunDOS('devmgmt.msc')
EndFunc ;==>_geretman
Func _taskman()
_RunDOS('taskmgr.exe')
EndFunc ;==>_taskman
Func _sicherhcent()
_RunDOS('wscui.cpl')
EndFunc ;==>_sicherhcent
Func _ablagemap()
_RunDOS('clipbrd.exe')
EndFunc ;==>_ablagemap
Func _assineuv()
_RunDOS('rasphone -a')
EndFunc ;==>_assineuv
Func _syswierdher()
RunWait(@ComSpec & " /c " & "mode con lines=5 cols=40 & color 0A & title Systemwiederherstellung & echo. & echo Starte Rstrui.EXE und Sysdm.CPL,4 & %systemroot%\system32\Restore\rstrui.exe | sysdm.cpl,4")
EndFunc ;==>_syswierdher
Func _weinstellungen()
Local $spei
$bLoop = 1
If FileExists('data\data-vbs\' & @ComputerName & '\WILzs\BLogwi') Then
GUISetState(@SW_SHOW, $GUI3)
Else
$spei = MsgBox(4, 'Lietzens ', 'Diese Optionen sollten nur von erfahren User benutzt werden.' & @CRLF & @CRLF & 'Der Entwickler von diesem Software-Tool übernimt keine Haftung bei eventuellen Schäden an Software oder Hardware!' & @CRLF & @CRLF & 'Sobald sie OK Klicken sind sie einverstanden mit den Bedingungen diesem Dialog und Text.')
EndIf
If $spei = 7 Then
$bLoop = 0
EndIf
If $bLoop = 1 Then
DirCreate('data\data-vbs\' & @ComputerName & '\WILzs')
DirCreate('data\data-vbs\' & @ComputerName & '\WILzs\Log')
Local $fileoschsp = FileOpen('data\data-vbs\' & @ComputerName & '\WILzs\BLogwi', 2)
FileWriteLine($fileoschsp, 'Ich bin mit den Bedingungen einverstanden' & ' ' & 'Bestätigt von : ' & @UserName & ' ' & @MDAY & '-' & @MON & '-' & @YEAR & ' ' & @HOUR & ':' & @MIN & ':' & @SEC & @CRLF & @CRLF & @CRLF & 'Diese Datei wird nur erstellt sobald der Benutzer den ja Butten betätigt!')
FileClose($fileoschsp)
GUISetState(@SW_SHOW, $GUI3)
$bLoop = 0
EndIf
If IsAdmin() Then
Else
MsgBox(0, '', 'Sie besitzen nicht volle Admin rechte' & @CRLF & 'Windows-Einstellungen wird jetzt geschlossen!' & @CRLF & @CRLF & 'Melden sie sich als Admin an um den vollen Umfang des Tools nutzen zu können!')
_Exit3()
EndIf
EndFunc ;==>_weinstellungen
;--------------------------------------------------------------Fenster3 Windows Einstellungen--------------------------------------------------------------
Func _spreBabsch()
RegWrite('HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced', 'EnableBalloonTips', 'REG_DWORD', '0x00000000')
Local $fileoschsp = FileOpen('data\data-vbs\' & @ComputerName & '\WILzs\Log\sprBabsch', 2)
FileWriteLine($fileoschsp, 'Ausgeführt' & ' ' & @UserName & ' ' & @MDAY & '-' & @MON & '-' & @YEAR & ' ' & @HOUR & ':' & @MIN & ':' & @SEC)
FileClose($fileoschsp)
_GUICtrlButton_Enable($spbab, False)
MsgBox(0, 'Info', 'Erfolgreich Ausgeführt!')
EndFunc ;==>_spreBabsch
Func _perfoerhoe()
RegWrite('HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management', 'DisablePagingExecutive', 'REG_DWORD', '0x00000001')
Local $fileoschsp = FileOpen('data\data-vbs\' & @ComputerName & '\WILzs\Log\perfoerhoe', 2)
FileWriteLine($fileoschsp, 'Ausgeführt' & ' ' & @UserName & ' ' & @MDAY & '-' & @MON & '-' & @YEAR & ' ' & @HOUR & ':' & @MIN & ':' & @SEC)
FileClose($fileoschsp)
_GUICtrlButton_Enable($spbab1, False)
MsgBox(0, 'Info', 'Erfolgreich Ausgeführt!')
EndFunc ;==>_perfoerhoe
Func _beepaus()
RegWrite('HKCU\Control Panel\Sound', 'Beep', 'REG_SZ', 'no')
Local $fileoschsp = FileOpen('data\data-vbs\' & @ComputerName & '\WILzs\Log\beepaus', 2)
FileWriteLine($fileoschsp, 'Ausgeführt' & ' ' & @UserName & ' ' & @MDAY & '-' & @MON & '-' & @YEAR & ' ' & @HOUR & ':' & @MIN & ':' & @SEC)
FileClose($fileoschsp)
_GUICtrlButton_Enable($spbab2, False)
MsgBox(0, 'Info', 'Erfolgreich Ausgeführt!')
EndFunc ;==>_beepaus
Func _schanmeld()
RegWrite('HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon', 'DisableCAD', 'REG_DWORD', '0x00000001')
Local $fileoschsp = FileOpen('data\data-vbs\' & @ComputerName & '\WILzs\Log\schanmeld', 2)
FileWriteLine($fileoschsp, 'Ausgeführt' & ' ' & @UserName & ' ' & @MDAY & '-' & @MON & '-' & @YEAR & ' ' & @HOUR & ':' & @MIN & ':' & @SEC)
FileClose($fileoschsp)
_GUICtrlButton_Enable($spbab3, False)
MsgBox(0, 'Info', 'Erfolgreich Ausgeführt!')
EndFunc ;==>_schanmeld
Func _schherfah()
RegWrite('HKLM\SYSTEM\ControlSet001\Control', 'WaitToKillServiceTimeout', 'REG_SZ', '3000')
Local $fileoschsp = FileOpen('data\data-vbs\' & @ComputerName & '\WILzs\Log\schherfah', 2)
FileWriteLine($fileoschsp, 'Ausgeführt' & ' ' & @UserName & ' ' & @MDAY & '-' & @MON & '-' & @YEAR & ' ' & @HOUR & ':' & @MIN & ':' & @SEC)
FileClose($fileoschsp)
_GUICtrlButton_Enable($spbab4, False)
MsgBox(0, 'Info', 'Erfolgreich Ausgeführt!')
EndFunc ;==>_schherfah
Func _wschbeend()
RegWrite('HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management', 'ClearPageFileAtShutdown', 'REG_DWORD', '0x00000000')
Local $fileoschsp = FileOpen('data\data-vbs\' & @ComputerName & '\WILzs\Log\wschbeend', 2)
FileWriteLine($fileoschsp, 'Ausgeführt' & ' ' & @UserName & ' ' & @MDAY & '-' & @MON & '-' & @YEAR & ' ' & @HOUR & ':' & @MIN & ':' & @SEC)
FileClose($fileoschsp)
_GUICtrlButton_Enable($spbab5, False)
MsgBox(0, 'Info', 'Erfolgreich Ausgeführt!')
EndFunc ;==>_wschbeend
Func _kneustnablu()
RegWrite('HKLM\SYSTEM\CurrentControlSet\Control\CrashControl', 'AutoReboot', 'REG_DWORD', '0x00000000')
Local $fileoschsp = FileOpen('data\data-vbs\' & @ComputerName & '\WILzs\Log\kneustnablu', 2)
FileWriteLine($fileoschsp, 'Ausgeführt' & ' ' & @UserName & ' ' & @MDAY & '-' & @MON & '-' & @YEAR & ' ' & @HOUR & ':' & @MIN & ':' & @SEC)
FileClose($fileoschsp)
_GUICtrlButton_Enable($spbab6, False)
MsgBox(0, 'Info', 'Erfolgreich Ausgeführt!')
EndFunc ;==>_kneustnablu
Func _exabsich()
RegWrite('HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced', 'SeparateProcess', 'REG_DWORD', '0x00000001')
Local $fileoschsp = FileOpen('data\data-vbs\' & @ComputerName & '\WILzs\Log\exabsich', 2)
FileWriteLine($fileoschsp, 'Ausgeführt' & ' ' & @UserName & ' ' & @MDAY & '-' & @MON & '-' & @YEAR & ' ' & @HOUR & ':' & @MIN & ':' & @SEC)
FileClose($fileoschsp)
_GUICtrlButton_Enable($spbab7, False)
MsgBox(0, 'Info', 'Erfolgreich Ausgeführt!')
EndFunc ;==>_exabsich
Func _treibesch()
RegWrite('HKLM\SOFTWARE\Policies\Microsoft\Windows\DriverSearching', 'DontPromptForWindowsUpdate', 'REG_DWORD', '0x00000001')
Local $fileoschsp = FileOpen('data\data-vbs\' & @ComputerName & '\WILzs\Log\treibesch', 2)
FileWriteLine($fileoschsp, 'Ausgeführt' & ' ' & @UserName & ' ' & @MDAY & '-' & @MON & '-' & @YEAR & ' ' & @HOUR & ':' & @MIN & ':' & @SEC)
FileClose($fileoschsp)
_GUICtrlButton_Enable($spbab8, False)
MsgBox(0, 'Info', 'Erfolgreich Ausgeführt!')
EndFunc ;==>_treibesch
Func _adminfreient()
RegWrite('HKLM\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters', 'AutoShareWks', 'REG_DWORD', '0x00000000')
RegWrite('HKLM\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters', 'AutoShareServer', 'REG_DWORD', '0x00000000')
Local $fileoschsp = FileOpen('data\data-vbs\' & @ComputerName & '\WILzs\Log\adminfreient', 2)
FileWriteLine($fileoschsp, 'Ausgeführt' & ' ' & @UserName & ' ' & @MDAY & '-' & @MON & '-' & @YEAR & ' ' & @HOUR & ':' & @MIN & ':' & @SEC)
FileClose($fileoschsp)
_GUICtrlButton_Enable($spbab9, False)
MsgBox(0, 'Info', 'Erfolgreich Ausgeführt!')
EndFunc ;==>_adminfreient
Func _privatsch()
RegWrite('HKLM\Software\Microsoft\Windows NT\CurrentVersion', 'RegDone', 'REG_SZ', '1')
Local $fileoschsp = FileOpen('data\data-vbs\' & @ComputerName & '\WILzs\Log\privatsch', 2)
FileWriteLine($fileoschsp, 'Ausgeführt' & ' ' & @UserName & ' ' & @MDAY & '-' & @MON & '-' & @YEAR & ' ' & @HOUR & ':' & @MIN & ':' & @SEC)
FileClose($fileoschsp)
_GUICtrlButton_Enable($spbab10, False)
MsgBox(0, 'Info', 'Erfolgreich Ausgeführt!')
EndFunc ;==>_privatsch
Func _cmdspe()
RegWrite('HKCU\Software\Policies\Microsoft\Windows\System', 'DisableCMD', 'REG_DWORD', '0x00000001')
Local $fileoschsp = FileOpen('data\data-vbs\' & @ComputerName & '\WILzs\Log\cmdspe', 2)
FileWriteLine($fileoschsp, 'Ausgeführt' & ' ' & @UserName & ' ' & @MDAY & '-' & @MON & '-' & @YEAR & ' ' & @HOUR & ':' & @MIN & ':' & @SEC)
FileClose($fileoschsp)
_GUICtrlButton_Enable($spbab11, False)
MsgBox(0, 'Info', 'Erfolgreich Ausgeführt!')
EndFunc ;==>_cmdspe
Func _cmdubspe()
RegWrite('HKCU\Software\Policies\Microsoft\Windows\System', 'DisableCMD', 'REG_DWORD', '0x00000002')
Local $fileoschsp = FileOpen('data\data-vbs\' & @ComputerName & '\WILzs\Log\cmdubspe', 2)
FileWriteLine($fileoschsp, 'Ausgeführt' & ' ' & @UserName & ' ' & @MDAY & '-' & @MON & '-' & @YEAR & ' ' & @HOUR & ':' & @MIN & ':' & @SEC)
FileClose($fileoschsp)
_GUICtrlButton_Enable($spbab12, False)
MsgBox(0, 'Info', 'Erfolgreich Ausgeführt!')
EndFunc ;==>_cmdubspe
Func _reditspe()
RegWrite('HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System', 'DisableRegistryTools', 'REG_DWORD', '0x00000001')
Local $fileoschsp = FileOpen('data\data-vbs\' & @ComputerName & '\WILzs\Log\reditspe', 2)
FileWriteLine($fileoschsp, 'Ausgeführt' & ' ' & @UserName & ' ' & @MDAY & '-' & @MON & '-' & @YEAR & ' ' & @HOUR & ':' & @MIN & ':' & @SEC)
FileClose($fileoschsp)
_GUICtrlButton_Enable($spbab12, False)
MsgBox(0, 'Info', 'Erfolgreich Ausgeführt!')
EndFunc ;==>_reditspe
;--------------------------------------------------------------Fenster3 Windows Einstellungen--------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------------eine speicher speicher abfrage
Func ipconfigBreicht()
Local $spei
$bLoop = 1
If FileExists('data\Speicher-Berichte\Prezess-u-g-Biblotek.log') Then
$spei = MsgBox(4, 'INFO', 'Datei Exestiert bereits!' & @CRLF & 'Möchten sie die Datei überschreiben?')
Else
GUISetState(@SW_SHOW, $Ladebal)
$ipconB = RunWait(@ComSpec & ' /c ' & 'cd data\data-vbs & cscript.exe //nologo P_L.VBS>..\Speicher-Berichte\Prezess-u-g-Biblotek.log', '', @SW_HIDE, balken())
GUISetState(@SW_HIDE, $Ladebal)
MsgBox(0, "Speicher Bericht", "Wurde erfolgreich erstellt!")
$bLoop = 0
EndIf
If $spei = 7 Then
$bLoop = 0
EndIf
If $bLoop = 1 Then
GUISetState(@SW_SHOW, $Ladebal)
$ipconB = RunWait(@ComSpec & ' /c ' & 'cd data-vbs & cscript.exe //nologo P_L.VBS>..\Speicher-Berichte\Prezess-u-g-Biblotek.log', '', @SW_HIDE, balken())
GUISetState(@SW_HIDE, $Ladebal)
MsgBox(0, "Speicher Bericht", "Wurde erfolgreich erstellt!")
$bLoop = 0
EndIf
EndFunc ;==>ipconfigBreicht
;--------------------------------------------------------------------------------------------------------------------eine speicher speicher abfrage
Func balken()
Dim $Ladebal, $i, $ipconB
ProcessExists($ipconB)
For $i = 1 To 100 Step 1
GUICtrlSetData($Progress1, $i)
Next
EndFunc ;==>balken

[/autoit]

ausführlich getestet habe ich bisher noch nicht, der Source sieht aber (nach Tidy) sehr strukturiert und leserlich aus, weiter so. Das du im OnEnventModus skriptest gefällt mir sehr, kommt auch der Struktur entgegen.

Die folgenden Warnungen beim Start:

Spoiler anzeigen

Code

>"C:\Programme\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\Programme\AutoIt3\Downloads\Kleiner27\AdminTool.au3" /autoit3dir "C:\Programme\AutoIt3" /UserParams    
+>23:16:47 Starting AutoIt3Wrapper v.2.0.0.1    Environment(Language:0407  Keyboard:00000407  OS:WIN_XP/Service Pack 3  CPU:X86 OS:X86)
>Running AU3Check (1.54.14.0)  from:C:\Programme\AutoIt3
C:\Programme\AutoIt3\Downloads\Kleiner27\AdminTool.au3(404,29) : WARNING: $GUI2: possibly used before declaration.
	GUISetState(@SW_HIDE, $GUI2)
	~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\Kleiner27\AdminTool.au3(408,29) : WARNING: $GUI3: possibly used before declaration.
	GUISetState(@SW_HIDE, $GUI3)
	~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\Kleiner27\AdminTool.au3(504,23) : WARNING: $in: possibly used before declaration.
	$al = GUICtrlRead($in,
	~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\Kleiner27\AdminTool.au3(521,24) : WARNING: $in1: possibly used before declaration.
	$al = GUICtrlRead($in1,
	~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\Kleiner27\AdminTool.au3(595,30) : WARNING: $spbab: possibly used before declaration.
	_GUICtrlButton_Enable($spbab,
	~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\Kleiner27\AdminTool.au3(603,31) : WARNING: $spbab1: possibly used before declaration.
	_GUICtrlButton_Enable($spbab1,
	~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\Kleiner27\AdminTool.au3(611,31) : WARNING: $spbab2: possibly used before declaration.
	_GUICtrlButton_Enable($spbab2,
	~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\Kleiner27\AdminTool.au3(619,31) : WARNING: $spbab3: possibly used before declaration.
	_GUICtrlButton_Enable($spbab3,
	~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\Kleiner27\AdminTool.au3(627,31) : WARNING: $spbab4: possibly used before declaration.
	_GUICtrlButton_Enable($spbab4,
	~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\Kleiner27\AdminTool.au3(635,31) : WARNING: $spbab5: possibly used before declaration.
	_GUICtrlButton_Enable($spbab5,
	~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\Kleiner27\AdminTool.au3(643,31) : WARNING: $spbab6: possibly used before declaration.
	_GUICtrlButton_Enable($spbab6,
	~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\Kleiner27\AdminTool.au3(651,31) : WARNING: $spbab7: possibly used before declaration.
	_GUICtrlButton_Enable($spbab7,
	~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\Kleiner27\AdminTool.au3(659,31) : WARNING: $spbab8: possibly used before declaration.
	_GUICtrlButton_Enable($spbab8,
	~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\Kleiner27\AdminTool.au3(668,31) : WARNING: $spbab9: possibly used before declaration.
	_GUICtrlButton_Enable($spbab9,
	~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\Kleiner27\AdminTool.au3(676,32) : WARNING: $spbab10: possibly used before declaration.
	_GUICtrlButton_Enable($spbab10,
	~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\Kleiner27\AdminTool.au3(684,32) : WARNING: $spbab11: possibly used before declaration.
	_GUICtrlButton_Enable($spbab11,
	~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\Kleiner27\AdminTool.au3(692,32) : WARNING: $spbab12: possibly used before declaration.
	_GUICtrlButton_Enable($spbab12,
	~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\Kleiner27\AdminTool.au3(711,33) : WARNING: $Ladebal: possibly used before declaration.
		GUISetState(@SW_SHOW, $Ladebal)
		~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\Kleiner27\AdminTool.au3(733,28) : WARNING: $Progress1: possibly used before declaration.
		GUICtrlSetData($Progress1,
		~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\Kleiner27\AdminTool.au3(268,71) : WARNING: $GUI2: declared global in function only. Prefer top of file.
	Global $GUI2 = GUICreate('Windows-Tools', 200, 500, Default, Default)
	~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\Kleiner27\AdminTool.au3 - 0 error(s), 20 warning(s)
->23:16:47 AU3Check ended.rc:1

Alles anzeigen

solltest du noch behandeln

mfg (Auto)Bert

**autoBert**

Hallo ThinkCross,

dann hätte ich noch eine Lösung mit Child-Guis anzubieten:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

;Fenster erstellen

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

Global $strDomaine = "TestDomäne", $strLogonServer = "TestServer", $DCS = "Test-DC"

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

Global $hmainGui, $hguiDC, $hguiGroup, $DCS, $DC

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

$hmainGui = GUICreate("AD-Funktionen", 600, 580)
GUISetBkColor("0xFFFFCA")
GUISetFont(9, 400, 0, "Arial")

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

;Menübar anzeigen
$menu_dc = GUICtrlCreateMenu("&DC", -1, 1)
$item_dc_dcs = GUICtrlCreateMenuItem("DC´s", $menu_dc)

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

$menu_help = GUICtrlCreateMenu("?", -1, 1)
$item_help_auto = GUICtrlCreateMenuItem("Autor", $menu_help)
$item_help_exit = GUICtrlCreateMenuItem("Beenden", $menu_help)

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

$menu_group = GUICtrlCreateMenu("&Gruppen", -1, 1)
$item_group_search = GUICtrlCreateMenuItem("Mitgliedschaft", $menu_group)
GUISetState()

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

;Hilfsgui für DC's
$hguiDC = GUICreate("", 600, 556, 0, 0, BitOR($WS_CHILD, $WS_TABSTOP), -1, $hmainGui)
GUISetBkColor("0xFFFFCA")
GUICtrlCreateLabel("Domäne:", 10, 40)
GUICtrlCreateLabel($strDomaine, 100, 40)
GUICtrlCreateLabel("Logon-Server:", 10, 70)
GUICtrlCreateLabel($strLogonServer, 100, 70)
;$DCS = _ADDCList()
For $i = 1 To UBound($DCS, 1) - 1
$DC = $DC & $DCS[$i] & @CRLF
Next
GUICtrlCreateLabel("Domänen-Controller", 10, 140, 140, 20)
GUICtrlSetFont(-1, 10, 800)
GUICtrlCreateLabel($DC, 10, 170, 270, 380)
GUICtrlSetBkColor(-1, 0xffffff)
GUISetState()

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

;Hilfsgui für Gruppen
$hguiGroup = GUICreate("", 600, 556, 0, 0, BitOR($WS_CHILD, $WS_TABSTOP), -1, $hmainGui)
GUISetBkColor("0xFFFFCA")
GUICtrlCreateLabel("Gruppe:", 10, 40)
$input_searchgroup = GUICtrlCreateInput("", 100, 40, 140, 20)
$btn_searchgroup = GUICtrlCreateButton("Suchen", 270, 40, 60, 20)
GUISetState(@SW_HIDE)

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

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE Or $msg = $item_help_exit
GUIDelete()
Exit
Case $msg = $item_dc_dcs
GUISetState(@SW_SHOW, $hguiDC)
GUISetState(@SW_HIDE, $hguiGroup)
Case $msg = $item_group_search
GUISetState(@SW_SHOW, $hguiGroup)
GUISetState(@SW_HIDE, $hguiDC)
EndSelect
WEnd

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo borntoload,

herzlich willkommen im Forum.

Am einfachsten wäre es das Skript zu posten, damit man dir die entsprechende Hilfestellung geben kann,

mfg (Auto)Bert

**autoBert**

Hallo ThinkCross,

warum löst du das ganze nicht mit einem Tab-Control z.B:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <GuiTab.au3>

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

;Fenster erstellen

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

Global $strDomaine = "TestDomäne", $strLogonServer = "TestServer", $DCS = "Test-DC"

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

Global $DCS, $DC

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

GUICreate("AD-Funktionen", 600, 580)
GUISetBkColor("0xFFFFCA")
GUISetFont(9, 400, 0, "Arial")

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

;Menübar anzeigen
$menu_dc = GUICtrlCreateMenu("DC", -1, 1)
$item_dc_dcs = GUICtrlCreateMenuItem("DC´s", $menu_dc)

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

$menu_help = GUICtrlCreateMenu("?", -1, 1)
$item_help_auto = GUICtrlCreateMenuItem("Autor", $menu_help)
$item_help_exit = GUICtrlCreateMenuItem("Beenden", $menu_help)

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

$menu_group = GUICtrlCreateMenu("Gruppen", -1, 1)
$item_group_search = GUICtrlCreateMenuItem("Mitgliedschaft", $menu_group)
$hmainTab = GUICtrlCreateTab(0, 0, 600, 550)
$htabDC = GUICtrlCreateTabItem("DC's")
GUICtrlCreateLabel("Domäne:", 10, 40)
GUICtrlCreateLabel($strDomaine, 100, 40)
GUICtrlCreateLabel("Logon-Server:", 10, 70)
GUICtrlCreateLabel($strLogonServer, 100, 70)
;$DCS = _ADDCList()
For $i = 1 To UBound($DCS, 1) - 1
$DC = $DC & $DCS[$i] & @CRLF
Next
GUICtrlCreateLabel("Domänen-Controller", 10, 140, 140, 20)
GUICtrlSetFont(-1, 10, 800)
GUICtrlCreateLabel($DC, 10, 170, 270, 380)
GUICtrlSetBkColor(-1, 0xffffff)
$htabGroups = GUICtrlCreateTabItem("Gruppen")
GUICtrlCreateLabel("Gruppe:", 10, 40)
$input_searchgroup = GUICtrlCreateInput("", 100, 40, 140, 20)
$btn_searchgroup = GUICtrlCreateButton("Suchen", 270, 40, 60, 20)
GUICtrlCreateTabItem("") ; Beendet die Tab Definition
GUISetState(@SW_SHOW)

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

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE Or $msg = $item_help_exit
GUIDelete()
Exit
Case $msg = $item_dc_dcs
_GUICtrlTab_SetCurFocus($hmainTab, 0)
Case $msg = $item_group_search
_GUICtrlTab_SetCurFocus($hmainTab, 1)
EndSelect
WEnd

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo ThinkCross,

poste doch einfach dein bisheriges Skript,

mfg (Auto)Bert

Beiträge von autoBert

UDF gesucht

Was ist besser?

HILFE - GUI bremst PC aus !!!

WOL / Kein Übergabe der MAC-Adresse

Mac adressen wechseln

Hilfe

Passwort abfrage im GUI-Fenster

In ne ini Gänsefüßchen bzw Anführungszeichen oben

UDF gesucht

UDF gesucht

GUI statusbar / progressbar

script lässt sich nicht schließen

Button in Funktion abfragen?

Fenster leeren nach Menüauswahl?

Aus ini Listview item erstellen..

Windows-Info v 1.0.2 [ Crazy Eye ]

Fenster leeren nach Menüauswahl?

script editierung

Fenster leeren nach Menüauswahl?

Fenster leeren nach Menüauswahl?