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
#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
LG Kleiner