Grafik lässt sich nicht aktualisieren...

[autoit]

#Region --- CodeWizard generated code Start ---
If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox(49, "Computer-Bereinigungsassistent", "Der Computer-Bereinigungsassistent ist noch im Aufbau!" & @CRLF & @CRLF & "Viele Funktionen sind noch nicht einprogrammiert (entsprechende Buttons disabled)" & @CRLF & "Design wird noch angepasst!")
If $iMsgBoxAnswer = 2 Then Exit
#EndRegion --- CodeWizard generated code Start ---

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

;======> Hier gehts los! <=======

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

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <TabConstants.au3>
#include <ComboConstants.au3>
#include <SliderConstants.au3>
#include <GuiComboBox.au3>
#include <GUIedit.au3>
#include <ModernMenuRaw.au3>

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

#NoTrayIcon
Opt("TrayMenuMode", 1)
Opt("GUIOnEventMode", 1)

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

Global $Form2, $Settings, $Form1, $Input1, $Slider1, $Checkbox14, $Radio1, $Radio2, $Checkbox15, $Checkbox16, $Checkbox17, $Combo1, $Combo2, $Marquee, $Pic1, $Pic2
Global $1klick[11], $Risiko, $Risikotext[3], $Trayicon, $Tipps, $Autostart, $Daten, $Autobereinigung, $AutoUpdate, $Pop_Tip, $Dateninfo, $Combo2enable, $Combo2infotag, $Combo2infomonat
Global $Checkbox1, $Checkbox2, $Checkbox3, $Checkbox4, $Checkbox5, $Checkbox6, $Checkbox7, $Checkbox8, $Checkbox9, $Checkbox10, $Checkbox11, $Checkbox12, $Checkbox13
Global $1Form2, $1Button1, $1Button2, $1Edit1, $1Progress1, $1Progress2, $1Label3, $1Label4, $nTrayIcon1

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

Func _About()
MsgBox(0, "", "In Bearbeitung!")
EndFunc ;==>_About

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

Func _Einstellungen()
$1klick[0] = IniRead("res\config.ini", "Einstellungen", "Software", 0)
$1klick[1] = IniRead("res\config.ini", "Einstellungen", "WinDirStart", 0)
$1klick[2] = IniRead("res\config.ini", "Einstellungen", "S_and_D", 1)
$1klick[3] = IniRead("res\config.ini", "Einstellungen", "Temp_löschen", 1)
$1klick[4] = IniRead("res\config.ini", "Einstellungen", "Bereigen", 1)
$1klick[5] = IniRead("res\config.ini", "Einstellungen", "Autostarts", 0)
$1klick[6] = IniRead("res\config.ini", "Einstellungen", "Dienste", 0)
$1klick[7] = IniRead("res\config.ini", "Einstellungen", "Registry", 1)
$1klick[8] = IniRead("res\config.ini", "Einstellungen", "Defragmentieren", 1)
$1klick[9] = IniRead("res\config.ini", "Einstellungen", "RAM", 1)
$1klick[10] = IniRead("res\config.ini", "Einstellungen", "Neustart", 1)
$Risiko = IniRead("res\config.ini", "Risiko", "Stufe", 2)
$Risikotext[0] = "Risikostufe 1:\r\n\r\nDie meisten Aktionen werden mir größter Vorsicht vorgenommen,\r\nBenutzerbestätigungen sind oft erforderlich.\r\n\r\nDie Erfolgsrate wird sich gering halten!"
$Risikotext[1] = "Risikostufe 2 (Standard):\r\n\r\nDie Aktionen laufen größtenteils von alleine ab,\r\n die meisten Einstellungen werden vorgenommen,\r\nes werden keine Eingriffe in die Registry vorgenommen."
$Risikotext[2] = "Risikostufe 3:\r\nAlle Aktionen laufen ohne Nachfrage.\r\nAuf die Registry wird zugegriffen.\r\n\r\nNur für erfahrene Nutzer empfohlen!"
$Trayicon = IniRead("res\config.ini", "Zusatz", "Trayicon", 1)
$Tipps = IniRead("res\config.ini", "Zusatz", "Tipps", 1)
$Autostart = IniRead("res\config.ini", "Zusatz", "Autostart", 1)
$Daten = IniRead("res\config.ini", "Zusatz", "Daten", 0)
$Dateninfo = IniRead("res\config.ini", "Zusatz", "Dateninfo", 0); 0=täglich, 1=wöchentlich; 2=monatlich
$Combo2enable = $Dateninfo
$Combo2infotag = IniRead("res\config.ini", "Zusatz", "Combo2Tag", "Mittwochs")
$Combo2infomonat = IniRead("res\config.ini", "Zusatz", "Combo2Monat", "1")
$Autobereinigung = IniRead("res\config.ini", "Zusatz", "Autobereinigung", 0)
$AutoUpdate = IniRead("res\config.ini", "Update", "Auto", 1)
$Pop_Tip = IniRead("res\config.ini", "Update", "Pop_Tip", 1) ; Pop = 1, Tooltip = 0
EndFunc ;==>_Einstellungen

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

