Neue Cpu Auslastanzeige

[autoit]

;=============================================================================================================================================================================================
;= EEEEEEEEEEEEEE EEEEEEEEEEEEEEEEEE EEEE EEEE EEEEEEEEEEEEEE EEE EEEEEEEEEEEEEEEE EEEEEEEEEEEEEEEEEE EEEE EE =
;= EE EE EEEEEEEEEEEEEEEEEE EE EEE EE EEE EE EE EE EE EE EE EE EE EE EE =
;= EE EE EEE EE EE EE EE EE EE EE EE EE EE EE EE EE EE =
;= EE EE EEE EE EE EE EE EE EE EE EE EE EE EE EE EE EE =
;= EE EE EEE EE EE EE EE EE EE EE EE EE EE EE EE EE EE =
;= EE EE EEE EE EE EE EE EE EE EE EE EE EE EE EE EE EE =
;= EEEEEEEEEEEEEE EEEEEEEEEEEEEEEEEE EE EE EE EE EEEEEEEEEEEEEE EE EE EE EE EE EE EE EE =
;= EEE EEEEEEEEEEEEEEEEEE EE EE EE EE EEE EEEEEEEEEEEEEEEEE EE EE EE EE EE EE =
;= EE EE EEE EE EE EE EE EE EE EE EE EE EEEEEEE EE EE EE EE EE =
;= EE EE EEE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE =
;= EE EE EEE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE =
;= EE EE EEE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE =
;= EE EE EEEEEEEEEEEEEEEEEE EE EEE EE EEE EE EE EE EE EE EE EE EE EE EE EE =
;= EE EE EEEEEEEEEEEEEEEEEE EEEE EEEE EE EE EE EE EEEEEEEEEEEEEEE EEEEEEEEEEEEEEEEEE EE EEEE =
;=============================================================================================================================================================================================
$read_1 = IniRead("config.ini", "Config", "Spiel1", "Error")
$read_2 = IniRead("config.ini", "Config", "Spiel2", "Error")
$read_3 = IniRead("config.ini", "Config", "Spiel3", "Error")
$read_4 = IniRead("config.ini", "Config", "Spiel4", "Error")
$read_5 = IniRead("config.ini", "Config", "Spiel5", "Error")
$read_6 = IniRead("config.ini", "Config", "Spiel6", "Error")
$read_7 = IniRead("config.ini", "Config", "Pfad1", "Error")
$read_8 = IniRead("config.ini", "Config", "Pfad2", "Error")
$read_9 = IniRead("config.ini", "Config", "Pfad3", "Error")
$read_10 = IniRead("config.ini", "Config", "Pfad4", "Error")
$read_11 = IniRead("config.ini", "Config", "Pfad5", "Error")
$read_12 = IniRead("config.ini", "Config", "Pfad6", "Error")
$read_13 = IniRead("config.ini", "Config", "Button1", "Error")
$read_14 = IniRead("config.ini", "Config", "Button2", "Error")
$read_15 = IniRead("config.ini", "Config", "Button3", "Error")
$read_16 = IniRead("config.ini", "Config", "Button4", "Error")
$read_17 = IniRead("config.ini", "Config", "Button5", "Error")
$read_18 = IniRead("config.ini", "Config", "Button6", "Error")
$read_19 = IniRead("config.ini", "Config", "Button7", "Error")
$read_20 = IniRead("config.ini", "Config", "Button8", "Error")
$read_21 = IniRead("config.ini", "Config", "Button9", "Error")
$read_22 = IniRead("config.ini", "Config", "Button10", "Error")
$read_23 = IniRead("config.ini", "Config", "Button11", "Error")
$read_24 = IniRead("config.ini", "Config", "Button12", "Error")
$read_25 = IniRead("config.ini", "Config", "Button13", "Error")
$read_26 = IniRead("config.ini", "Config", "Button14", "Error")
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
#include <GuiConstants.au3>
#include <GUIConstantsEx.au3>
#include <INet.au3>
#include <Date.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
#Region
Global $lblCoreCont, $lblUser, $lblPublicIp, $lblOsVersion, $lblc, $lblCpuPer
$title = "Red Dragon Tool"
$font = "Times New Roman FETT"
$font2 = "Times New Roman FETT KURSIV"
$PublicIP = _GetIP()
$username = @UserName
$osversion = @OSVersion & " , " & @OSType & " , " & @OSArch & " , " & @OSBuild
GUICreate($title, 300, 380)
GUISetState(@SW_SHOW)
GUISetBkColor(0xff0000)
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 0) ; auf den klassischen Style umschalten
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
; GROUP WITH RADIO BUTTONS

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

