Beiträge von Kleiner

Kleiner

So kannst du das lösen!

[autoit]

#include <Process.au3>

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

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

[/autoit]

Kleiner

Ich habe das mal so gemach!
Nur mit pfad angabe und befehl!

[autoit]

#include <Constants.au3>

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

Local $foo = Run("C:\WINDOWS\system32\cmd.exe "& " /c " &"ping localhost ","", @SW_MAXIMIZE, $STDOUT_CHILD)
Local $line
While 1
$line = StdoutRead($foo)
If @error Then ExitLoop
MsgBox(0, "script sagt", $line)
Wend

[/autoit]

cmd.exe kannst mit "BootRec.exe" und ping locahost mit "/rebuildbcd". ersetzen und testen!

Kleiner

Habe grade in die hilfe geschaut da wird das so beschriben!

[autoit]

; Demonstriert StdoutRead()
#include <Constants.au3>

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

Local $foo = Run(@ComSpec & " /c dir foo.bar", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
Local $line
While 1
$line = StdoutRead($foo)
If @error Then ExitLoop
MsgBox(0, "STDOUT gelesen:", $line)
WEnd

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

While 1
$line = StderrRead($foo)
If @error Then ExitLoop
MsgBox(0, "STDERR gelesen:", $line)
WEnd

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

MsgBox(0, "Debug", "Wie aufregend...")

[/autoit]

also solte deins so doch gehen ausser du hast die datei nicht in windows liegen, kenn mich nicht mit vista aus!

[autoit]

#include <Constants.au3>

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

Local $foo = Run(@ComSpec & " /c BootRec.exe",@SystemDir, @SW_MAXIMIZE, $STDOUT_CHILD)
Local $line
While 1
$line = StdoutRead($foo)
If @error Then ExitLoop
MsgBox(0, "script sagt", $line)
Wend

[/autoit]

Oder immer noch nicht

LG Kleiner

Nachtrag: ich habe Das ( dir ) übersehen das könntest du auch noch mitrein nehmen!
so

[autoit]

#include <Constants.au3>

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

Local $foo = Run(@ComSpec & " /c dir BootRec.exe",@SystemDir, @SW_MAXIMIZE, $STDOUT_CHILD)
Local $line
While 1
$line = StdoutRead($foo)
If @error Then ExitLoop
MsgBox(0, "script sagt", $line)
Wend

[/autoit]

und wenn die datei wo anders liegt pass den pfad an!

_

Kleiner

Hallo Metrax !

Ein fehler hast du auf den ersten blick!

[autoit]

Local $foo = Run(@ComSpec & " /c BootRec.exe","", @SW_MAXIMIZE, $STDOUT_CHILD)

[/autoit]

es solte so aussehen! Du könntest auch RunWait nehmen!

[autoit]

Local $foo = RunWait(@ComSpec & ' /c ' & ' BootRec.exe','', @SW_MAXIMIZE, $STDOUT_CHILD)

[/autoit]

Und deine frage habe ich nicht ganz verstanden, also in verschidenen momenten läuft die .exe ohne die nachfrage????????

LG Kleiner

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

Kleiner

Vielen dank an euch!

Genau das was ich für mein code brauche!

LG Kleiner

Kleiner

Hallo Simon!

Danke schön!

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

LG Kleiner

Kleiner

hallo Greenhorn!

Ich weiß nicht wie ich das in autoit angehen soll deswegen die frage!

Kleiner

Nettoarbeitstage sind die tage die man im monat arbeitet ohne we un feiertage, ich weiß das manche am we oder feitag arbeiten aber das ist die grundlage der rechnung, ich habe das was ich machen will mit Excel schon fertig jetzt will ich daraus ein programm machen, fallst du office oder excel 2007 hast kannst dir das mal anschauen!

schau mal was ich meine!

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Kleiner

Hallo Leute!

ICh habe ein zweitest projekt und da iat es vom vorteil eine funktion zu haben die nettoarbeitstage berechnet!

Also zu frage hat einer ne ide wie man das schafen könnte oder mir dabei hilft!

Habe keine anfangside!!!

LG Kleiner

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

Kleiner

He so habe ich mir das vorgestellt, durch deine verbesserung bleibt das eine fonktion, den balken kann man jetzt separat verwenden! so habe icxh mir das vorgestelt!

Was komisch ist,das ich meine codes die ich schreibe, nenn ich immer simon ich habe gehoft das keiner so heist oder sich oder sein code so nennt.

Da muß ich mir ein anders pseudonym einfallen lassen!

[autoit]

#include <WindowsConstants.au3>
#include <GuiButton.au3>
#include <ProgressConstants.au3>
Opt('GUIOnEventMode', 1)
Global $GUI1,$GUI2
$GUI1 = GUICreate('', 700, 500, Default, Default)
GUISetOnEvent(-3, '_Exit')
GUICtrlCreateGroup('Schnell - Start', 5, 5, 120, 140)
GUICtrlCreateButton('test', 15, 20, 100, 19)
GUICtrlSetOnEvent(-1, 'ipconfigBreicht')
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState()
;---------------------_____________________________________________________________Ladebalken
Global $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
Sleep(10000)
WEnd
Func _Exit()
Exit
EndFunc
;################################################################## Ab diesem bereich ###########################################################################
;--------------------------------------------------------------------------------------------------------------------eine speicher speicher abfrage
func ipconfigBreicht()
Local $spei
$bLoop = 1
If FileExists('Task.txt') Then
$spei = MsgBox(4,'INFO','Datei Exestiert bereits!'&@CRLF&'Möchten sie die Datei überschreiben?')
Else
GUISetState(@SW_SHOW,$Ladebal)
$ipconB = RunWait(@ComSpec & ' /c ' & 'tasklist /V>Task.txt','',@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 ' & 'tasklist /V>Task.txt','',@SW_HIDE,balken())
GUISetState(@SW_HIDE,$Ladebal)
MsgBox(0,"Speicher Bericht","Wurde erfolgreich erstellt!")
$bLoop = 0
Endif
EndFunc
;--------------------------------------------------------------------------------------------------------------------eine speicher speicher abfrage
Func balken()
Dim $Ladebal, $i, $ipconB
ProcessExists($ipconB)
For $i = 1 To 100 Step 1
GUICtrlSetData($Progress1,$i)
Next
EndFunc

[/autoit]

Noch mals danke!

LG Kleiner

_

Kleiner

Hallo Drop_Dead !

Super antwort, das ist aber nicht das tehma!

LG Kleiner

Kleiner

Hallo Liebe leute!

Habe ein func erstellt die abfragt ob eine datei existiert wenn ja frage ob überschrieben werden soll wenn keine vorhanden dan erstell mit ladebalken für die zeit der berichterstellung.

Ich habe das auch ihn bekommen nach langerzeit aber trotz alle dem ist die func so zerrissen.!

Meine Frage ist es möglich das alles in einer func zu schreiben und kann man das vieleicht anders lösen alles in einer if oder doch ganz anders ???????

Hir der code

[autoit]

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <Process.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <ListViewConstants.au3>
#include <String.au3>
#include <GuiButton.au3>
#include <Inet.au3>
#include <ProgressConstants.au3>
#include <SendMessage.au3>
#include <File.au3>
Opt('GUIOnEventMode', 1)
Global $GUI1,$GUI2
$GUI1 = GUICreate('', 700, 500, Default, Default)
GUISetOnEvent(-3, '_Exit')
GUICtrlCreateGroup('Schnell - Start', 5, 5, 120, 140)
GUICtrlCreateButton('test', 15, 20, 100, 19)
GUICtrlSetOnEvent(-1, 'ipconfigBreicht')
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState()
;---------------------_____________________________________________________________Ladebalken
Global $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
Sleep(10000)
WEnd
;------------------------------------------------------------------EXIT___________________________________________________________________________________________
;Hauptmenü
Func _Exit()
Exit
EndFunc

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

;################################################################## Ab diesem bereich ###########################################################################
;--------------------------------------------------------------------------------------------------------------------eine speicher speicher abfrage
func ipconfigBreicht()
Local $spei
$bLoop = 1
If FileExists('Task.txt') Then
$spei = MsgBox(4,'INFO','Datei Exestiert bereits!'&@CRLF&'Möchten sie die Datei überschreiben?')
Else
GUISetState(@SW_SHOW,$Ladebal)
$ipconB = RunWait(@ComSpec & ' /c ' & 'tasklist /V>Task.txt','',@SW_HIDE,balken())
GUISetState(@SW_HIDE,$Ladebal)
MsgBox(0,"Speicher Bericht","Wurde erfolgreich erstellt!")
$bLoop = 0
EndIf
If $spei = 7 Then
$bLoop = 0
EndIf
While $bLoop = 1
speicher2()
$bLoop = 0
WEnd
EndFunc
Func speicher2()
GUISetState(@SW_SHOW,$Ladebal)
$ipconB = RunWait(@ComSpec & ' /c ' & 'tasklist /V>Task.txt','',@SW_HIDE,balken())
GUISetState(@SW_HIDE,$Ladebal)
MsgBox(0,"Speicher Bericht","Wurde erfolgreich erstellt!")
EndFunc
;--------------------------------------------------------------------------------------------------------------------eine speicher speicher abfrage
Func balken()
Dim $Ladebal, $i, $ipconB
ProcessExists($ipconB)
$i += 1
If $i = 101 then $i = 0
GUICtrlSetData($Progress1,$i)
EndFunc
;############################################################### bis ihr ##########################################################################################

[/autoit]

Das ist eine test func!

Kleiner

Hallo funkey!

Dein tip hat geklappt!

Viele vielen Dank!

Für deine schnelle hilfe!

Kleiner

Hallo Xenobiologist!

Super für den schnelle antwort!

Nur wie mach eich das?

Kleiner

Hallo Liebe leute!

Ich bastel gerade an ein statusbalken!

habe die erweiterungen mit rein genommen um den fensterrand zu unterdrücken.

Meine frage wie bekomme ich mit den erweiterungen das fenster in die mitte des desktops oder läst es sich auch anders lösen mit anderen erweiterungen oder werte??

[autoit]

$BAlken = GUICreate("",390,20,0,0,$WS_POPUP,$WS_EX_TOOLWINDOW)

[/autoit]

LG Kleiner

_

Kleiner

Wie also ich geh auf mein erstes und stelle die neue version da rein und ja denn rest versteh ich nicht wie meinst du das ender ich also die überschrift????

Und danke das wust ich nicht!

Kleiner

Guten morgen RogerSt!

Wie meinst du das mit dem zweiten Monitor das die Auflösung nicht angezeigt wird!

Gute ide mit dem netzwerk, aber erstmal soll der code so gut wie alle infos besorgen!

Kleiner

Hallo liebe leute!

Ich will mich ganz herzlich bedaneken bei allen für das interesse den zuspruch und die tip´s an mein code , für ein neulig bedeutet das schon ne mänge so jetzt reicht es im ruhm zu baden ich werde mir eure vorschläge und die fehler die ihr gefunden habt zu herzen nehmen und mich ersteinmal zurückziehen und basteln basteln und komme mit der nächsten version wieder vieleicht auch mit ein anderem!

LG Kleiner

Beiträge von Kleiner

Windows-Info v 1.0.2 [ Crazy Eye ]

Programm per Shell ausführen, und ggf. eine Frage beantworten

Programm per Shell ausführen, und ggf. eine Frage beantworten

Programm per Shell ausführen, und ggf. eine Frage beantworten

Windows-Info v 1.0.2 [ Crazy Eye ]

Nettoarbeitstage berechnen

Windows-Info v 1.0.2 [ Crazy Eye ]

Nettoarbeitstage berechnen

Nettoarbeitstage berechnen

Nettoarbeitstage berechnen

Windows-Info v 1.0.2 [ Crazy Eye ]

hilfe zu Func

hilfe zu Func

hilfe zu Func

Fenster in der Mitte des Desktop anzeigen lassen mit den erweiterungen ($WS_POPUP,$WS_EX_TOOLWINDOW)

Fenster in der Mitte des Desktop anzeigen lassen mit den erweiterungen ($WS_POPUP,$WS_EX_TOOLWINDOW)

Fenster in der Mitte des Desktop anzeigen lassen mit den erweiterungen ($WS_POPUP,$WS_EX_TOOLWINDOW)

!!!!!Admin-Tool v 1.0 ist fertig nochmals häftig erweitert vbs verarbeitung und bericht speicherung!! Leute ich brauche eure meinung!!!!!

!!!!!Admin-Tool v 1.0 ist fertig nochmals häftig erweitert vbs verarbeitung und bericht speicherung!! Leute ich brauche eure meinung!!!!!

!!!!!Admin-Tool v 1.0 ist fertig nochmals häftig erweitert vbs verarbeitung und bericht speicherung!! Leute ich brauche eure meinung!!!!!