SplashTextOn("", "Computerbereinigungsassistent läd...", "-1", "-1", "-1", "-1", 33, "", "", "")
_Einstellungen()
Sleep(2000)
SplashOff()
_Tray()

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

$Form1 = GUICreate("Computerbereinigungsassistent", 301, 244, -1, -1)
GUISetBkColor(0x0000FF)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
$Edit1 = GUICtrlCreateEdit("", 0, 0, 297, 73, BitOR($ES_READONLY, $ES_WANTRETURN))
GUICtrlSetData(-1, StringFormat("Herzlich Willkommen!\r\n\r\n...zum Bereinigungsassistenten!\r\nBitte wählen Sie eine der folgenden Optionen:"))
GUICtrlSetBkColor(-1, 0x0000FF)
$Button1 = GUICtrlCreateButton("1-Klick-Bereinigung", 8, 80, 281, 25, 0)
GUICtrlSetOnEvent(-1, "Button1Click")
$Button2 = GUICtrlCreateButton("Benutzerdefinierte Bereinigung", 8, 112, 281, 25, 0)
GUICtrlSetOnEvent(-1, "Button2Click")
$Button3 = GUICtrlCreateButton("Einstellungen", 8, 144, 281, 25, 0)
GUICtrlSetOnEvent(-1, "Button3Click")
$Button4 = GUICtrlCreateButton("Hilfe", 8, 176, 281, 25, 0)
GUICtrlSetOnEvent(-1, "Button4Click")
$Button5 = GUICtrlCreateButton("Updates", 8, 208, 281, 25, 0)
GUICtrlSetOnEvent(-1, "Button5Click")
GUISetState(@SW_SHOW)

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