$g_1 = GUICtrlCreateGroup("Spiele", 170, 25, 80, 150)
GUICtrlSetFont(-1, 8.5, -1, -1, $font)
$g_2 = GUICtrlCreateGroup("Infos", 50, 175, 200, 135)
GUICtrlSetFont(-1, 8.5, -1, -1, $font)
GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
$Spiel_1 = GUICtrlCreateRadio($read_1 , 180, 40, 55)
$spiel_2 = GUICtrlCreateRadio($read_2 , 180, 60, 55)
$spiel_3 = GUICtrlCreateRadio($read_3 , 180, 80, 55)
$spiel_4 = GUICtrlCreateRadio($read_4 , 180, 100, 55)
$spiel_5 = GUICtrlCreateRadio($read_5 , 180, 120, 55)
$spiel_6 = GUICtrlCreateRadio($read_6 , 180, 140, 55)
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
#AutoIt3Wrapper_UseX64=n
Local Const $wbemFlagReturnImmediately = 0x10
Local Const $wbemFlagForwardOnly = 0x20
Global $blink = True
$Label1 = GUICtrlCreateLabel("", 55, 195, 100, 12)
$Label2 = GUICtrlCreateLabel("", 55, 210, 100, 12)
$L_1 = GUICtrlCreateLabel("Red Dragon", 50, 25, 120)
GUICtrlSetFont(-1, 11, -1, -1, $font2)
$L_2 = GUICtrlCreateLabel("Tool", 50, 40, 100, 12)
GUICtrlSetFont(-1, 10, -1, -1, $font2)
$lblc = GUICtrlCreateLabel("© Xilent Version: 1.1.0.0", 90, 345, 200, 12)
_checkbox()
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 7) ; zurück zum Standard-Windowsstyle
#EndRegion
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
$button_1 = GUICtrlCreateButton("OK", 50, 315, 100)
$button_2 = GUICtrlCreateButton("Schließen", 150, 315, 100)
$button_3 = GUICtrlCreateButton($read_13 , 50, 75, 100)
$button_4 = GUICtrlCreateButton($read_14 , 50, 100, 100)
$button_5 = GUICtrlCreateButton($read_15 , 50, 125, 100)
$button_6 = GUICtrlCreateButton($read_16 , 50, 150, 100)
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
$Menu1 = GUICtrlCreateMenu("Ausschalten")
$Menu1_1 = GUICtrlCreateMenuItem("Herrunterfahren", $Menu1)
$Menu1_2 = GUICtrlCreateMenuItem("Ruhezustand", $Menu1)
$Menu1_3 = GUICtrlCreateMenuItem("Neustarten", $Menu1)
$Menu2 = GUICtrlCreateMenu("Win Style")
$Menu2_1 = GUICtrlCreateMenuItem($read_21, $Menu2)
$Menu2_2 = GUICtrlCreateMenuItem($read_22, $Menu2)
$Menu2_3 = GUICtrlCreateMenuItem($read_23, $Menu2)
$Menu3 = GUICtrlCreateMenu("H. Farbe")
$Menu3_1 = GUICtrlCreateMenuItem("Rot", $Menu3)
$Menu3_2 = GUICtrlCreateMenuItem("Blau", $Menu3)
$Menu3_3 = GUICtrlCreateMenuItem("Gelb", $Menu3)
$Menu3_4 = GUICtrlCreateMenuItem("Schwarz", $Menu3)
$Menu3_5 = GUICtrlCreateMenuItem("Grün", $Menu3)
$Menu3_6 = GUICtrlCreateMenuItem("Pink", $Menu3)
$Menu3_7 = GUICtrlCreateMenuItem("Violett", $Menu3)
$Menu3_8 = GUICtrlCreateMenuItem("Braun", $Menu3)
$Menu3_9 = GUICtrlCreateMenuItem("Weiß", $Menu3)
$Menu3_r = GUICtrlCreateMenuItem("Random", $Menu3)
$Menu4 = GUICtrlCreateMenu("S. Farbe")
$Menu4_1 = GUICtrlCreateMenuItem("Rot", $Menu4)
$Menu4_2 = GUICtrlCreateMenuItem("Blau", $Menu4)
$Menu4_3 = GUICtrlCreateMenuItem("Gelb", $Menu4)
$Menu4_4 = GUICtrlCreateMenuItem("Schwarz", $Menu4)
$Menu4_5 = GUICtrlCreateMenuItem("Grün", $Menu4)
$Menu4_6 = GUICtrlCreateMenuItem("Pink", $Menu4)
$Menu4_7 = GUICtrlCreateMenuItem("Violett", $Menu4)
$Menu4_8 = GUICtrlCreateMenuItem("Braun", $Menu4)
$Menu4_9 = GUICtrlCreateMenuItem("Weiß", $Menu4)
$Menu5 = GUICtrlCreateMenu("E")
$Menu5_1 = GUICtrlCreateMenuItem("Einstellungen", $Menu5)
$Menu6 = GUICtrlCreateMenu("?")
$Menu6_1 = GUICtrlCreateMenuItem("Help", $Menu6)
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $button_1
If $Spiel_1 And GUICtrlRead($Spiel_1) = $GUI_CHECKED Then
Run($read_7)
ElseIf $spiel_2 And GUICtrlRead($spiel_2) = $GUI_CHECKED Then
Run($read_8)
ElseIf $spiel_3 And GUICtrlRead($spiel_3) = $GUI_CHECKED Then
Run($read_9)
ElseIf $spiel_4 And GUICtrlRead($spiel_4) = $GUI_CHECKED Then
Run($read_10)
ElseIf $spiel_5 And GUICtrlRead($spiel_5) = $GUI_CHECKED Then
Run($read_11)
ElseIf $spiel_6 And GUICtrlRead($spiel_6) = $GUI_CHECKED Then
Run($read_12)
EndIf
Case $msg = $button_2
Exit
Case $msg = $button_3
Run(@ComSpec & " /c " & $read_17, "", @SW_HIDE)
Case $msg = $button_4
Run(@ComSpec & " /c " & $read_18, "", @SW_HIDE)
Case $msg = $button_5
Run(@ComSpec & " /c " & $read_19, "", @SW_HIDE)
Case $msg = $button_6
Run(@ComSpec & " /c " & $read_20, "", @SW_HIDE)
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $Menu3_1
AdlibUnRegister("_Random_BG")
GUISetBkColor(0xff0000)
Case $msg = $Menu3_2
AdlibUnRegister("_Random_BG")
GUISetBkColor(0x0000FF)
Case $msg = $Menu3_3
AdlibUnRegister("_Random_BG")
GUISetBkColor(0xFFFF00)
Case $msg = $Menu3_4
AdlibUnRegister("_Random_BG")
GUISetBkColor(0x000000)
Case $msg = $Menu3_5
AdlibUnRegister("_Random_BG")
GUISetBkColor(0x00FF00)
Case $msg = $Menu3_6
AdlibUnRegister("_Random_BG")
GUISetBkColor(0xFF00FF)
Case $msg = $Menu3_7
AdlibUnRegister("_Random_BG")
GUISetBkColor(0x800080)
Case $msg = $Menu3_8
AdlibUnRegister("_Random_BG")
GUISetBkColor(0x800000)
Case $msg = $Menu3_9
AdlibUnRegister("_Random_BG")
GUISetBkColor(0xFFFFFF)
Case $msg = $Menu3_r
AdlibRegister("_Random_BG", 1000)
_Random_BG()
Case $msg = $Menu2_1
Run(@ComSpec & " /c " & $read_24 , "", @SW_HIDE)
Case $msg = $Menu2_2
Run(@ComSpec & " /c " & $read_25, "", @SW_HIDE)
Case $msg = $Menu2_3
Run(@ComSpec & " /c " & $read_26, "", @SW_HIDE)
Case $msg = $Menu1_1
Run(@ComSpec & " /c " & 'shutdown /p', "", @SW_HIDE)
Case $msg = $Menu1_2
Run(@ComSpec & " /c " & 'shutdown /h', "", @SW_HIDE)
Case $msg = $Menu1_3
Run(@ComSpec & " /c " & 'shutdown /r', "", @SW_HIDE)
Case $msg = $Menu4_1
SetColor(0xFF0000)
Case $msg = $Menu4_2
SetColor(0x0000FF)
Case $msg = $Menu4_3
SetColor(0xFFFF00)
Case $msg = $Menu4_4
SetColor(0x000000)
Case $msg = $Menu4_5
SetColor(0x00FF00)
Case $msg = $Menu4_6
SetColor(0xFF00FF)
Case $msg = $Menu4_7
SetColor(0x800080)
Case $msg = $Menu4_8
SetColor(0x800000)
Case $msg = $Menu4_9
SetColor(0xFFFFFF)
Case $msg = $Menu6_1
$hSubGui2 = GUICreate("Help", 800, 400, 100, 100)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Switch $msg
Case -3
GUIDelete($hSubGui2)
ExitLoop
EndSwitch
WEnd

