Windows-Info v 1.0.2 [ Crazy Eye ]

Kleiner

Hallo Liebe Leute!

Update: 17.11.2009

Info: viele Informationen über Hart und Software lassen sich mit eine Klick auf den Desktop zaubern, ein Taskmanager ist auch mit bei erwartet nicht zu viel!
Möglichkeiten Taskmanager (Task-Überblick): Alle laufenden Tasks wie geöffnete Fenster lassen sich bequem anzeigen und beenden kleine Spielerei eine Grafische CPU Anzeigen in Echtzeit!
Schnellzugriff auf bekannte wichtige Ordner ein Cmdersatz Datum Urzeit anzeige!
Cleaner: Eine Option die es ermöglicht ( Tmp ) ( Temporary Internet Files ) ( Cookies ) ( Recent ) ( Prefetch ) Ordner zu durchlaufen alle Dateien Ordner aufzulisten und zu löschen ( Info: es gib momentan genutzte Dateien und Ordner die nicht gelöscht werden) kleine Spielerei es wird angezeigt ( Attribute die einer Datei repräsentiert )!
Es sind auch Schnell aufrufe von Windows-Tools dabei.
Das alles auf einer wie ich finde schöne Oberfläche!

Update: 06.12.2009

Bug gefixt: Produktschlüssel wurde falsch ausgelesen
Keine speicher Option mehr nur eine Pc -Übersicht Lässt sich Speichern reine Information.
Erweiterungen: Schreibgeschützte Dateien löschen ein paar Netzwerk abfragen und eine Komplet neue Oberfläche.

Erweiterungen Kommen!!!!!!

Ich wünsche viel Spaß!

Ps: Den anhang sollte geladen werden der Code läuft ohne data.ini nicht und wegen den Bildern(Grafik).

Spoiler anzeigen

[autoit]