If $Tipps = 1 Then
Local $Tippsanzahl = IniRead("res\Tipp.ini", "Tipps", "Anzahl", 0)
If Not $Tippsanzahl = 0 Then
Local $Zufall = Random(1, $Tippsanzahl, 1)
$TippsForm = GUICreate("Computerbereinigungsassistent: Tipp", 379, 248, -1, -1)
GUISetBkColor(0xFFFFFF)
GUISetOnEvent($GUI_EVENT_CLOSE, "TippsClose")
$TipPic1 = GUICtrlCreatePic(@ScriptDir & "\res\tipp.gif", 0, 8, 28, 28, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$TipPic2 = GUICtrlCreatePic(@ScriptDir & "\res\tippbalken.jpg", 8, 40, 12, 204, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Tippedit = GUICtrlCreateEdit(StringFormat(IniRead("res\Tipp.ini", $Zufall, "Text", "Es ist ein interner Fehler aufgetreten!")), 32, 48, 345, 169, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN, $WS_HSCROLL, $WS_VSCROLL))
GUICtrlSetBkColor(-1, 0xFFFFFF)
$TippCheckbox = GUICtrlCreateCheckbox("Tipps beim nächsten Start wieder anzeigen (empfohlen)", 32, 224, 329, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetState(-1, $GUI_CHECKED)
$Tipplabel = GUICtrlCreateLabel(IniRead("res\Tipp.ini", $Zufall, "Titel", "Es ist ein interner Fehler aufgetreten!"), 32, 16, 340, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
EndIf
EndIf

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

Func TippsClose()
If GUICtrlRead($TippCheckbox) = $GUI_CHECKED Then
IniWrite("res\config.ini", "Zusatz", "Tipps", 1)
Else
IniWrite("res\config.ini", "Zusatz", "Tipps", 0)
EndIf
$Tipps = IniRead("res\config.ini", "Zusatz", "Tipps", 1)
GUIDelete($TippsForm)
EndFunc ;==>TippsClose

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

While 1
Sleep(100)
WEnd

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

Func Button1Click()
GUISetState(@SW_HIDE, $Form1)
_marquee(1)
$1Form2 = GUICreate("Computerbereinigungsassitent: 1-Klick-Bereinigung", 405, 306, -1, -1)
$1Progress1 = GUICtrlCreateProgress(0, 192, 401, 25)
$1Progress2 = GUICtrlCreateProgress(0, 248, 401, 25)
$1Label1 = GUICtrlCreateLabel("Aktuelle Aktion:", 0, 168, 78, 17)
$1Label2 = GUICtrlCreateLabel("Gesamtfortschritt:", 0, 224, 86, 17)
$1Label3 = GUICtrlCreateLabel("0%", 360, 168, 42, 17, $SS_RIGHTJUST)
$1Label4 = GUICtrlCreateLabel("0%", 360, 224, 42, 17, $SS_RIGHTJUST)
$1Button1 = GUICtrlCreateButton("Start", 232, 280, 169, 25, 0)
GUICtrlSetOnEvent(-1, "Button1Click1")
$1Button2 = GUICtrlCreateButton("Zurück", 0, 280, 169, 25, 0)
GUICtrlSetOnEvent(-1, "Button2Click1")
$1Edit1 = GUICtrlCreateEdit("", 0, 0, 401, 153, BitOR($ES_READONLY, $ES_WANTRETURN, $WS_VSCROLL))
If $1klick[0] = 1 Then _GUICtrlEdit_AppendText($1Edit1, StringFormat("- Softwate durchschauen (0/1)\r\n"))
If $1klick[1] = 1 Then _GUICtrlEdit_AppendText($1Edit1, StringFormat("- Platzfresser aufspüren (0/1)\r\n"))
If $1klick[2] = 1 Then _GUICtrlEdit_AppendText($1Edit1, StringFormat("- Nach Viren suchen (0/2)\r\n"))
If $1klick[3] = 1 Then _GUICtrlEdit_AppendText($1Edit1, StringFormat("- Temporäre Dateien löschen (0/1)\r\n"))
If $1klick[4] = 1 Then _GUICtrlEdit_AppendText($1Edit1, StringFormat("- Festplatte C: bereinigen (0/1)\r\n"))
If $1klick[5] = 1 Then _GUICtrlEdit_AppendText($1Edit1, StringFormat("- Autostarts deaktivieren (0/1)\r\n"))
If $1klick[6] = 1 Then _GUICtrlEdit_AppendText($1Edit1, StringFormat("- Dienste deaktivieren (0/1)\r\n"))
If $1klick[7] = 1 Then _GUICtrlEdit_AppendText($1Edit1, StringFormat("- Registry bereinigen (0/2)\r\n"))
If $1klick[8] = 1 Then _GUICtrlEdit_AppendText($1Edit1, StringFormat("- Festplatte C: defragmentieren (0/1)\r\n"))
If $1klick[9] = 1 Then _GUICtrlEdit_AppendText($1Edit1, StringFormat("- RAM freigeben (0/1)\r\n"))
If $1klick[10] = 1 Then _GUICtrlEdit_AppendText($1Edit1, StringFormat("- Computer neustarten (0/1)\r\n"))
_GUICtrlEdit_AppendText($1Edit1, StringFormat("\r\nRisikostufe: ") & $Risiko)
Sleep(500)
_marquee(0)
Sleep(200)
GUISetState(@SW_SHOW, $1Form2)
EndFunc ;==>Button1Click

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

Func Button1Click1()
If MsgBox(49, "Computerbereinigungsassistent", "Sie sind dabei den Computer zu bereinigen." & @CRLF & "Sie können die Aktion nicht abbrechen!" & @CRLF & @CRLF & "Datenverlust könnte bei einem Absturz die Folge sein!" & @CRLF & @CRLF & "Erstellen Sie zuerst ein Backup!") = 1 Then
GUICtrlSetState($1Button1, $GUI_DISABLE)
GUICtrlSetState($1Button2, $GUI_DISABLE)
EndIf
EndFunc ;==>Button1Click1

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

Func Button2Click1()
GUIDelete($1Form2)
GUISetState(@SW_SHOW, $Form1)
EndFunc ;==>Button2Click1

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

Func Button2Click()

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

#cs
ToDo-List:
5. Autostarts
6. Dienste
9. RAM freigeben
3. Temp-Dateien löschen
4. Platte bereinigen
8. Defragmentieren
7. Registry (RegClean)
2. WinDirStart
1. Alte Programme löschen
10. Neustart
2b. Spybot S&D Updates + Kontrolle
#ce
MsgBox(0, "", "In Bearbeitung!")
EndFunc ;==>Button2Click

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

Func Button3Click()
GUISetState(@SW_HIDE, $Form1)

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

$Settings = GUICreate("Computer-Bereinigungsassistent: Einstellungen", 419, 323, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "SettingsClose")
$Tab1 = GUICtrlCreateTab(0, 8, 417, 289)
GUICtrlSetState(-1, $GUI_SHOW)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)

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

$TabSheet1 = GUICtrlCreateTabItem("1-Klick-Bereinigung")
$Label3 = GUICtrlCreateLabel("Wählen Sie die Aktionen aus, die bei der 1-Klick-Bereinigung durchgeführt werden", 8, 48, 391, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label4 = GUICtrlCreateLabel("sollen:", 8, 64, 34, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Checkbox1 = GUICtrlCreateCheckbox("Software durchschauen ", 8, 80, 177, 17)
If $1klick[0] = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
$Checkbox2 = GUICtrlCreateCheckbox("Große Dateien aufspüren und löschen ", 8, 96, 225, 17)
If $1klick[1] = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
$Checkbox3 = GUICtrlCreateCheckbox("Auf Viren prüfen (empfohlen) ", 8, 112, 225, 17)
If $1klick[2] = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
$Checkbox4 = GUICtrlCreateCheckbox("Temporäre Dateien löschen (empfohlen)", 8, 128, 225, 17)
If $1klick[3] = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
$Checkbox5 = GUICtrlCreateCheckbox("Festplatte C: bereinigen (empfohlen)", 8, 144, 225, 17)
If $1klick[4] = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
$Checkbox6 = GUICtrlCreateCheckbox("Autostarts durchschauen", 8, 160, 225, 17)
If $1klick[5] = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
$Checkbox7 = GUICtrlCreateCheckbox("Dienste durchschauen", 8, 176, 225, 17)
If $1klick[6] = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
$Checkbox8 = GUICtrlCreateCheckbox("Registry bereinigen (empfohlen)", 8, 192, 225, 17)
If $1klick[7] = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
$Checkbox9 = GUICtrlCreateCheckbox("Festplatte C: defragmentieren (empfohlen)", 8, 208, 225, 17)
If $1klick[8] = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
$Checkbox10 = GUICtrlCreateCheckbox("RAM freigeben (empfohlen)", 8, 224, 225, 17)
If $1klick[9] = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
$Checkbox11 = GUICtrlCreateCheckbox("System neustarten (empfohlen)", 8, 240, 225, 17)
If $1klick[10] = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)

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

$TabSheet2 = GUICtrlCreateTabItem("Risiko-Einstellungen")
$Slider1 = GUICtrlCreateSlider(8, 80, 382, 37)
GUICtrlSetLimit(-1, 3, 1)
GUICtrlSetData(-1, $Risiko)
GUICtrlSetOnEvent(-1, "Slider1Change")
GUICtrlSetCursor(-1, 0)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label1 = GUICtrlCreateLabel("Jede Einstellung kann auch ein gewisses Risiko beinhalten.", 16, 40, 285, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label2 = GUICtrlCreateLabel("Wählen Sie hier die Risiko-Stufe aus:", 16, 56, 179, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Edit1 = GUICtrlCreateEdit("", 16, 152, 369, 121, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN, $WS_HSCROLL, $WS_VSCROLL))
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\res\weiß.jpg", 16, 120, 188, 20, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Pic2 = GUICtrlCreatePic(@ScriptDir & "\res\weiß.jpg", 200, 120, 180, 20, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
If $Risiko > 1 Then GUICtrlSetImage($Pic1, @ScriptDir & "\res\rot.jpg")
If $Risiko = 3 Then GUICtrlSetImage($Pic2, @ScriptDir & "\res\rot.jpg")
GUICtrlSetData($Edit1, StringFormat($Risikotext[$Risiko - 1]))
$Input1 = GUICtrlCreateInput($Risiko, 352, 48, 33, 21, -1, $ES_NUMBER)
GUICtrlSetOnEvent(-1, "Input1Change")

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

$TabSheet3 = GUICtrlCreateTabItem("Update")
$Label6 = GUICtrlCreateLabel("Hier finden Sie Einstellungen zu dem Update-Service:", 8, 40, 256, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Checkbox14 = GUICtrlCreateCheckbox("Automatisches Update durchführen (empfholen)", 8, 56, 289, 17)
If $AutoUpdate = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetOnEvent(-1, "Checkbox14Click")
$Radio1 = GUICtrlCreateRadio("Meldungen als Pop-Up ausgeben", 24, 72, 201, 17)
If $Pop_Tip = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
If $AutoUpdate = 0 Then GUICtrlSetState(-1, $GUI_DISABLE)
$Radio2 = GUICtrlCreateRadio("Meldungen als Tool-Tip ausgeben", 24, 88, 225, 17)
If $Pop_Tip = 0 Then GUICtrlSetState(-1, $GUI_CHECKED)
If $AutoUpdate = 0 Then GUICtrlSetState(-1, $GUI_DISABLE)

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

$TabSheet4 = GUICtrlCreateTabItem("Zusätliche Einstellungen")
$Label5 = GUICtrlCreateLabel("Dies sind erweiterete Einstellungen, die nur erfahrene Nutzer verändern sollten:", 8, 40, 375, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Checkbox12 = GUICtrlCreateCheckbox("Tray-Icon verstecken", 8, 64, 225, 17)
If $Trayicon = 0 Then GUICtrlSetState(-1, $GUI_CHECKED)
$Checkbox13 = GUICtrlCreateCheckbox("Tipps am Start anzeigen (empfohlen)", 8, 80, 217, 17)
If $Tipps = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
$Checkbox15 = GUICtrlCreateCheckbox("Bei jedem Start von Windows ausführen (für automatische Updates erforderlich):", 8, 96, 401, 17)
If $Autostart = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetOnEvent(-1, "Checkbox15Click")
$Checkbox16 = GUICtrlCreateCheckbox("Nur zu bestimmten Daten:", 24, 112, 145, 17)
If $Autostart = 0 Then GUICtrlSetState(-1, $GUI_DISABLE)
If $Daten = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetOnEvent(-1, "Checkbox16Click")
If $Dateninfo = 0 Then
$Combo1 = GUICtrlCreateCombo("Täglich", 40, 136, 145, 25)
GUICtrlSetData(-1, "Wöchentlich|Monatlich")
EndIf
If $Dateninfo = 1 Then
$Combo1 = GUICtrlCreateCombo("Wöchentlich", 40, 136, 145, 25)
GUICtrlSetData(-1, "Täglich|Monatlich")
EndIf
If $Dateninfo = 2 Then
$Combo1 = GUICtrlCreateCombo("Monatlich", 40, 136, 145, 25)
GUICtrlSetData(-1, "Täglich|Wöchentlich")
EndIf
If $Daten = 0 Then GUICtrlSetState(-1, $GUI_DISABLE)

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

GUICtrlSetOnEvent(-1, "Combo1Change")
$Combo2 = GUICtrlCreateCombo("", 192, 136, 145, 25)
Combo1Change()
If $Combo2enable < 1 Then GUICtrlSetState(-1, $GUI_DISABLE)
$Checkbox17 = GUICtrlCreateCheckbox("Dabei eine Bereinigung (1-Klick-Bereinigung) ausführen", 24, 160, 313, 17)
If $Autobereinigung = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)

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

GUICtrlCreateTabItem("")
$Button1 = GUICtrlCreateButton("OK", 0, 296, 153, 25, 0)
GUICtrlSetOnEvent(-1, "settingsButton1Click")
$Button2 = GUICtrlCreateButton("Abbrechen", 264, 296, 153, 25, 0)
GUICtrlSetOnEvent(-1, "SettingsClose")
GUISetState(@SW_SHOW)
EndFunc ;==>Button3Click

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

Func settingsButton1Click()
GUISetState(@SW_HIDE, $Settings)
_marquee(1)

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

;1-Klick-Einstellungen
If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
IniWrite("res\config.ini", "Einstellungen", "Software", 1)
Else
IniWrite("res\config.ini", "Einstellungen", "Software", 0)
EndIf
If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then
IniWrite("res\config.ini", "Einstellungen", "WinDirStart", 1)
Else
IniWrite("res\config.ini", "Einstellungen", "WinDirStart", 0)
EndIf
If GUICtrlRead($Checkbox3) = $GUI_CHECKED Then
IniWrite("res\config.ini", "Einstellungen", "S_and_D", 1)
Else
IniWrite("res\config.ini", "Einstellungen", "S_and_D", 0)
EndIf
If GUICtrlRead($Checkbox4) = $GUI_CHECKED Then
IniWrite("res\config.ini", "Einstellungen", "Temp_löschen", 1)
Else
IniWrite("res\config.ini", "Einstellungen", "Temp_löschen", 0)
EndIf
If GUICtrlRead($Checkbox5) = $GUI_CHECKED Then
IniWrite("res\config.ini", "Einstellungen", "Bereigen", 1)
Else
IniWrite("res\config.ini", "Einstellungen", "Bereigen", 0)
EndIf
If GUICtrlRead($Checkbox6) = $GUI_CHECKED Then
IniWrite("res\config.ini", "Einstellungen", "Autostarts", 1)
Else
IniWrite("res\config.ini", "Einstellungen", "Autostarts", 0)
EndIf
If GUICtrlRead($Checkbox7) = $GUI_CHECKED Then
IniWrite("res\config.ini", "Einstellungen", "Dienste", 1)
Else
IniWrite("res\config.ini", "Einstellungen", "Dienste", 0)
EndIf
If GUICtrlRead($Checkbox8) = $GUI_CHECKED Then
IniWrite("res\config.ini", "Einstellungen", "Registry", 1)
Else
IniWrite("res\config.ini", "Einstellungen", "Registry", 0)
EndIf
If GUICtrlRead($Checkbox9) = $GUI_CHECKED Then
IniWrite("res\config.ini", "Einstellungen", "Defragmentieren", 1)
Else
IniWrite("res\config.ini", "Einstellungen", "Defragmentieren", 0)
EndIf
If GUICtrlRead($Checkbox10) = $GUI_CHECKED Then
IniWrite("res\config.ini", "Einstellungen", "RAM", 1)
Else
IniWrite("res\config.ini", "Einstellungen", "RAM", 0)
EndIf
If GUICtrlRead($Checkbox11) = $GUI_CHECKED Then
IniWrite("res\config.ini", "Einstellungen", "Neustart", 1)
Else
IniWrite("res\config.ini", "Einstellungen", "Neustart", 0)
EndIf

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

;Risiko
IniWrite("res\config.ini", "Risiko", "Stufe", GUICtrlRead($Slider1))

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

;Update
If GUICtrlRead($Checkbox14) = $GUI_CHECKED Then
IniWrite("res\config.ini", "Update", "Auto", 1)
Else
IniWrite("res\config.ini", "Update", "Auto", 0)
EndIf
If GUICtrlRead($Radio1) = $GUI_CHECKED Then
IniWrite("res\config.ini", "Update", "Pop_Tip", 1)
Else
IniWrite("res\config.ini", "Update", "Pop_Tip", 0)
EndIf

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

; Zusatz-Einstellungen
If GUICtrlRead($Checkbox12) = $GUI_CHECKED Then
IniWrite("res\config.ini", "Zusatz", "Trayicon", 0)
Else
IniWrite("res\config.ini", "Zusatz", "Trayicon", 1)
EndIf
If GUICtrlRead($Checkbox13) = $GUI_CHECKED Then
IniWrite("res\config.ini", "Zusatz", "Tipps", 1)
Else
IniWrite("res\config.ini", "Zusatz", "Tipps", 0)
EndIf
If GUICtrlRead($Checkbox15) = $GUI_CHECKED Then
IniWrite("res\config.ini", "Zusatz", "Autostart", 1)
Else
IniWrite("res\config.ini", "Zusatz", "Autostart", 0)
EndIf
If GUICtrlRead($Checkbox16) = $GUI_CHECKED Then
IniWrite("res\config.ini", "Zusatz", "Daten", 1)
Else
IniWrite("res\config.ini", "Zusatz", "Daten", 0)
EndIf
If GUICtrlRead($Combo1) = "Täglich" Then
IniWrite("res\config.ini", "Zusatz", "Dateninfo", 0); 0=täglich, 1=wöchentlich; 2=monatlich
ElseIf GUICtrlRead($Combo1) = "Wöchentlich" Then
IniWrite("res\config.ini", "Zusatz", "Dateninfo", 1)
Else
IniWrite("res\config.ini", "Zusatz", "Dateninfo", 2)
EndIf
If GUICtrlRead($Combo1) = "Wöchentlich" Then IniWrite("res\config.ini", "Zusatz", "Combo2Tag", GUICtrlRead($Combo2))
If GUICtrlRead($Combo1) = "Monatlich" Then IniWrite("res\config.ini", "Zusatz", "Combo2Monat", GUICtrlRead($Combo2))
If GUICtrlRead($Checkbox17) = $GUI_CHECKED Then
IniWrite("res\config.ini", "Zusatz", "Autobereinigung", 1)
Else
IniWrite("res\config.ini", "Zusatz", "Autobereinigung", 0)
EndIf

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

GUIDelete($Settings)
_Einstellungen()
Sleep(2000)
_marquee(0)
Sleep(500)
GUISetState(@SW_SHOW, $Form1)
EndFunc ;==>settingsButton1Click

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

Func Checkbox14Click()
If GUICtrlRead($Checkbox14) = $GUI_CHECKED Then
GUICtrlSetState($Radio1, $GUI_ENABLE)
GUICtrlSetState($Radio2, $GUI_ENABLE)
ElseIf GUICtrlRead($Checkbox14) = $GUI_UNCHECKED Then
GUICtrlSetState($Radio1, $GUI_DISABLE)
GUICtrlSetState($Radio2, $GUI_DISABLE)
EndIf
EndFunc ;==>Checkbox14Click

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

Func Checkbox15Click()
If GUICtrlRead($Checkbox15) = $GUI_CHECKED Then
GUICtrlSetState($Checkbox16, $GUI_ENABLE)
GUICtrlSetState($Checkbox17, $GUI_ENABLE)
If GUICtrlRead($Checkbox16) = $GUI_CHECKED Then GUICtrlSetState($Combo1, $GUI_ENABLE)
If GUICtrlRead($Combo1) <> "Täglich" Then GUICtrlSetState($Combo2, $GUI_ENABLE)
ElseIf GUICtrlRead($Checkbox15) = $GUI_UNCHECKED Then
GUICtrlSetState($Checkbox16, $GUI_DISABLE)
GUICtrlSetState($Checkbox17, $GUI_DISABLE)
GUICtrlSetState($Combo1, $GUI_DISABLE)
GUICtrlSetState($Combo2, $GUI_DISABLE)
EndIf
EndFunc ;==>Checkbox15Click

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

Func Checkbox16Click()
If GUICtrlRead($Checkbox16) = $GUI_CHECKED Then
GUICtrlSetState($Combo1, $GUI_ENABLE)
If GUICtrlRead($Combo1) <> "Täglich" Then GUICtrlSetState($Combo2, $GUI_ENABLE)
ElseIf GUICtrlRead($Checkbox16) = $GUI_UNCHECKED Then
GUICtrlSetState($Combo1, $GUI_DISABLE)
GUICtrlSetState($Combo2, $GUI_DISABLE)
EndIf
EndFunc ;==>Checkbox16Click

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

Func Combo1Change()
If GUICtrlRead($Combo1) = "Täglich" Then
GUICtrlSetData($Combo2, "")
GUICtrlSetState($Combo2, $GUI_DISABLE)
ElseIf GUICtrlRead($Combo1) = "Wöchentlich" Then
GUICtrlSetState($Combo2, $GUI_ENABLE)
GUICtrlSetData($Combo2, "")
GUICtrlSetData($Combo2, "Montags|Dienstags|Mittwochs|Donnerstags|Freitags|Samstags|Sonntags", $Combo2infotag)
ElseIf GUICtrlRead($Combo1) = "Monatlich" Then
GUICtrlSetData($Combo2, "")
GUICtrlSetData($Combo2, "1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|26|27|28", $Combo2infomonat)
EndIf
EndFunc ;==>Combo1Change

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

Func Input1Change()
If GUICtrlRead($Input1) < 4 And GUICtrlRead($Input1) > 0 Then
GUICtrlSetData($Slider1, GUICtrlRead($Input1))
GUICtrlSetData($Edit1, StringFormat($Risikotext[GUICtrlRead($Input1) - 1]))
$Risiko = GUICtrlRead($Input1)
If $Risiko > "1" Then GUICtrlSetImage($Pic1, @ScriptDir & "\res\rot.jpg")
If $Risiko = "3" Then GUICtrlSetImage($Pic2, @ScriptDir & "\res\rot.jpg")
Else
MsgBox(16, "Computerbereinigungsassistent", "Die eingegebene Zahl war ungültig!")
GUICtrlSetData($Input1, GUICtrlRead($Slider1))
EndIf
EndFunc ;==>Input1Change

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

Func Slider1Change()
GUICtrlSetData($Input1, GUICtrlRead($Slider1))
GUICtrlSetData($Edit1, StringFormat($Risikotext[GUICtrlRead($Slider1) - 1]))
$Risiko = GUICtrlRead($Slider1)
If $Risiko > "1" Then GUICtrlSetImage($Pic1, @ScriptDir & "\res\rot.jpg")
If $Risiko = "3" Then GUICtrlSetImage($Pic2, @ScriptDir & "\res\rot.jpg")
EndFunc ;==>Slider1Change

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

Func SettingsClose()
If MsgBox(292, "Computerbereinisgungsassistent", "Einstellungen wirklich ohne Speichern schließen?") = 6 Then
GUIDelete($Settings)
GUISetState(@SW_SHOW, $Form1)
EndIf
EndFunc ;==>SettingsClose

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

Func Button4Click()
MsgBox(0, "", "Noch nicht implementiert!")
EndFunc ;==>Button4Click

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

Func Button5Click()
MsgBox(0, "", "Noch nicht implementiert!")
EndFunc ;==>Button5Click

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

Func Form1Close()
Local $Exit = MsgBox(292, "Computer-Bereinigungsassistent", "Möchten Sie den Computer-Bereinigungsassistenten wirklich beenden?")
If $Exit = 6 Then Exit
EndFunc ;==>Form1Close

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

Func _marquee($onoff)
If $onoff = 1 Then
$Marquee = GUICreate("Form1", 545, 25, -1, -1, $WS_POPUP, $WS_EX_TOOLWINDOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
$MarqueeProgress = GUICtrlCreateProgress(0, 0, 545, 25, $PBS_MARQUEE)
$MarqueehProgress = GUICtrlGetHandle($MarqueeProgress)
_SendMessage($MarqueehProgress, $PBM_SETMARQUEE, True, 10)
GUISetState(@SW_SHOW)
Else
GUIDelete($Marquee)
EndIf
EndFunc ;==>_marquee

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

Func _Tray()
$nTrayIcon1 = _TrayIconCreate("Computerbereinigungsassistent V1.0", @ScriptDir & "\autoitdeicon.ico")
_TrayIconSetClick(-1, 16)
_TrayIconSetState()

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

$nTrayMenu1 = _TrayCreateContextMenu()
$nSideItem3 = _CreateSideMenu($nTrayMenu1)
_SetSideMenuText($nSideItem3, "C.B.A. - V1.0")
_SetSideMenuColor($nSideItem3, 0x00FFFF)
_SetSideMenuBkColor($nSideItem3, 0x802222)
_SetSideMenuBkGradColor($nSideItem3, 0x4477AA)

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

$TrayBereinigung = _TrayCreateMenu("Bereinigung")
GUICtrlSetState(-1, $GUI_DEFBUTTON)
_TrayItemSetIcon(-1, "shell32.dll", -239)
$Tray1Klick = _TrayCreateitem("1-Klick-Bereinigung", $TrayBereinigung)
GUICtrlSetOnEvent(-1, "Button1Click")
GUICtrlSetState(-1, $GUI_DEFBUTTON)
$TrayBenutzerdefiniert = _TrayCreateitem("Benutzredefienierte Bereinigung", $TrayBereinigung)
GUICtrlSetOnEvent(-1, "Button2Click")
_TrayCreateItem("")
$TrayUpdates = _TrayCreateItem("Updates")
GUICtrlSetOnEvent(-1, "Button5Click")
_TrayItemSetIcon(-1, "shell32.dll", -15)
$TrayOptions = _TrayCreateItem("Optionen")
GUICtrlSetOnEvent(-1, "Button3Click")
_TrayItemSetIcon(-1, "shell32.dll", -217)
_TrayCreateItem("")
$TrayHelp = _TrayCreateItem("Hilfe")
GUICtrlSetOnEvent(-1, "Button4Click")
_TrayItemSetIcon(-1, "shell32.dll", -24)
$TrayAbout = _TrayCreateItem("Über")
GUICtrlSetOnEvent(-1, "_About")
_TrayItemSetIcon(-1, "shell32.dll", -171)
_TrayCreateItem("")
$TrayExit = _TrayCreateItem("Beenden")
GUICtrlSetOnEvent(-1, "Form1Close")
GUICtrlSetState(-1, $GUI_DEFBUTTON)
_TrayItemSetIcon(-1, "shell32.dll", -28)

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

_TrayIconSetState()
EndFunc ;==>_Tray

[/autoit]