Case $msg = $Menu5_1
$hSubGui = GUICreate("Einstellungen", 375, 620, 100, 100)
GUISetBkColor(0xff0000)
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
$ebutton_1 = GUICtrlCreateButton("Schließen",125, 575, 100)
$ebutton_1_2 = GUICtrlCreateButton("Speichen", 25, 575, 100)
$ebutton_2 = GUICtrlCreateButton("...",189, 63,24)
$ebutton_3 = GUICtrlCreateButton("...",189, 93,24)
$ebutton_4= GUICtrlCreateButton("...",189, 123,24)
$ebutton_5 = GUICtrlCreateButton("...",189, 153,24)
$ebutton_6 = GUICtrlCreateButton("...",189, 183,24)
$ebutton_7 = GUICtrlCreateButton("...",189, 213,24)
$ebutton_8 = GUICtrlCreateButton("...",324, 63,24)
$ebutton_9 = GUICtrlCreateButton("...",324, 93,24)
$ebutton_10 = GUICtrlCreateButton("...",324, 123,24)
$ebutton_11 = GUICtrlCreateButton("...",324, 153,24)
$ebutton_12 = GUICtrlCreateButton("...",324, 183,24)
$ebutton_13 = GUICtrlCreateButton("...",324, 213,24)
$ebuttonB_1 = GUICtrlCreateButton("...",189, 273,24)
$ebuttonB_2 = GUICtrlCreateButton("...",189, 303,24)
$ebuttonB_3 = GUICtrlCreateButton("...",189, 333,24)
$ebuttonB_4 = GUICtrlCreateButton("...",189, 363,24)
$ebuttonB_5 = GUICtrlCreateButton("...",324, 273,24)
$ebuttonB_6 = GUICtrlCreateButton("...",324, 303,24)
$ebuttonB_7 = GUICtrlCreateButton("...",324, 333,24)
$ebuttonB_8 = GUICtrlCreateButton("...",324, 363,24)
$ebuttonC_1 = GUICtrlCreateButton("...",189, 403,24)
$ebuttonC_2 = GUICtrlCreateButton("...",189, 433,24)
$ebuttonC_3 = GUICtrlCreateButton("...",189, 463,24)
$ebuttonC_4 = GUICtrlCreateButton("...",324, 403,24)
$ebuttonC_5 = GUICtrlCreateButton("...",324, 433,24)
$ebuttonC_6 = GUICtrlCreateButton("...",324, 463,24)
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
GUICtrlCreateLabel("Einstellungen", 25, 20, 100, 20)
GUICtrlSetFont(-1, 11, -1, -1, $font2)
$spiel1 = GUICtrlCreateLabel("Spiel 1", 35, 65, 50, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$spiel2 = GUICtrlCreateLabel("Spiel 2", 35, 95, 50, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$spiel3 = GUICtrlCreateLabel("Spiel 3", 35, 125, 50, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$spiel4 = GUICtrlCreateLabel("Spiel 4", 35, 155, 50, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$spiel5 = GUICtrlCreateLabel("Spiel 5", 35, 185, 50, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$spiel6 = GUICtrlCreateLabel("Spiel 6", 35, 215, 50, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
GUISetState(@SW_SHOW)
$ButtonE_1 = GUICtrlCreateLabel("Button 1", 35, 275, 75, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$ButtonE_2 = GUICtrlCreateLabel("Button 2", 35, 305, 75, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$ButtonE_3 = GUICtrlCreateLabel("Button 3", 35, 335, 75, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$ButtonE_4 = GUICtrlCreateLabel("Button 4", 35, 365, 75, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$Style_1 = GUICtrlCreateLabel("Style 1", 35, 405, 75, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$Style_2 = GUICtrlCreateLabel("Style 2", 35, 435, 75, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$Style_3 = GUICtrlCreateLabel("Style 3", 35, 465, 75, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
;=======================================================
$ge_1 = GUICtrlCreateGroup("Spiele", 25, 50, 325, 200)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$ge_2 = GUICtrlCreateGroup("Buttons", 25, 250, 325, 140)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$ge_3 = GUICtrlCreateGroup("Infos", 25, 500, 325, 70)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$ge_4 = GUICtrlCreateGroup("Win Style", 25, 390, 325, 100)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
;=======================================================
$Input_1 = GUICtrlCreateInput($read_1 ,85, 65, 100, 20)
$Input_2 = GUICtrlCreateInput($read_2 ,85, 95, 100, 20)
$Input_3 = GUICtrlCreateInput($read_3 ,85, 125, 100, 20)
$Input_4 = GUICtrlCreateInput($read_4 ,85, 155, 100, 20)
$Input_5 = GUICtrlCreateInput($read_5 ,85, 185, 100, 20)
$Input_6 = GUICtrlCreateInput($read_6 ,85, 215, 100, 20)
$Input_1_1 = GUICtrlCreateInput($read_7 ,220, 65, 100, 20)
$Input_2_1 = GUICtrlCreateInput($read_8,220, 95, 100, 20)
$Input_3_1 = GUICtrlCreateInput($read_9 ,220, 125, 100, 20)
$Input_4_1 = GUICtrlCreateInput($read_10 ,220, 155, 100, 20)
$Input_5_1 = GUICtrlCreateInput($read_11 ,220, 185, 100, 20)
$Input_6_1 = GUICtrlCreateInput($read_12 ,220, 215, 100, 20)
$InputB_1 = GUICtrlCreateInput($read_13 ,85, 275, 100, 20)
$InputB_2 = GUICtrlCreateInput($read_14 ,85, 305, 100, 20)
$InputB_3 = GUICtrlCreateInput($read_15 ,85, 335, 100, 20)
$InputB_4 = GUICtrlCreateInput($read_16 ,85, 365, 100, 20)
$InputB_1_1 = GUICtrlCreateInput($read_17 ,220, 275, 100, 20)
$InputB_2_1 = GUICtrlCreateInput($read_18 ,220, 305, 100, 20)
$InputB_3_1 = GUICtrlCreateInput($read_19 ,220, 335, 100, 20)
$InputB_4_1 = GUICtrlCreateInput($read_20 ,220, 365, 100, 20)
$InputC_1 = GUICtrlCreateInput($read_21 ,85, 405, 100, 20)
$InputC_2 = GUICtrlCreateInput($read_22 ,85, 435, 100, 20)
$InputC_3 = GUICtrlCreateInput($read_23 ,85, 465, 100, 20)
$InputC_1_1 = GUICtrlCreateInput($read_24 ,220, 405, 100, 20)
$InputC_2_1 = GUICtrlCreateInput($read_25 ,220, 435, 100, 20)
$InputC_3_1 = GUICtrlCreateInput($read_26 ,220, 465, 100, 20)
$checkbox_1 = GUICtrlCreateCheckbox("Uhrzeit", 35, 520, 50, 20)
$checkbox_2 = GUICtrlCreateCheckbox("Datum", 105, 520, 50, 20)
$checkbox_3 = GUICtrlCreateCheckbox("Benutzer", 175, 520, 70, 20)
$checkbox_4 = GUICtrlCreateCheckbox("Cpu Kerne", 245, 520, 70, 20)
$checkbox_5 = GUICtrlCreateCheckbox("Cpu Auslastungsanzeige", 35, 540, 140, 20)
$checkbox_6 = GUICtrlCreateCheckbox("Ip Adresse", 175, 540, 70, 20)
$checkbox_7 = GUICtrlCreateCheckbox("Sonstiges", 245, 540, 70, 20)
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
If IniRead("config.ini", "Config", "cb1", "Error") = 1 Then GUICtrlSetState($checkbox_1, $GUI_CHECKED)
If IniRead("config.ini", "Config", "cb2", "Error") = 1 Then GUICtrlSetState($checkbox_2, $GUI_CHECKED)
If IniRead("config.ini", "Config", "cb3", "Error") = 1 Then GUICtrlSetState($checkbox_3, $GUI_CHECKED)
If IniRead("config.ini", "Config", "cb4", "Error") = 1 Then GUICtrlSetState($checkbox_4, $GUI_CHECKED)
If IniRead("config.ini", "Config", "cb5", "Error") = 1 Then GUICtrlSetState($checkbox_5, $GUI_CHECKED)
If IniRead("config.ini", "Config", "cb6", "Error") = 1 Then GUICtrlSetState($checkbox_6, $GUI_CHECKED)
If IniRead("config.ini", "Config", "cb7", "Error") = 1 Then GUICtrlSetState($checkbox_7, $GUI_CHECKED)
If $checkbox_1 = $GUI_CHECKED Then IniWrite("config.ini","Config","cb1","1")
If Not $checkbox_1 = $GUI_CHECKED Then IniWrite("config.ini","Config","cb1","0")
While 1
$msg = GUIGetMsg()
Select
Case $msg = $ebutton_1
GUIDelete($hSubGui)
ExitLoop
Case $msg = $ebutton_1_2
If BitAND(GuiCtrlRead($Checkbox_1), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb1", "1")
If Not BitAND(GuiCtrlRead($Checkbox_1), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb1", "0")
If BitAND(GuiCtrlRead($Checkbox_2), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb2", "1")
If Not BitAND(GuiCtrlRead($Checkbox_2), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb2", "0")
If BitAND(GuiCtrlRead($Checkbox_3), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb3", "1")
If Not BitAND(GuiCtrlRead($Checkbox_3), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb3", "0")
If BitAND(GuiCtrlRead($Checkbox_4), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb4", "1")
If Not BitAND(GuiCtrlRead($Checkbox_4), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb4", "0")
If BitAND(GuiCtrlRead($Checkbox_5), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb5", "1")
If Not BitAND(GuiCtrlRead($Checkbox_5), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb5", "0")
If BitAND(GuiCtrlRead($Checkbox_6), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb6", "1")
If Not BitAND(GuiCtrlRead($Checkbox_6), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb6", "0")
If BitAND(GuiCtrlRead($Checkbox_7), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb7", "1")
If Not BitAND(GuiCtrlRead($Checkbox_7), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb7", "0")
GUIDelete($hSubGui)
ExitLoop
Case $msg = $ebutton_2
$Box_1 = InputBox("Name", "Bitte gebe hier den Spielenamen ein", "Spiel")
IniWrite("config.ini", "Config", "Spiel1", $Box_1)
Case $msg = $ebutton_3
$Box_2 = InputBox("Name", "Bitte gebe hier den Spielenamen ein", "Spiel")
IniWrite("config.ini", "Config", "Spiel2", $Box_2)
Case $msg = $ebutton_4
$Box_3 = InputBox("Name", "Bitte gebe hier den Spielenamen ein", "Spiel")
IniWrite("config.ini", "Config", "Spiel3", $Box_3)
Case $msg = $ebutton_5
$Box_4 = InputBox("Name", "Bitte gebe hier den Spielenamen ein", "Spiel")
IniWrite("config.ini", "Config", "Spiel4", $Box_4)
Case $msg = $ebutton_6
$Box_5 = InputBox("Name", "Bitte gebe hier den Spielenamen ein", "Spiel")
IniWrite("config.ini", "Config", "Spiel5", $Box_5)
Case $msg = $ebutton_7
$Box_6 = InputBox("Name", "Bitte gebe hier den Spielenamen ein", "Spiel")
IniWrite("config.ini", "Config", "Spiel6", $Box_6)
Case $msg = $ebutton_8
$Box_7 = InputBox("Pfad", "Bitte gebe hier den Pfad der .exe ein", "Spiel")
IniWrite("config.ini", "Config", "Pfad1", $Box_7)
Case $msg = $ebutton_9
$Box_8 = InputBox("Pfad", "Bitte gebe hier den Pfad der .exe ein", "Spiel")
IniWrite("config.ini", "Config", "Pfad2", $Box_8)
Case $msg = $ebutton_10
$Box_9 = InputBox("Pfad", "Bitte gebe hier den Pfad der .exe ein", "Spiel")
IniWrite("config.ini", "Config", "Pfad3", $Box_9)
Case $msg = $ebutton_11
$Box_10 = InputBox("Pfad", "Bitte gebe hier den Pfad der .exe ein", "Spiel")
IniWrite("config.ini", "Config", "Pfad4", $Box_10)
Case $msg = $ebutton_12
$Box_11 = InputBox("Pfad", "Bitte gebe hier den Pfad der .exe ein", "Spiel")
IniWrite("config.ini", "Config", "Pfad5", $Box_11)
Case $msg = $ebutton_13
$Box_12 = InputBox("Pfad", "Bitte gebe hier den Pfad der .exe ein", "Spiel")
IniWrite("config.ini", "Config", "Pfad6", $Box_12)
Case $msg = $ebuttonB_1
$Box_13 = InputBox("Name", "Bitte gebe hier den Namen des Buttons ein", "Button")
IniWrite("config.ini", "Config", "Button1", $Box_13)
Case $msg = $ebuttonB_2
$Box_14 = InputBox("Name", "Bitte gebe hier den Namen des Buttons ein", "Button")
IniWrite("config.ini", "Config", "Button2", $Box_14)
Case $msg = $ebuttonB_3
$Box_15 = InputBox("Name", "Bitte gebe hier den Namen des Buttons ein", "Button")
IniWrite("config.ini", "Config", "Button3", $Box_15)
Case $msg = $ebuttonB_4
$Box_16 = InputBox("Name", "Bitte gebe hier den Namen des Buttons ein", "Button")
IniWrite("config.ini", "Config", "Button4", $Box_16)
Case $msg = $ebuttonB_5
$Box_17 = InputBox("Name", "Bitte gebe hier den Befehl des Buttons ein", "Button")
IniWrite("config.ini", "Config", "Button5", $Box_17)
Case $msg = $ebuttonB_6
$Box_18 = InputBox("Name", "Bitte gebe hier den Befehl des Buttons ein", "Button")
IniWrite("config.ini", "Config", "Button6", $Box_18)
Case $msg = $ebuttonB_7
$Box_19 = InputBox("Name", "Bitte gebe hier den Befehl des Buttons ein", "Button")
IniWrite("config.ini", "Config", "Button7", $Box_19)
Case $msg = $ebuttonB_8
$Box_20 = InputBox("Name", "Bitte gebe hier den Befehl des Buttons ein", "Button")
IniWrite("config.ini", "Config", "Button8", $Box_20)
Case $msg = $ebuttonC_1
$Box_21 = InputBox("Name", "Bitte gebe hier den Namen des Styles ein", "Style")
IniWrite("config.ini", "Config", "Button9", $Box_21)
Case $msg = $ebuttonC_2
$Box_22 = InputBox("Name", "Bitte gebe hier den Namen des Styles ein", "Style")
IniWrite("config.ini", "Config", "Button10", $Box_22)
Case $msg = $ebuttonC_3
$Box_23 = InputBox("Name", "Bitte gebe hier den Namen des Styles ein", "Style")
IniWrite("config.ini", "Config", "Button11", $Box_23)
Case $msg = $ebuttonC_4
$Box_24 = InputBox("Name", "Bitte gebe hier den Pfad des Styles ein", "Style")
IniWrite("config.ini", "Config", "Button12", $Box_24)
Case $msg = $ebuttonC_5
$Box_25 = InputBox("Name", "Bitte gebe hier den Pfad des Stylesein", "Style")
IniWrite("config.ini", "Config", "Button13", $Box_25)
Case $msg = $ebuttonC_6
$Box_26 = InputBox("Name", "Bitte gebe hier den Pfad des Styles ein", "Style")
IniWrite("config.ini", "Config", "Button14", $Box_26)
EndSelect
Switch $msg
Case -3
GUIDelete($hSubGui)
ExitLoop
EndSwitch
WEnd
EndSelect
WEnd
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
Func SetColor($Color)
GUICtrlSetColor($L_1, $Color)
GUICtrlSetColor($L_2, $Color)
GUICtrlSetColor($Label1, $Color)
GUICtrlSetColor($Label2, $Color)
GUICtrlSetColor($lblCpuPer, $Color)
GUICtrlSetColor($g_1, $Color)
GUICtrlSetColor($g_2, $Color)
GUICtrlSetColor($Spiel_1, $Color)
GUICtrlSetColor($spiel_2, $Color)
GUICtrlSetColor($spiel_3, $Color)
GUICtrlSetColor($spiel_4, $Color)
GUICtrlSetColor($spiel_5, $Color)
GUICtrlSetColor($spiel_6, $Color)
GUICtrlSetColor($lblc, $Color)
GUICtrlSetColor($lblCoreCont, $Color)
GUICtrlSetColor($lblUser, $Color)
GUICtrlSetColor($lblPublicIp, $Color)
GUICtrlSetColor($lblOsVersion, $Color)
EndFunc ;==>SetColor
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
Func _date()
If $blink Then
GUICtrlSetData($Label2, @MDAY & '.' & @MON & '.' & @YEAR)
$blink = Not $blink
Else
GUICtrlSetData($Label2, @MDAY & '.' & @MON & '.' & @YEAR)
$blink = Not $blink
EndIf
EndFunc ;==>_date
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
Func _GetCoreCount(Const $Computer = "127.0.0.1")
$WMIConnect = ObjGet('winmgmts:{impersonationLevel=impersonate}!\\' & $Computer & '\root\CIMV2')
If Not IsObj($WMIConnect) Then Return SetError(-1, @error, 0)
$ObjList = $WMIConnect.ExecQuery('SELECT Name FROM Win32_PerfRawData_PerfOS_Processor', 'WQL', $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
If Not IsObj($ObjList) Then Return SetError(-2, @error, 0)
$iReturn = 0
For $ObjItem In $ObjList
If StringInStr($ObjItem.Name, "_Total") = 0 Then $iReturn += 1
Next
Return $iReturn
EndFunc ;==>_GetCoreCount
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
Func _Random_BG()
GUISetBkColor(Random(100, 0xFFFFFF, 1))
EndFunc ;==>_Random_BG
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
Func CpuAuslastung()
Global $wbemFlags = $wbemFlagReturnImmediately + $wbemFlagForwardOnly
Global $strComputer = @ComputerName
Global $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
Global $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Processor", "WQL", $wbemFlags)
$n = 0
$c = 0
$sMsg = ""
For $ObjItem In $colItems
$sMsg &= "cpu%" & $ObjItem.LoadPercentage
$n += 1
Next
$CpuAuslastung = StringSplit($sMsg, "cpu%", 1)
For $n = "0" To $CpuAuslastung[0]
$c += $CpuAuslastung[$n]
Next
Return (Round($c / $CpuAuslastung[0], 0) & "%")
EndFunc ;==>CpuAuslastung
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
Func _ShowCpuPer()
GUICtrlSetData($lblCpuPer, "CPU Auslastung: " & CpuAuslastung())
EndFunc ;==>_ShowCpuPer
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
Func _time()
If $blink Then
GUICtrlSetData($Label1, @HOUR & ':' & @MIN & ':' & @SEC)
$blink = Not $blink
Else
GUICtrlSetData($Label1, @HOUR & ':' & @MIN & ':' & @SEC)
$blink = Not $blink
EndIf
EndFunc ;==>_time
Func _checkbox()
$cbi1 = IniRead("config.ini", "Config", "cb1", "Error")
If $cbi1 = 1 Then AdlibRegister("_time", 500)
If $cbi1 = 1 Then _time()
$cbi2 = IniRead("config.ini", "Config", "cb2", "Error")
If $cbi2 = 1 Then AdlibRegister("_date", 500)
If $cbi2 = 1 Then _date()
$cbi3 = IniRead("config.ini", "Config", "cb3", "Error")
If $cbi3 = 1 Then $lblUser = GUICtrlCreateLabel($username, 55, 230, 100, 12)
$cbi4 = IniRead("config.ini", "Config", "cb4", "Error")
If $cbi4 = 1 Then $lblCoreCont = GUICtrlCreateLabel("CPU Kerne: " & _GetCoreCount(), 55, 250, 175, 12)
$cbi5 = IniRead("config.ini", "Config", "cb5", "Error")
If $cbi5 = 1 Then $lblCpuPer = GUICtrlCreateLabel("CPU Auslastung: " & CpuAuslastung(), 55, 265, 100, 12)
If $cbi5 = 1 Then AdlibRegister("_ShowCpuPer", 2000)
$cbi6 = IniRead("config.ini", "Config", "cb6", "Error")
If $cbi6 = 1 Then $lblPublicIp = GUICtrlCreateLabel("IP: " & $PublicIP, 55, 280, 100, 12)
$cbi7 = IniRead("config.ini", "Config", "cb7", "Error")
If $cbi7 = 1 Then $lblOsVersion = GUICtrlCreateLabel($osversion, 55, 295, 175, 12)
EndFunc
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
#cs
Autor: ... aka Xilent
Script: ... aka Xilent
Version: 1.0.0.0

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

Copyright (c) 2010 by Sascha ... aka Xilent
#ce

[/autoit]

[autoit]

$objRefresher = ObjCreate("WbemScripting.SWbemRefresher")

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

$objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2")

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

$objRefreshableItem = $objRefresher.AddEnum($objWMIService , "Win32_PerfFormattedData_PerfOS_Processor")

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

$objRefresher.Refresh

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

If IsObj($objRefreshableItem) Then
$i = 0
For $objItem In $objRefreshableItem.ObjectSet
$i += 1
Next
EndIf
Global $aCPU[$i]

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

While 1

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

$objRefresher.Refresh
If IsObj($objRefreshableItem) Then
$i = 0
For $objItem In $objRefreshableItem.ObjectSet
$aCPU[$i] = $objItem.PercentProcessorTime
$i += 1
Next
EndIf
ConsoleWrite("============" & @CRLF)
For $i = 0 To UBound($aCPU)-2
ConsoleWrite("Core "&$i+1&": "&$aCPU[$i] & @CRLF)
Next
ConsoleWrite("Gesamt: "&$aCPU[UBound($aCPU)-1] & @CRLF)
Sleep(500)
WEnd

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

Func OnAutoItExit()
$objRefresher.DeleteAll
EndFunc

[/autoit]

[autoit]

;=============================================================================================================================================================================================
;= EEEEEEEEEEEEEE EEEEEEEEEEEEEEEEEE EEEE EEEE EEEEEEEEEEEEEE EEE EEEEEEEEEEEEEEEE EEEEEEEEEEEEEEEEEE EEEE EE =
;= EE EE EEEEEEEEEEEEEEEEEE EE EEE EE EEE EE EE EE EE EE EE EE EE EE EE =
;= EE EE EEE EE EE EE EE EE EE EE EE EE EE EE EE EE EE =
;= EE EE EEE EE EE EE EE EE EE EE EE EE EE EE EE EE EE =
;= EE EE EEE EE EE EE EE EE EE EE EE EE EE EE EE EE EE =
;= EE EE EEE EE EE EE EE EE EE EE EE EE EE EE EE EE EE =
;= EEEEEEEEEEEEEE EEEEEEEEEEEEEEEEEE EE EE EE EE EEEEEEEEEEEEEE EE EE EE EE EE EE EE EE =
;= EEE EEEEEEEEEEEEEEEEEE EE EE EE EE EEE EEEEEEEEEEEEEEEEE EE EE EE EE EE EE =
;= EE EE EEE EE EE EE EE EE EE EE EE EE EEEEEEE EE EE EE EE EE =
;= EE EE EEE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE =
;= EE EE EEE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE =
;= EE EE EEE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE =
;= EE EE EEEEEEEEEEEEEEEEEE EE EEE EE EEE EE EE EE EE EE EE EE EE EE EE EE =
;= EE EE EEEEEEEEEEEEEEEEEE EEEE EEEE EE EE EE EE EEEEEEEEEEEEEEE EEEEEEEEEEEEEEEEEE EE EEEE =
;=============================================================================================================================================================================================
$read_1 = IniRead("config.ini", "Config", "Spiel1", "Error")
$read_2 = IniRead("config.ini", "Config", "Spiel2", "Error")
$read_3 = IniRead("config.ini", "Config", "Spiel3", "Error")
$read_4 = IniRead("config.ini", "Config", "Spiel4", "Error")
$read_5 = IniRead("config.ini", "Config", "Spiel5", "Error")
$read_6 = IniRead("config.ini", "Config", "Spiel6", "Error")
$read_7 = IniRead("config.ini", "Config", "Pfad1", "Error")
$read_8 = IniRead("config.ini", "Config", "Pfad2", "Error")
$read_9 = IniRead("config.ini", "Config", "Pfad3", "Error")
$read_10 = IniRead("config.ini", "Config", "Pfad4", "Error")
$read_11 = IniRead("config.ini", "Config", "Pfad5", "Error")
$read_12 = IniRead("config.ini", "Config", "Pfad6", "Error")
$read_13 = IniRead("config.ini", "Config", "Button1", "Error")
$read_14 = IniRead("config.ini", "Config", "Button2", "Error")
$read_15 = IniRead("config.ini", "Config", "Button3", "Error")
$read_16 = IniRead("config.ini", "Config", "Button4", "Error")
$read_17 = IniRead("config.ini", "Config", "Button5", "Error")
$read_18 = IniRead("config.ini", "Config", "Button6", "Error")
$read_19 = IniRead("config.ini", "Config", "Button7", "Error")
$read_20 = IniRead("config.ini", "Config", "Button8", "Error")
$read_21 = IniRead("config.ini", "Config", "Button9", "Error")
$read_22 = IniRead("config.ini", "Config", "Button10", "Error")
$read_23 = IniRead("config.ini", "Config", "Button11", "Error")
$read_24 = IniRead("config.ini", "Config", "Button12", "Error")
$read_25 = IniRead("config.ini", "Config", "Button13", "Error")
$read_26 = IniRead("config.ini", "Config", "Button14", "Error")
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
#region ;ab hier nach dem erstellen deiner GUI direkt vor deiner While-Schleife
OnAutoItExitRegister("OnAutoItExit")
$objRefresher = ObjCreate("WbemScripting.SWbemRefresher")

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

$objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2")

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

$objRefreshableItem = $objRefresher.AddEnum($objWMIService, "Win32_PerfFormattedData_PerfOS_Processor")

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

$objRefresher.Refresh

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

If IsObj($objRefreshableItem) Then
$i = 0
For $objItem In $objRefreshableItem.ObjectSet
$i += 1
Next
EndIf

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

CheckCpu() ;damit es sofort 1mal aufgerufen wird

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

AdlibRegister("CheckCpu" ,1000) ;Zeit eventuell anpassen je kleiner desto cpu-lastiger
#include <GuiConstants.au3>
#include <GUIConstantsEx.au3>
#include <INet.au3>
#include <Date.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
#endregion
#Region
Global $lblCoreCont, $lblUser, $lblPublicIp, $lblOsVersion, $lblc, $lblCpuPer, $aCPU[$i]
$title = "Red Dragon Tool"
$font = "Times New Roman FETT"
$font2 = "Times New Roman FETT KURSIV"
$PublicIP = _GetIP()
$username = @UserName
$osversion = @OSVersion & " , " & @OSType & " , " & @OSArch & " , " & @OSBuild
GUICreate($title, 300, 380)
GUISetState(@SW_SHOW)
GUISetBkColor(0xff0000)
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 0) ; auf den klassischen Style umschalten
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
; GROUP WITH RADIO BUTTONS

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

$g_1 = GUICtrlCreateGroup("Spiele", 170, 25, 80, 150)
GUICtrlSetFont(-1, 8.5, -1, -1, $font)
$g_2 = GUICtrlCreateGroup("Infos", 50, 175, 200, 135)
GUICtrlSetFont(-1, 8.5, -1, -1, $font)
GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
$Spiel_1 = GUICtrlCreateRadio($read_1 , 180, 40, 55)
$spiel_2 = GUICtrlCreateRadio($read_2 , 180, 60, 55)
$spiel_3 = GUICtrlCreateRadio($read_3 , 180, 80, 55)
$spiel_4 = GUICtrlCreateRadio($read_4 , 180, 100, 55)
$spiel_5 = GUICtrlCreateRadio($read_5 , 180, 120, 55)
$spiel_6 = GUICtrlCreateRadio($read_6 , 180, 140, 55)
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
#AutoIt3Wrapper_UseX64=n
Local Const $wbemFlagReturnImmediately = 0x10
Local Const $wbemFlagForwardOnly = 0x20
Global $blink = True
$Label1 = GUICtrlCreateLabel("", 55, 195, 100, 12)
$Label2 = GUICtrlCreateLabel("", 55, 210, 100, 12)
$L_1 = GUICtrlCreateLabel("Red Dragon", 50, 25, 120)
GUICtrlSetFont(-1, 11, -1, -1, $font2)
$L_2 = GUICtrlCreateLabel("Tool", 50, 40, 100, 12)
GUICtrlSetFont(-1, 10, -1, -1, $font2)
$lblc = GUICtrlCreateLabel("© Xilent Version: 1.1.0.0", 90, 345, 200, 12)
_checkbox()
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 7) ; zurück zum Standard-Windowsstyle
#EndRegion
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
$button_1 = GUICtrlCreateButton("OK", 50, 315, 100)
$button_2 = GUICtrlCreateButton("Schließen", 150, 315, 100)
$button_3 = GUICtrlCreateButton($read_13 , 50, 75, 100)
$button_4 = GUICtrlCreateButton($read_14 , 50, 100, 100)
$button_5 = GUICtrlCreateButton($read_15 , 50, 125, 100)
$button_6 = GUICtrlCreateButton($read_16 , 50, 150, 100)
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
$Menu1 = GUICtrlCreateMenu("Ausschalten")
$Menu1_1 = GUICtrlCreateMenuItem("Herrunterfahren", $Menu1)
$Menu1_2 = GUICtrlCreateMenuItem("Ruhezustand", $Menu1)
$Menu1_3 = GUICtrlCreateMenuItem("Neustarten", $Menu1)
$Menu2 = GUICtrlCreateMenu("Win Style")
$Menu2_1 = GUICtrlCreateMenuItem($read_21, $Menu2)
$Menu2_2 = GUICtrlCreateMenuItem($read_22, $Menu2)
$Menu2_3 = GUICtrlCreateMenuItem($read_23, $Menu2)
$Menu3 = GUICtrlCreateMenu("H. Farbe")
$Menu3_1 = GUICtrlCreateMenuItem("Rot", $Menu3)
$Menu3_2 = GUICtrlCreateMenuItem("Blau", $Menu3)
$Menu3_3 = GUICtrlCreateMenuItem("Gelb", $Menu3)
$Menu3_4 = GUICtrlCreateMenuItem("Schwarz", $Menu3)
$Menu3_5 = GUICtrlCreateMenuItem("Grün", $Menu3)
$Menu3_6 = GUICtrlCreateMenuItem("Pink", $Menu3)
$Menu3_7 = GUICtrlCreateMenuItem("Violett", $Menu3)
$Menu3_8 = GUICtrlCreateMenuItem("Braun", $Menu3)
$Menu3_9 = GUICtrlCreateMenuItem("Weiß", $Menu3)
$Menu3_r = GUICtrlCreateMenuItem("Random", $Menu3)
$Menu4 = GUICtrlCreateMenu("S. Farbe")
$Menu4_1 = GUICtrlCreateMenuItem("Rot", $Menu4)
$Menu4_2 = GUICtrlCreateMenuItem("Blau", $Menu4)
$Menu4_3 = GUICtrlCreateMenuItem("Gelb", $Menu4)
$Menu4_4 = GUICtrlCreateMenuItem("Schwarz", $Menu4)
$Menu4_5 = GUICtrlCreateMenuItem("Grün", $Menu4)
$Menu4_6 = GUICtrlCreateMenuItem("Pink", $Menu4)
$Menu4_7 = GUICtrlCreateMenuItem("Violett", $Menu4)
$Menu4_8 = GUICtrlCreateMenuItem("Braun", $Menu4)
$Menu4_9 = GUICtrlCreateMenuItem("Weiß", $Menu4)
$Menu5 = GUICtrlCreateMenu("E")
$Menu5_1 = GUICtrlCreateMenuItem("Einstellungen", $Menu5)
$Menu6 = GUICtrlCreateMenu("?")
$Menu6_1 = GUICtrlCreateMenuItem("Help", $Menu6)
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $button_1
If $Spiel_1 And GUICtrlRead($Spiel_1) = $GUI_CHECKED Then
Run($read_7)
ElseIf $spiel_2 And GUICtrlRead($spiel_2) = $GUI_CHECKED Then
Run($read_8)
ElseIf $spiel_3 And GUICtrlRead($spiel_3) = $GUI_CHECKED Then
Run($read_9)
ElseIf $spiel_4 And GUICtrlRead($spiel_4) = $GUI_CHECKED Then
Run($read_10)
ElseIf $spiel_5 And GUICtrlRead($spiel_5) = $GUI_CHECKED Then
Run($read_11)
ElseIf $spiel_6 And GUICtrlRead($spiel_6) = $GUI_CHECKED Then
Run($read_12)
EndIf
Case $msg = $button_2
Exit
Case $msg = $button_3
Run(@ComSpec & " /c " & $read_17, "", @SW_HIDE)
Case $msg = $button_4
Run(@ComSpec & " /c " & $read_18, "", @SW_HIDE)
Case $msg = $button_5
Run(@ComSpec & " /c " & $read_19, "", @SW_HIDE)
Case $msg = $button_6
Run(@ComSpec & " /c " & $read_20, "", @SW_HIDE)
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $Menu3_1
AdlibUnRegister("_Random_BG")
GUISetBkColor(0xff0000)
Case $msg = $Menu3_2
AdlibUnRegister("_Random_BG")
GUISetBkColor(0x0000FF)
Case $msg = $Menu3_3
AdlibUnRegister("_Random_BG")
GUISetBkColor(0xFFFF00)
Case $msg = $Menu3_4
AdlibUnRegister("_Random_BG")
GUISetBkColor(0x000000)
Case $msg = $Menu3_5
AdlibUnRegister("_Random_BG")
GUISetBkColor(0x00FF00)
Case $msg = $Menu3_6
AdlibUnRegister("_Random_BG")
GUISetBkColor(0xFF00FF)
Case $msg = $Menu3_7
AdlibUnRegister("_Random_BG")
GUISetBkColor(0x800080)
Case $msg = $Menu3_8
AdlibUnRegister("_Random_BG")
GUISetBkColor(0x800000)
Case $msg = $Menu3_9
AdlibUnRegister("_Random_BG")
GUISetBkColor(0xFFFFFF)
Case $msg = $Menu3_r
AdlibRegister("_Random_BG", 1000)
_Random_BG()
Case $msg = $Menu2_1
Run(@ComSpec & " /c " & $read_24 , "", @SW_HIDE)
Case $msg = $Menu2_2
Run(@ComSpec & " /c " & $read_25, "", @SW_HIDE)
Case $msg = $Menu2_3
Run(@ComSpec & " /c " & $read_26, "", @SW_HIDE)
Case $msg = $Menu1_1
Run(@ComSpec & " /c " & 'shutdown /p', "", @SW_HIDE)
Case $msg = $Menu1_2
Run(@ComSpec & " /c " & 'shutdown /h', "", @SW_HIDE)
Case $msg = $Menu1_3
Run(@ComSpec & " /c " & 'shutdown /r', "", @SW_HIDE)
Case $msg = $Menu4_1
SetColor(0xFF0000)
Case $msg = $Menu4_2
SetColor(0x0000FF)
Case $msg = $Menu4_3
SetColor(0xFFFF00)
Case $msg = $Menu4_4
SetColor(0x000000)
Case $msg = $Menu4_5
SetColor(0x00FF00)
Case $msg = $Menu4_6
SetColor(0xFF00FF)
Case $msg = $Menu4_7
SetColor(0x800080)
Case $msg = $Menu4_8
SetColor(0x800000)
Case $msg = $Menu4_9
SetColor(0xFFFFFF)
Case $msg = $Menu6_1
$hSubGui2 = GUICreate("Help", 800, 400, 100, 100)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Switch $msg
Case -3
GUIDelete($hSubGui2)
ExitLoop
EndSwitch
WEnd

Case $msg = $Menu5_1
$hSubGui = GUICreate("Einstellungen", 375, 620, 100, 100)
GUISetBkColor(0xff0000)
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
$ebutton_1 = GUICtrlCreateButton("Schließen",125, 575, 100)
$ebutton_1_2 = GUICtrlCreateButton("Speichen", 25, 575, 100)
$ebutton_2 = GUICtrlCreateButton("...",189, 63,24)
$ebutton_3 = GUICtrlCreateButton("...",189, 93,24)
$ebutton_4= GUICtrlCreateButton("...",189, 123,24)
$ebutton_5 = GUICtrlCreateButton("...",189, 153,24)
$ebutton_6 = GUICtrlCreateButton("...",189, 183,24)
$ebutton_7 = GUICtrlCreateButton("...",189, 213,24)
$ebutton_8 = GUICtrlCreateButton("...",324, 63,24)
$ebutton_9 = GUICtrlCreateButton("...",324, 93,24)
$ebutton_10 = GUICtrlCreateButton("...",324, 123,24)
$ebutton_11 = GUICtrlCreateButton("...",324, 153,24)
$ebutton_12 = GUICtrlCreateButton("...",324, 183,24)
$ebutton_13 = GUICtrlCreateButton("...",324, 213,24)
$ebuttonB_1 = GUICtrlCreateButton("...",189, 273,24)
$ebuttonB_2 = GUICtrlCreateButton("...",189, 303,24)
$ebuttonB_3 = GUICtrlCreateButton("...",189, 333,24)
$ebuttonB_4 = GUICtrlCreateButton("...",189, 363,24)
$ebuttonB_5 = GUICtrlCreateButton("...",324, 273,24)
$ebuttonB_6 = GUICtrlCreateButton("...",324, 303,24)
$ebuttonB_7 = GUICtrlCreateButton("...",324, 333,24)
$ebuttonB_8 = GUICtrlCreateButton("...",324, 363,24)
$ebuttonC_1 = GUICtrlCreateButton("...",189, 403,24)
$ebuttonC_2 = GUICtrlCreateButton("...",189, 433,24)
$ebuttonC_3 = GUICtrlCreateButton("...",189, 463,24)
$ebuttonC_4 = GUICtrlCreateButton("...",324, 403,24)
$ebuttonC_5 = GUICtrlCreateButton("...",324, 433,24)
$ebuttonC_6 = GUICtrlCreateButton("...",324, 463,24)
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
GUICtrlCreateLabel("Einstellungen", 25, 20, 100, 20)
GUICtrlSetFont(-1, 11, -1, -1, $font2)
$spiel1 = GUICtrlCreateLabel("Spiel 1", 35, 65, 50, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$spiel2 = GUICtrlCreateLabel("Spiel 2", 35, 95, 50, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$spiel3 = GUICtrlCreateLabel("Spiel 3", 35, 125, 50, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$spiel4 = GUICtrlCreateLabel("Spiel 4", 35, 155, 50, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$spiel5 = GUICtrlCreateLabel("Spiel 5", 35, 185, 50, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$spiel6 = GUICtrlCreateLabel("Spiel 6", 35, 215, 50, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
GUISetState(@SW_SHOW)
$ButtonE_1 = GUICtrlCreateLabel("Button 1", 35, 275, 75, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$ButtonE_2 = GUICtrlCreateLabel("Button 2", 35, 305, 75, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$ButtonE_3 = GUICtrlCreateLabel("Button 3", 35, 335, 75, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$ButtonE_4 = GUICtrlCreateLabel("Button 4", 35, 365, 75, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$Style_1 = GUICtrlCreateLabel("Style 1", 35, 405, 75, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$Style_2 = GUICtrlCreateLabel("Style 2", 35, 435, 75, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$Style_3 = GUICtrlCreateLabel("Style 3", 35, 465, 75, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
;=======================================================
$ge_1 = GUICtrlCreateGroup("Spiele", 25, 50, 325, 200)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$ge_2 = GUICtrlCreateGroup("Buttons", 25, 250, 325, 140)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$ge_3 = GUICtrlCreateGroup("Infos", 25, 500, 325, 70)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$ge_4 = GUICtrlCreateGroup("Win Style", 25, 390, 325, 100)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
;=======================================================
$Input_1 = GUICtrlCreateInput($read_1 ,85, 65, 100, 20)
$Input_2 = GUICtrlCreateInput($read_2 ,85, 95, 100, 20)
$Input_3 = GUICtrlCreateInput($read_3 ,85, 125, 100, 20)
$Input_4 = GUICtrlCreateInput($read_4 ,85, 155, 100, 20)
$Input_5 = GUICtrlCreateInput($read_5 ,85, 185, 100, 20)
$Input_6 = GUICtrlCreateInput($read_6 ,85, 215, 100, 20)
$Input_1_1 = GUICtrlCreateInput($read_7 ,220, 65, 100, 20)
$Input_2_1 = GUICtrlCreateInput($read_8,220, 95, 100, 20)
$Input_3_1 = GUICtrlCreateInput($read_9 ,220, 125, 100, 20)
$Input_4_1 = GUICtrlCreateInput($read_10 ,220, 155, 100, 20)
$Input_5_1 = GUICtrlCreateInput($read_11 ,220, 185, 100, 20)
$Input_6_1 = GUICtrlCreateInput($read_12 ,220, 215, 100, 20)
$InputB_1 = GUICtrlCreateInput($read_13 ,85, 275, 100, 20)
$InputB_2 = GUICtrlCreateInput($read_14 ,85, 305, 100, 20)
$InputB_3 = GUICtrlCreateInput($read_15 ,85, 335, 100, 20)
$InputB_4 = GUICtrlCreateInput($read_16 ,85, 365, 100, 20)
$InputB_1_1 = GUICtrlCreateInput($read_17 ,220, 275, 100, 20)
$InputB_2_1 = GUICtrlCreateInput($read_18 ,220, 305, 100, 20)
$InputB_3_1 = GUICtrlCreateInput($read_19 ,220, 335, 100, 20)
$InputB_4_1 = GUICtrlCreateInput($read_20 ,220, 365, 100, 20)
$InputC_1 = GUICtrlCreateInput($read_21 ,85, 405, 100, 20)
$InputC_2 = GUICtrlCreateInput($read_22 ,85, 435, 100, 20)
$InputC_3 = GUICtrlCreateInput($read_23 ,85, 465, 100, 20)
$InputC_1_1 = GUICtrlCreateInput($read_24 ,220, 405, 100, 20)
$InputC_2_1 = GUICtrlCreateInput($read_25 ,220, 435, 100, 20)
$InputC_3_1 = GUICtrlCreateInput($read_26 ,220, 465, 100, 20)
$checkbox_1 = GUICtrlCreateCheckbox("Uhrzeit", 35, 520, 50, 20)
$checkbox_2 = GUICtrlCreateCheckbox("Datum", 105, 520, 50, 20)
$checkbox_3 = GUICtrlCreateCheckbox("Benutzer", 175, 520, 70, 20)
$checkbox_4 = GUICtrlCreateCheckbox("Cpu Kerne", 245, 520, 70, 20)
$checkbox_5 = GUICtrlCreateCheckbox("Cpu Auslastungsanzeige", 35, 540, 140, 20)
$checkbox_6 = GUICtrlCreateCheckbox("Ip Adresse", 175, 540, 70, 20)
$checkbox_7 = GUICtrlCreateCheckbox("Sonstiges", 245, 540, 70, 20)
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
If IniRead("config.ini", "Config", "cb1", "Error") = 1 Then GUICtrlSetState($checkbox_1, $GUI_CHECKED)
If IniRead("config.ini", "Config", "cb2", "Error") = 1 Then GUICtrlSetState($checkbox_2, $GUI_CHECKED)
If IniRead("config.ini", "Config", "cb3", "Error") = 1 Then GUICtrlSetState($checkbox_3, $GUI_CHECKED)
If IniRead("config.ini", "Config", "cb4", "Error") = 1 Then GUICtrlSetState($checkbox_4, $GUI_CHECKED)
If IniRead("config.ini", "Config", "cb5", "Error") = 1 Then GUICtrlSetState($checkbox_5, $GUI_CHECKED)
If IniRead("config.ini", "Config", "cb6", "Error") = 1 Then GUICtrlSetState($checkbox_6, $GUI_CHECKED)
If IniRead("config.ini", "Config", "cb7", "Error") = 1 Then GUICtrlSetState($checkbox_7, $GUI_CHECKED)
If $checkbox_1 = $GUI_CHECKED Then IniWrite("config.ini","Config","cb1","1")
If Not $checkbox_1 = $GUI_CHECKED Then IniWrite("config.ini","Config","cb1","0")
While 1
$msg = GUIGetMsg()
Select
Case $msg = $ebutton_1
GUIDelete($hSubGui)
ExitLoop
Case $msg = $ebutton_1_2
If BitAND(GuiCtrlRead($Checkbox_1), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb1", "1")
If Not BitAND(GuiCtrlRead($Checkbox_1), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb1", "0")
If BitAND(GuiCtrlRead($Checkbox_2), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb2", "1")
If Not BitAND(GuiCtrlRead($Checkbox_2), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb2", "0")
If BitAND(GuiCtrlRead($Checkbox_3), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb3", "1")
If Not BitAND(GuiCtrlRead($Checkbox_3), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb3", "0")
If BitAND(GuiCtrlRead($Checkbox_4), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb4", "1")
If Not BitAND(GuiCtrlRead($Checkbox_4), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb4", "0")
If BitAND(GuiCtrlRead($Checkbox_5), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb5", "1")
If Not BitAND(GuiCtrlRead($Checkbox_5), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb5", "0")
If BitAND(GuiCtrlRead($Checkbox_6), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb6", "1")
If Not BitAND(GuiCtrlRead($Checkbox_6), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb6", "0")
If BitAND(GuiCtrlRead($Checkbox_7), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb7", "1")
If Not BitAND(GuiCtrlRead($Checkbox_7), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb7", "0")
GUIDelete($hSubGui)
ExitLoop
Case $msg = $ebutton_2
$Box_1 = InputBox("Name", "Bitte gebe hier den Spielenamen ein", "Spiel")
IniWrite("config.ini", "Config", "Spiel1", $Box_1)
Case $msg = $ebutton_3
$Box_2 = InputBox("Name", "Bitte gebe hier den Spielenamen ein", "Spiel")
IniWrite("config.ini", "Config", "Spiel2", $Box_2)
Case $msg = $ebutton_4
$Box_3 = InputBox("Name", "Bitte gebe hier den Spielenamen ein", "Spiel")
IniWrite("config.ini", "Config", "Spiel3", $Box_3)
Case $msg = $ebutton_5
$Box_4 = InputBox("Name", "Bitte gebe hier den Spielenamen ein", "Spiel")
IniWrite("config.ini", "Config", "Spiel4", $Box_4)
Case $msg = $ebutton_6
$Box_5 = InputBox("Name", "Bitte gebe hier den Spielenamen ein", "Spiel")
IniWrite("config.ini", "Config", "Spiel5", $Box_5)
Case $msg = $ebutton_7
$Box_6 = InputBox("Name", "Bitte gebe hier den Spielenamen ein", "Spiel")
IniWrite("config.ini", "Config", "Spiel6", $Box_6)
Case $msg = $ebutton_8
$Box_7 = InputBox("Pfad", "Bitte gebe hier den Pfad der .exe ein", "Spiel")
IniWrite("config.ini", "Config", "Pfad1", $Box_7)
Case $msg = $ebutton_9
$Box_8 = InputBox("Pfad", "Bitte gebe hier den Pfad der .exe ein", "Spiel")
IniWrite("config.ini", "Config", "Pfad2", $Box_8)
Case $msg = $ebutton_10
$Box_9 = InputBox("Pfad", "Bitte gebe hier den Pfad der .exe ein", "Spiel")
IniWrite("config.ini", "Config", "Pfad3", $Box_9)
Case $msg = $ebutton_11
$Box_10 = InputBox("Pfad", "Bitte gebe hier den Pfad der .exe ein", "Spiel")
IniWrite("config.ini", "Config", "Pfad4", $Box_10)
Case $msg = $ebutton_12
$Box_11 = InputBox("Pfad", "Bitte gebe hier den Pfad der .exe ein", "Spiel")
IniWrite("config.ini", "Config", "Pfad5", $Box_11)
Case $msg = $ebutton_13
$Box_12 = InputBox("Pfad", "Bitte gebe hier den Pfad der .exe ein", "Spiel")
IniWrite("config.ini", "Config", "Pfad6", $Box_12)
Case $msg = $ebuttonB_1
$Box_13 = InputBox("Name", "Bitte gebe hier den Namen des Buttons ein", "Button")
IniWrite("config.ini", "Config", "Button1", $Box_13)
Case $msg = $ebuttonB_2
$Box_14 = InputBox("Name", "Bitte gebe hier den Namen des Buttons ein", "Button")
IniWrite("config.ini", "Config", "Button2", $Box_14)
Case $msg = $ebuttonB_3
$Box_15 = InputBox("Name", "Bitte gebe hier den Namen des Buttons ein", "Button")
IniWrite("config.ini", "Config", "Button3", $Box_15)
Case $msg = $ebuttonB_4
$Box_16 = InputBox("Name", "Bitte gebe hier den Namen des Buttons ein", "Button")
IniWrite("config.ini", "Config", "Button4", $Box_16)
Case $msg = $ebuttonB_5
$Box_17 = InputBox("Name", "Bitte gebe hier den Befehl des Buttons ein", "Button")
IniWrite("config.ini", "Config", "Button5", $Box_17)
Case $msg = $ebuttonB_6
$Box_18 = InputBox("Name", "Bitte gebe hier den Befehl des Buttons ein", "Button")
IniWrite("config.ini", "Config", "Button6", $Box_18)
Case $msg = $ebuttonB_7
$Box_19 = InputBox("Name", "Bitte gebe hier den Befehl des Buttons ein", "Button")
IniWrite("config.ini", "Config", "Button7", $Box_19)
Case $msg = $ebuttonB_8
$Box_20 = InputBox("Name", "Bitte gebe hier den Befehl des Buttons ein", "Button")
IniWrite("config.ini", "Config", "Button8", $Box_20)
Case $msg = $ebuttonC_1
$Box_21 = InputBox("Name", "Bitte gebe hier den Namen des Styles ein", "Style")
IniWrite("config.ini", "Config", "Button9", $Box_21)
Case $msg = $ebuttonC_2
$Box_22 = InputBox("Name", "Bitte gebe hier den Namen des Styles ein", "Style")
IniWrite("config.ini", "Config", "Button10", $Box_22)
Case $msg = $ebuttonC_3
$Box_23 = InputBox("Name", "Bitte gebe hier den Namen des Styles ein", "Style")
IniWrite("config.ini", "Config", "Button11", $Box_23)
Case $msg = $ebuttonC_4
$Box_24 = InputBox("Name", "Bitte gebe hier den Pfad des Styles ein", "Style")
IniWrite("config.ini", "Config", "Button12", $Box_24)
Case $msg = $ebuttonC_5
$Box_25 = InputBox("Name", "Bitte gebe hier den Pfad des Stylesein", "Style")
IniWrite("config.ini", "Config", "Button13", $Box_25)
Case $msg = $ebuttonC_6
$Box_26 = InputBox("Name", "Bitte gebe hier den Pfad des Styles ein", "Style")
IniWrite("config.ini", "Config", "Button14", $Box_26)
EndSelect
Switch $msg
Case -3
GUIDelete($hSubGui)
ExitLoop
EndSwitch
WEnd
EndSelect
WEnd
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
While 1
Sleep(500)
WEnd
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
#region ; nach der while-Schleife
Func CheckCpu()
$objRefresher.Refresh
If IsObj($objRefreshableItem) Then
$i = 0
For $objItem In $objRefreshableItem.ObjectSet
$aCPU[$i] = $objItem.PercentProcessorTime
$i += 1
Next
EndIf
ConsoleWrite("============" & @CRLF)
For $i = 0 To UBound($aCPU) - 2
ConsoleWrite("Core " & $i + 1 & ": " & $aCPU[$i] & @CRLF)
Next
ConsoleWrite("Gesamt: " & $aCPU[UBound($aCPU) - 1] & @CRLF)
; Anstelle von ConsoleWrie mit GuiCtrlSetData deinen Labels den Wert zuweisen
EndFunc ;==>CheckCpu

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

Func OnAutoItExit()
ConsoleWrite("Werde ich wirklich aufgerufen?????" & @CRLF)
$objRefresher.DeleteAll
EndFunc ;==>OnAutoItExit
#endregion
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
Func SetColor($Color)
GUICtrlSetColor($L_1, $Color)
GUICtrlSetColor($L_2, $Color)
GUICtrlSetColor($Label1, $Color)
GUICtrlSetColor($Label2, $Color)
GUICtrlSetColor($lblCpuPer, $Color)
GUICtrlSetColor($g_1, $Color)
GUICtrlSetColor($g_2, $Color)
GUICtrlSetColor($Spiel_1, $Color)
GUICtrlSetColor($spiel_2, $Color)
GUICtrlSetColor($spiel_3, $Color)
GUICtrlSetColor($spiel_4, $Color)
GUICtrlSetColor($spiel_5, $Color)
GUICtrlSetColor($spiel_6, $Color)
GUICtrlSetColor($lblc, $Color)
GUICtrlSetColor($lblCoreCont, $Color)
GUICtrlSetColor($lblUser, $Color)
GUICtrlSetColor($lblPublicIp, $Color)
GUICtrlSetColor($lblOsVersion, $Color)
EndFunc ;==>SetColor
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
Func _date()
If $blink Then
GUICtrlSetData($Label2, @MDAY & '.' & @MON & '.' & @YEAR)
$blink = Not $blink
Else
GUICtrlSetData($Label2, @MDAY & '.' & @MON & '.' & @YEAR)
$blink = Not $blink
EndIf
EndFunc ;==>_date
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
Func _GetCoreCount(Const $Computer = "127.0.0.1")
$WMIConnect = ObjGet('winmgmts:{impersonationLevel=impersonate}!\\' & $Computer & '\root\CIMV2')
If Not IsObj($WMIConnect) Then Return SetError(-1, @error, 0)
$ObjList = $WMIConnect.ExecQuery('SELECT Name FROM Win32_PerfRawData_PerfOS_Processor', 'WQL', $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
If Not IsObj($ObjList) Then Return SetError(-2, @error, 0)
$iReturn = 0
For $ObjItem In $ObjList
If StringInStr($ObjItem.Name, "_Total") = 0 Then $iReturn += 1
Next
Return $iReturn
EndFunc ;==>_GetCoreCount
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
Func _Random_BG()
GUISetBkColor(Random(100, 0xFFFFFF, 1))
EndFunc ;==>_Random_BG
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
Func CpuAuslastung()
Global $wbemFlags = $wbemFlagReturnImmediately + $wbemFlagForwardOnly
Global $strComputer = @ComputerName
Global $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
Global $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Processor", "WQL", $wbemFlags)
$n = 0
$c = 0
$sMsg = ""
For $ObjItem In $colItems
$sMsg &= "cpu%" & $ObjItem.LoadPercentage
$n += 1
Next
$CpuAuslastung = StringSplit($sMsg, "cpu%", 1)
For $n = "0" To $CpuAuslastung[0]
$c += $CpuAuslastung[$n]
Next
Return (Round($c / $CpuAuslastung[0], 0) & "%")
EndFunc ;==>CpuAuslastung
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
Func _ShowCpuPer()
GUICtrlSetData($lblCpuPer, "CPU Auslastung: " & CpuAuslastung())
EndFunc ;==>_ShowCpuPer
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
Func _time()
If $blink Then
GUICtrlSetData($Label1, @HOUR & ':' & @MIN & ':' & @SEC)
$blink = Not $blink
Else
GUICtrlSetData($Label1, @HOUR & ':' & @MIN & ':' & @SEC)
$blink = Not $blink
EndIf
EndFunc ;==>_time
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
Func _checkbox()
$cbi1 = IniRead("config.ini", "Config", "cb1", "Error")
If $cbi1 = 1 Then AdlibRegister("_time", 500)
If $cbi1 = 1 Then _time()
$cbi2 = IniRead("config.ini", "Config", "cb2", "Error")
If $cbi2 = 1 Then AdlibRegister("_date", 500)
If $cbi2 = 1 Then _date()
$cbi3 = IniRead("config.ini", "Config", "cb3", "Error")
If $cbi3 = 1 Then $lblUser = GUICtrlCreateLabel($username, 55, 230, 100, 12)
$cbi4 = IniRead("config.ini", "Config", "cb4", "Error")
If $cbi4 = 1 Then $lblCoreCont = GUICtrlCreateLabel("CPU Kerne: " & _GetCoreCount(), 55, 250, 175, 12)
$cbi5 = IniRead("config.ini", "Config", "cb5", "Error")
If $cbi5 = 1 Then $lblCpuPer = GUICtrlCreateLabel("CPU Auslastung: " & CpuAuslastung(), 55, 265, 100, 12)
If $cbi5 = 1 Then AdlibRegister("_ShowCpuPer", 2000)
$cbi6 = IniRead("config.ini", "Config", "cb6", "Error")
If $cbi6 = 1 Then $lblPublicIp = GUICtrlCreateLabel("IP: " & $PublicIP, 55, 280, 100, 12)
$cbi7 = IniRead("config.ini", "Config", "cb7", "Error")
If $cbi7 = 1 Then $lblOsVersion = GUICtrlCreateLabel($osversion, 55, 295, 175, 12)
EndFunc
;0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
Func Terminate()
Exit
EndFunc ;==>Terminate

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

#cs
Autor: ... aka Xilent
Script: ... aka Xilent
Version: 1.0.0.0

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

Copyright (c) 2010 by Sascha ... aka Xilent
#ce

[/autoit]