#NoTrayIcon
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=data\Grafik\prog.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <WindowsConstants.au3>
#include <TreeViewConstants.au3>
#include <ListviewConstants.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <GuiConstantsEx.au3>
#include <EditConstants.au3>
#include <GuiImageList.au3>
#include <GuiComboBox.au3>
#include <GuiTreeView.au3>
#include <GuiListView.au3>
#include <GuiButton.au3>
#include <Constants.au3>
#include <Process.au3>
#include <String.au3>
#include <File.au3>
#include <INet.au3>
#include <Date.au3>
;--------------------------------------------------------------------------
; Windows Info v 1.0.2 [ Crazy Eye ] Autor H-K-Kleiner27
;---------------------------------------------------------------------------
Opt('GUIOnEventMode', 1)
Global Const $D_B_C = -3
Local $SYS[40], $Pic[11] = [@ScriptDir & '\data\Grafik\5-r.gif', @ScriptDir & '\data\Grafik\7-b.gif', @ScriptDir & '\data\Grafik\0-a.jpg', @ScriptDir & '\data\Grafik\1-n.jpg', @ScriptDir & '\data\Grafik\2-h.jpg', @ScriptDir & '\data\Grafik\4-d.gif', @ScriptDir & '\data\Grafik\3-e.GIF', @ScriptDir & '\data\Grafik\6-f.gif', @ScriptDir & '\data\Grafik\idf.gif', @ScriptDir & '\data\Grafik\ftg.ico', @ScriptDir & '\data\Grafik\3-sp.jpg']
Global $GUI[8], $IE = @ScriptDir & '\data.ini'
If Not IsAdmin() Then _EndeGui()
If Not FileExists($IE) Then
MsgBox(0, 'Fehler', 'Schwerwiegender Fehler ist aufgetreten eine Systemdatei kann nicht gefunden werden!' & @CRLF & @CRLF & 'Felercode: 000F3' & @CRLF & @CRLF & 'Das Tool wird beendet! Bitte wenden sie sich an [email='henry1982@gmx.de'][/email] und schicken den Fehlercode!')
_EndeGui()
EndIf
$GUI[0] = GUICreate('Crazy Eye', 792, 540, (@DesktopWidth - 800) / 2, (@DesktopHeight - 600) / 2, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
GUISetOnEvent(-3, '_EndeGui')
GUICtrlCreatePic($Pic[0], 0, 0, 1600, 10)
GUICtrlCreatePic($Pic[8], 365, 465, 60, 50)
Local $PicB[8][3] = [[$Pic[1], 'Arbeitsplatz', 'Arbeitsplatz öffnen'],[$Pic[5], 'Drucken', 'Zu druckende Datei wählen'],[$Pic[6], 'E-Mail', 'Das Standard E-Mail Programm wirt aufgerufen!'],[$Pic[10], 'Sperren', 'PC - Sperren'],[$Pic[2], 'Abmelden', 'Sich Abmelden'],[$Pic[3], 'Neustart', 'Den Pc-Neustarten'],[$Pic[4], 'Ausschalten', 'Den PC - Herunterfahren'],[$Pic[7], 'About', '© Crazy Eye by H-K']]
Local $PicBE[8], $x = 15, $y = 470, $g = 35
For $i = 0 To 7
If $i = 3 And 4 And 5 And 6 Then
$x = 610
$y = 475
ElseIf $i = 7 Then
$x = 760
$y = 10
$g = 20
EndIf
$PicBE[$i] = GUICtrlCreatePic($PicB[$i][0], $x, $y, $g, $g)
GUICtrlSetTip(-1, $PicB[$i][2], $PicB[$i][1], 1, 5)
GUICtrlSetOnEvent(-1, '_Menue')
GUICtrlSetCursor(-1, 0)
$x += 45
Next
Local $aBH[6] = ['PC-Überblick', 'Internet-IP-Anzeigen', 'Windows Installation Datum', 'Windows ProductKey', 'Daten Müll Analyse', 'Task Überblick']
Local $aBHe[6], $x = 8, $y = 120
For $i = 0 To 5
If $i = 2 Then $y = 150
If $i = 3 Then $y = 120
If $i = 3 Then $x += 30
$aBHe[$i] = GUICtrlCreateButton($aBH[$i], $x, 432, $y, 25)
GUICtrlSetOnEvent(-1, '_Menue')
GUICtrlSetCursor(-1, 0)
$x += 124
Next
$SYS[1] = GUICtrlCreateMenu(' W&indows Tools ')
Local $aSM[10] = ['System-Config-Programm', 'Performance-Monitor', 'E&reignisanzeige', 'Geräte-Manager', 'Task-Manager', 'S&ystem-Info', 'Sicherheitscenter', 'N&et-Diagnose-XP', 'A&blagenappe', 'A&ssisten für neue Verbindungen']
Local $aSME[10]
For $i = 0 To 9
$aSME[$i] = GUICtrlCreateMenuItem($aSM[$i], $SYS[1])
GUICtrlSetOnEvent(-1, '_Menue')
Next
$SYS[2] = GUICtrlCreateMenu(' S&chnell - Starter ')
Local $aSM1[10] = [@HomeDrive, 'W&indows', 'S&ystem32', 'P&rogramme', 'U&ser-Ordner', 'E&igene Datein', 'D&esktop', 'A&nwendungsdaten', 'T&mp Ordner', 'S&tart Ordner']
Local $aSME1[10]
For $i = 0 To 9
$aSME1[$i] = GUICtrlCreateMenuItem($aSM1[$i], $SYS[2])
GUICtrlSetOnEvent(-1, '_Menue')
Next
$SYS[3] = GUICtrlCreateMenu(' N&etzwerk ')
Local $aSM2[4] = ['T&elenet', 'F&TP', 'N&etzwerk-Steuern', 'D&ns Server Abfragen']
Local $aSME2[4]
For $i = 0 To 3
$aSME2[$i] = GUICtrlCreateMenuItem($aSM2[$i], $SYS[3])
GUICtrlSetOnEvent(-1, '_Menue')
Next
$SYS[4] = GUICtrlCreateMenu(' W&indows - Einstellungen ')
$SYS[5] = GUICtrlCreateMenuItem('M&enü', $SYS[4])
GUICtrlSetOnEvent(-1, '_Menue')
GUICtrlSetFont(GUICtrlCreateLabel('User: ' & @UserName, 233, 30, 100, 20), 9, 1000, "", "Arial")
GUICtrlSetFont(GUICtrlCreateLabel('Pc: ' & @ComputerName, 233, 60, 150, 20), 9, 1000, "", "Arial")
GUICtrlSetFont(GUICtrlCreateLabel('System : ' & @OSVersion & ' Bulid-Nummer : ' & @OSBuild, 233, 90, 280, 20), 9, 1000, "", "Arial")
GUICtrlSetFont(GUICtrlCreateLabel('Befehlszeile', 535, 70, 70, 20), 8.5, 1000, "", "Arial")
$SYS[6] = GUICtrlCreateLabel('', 705, 70, 80, 19)
GUICtrlSetOnEvent(-1, '_befzeilausgabe')
GUICtrlSetFont(-1, 8.5, 1000, "", "Arial")
GUICtrlSetColor(-1, 0x0000FF)
$SYS[7] = GUICtrlCreateInput('', 535, 90, 250, 20)
$SYS[8] = GUICtrlCreateEdit('', 230, 120, 555, 302)
GUICtrlSetFont(-1, 8.5, 1000, "", "Arial")
GUICtrlSetFont(GUICtrlCreateInput('' & @MDAY & '-' & @MON & '-' & @YEAR, 275, 480, 73, 19, $ES_READONLY + $ES_CENTER), 8, '', "", "Arial")
$SYS[9] = GUICtrlCreateInput('' & @HOUR & ':' & @MIN & ':' & @SEC, 440, 480, 73, 19, $ES_READONLY + $ES_CENTER)
GUICtrlSetFont(-1, 8, 1000, "", "Arial")
Local $aTVIE[14], $aTVI[14] = ['Autostart - Info', 'Partition(en)', 'UmgebungsVariablen', 'Kritische Events anzeigen', 'Installierte Treiber', 'IP Konfiguration-Info', 'Prozesse+Pfad+Startbefehl', 'Prozesse u. deren genutzte Bibliotheken', 'Schnitstelle und Greäte', 'Offene Ports', 'GruppenRichtlienen', 'Locale Gruppen', 'Locale Freigaben', 'Logon Zähler']
Local $aTVIE1[6], $aTVI1[6] = ['Bios', 'Motherboard', 'Grafikkarten', 'Soundkarte', 'CD/DVD', 'Arbeitsspeicher ( Ram )']
Local $aTVIE2[14], $aTVI2[14] = ['Aktive TCP-Verbindungen', 'TCP-Verbindungen u. die Prozess-ID', 'TCP-Verbindungen sowie die TCP- u. UDP-Anschlüsse', 'NetBIOS-Namenzwischenspeichers', 'Ethernet-Statistiken', 'Inhalt der IP-Routingtabelle', 'Zeigt Statistiken nach Protokollen', 'Liste der konfigurierbaren Dienste', 'Zeigt Einstellungen für den Serverdienst', 'Zeigt Einstellungen für den Arbeitsstationsdienst', 'Statistik des lokalen Serverdienstes', 'Statistik des lokalen Arbeitsstationsdienstes', 'Verfügbaren Server in einem NetWare-Netzwerk', 'Liste der Computer in der aktuellen Domäne']
$SYS[10] = GUICtrlCreateTreeView(6, 12, 220, 410, BitOR($TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS), $WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1, 8.5, 1000, "", "Arial")
$SYS[11] = GUICtrlCreateTreeViewItem('Algemein', $SYS[10])
For $i = 0 To 13
$aTVIE[$i] = GUICtrlCreateTreeViewItem($aTVI[$i], $SYS[11])
GUICtrlSetOnEvent(-1, '_Processatarter')
Next
$SYS[12] = GUICtrlCreateTreeViewItem('Software', $SYS[10])
GUICtrlCreateTreeViewItem('Software - Details', $SYS[12])
GUICtrlSetOnEvent(-1, '_Processatarter')
GUICtrlCreateTreeViewItem('Betriebssystem u. Updates', $SYS[12])
GUICtrlSetOnEvent(-1, '_Processatarter')
$SYS[13] = GUICtrlCreateTreeViewItem('Hardware', $SYS[10])
For $i = 0 To 5
$aTVIE1[$i] = GUICtrlCreateTreeViewItem($aTVI1[$i], $SYS[13])
GUICtrlSetOnEvent(-1, '_Processatarter')
Next
$SYS[14] = GUICtrlCreateTreeViewItem('Netzwerk Algemein', $SYS[10])
For $i = 0 To 13
$aTVIE2[$i] = GUICtrlCreateTreeViewItem($aTVI2[$i], $SYS[14])
GUICtrlSetOnEvent(-1, '_Processatarter')
Next
Local $hImage = _GUIImageList_Create(14, 14, 5, 3)
_GUIImageList_AddIcon($hImage, $Pic[9])
_GUICtrlTreeView_SetNormalImageList($SYS[10], $hImage)
Dim $AccelKeys[2][2] = [["{ENTER}", $SYS[6]],["{ESC}", '']]
GUISetAccelerators($AccelKeys)
GUISetState()
$GUI[1] = GUICreate('Task-Überblick', 880, 525, (@DesktopWidth - 880) / 2, (@DesktopHeight - 525) / 2, $WS_OVERLAPPEDWINDOW + $WS_CLIPSIBLINGS)
GUISetOnEvent(-3, '_EndeGui1')
GUISetBkColor(0x09999999)
GUICtrlCreateLabel('Task - Überblick', 400, 480, 200, 20)
GUICtrlSetFont(-1, 14, 400, "", "Arial")
$SYS[15] = GUICtrlCreateListView('', 0, 0, 880, 450, $LVS_EX_DOUBLEBUFFER)
GUICtrlSetFont(-1, 8.5, 1000, "", "Arial")
Global $hLV = GUICtrlGetHandle($SYS[15])
Local $aLH[8] = ['ProzesseName ', ' PID', 'Parent PID', 'Eigentümer', 'Priorität', 'Ausführbaren Pfad', 'Geschriebenen Daten', 'Speichernutzung']
Local $alViv[8]
For $i = 0 To 7
$alViv[$i] = _GUICtrlListView_AddColumn($hLV, $aLH[$i], 93)
Next
$SYS[16] = GUICtrlCreateButton('Processliste Einlesen', 10, 460, 150, 27)
GUICtrlSetOnEvent(-1, '_Menue')
$SYS[17] = GUICtrlCreateButton('Process Fenster "Schließen"', 10, 490, 150, 27)
GUICtrlSetOnEvent(-1, '_Menue')
$SYS[18] = GUICtrlCreateButton('CPU Auslastung Grafik', 170, 490, 150, 27)
GUICtrlSetOnEvent(-1, '_Menue')
$SYS[19] = GUICtrlCreateLabel('', 700, 490, 170, 22)
GUICtrlSetFont(-1, 8.5, 1000, "", "Arial")
$SYS[20] = GUICtrlCreateLabel('', 700, 465, 140, 22)
GUICtrlSetFont(-1, 8.5, 1000, "", "Arial")
GUISetState(@SW_HIDE, $GUI[1])
GUIRegisterMsg(0x004E, "DoubleClick")
$GUI[2] = GUICreate('CPU', 245, 170, -1, -1)
GUISetOnEvent(-3, '_EndeGui2')
GUISetBkColor(0xFFFFFF)
Local $cI = "", $sC = "localhost"
Local $oWMIS = ObjGet("winmgmts:\\" & $sC & "\root\CIMV2")
GUICtrlSetFont(GUICtrlCreateLabel('CPU-1-2-3-4', 90, 5, 70, 20), 8.5, 1000, "", "Arial")
Local $ap_c[4], $x = 15
Local $al_c[4], $y = 20
For $i = 0 To 3
$ap_c[$i] = GUICtrlCreateProgress($x, 30, 48, 100, $PBS_VERTICAL)
$al_c[$i] = GUICtrlCreateLabel('', $y, 135, 30, 20, $SS_CENTER)
$x += 55
$y += 55
Next
GUISetState(@SW_HIDE, $GUI[2])
$GUI[3] = GUICreate('Processe - Fenster - Schließen', 450, 125, -1, -1)
GUISetOnEvent(-3, '_EndeGui3')
GUISetBkColor(0x09999999)
$SYS[21] = GUICtrlCreateProgress(10, 105, 420, 10)
GUICtrlCreateLabel('Lister der Processe', 10, 10, 150, 20)
GUICtrlCreateLabel('Lister der offenen Fenster', 10, 55, 150, 20)
$SYS[22] = GUICtrlCreateCombo('', 10, 25, 200, 20)
GUICtrlSetFont(-1, 8.5, 1000, "", "Arial")
_GUICtrlComboBox_SetDroppedWidth($SYS[22], 200)
$SYS[23] = GUICtrlCreateCombo('', 10, 70, 200, 20)
GUICtrlSetFont(-1, 8.5, 1000, "", "Arial")
_GUICtrlComboBox_SetDroppedWidth($SYS[23], 200)
$SYS[24] = GUICtrlCreateButton('Process Beenden', 220, 25, 100, 20)
GUICtrlSetOnEvent(-1, '_Menue')
$SYS[25] = GUICtrlCreateButton('Task - Kill', 330, 25, 100, 20)
GUICtrlSetOnEvent(-1, '_Menue')
$SYS[26] = GUICtrlCreateButton('Fenster Schliesen', 220, 70, 100, 20)
GUICtrlSetOnEvent(-1, '_Menue')
Local $AK = GUICtrlCreateButton('Aktualisieren', 330, 70, 100, 20)
GUICtrlSetOnEvent(-1, '_Menue')
GUISetState(@SW_HIDE, $GUI[3])
$GUI[4] = GUICreate('System Analyse', 600, 500, (@DesktopWidth - 600) / 2, (@DesktopHeight - 500) / 2, $WS_OVERLAPPEDWINDOW + $WS_CLIPSIBLINGS)
GUISetOnEvent(-3, '_EndeGui4')
GUISetBkColor(0xFFFFFF)
$SYS[27] = GUICtrlCreateProgress(10, 55, 200, 20)
$SYS[28] = GUICtrlCreateLabel('', 215, 60, 28, 20)
GUICtrlSetFont(-1, 8.5, 1000, "", "Arial")
GUICtrlSetColor($SYS[27], 0x0000FF)
$SYS[29] = GUICtrlCreateEdit('', 10, 90, 580, 250)
GUICtrlSetFont(-1, 8.5, 800, "", "Arial")
GUICtrlSetFont(GUICtrlCreateLabel('Diese Ordner werden durchsucht!', 10, 25, 200, 20), 8.5, 800, "", "Arial")
GUICtrlSetFont(GUICtrlCreateLabel('( Tmp ) ( Temporary Internet Files ) ( Cookies ) ( Recent ) ( Prefetch )', 210, 25, 380, 20), 8.5, 800, "", "Arial")
Local $aspei[6], $x = 353
For $i = 0 To 5
$aspei[$i] = GUICtrlCreateInput('', 10, $x, 300, 20)
GUICtrlSetFont(-1, 8.5, 800, "", "Arial")
GUICtrlSetColor(-1, 0x0000FF)
$x += 22
Next
$SYS[30] = GUICtrlCreateButton('Bereinigung Starten', 325, 353, 120, 25)
GUICtrlSetOnEvent(-1, '_Menue')
$SYS[31] = GUICtrlCreateButton('Schreibgeschützte Datein Entfernen', 325, 388, 120, 40, $BS_MULTILINE)
GUICtrlSetOnEvent(-1, '_Menue')
$SYS[32] = GUICtrlCreateButton('Analyse Aktualisieren', 455, 353, 120, 25)
GUICtrlSetOnEvent(-1, '_Menue')
GUISetState(@SW_HIDE, $GUI[4])
$GUI[5] = GUICreate('Windows-Einstellungen', 390, 600, -1, -1)
GUISetBkColor(0xFFFFFF)
GUICtrlCreatePic($Pic[0], 0, 0, 390, 10)
GUICtrlCreatePic($Pic[0], 0, 590, 390, 15)
GUISetOnEvent(-3, '_EndeGui5')
GUICtrlCreateGroup('Allgmein', 50, 40, 285, 315)
GUICtrlCreateGroup('Sicherheit', 50, 380, 285, 170)
Local $aprue[14][2] = [[1, 'Sprechblasen abschalten'],[1, 'Performance erhöhen'],[1, 'Beep-Ton ausschalten'],[1, 'Schneller anmelden'],[1, 'Schneller herunterfahren'],[1, 'Windows schneller beenden'],[1, 'Keine Neustart nach Bluescreen'],[1, 'Explorer absichern'],[1, 'Treibersuche beschleunigen'],[1, 'Administrative Freigaben entfernen'],[1, 'Privatspähre schützen'],[1, 'Cmd.exe sperren'],[1, 'Cmd.exe und Batch ausführung sperren'],[1, 'Starten des Registry-Editors verhindern ']]
Local $agui[14], $x = 70
For $i = 0 To 13
If $i = 9 Then $x = 400
$agui[$i] = GUICtrlCreateCheckbox($aprue[$i][1], 75, $x, 250, 19)
GUICtrlSetFont(-1, 8.5, 1000, "", "Arial")
GUICtrlSetOnEvent(-1, '_Reg')
$x += 30
Next
Local $IAREG = IniReadSection($IE, 'User')
For $i = 0 To 13
For $s = 1 To UBound($IAREG) - 1
If $aprue[$i][0] = $IAREG[$s][1] Then GUICtrlSetState($agui[$s - 1], $GUI_CHECKED)
Next
Next
If IniRead($IE, 'User', 'Cmd.exe und Batch ausführung sperren', '') = 1 Then _GUICtrlButton_Enable($agui[11], False)
GUISetState(@SW_HIDE, $GUI[5])
While 1 * Sleep(10)
While WinActive('CPU')
$cI = $oWMIS.ExecQuery("SELECT LoadPercentage FROM Win32_Processor")
If IsObj($cI) Then
$i = 0
For $oI In $cI
If $i = 0 Then
GUICtrlSetData($ap_c[0], 100 - $oI.LoadPercentage)
GUICtrlSetData($al_c[0], $oI.LoadPercentage & "%")
ElseIf $i = 1 Then
GUICtrlSetData($ap_c[1], 100 - $oI.LoadPercentage)
GUICtrlSetData($al_c[1], $oI.LoadPercentage & "%")
ElseIf $i = 2 Then
GUICtrlSetData($ap_c[2], 100 - $oI.LoadPercentage)
GUICtrlSetData($al_c[3], $oI.LoadPercentage & "%")
ElseIf $i = 3 Then
GUICtrlSetData($ap_c[3], 100 - $oI.LoadPercentage)
GUICtrlSetData($al_c[3], $oI.LoadPercentage & "%")
EndIf
$i += 1
Next
Else
MsgBox(0, "WMI Output", "No WMI Objects Found for class: " & "Win32_Processor")
EndIf
WEnd
GUICtrlSetData($SYS[9], @HOUR & ':' & @MIN & ':' & @SEC)
WEnd
Func _Menue()
Local $f, $sUs, $sU, $co = "", $st = "localhost", $co, $obWMI, $b = 0, $d = 0, $file, $print, $spei, $bLoop = 1
Local $PB = @ScriptDir & '\data\Speicher-Berichte\PC-Ueberblick.txt'
Local $PUL[31] = ['+ Benutzername : ' & @UserName, '+ Pc - Name : ' & @ComputerName, '+ System : ' & @OSVersion, '+ Bulid-Nummer : ' & @OSBuild, '+ Architekturtyp : ' & @OSArch, '+ CPU-Architektur : ' & @CPUArch, '+ Label : ' & DriveGetLabel("C:\"), '+ Label-Seriennummer : ' & DriveGetSerial("C:\"), '+ Windows-Ordner : ' & @WindowsDir, '+ System32-Ordner : ' & @SystemDir, '+ Programm-Ordner : ' & @ProgramFilesDir, '+ Profil-Ordner : ' & @UserProfileDir, '+ Anwendungsdaten-Ordner : ' & @AppDataDir, '+ Tmp-Ordner : ' & @TempDir, '+ Eigene-Datein-Ordner : ' & @MyDocumentsDir, '+ Desktop-Ordner : ' & @DesktopDir, '+ Startmenü-Ordner : ' & @StartMenuDir, '+ Autostart-Ordner : ' & @StartupDir, '+ Logon-Domain : ' & @LogonDomain, '+ Logon-DNS-Domain : ' & @LogonDNSDomain, '+ Logon-Server : ' & @LogonServer, '+ Netzwerk-Adapters1 : ' & @IPAddress1, '+ Netzwerk-Adapters2 : ' & @IPAddress2, '+ Netzwerk-Adapters3 : ' & @IPAddress3, '+ Netzwerk-Adapters4 : ' & @IPAddress4, '+ Total-Speicher : ' & _StringAddThousandsSep(StringReplace(Round(DriveSpaceTotal("C:\"), 2), '.', ','), ".", ",") & " MB", '+ Freier-Speicher : ' & _StringAddThousandsSep(StringReplace(Round(DriveSpaceFree("C:\"), 2), '.', ','), ".", ",") & " MB", '+ Desktop-W-(Pixels) : ' & @DesktopWidth, '+ Desktop-H-(Picels) : ' & @DesktopHeight, '+ Farbtiefe : ' & @DesktopDepth & ' Bits pro Pixel', '+ Bildwiederholung : ' & @DesktopRefresh & ' Hertz']
Local $aNa[5][4] = [[@TempDir & '\*.*', @TempDir, 'Einlesen vom Tmp Ordner gestartet........', 'Tmp'],[@UserProfileDir & '\Lokale Einstellungen\Temporary Internet Files\*.*', @UserProfileDir & '\Lokale Einstellungen\Temporary Internet Files', 'Einlesen vom Temporary Internet Files Ordner gestartet........', 'Temporary Internet Files'],[@UserProfileDir & '\Cookies\*.*', @UserProfileDir & '\Cookies', 'Einlesen vom Cookies Ordner gestartet........', 'Cookies'],[@UserProfileDir & '\Recent\*.*', @UserProfileDir & '\Recent', 'Einlesen vom Recent Ordner gestartet........', 'Recent'],[@WindowsDir & '\Prefetch\*.*', @WindowsDir & '\Prefetch', 'Einlesen vom Prefetch Ordner gestartet........', 'Prefetch']]
Local $rech = DirGetSize($aNa[0][1]) + DirGetSize($aNa[1][1]) + DirGetSize($aNa[2][1]) + DirGetSize($aNa[3][1]) + DirGetSize($aNa[4][1])
Switch @GUI_CtrlId
Case $aSME[0]
_RunDOS('Start Msconfig')
Case $aSME[1]
_RunDOS('Perfmon')
Case $aSME[2]
_RunDOS('eventvwr.exe')
Case $aSME[3]
_RunDOS('devmgmt.msc')
Case $aSME[4]
_RunDOS('taskmgr.exe')
Case $aSME[5]
_RunDOS('winmsd.exe')
Case $aSME[6]
_RunDOS('wscui.cpl')
Case $aSME[7]
_RunDOS('netsh diag gui')
Case $aSME[8]
_RunDOS('clipbrd.exe')
Case $aSME[9]
_RunDOS('rasphone -a')
Case $aSME1[0]
ShellExecute(@HomeDrive)
Case $aSME1[1]
ShellExecute(@WindowsDir)
Case $aSME1[2]
ShellExecute(@SystemDir)
Case $aSME1[3]
ShellExecute(@ProgramFilesDir)
Case $aSME1[4]
ShellExecute(@UserProfileDir)
Case $aSME1[5]
ShellExecute(@MyDocumentsDir)
Case $aSME1[6]
ShellExecute(@DesktopDir)
Case $aSME1[7]
ShellExecute(@AppDataDir)
Case $aSME1[8]
ShellExecute(@TempDir)
Case $aSME1[9]
ShellExecute(@StartupDir)
Case $aSME2[0]
RunWait(@ComSpec & " /c " & "color 0A & Telnet")
Case $aSME2[1]
RunWait(@ComSpec & " /c " & "color 0A & FTP")
Case $aSME2[2]
RunWait(@ComSpec & " /c " & "color 0A & title Netzwerk-Komponete-Stueeren & Netsh ")
Case $aSME2[3]
RunWait(@ComSpec & " /c " & "title Dns Server Abfragen & color 0A & Nslookup")
Case $SYS[5]
GUISetState(@SW_SHOW, $GUI[5])
Case $PicBE[0]
If _AnimButton($GUI[0], $PicBE[0]) Then _RunDOS('%windir%\explorer.exe /n,')
Case $PicBE[1]
_AnimButton($GUI[0], $PicBE[1])
$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
Case $PicBE[2]
If _AnimButton($GUI[0], $PicBE[2]) Then _INetMail('', '', '')
Case $PicBE[3]
$spei = MsgBox(4, 'INFO', 'Möchten sie Windows Sperren ?')
If $spei = 7 Then $bLoop = 0
If $bLoop = 1 Then _RunDOS('rundll32.exe user32.dll,LockWorkStation')
Case $PicBE[4]
_AnimButton($GUI[0], $PicBE[4])
$spei = MsgBox(4, 'INFO', 'Möchten sie Windows Abmelden ?')
If $spei = 7 Then $bLoop = 0
If $bLoop = 1 Then _RunDOS('shutdown -l -t 00')
Case $PicBE[5]
_AnimButton($GUI[0], $PicBE[5])
$spei = MsgBox(4, 'INFO', 'Möchten sie Windows Neu starten ?')
If $spei = 7 Then $bLoop = 0
If $bLoop = 1 Then _RunDOS('shutdown -r -t 00')
Case $PicBE[6]
_AnimButton($GUI[0], $PicBE[6])
$spei = MsgBox(4, 'INFO', 'Möchten sie Windows Herunterfahren ?')
If $spei = 7 Then $bLoop = 0
If $bLoop = 1 Then _RunDOS('shutdown -s -t 00')
Case $PicBE[7]
_AnimButton($GUI[0], $PicBE[7])
MsgBox(0, 'Window-Info v 1.0.2 [ Crazy Eye ]', '' & @CRLF & @CRLF & 'Dieses Tool wurde zu Automatisierung von Windows Entwickelt und ist für den Zweck der schnellen Information Beschaffung gut einsetzbar.' & @CRLF & 'Ich übernehme keine Haftung bei schäden an Hard oder Softwar.' & @CRLF & 'Dies ist eine vorläufige Version!' & @CRLF & @CRLF & 'Besucht uns auf http://www.autoit.de ' & @CRLF & @CRLF & @CRLF & @CRLF & '© by H-K')
Case $aBHe[0]
MsgBox(0, 'PC Info Überblick', $PUL[0] & @CRLF & $PUL[1] & @CRLF & $PUL[2] & @CRLF & $PUL[3] & @CRLF & $PUL[4] & @CRLF & $PUL[5] & @CRLF & $PUL[6] & @CRLF & $PUL[7] & @CRLF & $PUL[8] & @CRLF & $PUL[9] & @CRLF & $PUL[10] & @CRLF & $PUL[11] & @CRLF & $PUL[12] & @CRLF & $PUL[13] & @CRLF & $PUL[14] & @CRLF & $PUL[15] & @CRLF & $PUL[16] & @CRLF & $PUL[17] & @CRLF & $PUL[18] & @CRLF & $PUL[19] & @CRLF & $PUL[20] & @CRLF & $PUL[21] & @CRLF & $PUL[22] & @CRLF & $PUL[23] & @CRLF & $PUL[24] & @CRLF & $PUL[25] & @CRLF & $PUL[26] & @CRLF & $PUL[27] & @CRLF & $PUL[28] & @CRLF & $PUL[29] & @CRLF & $PUL[30])
$spei = MsgBox(4, 'INFO', 'Möchten sie PC - Überblick als bericht speichern ?')
If $spei = 7 Then $bLoop = 0
If $bLoop = 1 Then
If FileExists($PB) Then
$spei = MsgBox(4, 'INFO', 'Datei Exestiert bereits!' & @CRLF & 'Möchten sie die Datei überschreiben?')
Else
$f = FileOpen($PB, 2)
_FileWriteFromArray($f, $PUL, 1)
FileClose($f)
MsgBox(0, "Speicher Bericht", "Wurde erfolgreich erstellt!")
$bLoop = 0
EndIf
EndIf
If $spei = 7 Then $bLoop = 0
If $bLoop = 1 Then
$f = FileOpen($PB, 2)
_FileWriteFromArray($f, $PUL, 1)
FileClose($f)
MsgBox(0, "Speicher Bericht", "Wurde erfolgreich erstellt!")
EndIf
Case $aBHe[1]
Dim $IP = _GetIP()
If $IP = -1 Then Return MsgBox(0, 'Info', 'IP konnte nicht ausgelesen werden, wahrscheinlich nicht mit dem Internet verbunden!')
MsgBox(0, 'Deine Interne IP', 'Ist : ' & $IP)
Case $aBHe[2]
MsgBox(0, '', 'Windows wurde am: ' & _DateTimeFormat(_DateAdd('s', RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\", "InstallDate"), "1970/01/01 01:00:00"), 0) & ' Installiert')
Case $aBHe[3]
Dim $a[15], $b[29], $c[24], $s = 15, $d = 29, $v = 0, $n = 0, $i = 0, $r, $h = 0, $bia
$c = StringSplit('BCDFGHJKMPQRTVWXY2346789', '')
$bia = StringMid(RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "DigitalProductID"), 107)
For $i = 1 To 29 Step 2
$a[Int($i / 2)] = Dec(StringMid($bia, $i, 2))
Next
For $i = $d - 1 To 0 Step -1
If Mod(($i + 1), 6) = 0 Then
$b[$i] = "-"
Else
$h = 0
For $n = $s - 1 To 0 Step -1
$v = BitOR(BitShift($h, -8), $a[$n])
$a[$n] = Int($v / 24)
$h = Mod($v, 24)
Next
$b[$i] = $c[$h + 1]
EndIf
Next
For $i = 0 To 28
$r = $r & $b[$i]
Next
MsgBox(0, '', 'Dein Produkt Key: ' & $r)
Case $aBHe[4], $SYS[32]
GUISetState(@SW_SHOW, $GUI[4])
GUICtrlSetData($SYS[29], '')
For $i = 0 To 4
$d += 20
GUICtrlSetData($aspei[$i], $aNa[$i][3] & ': ' & Round(DirGetSize($aNa[$i][1]) / 1024) & ' Kby ' & Round(DirGetSize($aNa[$i][1]) / 1024 / 1024) & ' MB ' & Round(DirGetSize($aNa[$i][1]) / 1024 / 1024 / 1024) & ' GB')
GUICtrlSetData($SYS[29], GUICtrlRead($SYS[29]) & @CRLF & @CRLF & $aNa[$i][2])
GUICtrlSetData($SYS[27], $d)
GUICtrlSetData($SYS[28], "" & $d & "%")
Listen(FileFindFirstFile($aNa[$i][0]), $aNa[$i][1])
Sleep(400)
Next
GUICtrlSetData($aspei[5], 'Gesamt: ' & Round($rech / 1024) & ' Kby ' & Round($rech / 1024 / 1024) & ' MB ' & Round($rech / 1024 / 1024 / 1024) & ' GB')
Case $SYS[30]
$i = 0
Do
Sleep(10)
GUICtrlSetData($SYS[27], $i)
GUICtrlSetData($SYS[28], '' & $i & "%")
$i += 1
Until $i = 101
For $i = 0 To 4
FileDelete($aNa[$i][0])
Next
For $s = 0 To UBound($aNa) - 1
Dim $te = _FileListToArray($aNa[$s][1], '*', 2)
For $i = 1 To UBound($te) - 1
DirRemove($aNa[$s][1] & '\' & $te[$i], 1)
Next
Next
GUICtrlSetData($SYS[29], 'Bei neuer Analyse werden nicht alle Datein und Ordner gelöscht sein das System erstellt sie neu!' & @CRLF & 'Oder gebliebenen Datei und Ordner werden gerade genutzt!')
Case $SYS[31]
Local $spei, $bLoop = 1
$spei = MsgBox(4, 'INFO', 'Diese Option Erzwingt das Löschen schreibgeschützter Dateien' & @CRLF & 'Es wird jeder Ordner nochmal durchlaufen um alle schreibgeschützten Daten zu löschen!' & @CRLF & 'Wollen sie diese Option ausführen ?')
If $spei = 7 Then $bLoop = 0
If $bLoop = 1 Then
$i = 0
Do
Sleep(10)
GUICtrlSetData($SYS[27], $i)
GUICtrlSetData($SYS[28], "" & $i & "%")
$i += 1
Until $i = 101
For $i = 0 To 4
_RunDOS('del /F /Q ' & $aNa[$i][0])
MsgBox(0, '', $aNa[$i][0] & ' Datein Bereinigt!')
Next
$bLoop = 0
EndIf
Case $aBHe[5]
GUISetState(@SW_SHOW, $GUI[1])
Case $SYS[16]
_GUICtrlListView_BeginUpdate($hLV)
$obWMI = ObjGet('winmgmts:{impersonationLevel=impersonate}!\\' & $st & '\root\CIMV2')
$co = $obWMI.ExecQuery('SELECT * FROM Win32_Process')
If Not IsObj($co) Then Return MsgBox(0, 'WMI Output', 'No WMI Objects Found for class: Win32_Process')
Dim $av[$co.Count][8], $n = 0
For $ob In $co
$av[$n][0] = $ob.Caption
$av[$n][1] = $ob.ProcessId
$av[$n][2] = $ob.ParentProcessId
If $ob.GetOwner($sU, $sUs) = 0 Then $av[$n][3] = $sUs & '\' & $sU
$av[$n][4] = $ob.Priority
$av[$n][5] = $ob.ExecutablePath
$av[$n][6] = $ob.WriteTransferCount
$av[$n][7] = $ob.WorkingSetSize
$n += 1
Next
_GUICtrlListView_DeleteAllItems($hLV)
For $i = 2 To UBound($av) - 1
GUICtrlCreateListViewItem($av[$i][0] & '|' & $av[$i][1] & '|' & $av[$i][2] & '|' & $av[$i][3] & '|' & $av[$i][4] & '|' & $av[$i][5] & '|' & $av[$i][6] & '|' & $av[$i][7], $SYS[15])
$b += $av[$i][7]
Next
_GUICtrlListView_EndUpdate($hLV)
GUICtrlSetData($SYS[19], 'Benutzter Speicher: ' & Round($b / 1024 / 1024) & ' ' & 'MB')
GUICtrlSetData($SYS[16], 'Processe Aktualisieren')
$av = ProcessList()
GUICtrlSetData($SYS[20], 'Processe Gesamt: ' & $av[0][0])
Case $SYS[17], $AK
Dim $p = ProcessList()
For $i = 2 To $p[0][0]
GUICtrlSetData($SYS[22], $p[$i][0])
Next
Dim $w = WinList()
For $i = 1 To $w[0][0]
If $w[$i][0] <> "" Then
GUICtrlSetData($SYS[23], $w[$i][0])
EndIf
Next
GUISetState(@SW_SHOW, $GUI[3])
Case $SYS[18]
GUISetState(@SW_SHOW, $GUI[2])
Case $SYS[24]
GUICtrlSetData($SYS[21], 0)
$spei = MsgBox(4, 'INFO', 'Möchten sie den Process Schließen ?')
If GUICtrlRead($SYS[22]) = 'Crazy Eye.exe' Then Return MsgBox(0, 'Info', 'Crazy Eye Kann nicht Beendet werden!')
If $spei = 7 Then $bLoop = 0
If $bLoop = 1 Then
If ProcessExists(GUICtrlRead($SYS[22])) Then ProcessClose(GUICtrlRead($SYS[22]))
GUICtrlSetData($SYS[21], 100)
EndIf
If ProcessExists(GUICtrlRead($SYS[22])) Then MsgBox(0, 'Fehler', 'Konnte nicht geschlossen werden!')
Case $SYS[25]
GUICtrlSetData($SYS[21], 0)
$spei = MsgBox(4, 'INFO', 'Es wird versucht den Process zum Beenden zu zwingen!' & @CRLF & @CRLF & 'Wollen sie die Option ausführen?')
If GUICtrlRead($SYS[22]) = 'Crazy Eye.exe' Then Return MsgBox(0, 'Info', 'Crazy Eye Kann nicht Beendet werden!')
If $spei = 7 Then $bLoop = 0
If $bLoop = 1 Then
GUICtrlSetData($SYS[21], 100)
_RunDOS('start taskkill /F /IM ' & GUICtrlRead($SYS[22]) & ' /T')
EndIf
Case $SYS[26]
GUICtrlSetData($SYS[21], 0)
$spei = MsgBox(4, 'INFO', 'Möchten sie das Fenster Schließen ?')
If GUICtrlRead($SYS[23]) = 'Crazy Eye' Then Return MsgBox(0, 'Info', 'Crazy Eye Kann nicht Beendet werden!')
If $spei = 7 Then $bLoop = 0
If $bLoop = 1 Then
If WinExists(GUICtrlRead($SYS[23])) Then WinKill(GUICtrlRead($SYS[23]))
GUICtrlSetData($SYS[21], 100)
EndIf
If GUICtrlRead($SYS[23]) = GUICtrlRead($GUI[1]) Or GUICtrlRead($SYS[23]) = GUICtrlRead($GUI[2]) Or GUICtrlRead($SYS[23]) = GUICtrlRead($GUI[3]) Or GUICtrlRead($SYS[23]) = GUICtrlRead($GUI[4]) Or GUICtrlRead($SYS[23]) = GUICtrlRead($GUI[5]) Or GUICtrlRead($SYS[23]) = GUICtrlRead($GUI[6]) Then Return MsgBox(0, 'Info', 'Programm Interne Fenster werden nach diesem Dialog geschlossen!')
If WinExists(GUICtrlRead($SYS[23])) Then MsgBox(0, 'Fehler', 'Konnte nicht geschlossen werden!')
EndSwitch
EndFunc ;==>_Menue
Func Listen($e, $d)
Dim $i = 0
Do
Dim $file = FileFindNextFile($e)
Dim $att = FileGetAttrib($d & '\' & $file)
Dim $in = StringSplit('R,A,S,H,N,D,O,C,T', ',')
Dim $out = StringSplit('Read-only /, Archive /, System /, Hidden /, Normal /, Directory /, Offline /, Compressed /, Temporary /', ',')
For $i = 1 To 9
$att = StringReplace($att, $in[$i], $out[$i], 0, 1)
Next
$att = StringTrimRight($att, 2)
If $file = '' Then $file = 'Einlesen vom Ordner beendet!'
If $file = 'Einlesen vom Ordner beendet!' Then $d = ''
GUICtrlSetData($SYS[29], GUICtrlRead($SYS[29]) & @CRLF & $d & '\' & $file & ' -> ' & $att)
If $file = 'Einlesen vom Ordner beendet!' Then ExitLoop
Until $i = $e
EndFunc ;==>Listen
Func _befzeilausgabe()
Dim $Prt, $Pid, $RD, $a, $od
$a = GUICtrlRead($SYS[7])
If $a = '' Then Return MsgBox(0, 'Info', 'Sie haben die [ Enter ] Taste betätig!' & @CRLF & @CRLF & 'Es ist in der Befehlzeile keine Eingabe erfolgt!')
GUICtrlSetData($SYS[8], '')
GUICtrlSetData($SYS[6], 'Bitte warten...')
$Pid = Run(@ComSpec & " /c " & $a, '', @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD)
While ProcessExists($Pid)
$RD = StdoutRead($Pid)
If @error = 0 Then $Prt = $RD
$Prt = StringReplace($Prt, Chr(154), 'Ü')
$Prt = StringReplace($Prt, Chr(129), 'ü')
$Prt = StringReplace($Prt, Chr(142), 'Ä')
$Prt = StringReplace($Prt, Chr(132), 'ä')
$Prt = StringReplace($Prt, Chr(153), 'Ö')
$Prt = StringReplace($Prt, Chr(148), 'ö')
$Prt = StringReplace($Prt, Chr(225), 'ß')
If $od <> $RD Then GUICtrlSetData($SYS[8], GUICtrlRead($SYS[8]) & @CRLF & $Prt)
WEnd
GUICtrlSetData($SYS[6], 'Ferig . . . . . . . .')
EndFunc ;==>_befzeilausgabe
Func _Processatarter()
Dim $Prt, $Pid, $RD, $IA, $od, $co, $co1, $mem
$mem = MemGetStats()
If GUICtrlRead(@GUI_CtrlId, 1) = 'Arbeitsspeicher ( Ram )' Then Return MsgBox(0, 'RAM', 'Gesamter physikalischer RAM: ' & Round($mem[1] / 1024 / 1024, 1) & ' MB' & @CRLF & 'Verfügbarer physikalischer RAM: ' & Round($mem[2] / 1024 / 1024, 1) & ' MB')
$IA = IniRead($IE, 'Befehle', GUICtrlRead(@GUI_CtrlId, 1), 'Error')
$co = StringReplace($IA, 'µ', '')
$co = StringReplace($co, Chr(127), '')
GUICtrlSetData($SYS[8], '')
GUICtrlSetData($SYS[6], 'Bitte warten...')
$Pid = Run(@ComSpec & " /c " & $co, '', @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD)
While ProcessExists($Pid)
$RD = StdoutRead($Pid)
If @error = 0 Then $Prt = $RD
$Prt = StringReplace($Prt, Chr(154), 'Ü')
$Prt = StringReplace($Prt, Chr(129), 'ü')
$Prt = StringReplace($Prt, Chr(142), 'Ä')
$Prt = StringReplace($Prt, Chr(132), 'ä')
$Prt = StringReplace($Prt, Chr(153), 'Ö')
$Prt = StringReplace($Prt, Chr(148), 'ö')
$Prt = StringReplace($Prt, Chr(225), 'ß')
If $od <> $RD Then GUICtrlSetData($SYS[8], GUICtrlRead($SYS[8]) & @CRLF & $Prt)
WEnd
GUICtrlSetData($SYS[6], 'Ferig . . . . . . . .')
EndFunc ;==>_Processatarter
Func _Reg()
Dim $aReg[14][4] = [["HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "EnableBalloonTips", "REG_DWORD", "0x00000000"],["HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management", "DisablePagingExecutive", "REG_DWORD", "0x00000001"],["HKCU\Control Panel\Sound", "Beep", "REG_SZ", "no"],["HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon", "DisableCAD", "REG_DWORD", "0x00000001"],["HKLM\SYSTEM\ControlSet001\Control", "WaitToKillServiceTimeou", "REG_SZ", "3000"],["HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management", "ClearPageFileAtShutdown", "REG_DWORD", "0x00000000"],["HKLM\SYSTEM\CurrentControlSet\Control\CrashControl", "AutoReboot", "REG_DWORD", "0x00000000"],["HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "SeparateProcess", "REG_DWORD", "0x00000001"],["HKLM\SOFTWARE\Policies\Microsoft\Windows\DriverSearching", "DontPromptForWindowsUpdate", "REG_DWORD", "0x00000001"],["HKLM\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters", "AutoShareWks", "REG_DWORD", "0x00000000"],["HKLM\Software\Microsoft\Windows NT\CurrentVersion", "RegDone", "REG_SZ", "1"],["HKCU\Software\Policies\Microsoft\Windows\System", "DisableCMD", "REG_DWORD", "0x00000001"],["HKCU\Software\Policies\Microsoft\Windows\System", "DisableCMD", "REG_DWORD", "0x00000002"],["HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableRegistryTools", "REG_DWORD", "0x00000001"]]
Dim $aReg1[14][4] = [["HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "EnableBalloonTips", "REG_DWORD", "0x00000001"],["HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management", "DisablePagingExecutive", "REG_DWORD", "0x00000000"],["HKCU\Control Panel\Sound", "Beep", "REG_SZ", "yes"],["HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon", "DisableCAD", "REG_DWORD", "0x00000000"],["HKLM\SYSTEM\ControlSet001\Control", "WaitToKillServiceTimeou", "REG_SZ", "5000"],["HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management", "ClearPageFileAtShutdown", "REG_DWORD", "0x00000001"],["HKLM\SYSTEM\CurrentControlSet\Control\CrashControl", "AutoReboot", "REG_DWORD", "0x00000001"],["HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "SeparateProcess", "REG_DWORD", "0x00000000"],["HKLM\SOFTWARE\Policies\Microsoft\Windows\DriverSearching", "DontPromptForWindowsUpdate", "REG_DWORD", "0x00000000"],["HKLM\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters", "AutoShareWks", "REG_DWORD", "0x00000001"],["HKLM\Software\Microsoft\Windows NT\CurrentVersion", "RegDone", "REG_SZ", "0"],["HKCU\Software\Policies\Microsoft\Windows\System", "DisableCMD", "REG_DWORD", "0x00000000"],["HKCU\Software\Policies\Microsoft\Windows\System", "DisableCMD", "REG_DWORD", "0x00000000"],["HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableRegistryTools", "REG_DWORD", "0x00000000"]]
Dim $Check
Dim $num = (@GUI_CtrlId - 141)
If BitAND(GUICtrlRead($agui[$num]), $GUI_CHECKED) = $GUI_CHECKED Then
RegWrite($aReg[$num][0], $aReg[$num][1], $aReg[$num][2], $aReg[$num][3])
$Check = 1
Else
RegWrite($aReg1[$num][0], $aReg1[$num][1], $aReg1[$num][2], $aReg1[$num][3])
$Check = 0
EndIf
IniWrite($IE, "User", $aprue[$num][1], $Check)
EndFunc ;==>_Reg
Func _AnimButton($IDgui, $IDbtn)
Dim $pos = ControlGetPos($IDgui, '', $IDbtn)
Dim $pWin = WinGetPos(GUICtrlGetHandle($IDbtn))
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1] + 1, $pos[2] - 1, $pos[3] - 1)
Dim $tmpGui = GUICreate('', $pos[2], $pos[3], $pWin[0], $pWin[1], $WS_POPUP, $WS_EX_TOOLWINDOW)
WinSetTrans($tmpGui, '', 120)
GUISetState(@SW_SHOWNOACTIVATE, $tmpGui)
Dim $return = 1
Do
$x = GUIGetCursorInfo($IDgui)
If $x[4] <> $IDbtn Then $return = 0
Sleep(10)
Until $x[2] = 0
GUIDelete($tmpGui)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
Return $return
EndFunc ;==>_AnimButton
Func DoubleClick($hWndGUI, $MsgID, $wP, $lP)
Local $EV, $evt, $fei
$EV = DllStructCreate('int;int;int', $lP)
If @error Then Return
$evt = DllStructGetData($EV, 3)
If $wP = $SYS[15] Then
If $evt = $D_B_C Then
Local $fei = StringReplace(GUICtrlRead(GUICtrlRead($SYS[15])), '|', ' ')
MsgBox(0, 'Process', @CRLF & $fei, 5)
EndIf
EndIf
$EV = 0
$evt = 0
$lP = 0
EndFunc ;==>DoubleClick
Func _EndeGui()
FileDelete(@ScriptDir & '\TempWmicBatchFile.bat')
Exit
EndFunc ;==>_EndeGui
Func _EndeGui1()
GUISetState(@SW_HIDE, $GUI[1])
EndFunc ;==>_EndeGui1
Func _EndeGui2()
GUISetState(@SW_HIDE, $GUI[2])
EndFunc ;==>_EndeGui2
Func _EndeGui3()
GUISetState(@SW_HIDE, $GUI[3])
EndFunc ;==>_EndeGui3
Func _EndeGui4()
GUISetState(@SW_HIDE, $GUI[4])
EndFunc ;==>_EndeGui4
Func _EndeGui5()
GUISetState(@SW_HIDE, $GUI[5])
EndFunc ;==>_EndeGui5

[/autoit]

LG Kleiner

simon

Nette Idee
Aber bitte mach deinen code leslicher
also wie es scite normal macht bei ifs der inhalt ein tab weiter und in while usw auch

Kleiner

Hallo Simon!

Danke schön!

Wegen dem code ich versuch es schon anders noch klapt es nicht!

LG Kleiner

**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

**Schnitzel**

Zitat

Verbesserungsvorschläge und kretik sind sehr wilkommen!

ok Kretik nr 1: Kretik ist falsch geschrieben man schreibts Kritik

nein mal im ernst:
bis jetz is das ganze recht cool. gefällt mir gut. hab mir jetz nich alle zeilen durchgelesen, aber funktionieren tut ja einiges schon.

zeile 25:
$GUI1 = GUICreate('PC: ' & @LogonDomain, 800, 620, Default, Default)
evtl eher @ComputerName und nicht @LogonDomain?

zeile 393:
speicherauslastung:
bei sleep(100): 972 K

bei sleep(1): 11960 K
so kann sich der prozessor viel öfter schlafen legen
(und die uhr läuft trotzdem sauber)

und die sachen die eh schon gesagt wurden, ich finds gerade bei großen projekten ab über 100 zeilen total wichtig dass die source sauber ist.
wirst dich selber auch leichter tun damit. vor allem wenn du etwas suchst.

und die Warnungen die beim start kommen musste noch anschauen, da die des ofteren zum programmabsturz führen

alles in allem:
als beta schon sehr ansehnlich

Kleiner

Danke habe mir das zu herzen genommen!

HAbe auch die warnungen beseitigt ich dacht schon sch...... aber wah nicht schlimm global,local und dim musten richtig gesetzt werden!

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>

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

Opt('GUIOnEventMode', 1)
#cs ----------------------------------------------------------------------------

Windows Info v 0.0.1

#ce ----------------------------------------------------------------------------
Global $GUI1, $GUI2, $GUI3, $in, $in1, $Ladebal
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'
If IsAdmin() Then

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

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()

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

Func _mein()
Local $Input_Time, $IP
Local $msg, $OptionsMenu, $OptionsMenu1, $OptionsMenu2, $OptionsMenu3, $OptionsMenu4, $OptionsMenu5, $OptionsMenu6, $OptionsMenu7
Local $OptionsItem1, $OptionsItem2, $OptionsItem3, $OptionsItem4, $hTab, $proItem

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

$GUI1 = GUICreate('PC: ' & @ComputerName, 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][/autoit] [autoit][/autoit] [autoit]

$OptionsItem4 = GUICtrlCreateMenu('P&rogramm-Start', $OptionsMenu)
GUICtrlCreateMenu('Befehlszeile-Menüs', $OptionsItem4)

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

GUICtrlCreateMenu('C&md-VBS', $OptionsItem4)

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

GUICtrlCreateMenu('N&etzwerk', $OptionsItem4)

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

GUICtrlCreateMenu('B&esonderheit', $OptionsItem4)

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

GUICtrlCreateMenu('H&lfe', $OptionsMenu)

[/autoit] [autoit][/autoit] [autoit][/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][/autoit] [autoit]

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

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

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

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

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

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

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

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

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

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

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

[/autoit] [autoit][/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')
Local $bo, $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')

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

GUISetState()

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

$GUI2 = GUICreate('Windows-Tools', 200, 500, -1, -1)
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)

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

Local $spbab, $spbab1, $spbab2, $spbab3, $spbab4, $spbab5, $spbab6, $spbab7, $spbab8, $spbab9, $spbab10, $spbab11, $spbab12, $spbab13
$GUI3 = GUICreate('Windows-Einstellungen', 390, 600, -1, -1)
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')

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

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

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

GUISetState(@SW_HIDE, $GUI3)

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

Local $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)

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

While 1
GUICtrlSetData($Input_Time, @HOUR & ':' & @MIN & ':' & @SEC)
Sleep(100)
WEnd
EndFunc ;==>_mein

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

;Hauptmenü
Func _Exit()
Exit
EndFunc ;==>_Exit
;Fenster2
Func _Exit2()
GUISetState(@SW_HIDE, $GUI2)
EndFunc ;==>_Exit2
;fenster3
Func _Exit3()
GUISetState(@SW_HIDE, $GUI3)
EndFunc ;==>_Exit3
;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

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

Func _drucken()
$file = FileOpenDialog("Zu druckende Datei wählen ", " ", "Textdokumente (*.txt) ", 1)
If @error Then GUISetState(@SW_HIDE, $file)

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

$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

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

Func _ip()
$IP = _GetIP()
MsgBox(0, 'Deine Interne IP', 'Ist : ' & $IP)
EndFunc ;==>_ip

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

Func schnspeich()
Dim $VOL, $SERIAL, $PublicIP, $TOTAL, $FREE

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

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

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

Func _befzeilausgabe()

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

$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

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

Func _befzeilausfueren()

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

$al = GUICtrlRead($in1, 1)
RunWait(@ComSpec & ' /c ' & $al)
EndFunc ;==>_befzeilausfueren

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

Func _wtools()
GUISetState(@SW_SHOW, $GUI2)
EndFunc ;==>_wtools

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

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

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

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

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

EndFunc ;==>_weinstellungen

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

Func _spreBabsch()
Dim $spbab
RegWrite('HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced', 'EnableBalloonTips', 'REG_DWORD', '0x00000000')

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

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()
Dim $spbab1
RegWrite('HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management', 'DisablePagingExecutive', 'REG_DWORD', '0x00000001')

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

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()
Dim $spbab2
RegWrite('HKCU\Control Panel\Sound', 'Beep', 'REG_SZ', 'no')

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

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()
Dim $spbab3
RegWrite('HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon', 'DisableCAD', 'REG_DWORD', '0x00000001')

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

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()
Dim $spbab4
RegWrite('HKLM\SYSTEM\ControlSet001\Control', 'WaitToKillServiceTimeout', 'REG_SZ', '3000')

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

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()
Dim $spbab5
RegWrite('HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management', 'ClearPageFileAtShutdown', 'REG_DWORD', '0x00000000')

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

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()
Dim $spbab6
RegWrite('HKLM\SYSTEM\CurrentControlSet\Control\CrashControl', 'AutoReboot', 'REG_DWORD', '0x00000000')

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

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()
Dim $spbab7
RegWrite('HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced', 'SeparateProcess', 'REG_DWORD', '0x00000001')

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

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()
Dim $spbab8
RegWrite('HKLM\SOFTWARE\Policies\Microsoft\Windows\DriverSearching', 'DontPromptForWindowsUpdate', 'REG_DWORD', '0x00000001')

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

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()
Dim $spbab9
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()
Dim $spbab10
RegWrite('HKLM\Software\Microsoft\Windows NT\CurrentVersion', 'RegDone', 'REG_SZ', '1')

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

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()
Dim $spbab11
RegWrite('HKCU\Software\Policies\Microsoft\Windows\System', 'DisableCMD', 'REG_DWORD', '0x00000001')

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

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()
Dim $spbab12
RegWrite('HKCU\Software\Policies\Microsoft\Windows\System', 'DisableCMD', 'REG_DWORD', '0x00000002')

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

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()
Dim $spbab13
RegWrite('HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System', 'DisableRegistryTools', 'REG_DWORD', '0x00000001')

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

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($spbab13, False)
MsgBox(0, 'Info', 'Erfolgreich Ausgeführt!')
EndFunc ;==>_reditspe

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

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

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

Func balken()
Dim $Ladebal, $i, $ipconB, $Progress1
ProcessExists($ipconB)
For $i = 1 To 100 Step 1
GUICtrlSetData($Progress1, $i)
Next
EndFunc ;==>balken

[/autoit]

Hir noch mal sauber --->>>> Hausaufgaben erledigt!!!!

Franzi

Sehr nett, sieht gut aus.
Ich sehe, du hast keinen Arbeitsplatzlink in deinem Programm. Ich habe schon festgestellt, das es dafür keinen Befehl gibt. Wie kommt man trotzdem zum Arbeitsplatz?

Kleiner

So kannst du das lösen!

[autoit]

#include <Process.au3>

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

_RunDOS('%windir%\explorer.exe /n,')

[/autoit]

GerhardSchr

hi,
habe dein programm noch nicht getestet, aber ich habe noch einen verbesserungsvorschlag

anstatt:

[autoit]

If IsAdmin() Then

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

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

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

das hier

[url='http://www.autoit.de/dokumentation_aktuell/keywords.htm']

[autoit]

If Not IsAdmin() Then
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

[/autoit]

Kleiner

Hallo Leute!

Habe mein no Name v 0.0.1 gesteigert und ihn ein Namen verpasst!

Windows-Info v 0.0.1

Diesen Code werde ich erst einmal zu Seite legen und mich Ende des Jahres noch mal darum kümmern ich bin zuversichtlich, das im Januar 2010 die Endversion hier erscheinen wird.

Für die schnelle Information Sammlung ist das Tool gut geeignet!

Es werden noch Erweiterungen dazukommen!

Mehr :Windows Einstellungen

Mehr :Cmd-Befehle

Mehr :Cmd-Befehle+VBS

Mehr: zum Netzwerk

Hilfe zu den Optionen und Cmd : ping usw.

In dem Code sollen so viele Informationen wie möglich untergebracht werden!

Ich hatte ja gefragt ob jemand mitmachen möchte, aber gemeldet hat sich keiner darum ist erst einmal Schluss.

Muss Etmal alles zusammensuchen und testen und allein ist das schon ein Haufen Arbeit!

**Schnitzel**

hab hier nochmal 6 kleine verbesserungsvorschläge:

1. ich würde absichern das man nicht aus versehn auf abmelden, herrunterfahren oder neustarten klickt. is ziemlich nervig wenn man grad viel offen hat und dann mal aus versehen draufkommt. entweder ne checkbox die die buttons disabled oder ne msgbox wo man gefragt wird ob man wirklich abmelden neustarten oder herrunterfahren will
2. cmd input mit enter bestätigen: ich als alter cmd fan finde es ziemlich störend wenn man einen befehl eingibt und dann nicht mit enter ausführen lassen kann sondern auf den button klicken muss. die änderung is ja kein problem. einfach nur ein style der inputbox
3. unter besonderheit --> menü: hier sollten sie sich genau überlegen was sie machen. so stehts da. aber es steht nicht wirklich da was denn gemacht wird wenn man auf ja klickt. man könnte vermuten aber sowas ist generell eher schlecht. (vor allem wenn dasteht man soll sichs gut überlegen ^^)
4. datum und time inputbox auf disables setzen: egtl schon ziemlich unwichtig aber ich würd die inputboxen auf disabled setzten. dann kann man sie nicht löschen oder iwas reinschreiben.
5. netzwerk --> menü --> netzwerk stueeren : da is n schreibfehler
6. im menü steht: 1. sperren 2. abmelden 3. neu start 4. ausschalten: is zwar null wichtig, aber ich finde neu start passt da nicht rein. (3 verben, ein substantiv). Entweder alles Tunwörter oder alles Namenwörter

achja und "OrganizeIncludes" sagt dass du die ListViewConstants.au3 brauchst. aber keine ahnung ob das stimmt

ansonsten (und des sind ja echt eher kleine verbesserungsvorschläge) finde ich das tool echt cool
mach weiter so

Kleiner

Hallo Schnitzel !

Vielen Dank für deinen Test lauf!

Für die Sachen stell ich meine Sachen hier rein das man Fehler und Verbesserungsvorschläge vor die Nase gesetzt bekommt denn des kenn bestimmt jeder hier man wird („ Projekt blind ") man sieht dann einfache Sachen nicht mehr!
Ich habe den Code umgeschrieben von knapp 2000 Zeilen viele Sache sind neu dazu gekommen und werden noch kommen zu der Sache mit dem überlegen was man tut hat folgenden Hintergrund in der ersten Version stand es noch drin wo der Teil geblieben ist wundert mich auch gerade!
Es gibt auf einer ''Festplatte'' o. '' Partitionen '' kennt jeder den vieleicht nicht jeder darum die Info den Ordner System Volume Information normal kann man den nicht öffnen auch nicht als Admin denn kann man durch diese Einstellung vornehmen!

LG Kleiner

Kleiner · Update: 17.11.2009 Post#1 LG Kleiner

Update: 17.11.2009

Post#1

LG Kleiner

Kleiner · Update: 06.12.2009 Post#1 Lg Kleiner

Update: 06.12.2009

Post#1

Lg Kleiner

L3viathan

Sehr praktisches, nettes Tool, aber hier folgt ein Kritikpunkt zu deinem Postverhalten ansich:

Ich will dich nicht persönlich angreifen, jedoch sträuben sich meine Nackenhaare geradezu beim Lesen deiner orthografischen wie grammatikalischen Vergewaltigungen. Kein Mensch ist fehlerfrei - ich mache auch manchmal Tippfehler - trotzdem bitte ich dich, vor dem Absenden deines Posts den Inhalt nochmal auf auffällige Fehler zu überprüfen. In diesem Sinne: Nichts für ungut!