Hi,
Ich habe zwar schon eine CPU Auslastanzeige in meinem Script doch habe ich eine bessere gefunden, allerdings schaffe ich es nicht sie in den script zu integrieren.
Mein ganzer Script
Spoiler anzeigen
;=============================================================================================================================================================================================
;= 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
$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
Copyright (c) 2010 by Sascha ... aka Xilent
#ce
Und die neue Anzeige
Spoiler anzeigen
$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]
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
Func OnAutoItExit()
$objRefresher.DeleteAll
EndFunc
Ich hoffe ihr könnt mir helfen.
MfG
Sascha