Hi,
Ich möchte nicht für jede Frage/Problem 1 Thema auf machen also liebeer so .
Erstmal mein Code
;----------------------------------
#region
#AutoIt3Wrapper_UseX64=n
#endregion
;----------------------------------
#include <GuiConstants.au3>
#include <GUIConstantsEx.au3>
#include <INet.au3>
#include <Date.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
; GUI
$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)
GUISetBkColor(0xff0000)
;-----------------------
Local Const $wbemFlagReturnImmediately = 0x10
Local Const $wbemFlagForwardOnly = 0x20
;-----------------------
Global $blink = True
$Label1 = GUICtrlCreateLabel("", 55, 195, 100, 12)
$Label2 = GUICtrlCreateLabel("", 55, 210, 100, 12)
;---------------------------------------Datum
_date()
GUISetState(@SW_SHOW)
[/autoit][autoit][/autoit][autoit]AdlibRegister("_date", 500)
;---------------------------------------Uhr
_time()
GUISetState(@SW_SHOW)
[/autoit][autoit][/autoit][autoit]AdlibRegister("_time", 500)
;---------------------------------------
; GROUP WITH RADIO BUTTONS
GuiCtrlCreateGroup("Spiele", 170, 25, 80, 150)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetFont (-1,8.5, -1, -1, $font)
GuiCtrlCreateGroup("Infos", 50, 175, 200, 120)
GUICtrlSetFont (-1,8.5, -1, -1, $font)
;---------------------------------------------
$Spiel_1 = GuiCtrlCreateRadio("Cabal", 180, 40, 55)
;---------------------------------------------
$spiel_2 = GuiCtrlCreateRadio("CSS", 180, 60, 55)
;---------------------------------------------
$spiel_3 = GuiCtrlCreateRadio("C.A.", 180, 80, 55)
;---------------------------------------------
$spiel_4 = GuiCtrlCreateRadio("Shift", 180, 100, 55)
;---------------------------------------------
$spiel_5 = GuiCtrlCreateRadio("Alien S.", 180, 120, 55)
;---------------------------------------------
$spiel_6 = GuiCtrlCreateRadio("Pinball", 180, 140, 55)
;---------------------------------------------
GUICtrlCreateGroup ("",-99,-99,1,1) ;close group
; BUTTON
$button_1 = GuiCtrlCreateButton("OK", 50, 300, 100)
$button_2 = GuiCtrlCreateButton("Schließen", 150, 300, 100)
$button_3 = GuiCtrlCreateButton("C:\ (Windows)", 50, 75, 100)
$button_4 = GuiCtrlCreateButton("D:\ (Filme)", 50, 100, 100)
$button_5 = GuiCtrlCreateButton("E:\ (Musik)", 50, 125, 100)
$button_6 = GuiCtrlCreateButton("F:\ (Daten)", 50, 150, 100)
;Menü
$Menu1 = GUICtrlCreateMenu ("Hintergrundfarbe")
$Menu1_1 = GUICtrlCreateMenuitem ("Rot", $Menu1)
$Menu1_2 = GUICtrlCreateMenuitem ("Blau", $Menu1)
$Menu1_3 = GUICtrlCreateMenuitem ("Gelb", $Menu1)
$Menu1_4 = GUICtrlCreateMenuitem ("Schwarz", $Menu1)
$Menu1_5 = GUICtrlCreateMenuitem ("Grün", $Menu1)
$Menu1_6 = GUICtrlCreateMenuitem ("Pink", $Menu1)
$Menu1_7 = GUICtrlCreateMenuitem ("Violett", $Menu1)
$Menu1_8 = GUICtrlCreateMenuitem ("Braun", $Menu1)
$Menu1_9 = GUICtrlCreateMenuitem ("Weiß", $Menu1)
$Menu1_r = GUICtrlCreateMenuitem ("Random", $Menu1)
;Label
GuiCtrlCreateLabel("RED DRAGON", 50, 25,120)
GUICtrlSetFont (-1,11, -1, -1, $font2)
GuiCtrlCreateLabel("Tool", 50, 40,100,12)
GUICtrlSetFont (-1,10, -1, -1, $font2)
GuiCtrlCreateLabel("IP: " & $PublicIP, 55, 265,100,12)
GuiCtrlCreateLabel("", 55, 221,100,5)
GuiCtrlCreateLabel($username, 55, 230,100,12)
GuiCtrlCreateLabel($osversion, 55, 280,175,12)
GuiCtrlCreateLabel("CPU Kerne: " & _GetCoreCount(), 55, 250,175,12)
; (c)
GuiCtrlCreateLabel("© Xilent", 120, 350,100,12)
; GUI MESSAGE LOOP
GuiSetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $button_1
If $Spiel_1 And GUICtrlRead($Spiel_1) = $GUI_CHECKED Then
Run("C:\Program Files\Games-Masters.com\CABAL Online (EU)\cabal.exe")
ElseIf $Spiel_2 And GUICtrlRead($Spiel_2) = $GUI_CHECKED Then
Run("")
ElseIf $Spiel_3 And GUICtrlRead($Spiel_3) = $GUI_CHECKED Then
Run("C:\Nexon\Combat Arms EU\CombatArms.exe")
ElseIf $Spiel_4 And GUICtrlRead($Spiel_4) = $GUI_CHECKED Then
Run("C:\Program Files\Electronic Arts\Need for Speed SHIFT\shift.exe")
ElseIf $Spiel_5 And GUICtrlRead($Spiel_5) = $GUI_CHECKED Then
Run("C:\Users\Sascha\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Steam")
ElseIf $Spiel_6 And GUICtrlRead($Spiel_6) = $GUI_CHECKED Then
Run("C:\Program Files\Microsoft Games\Pinball\PINBALL.exe")
EndIf
Case $msg = $button_2
Exit
Case $msg = $button_3
Run(@ComSpec & " /c " & 'start C:\', "", @SW_HIDE)
Case $msg = $button_4
Run(@ComSpec & " /c " & 'start D:\', "", @SW_HIDE)
Case $msg = $button_5
Run(@ComSpec & " /c " & 'start E:\', "", @SW_HIDE)
Case $msg = $button_6
Run(@ComSpec & " /c " & 'start F:\', "", @SW_HIDE)
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $Menu1_1
GUISetBkColor(0xff0000)
Case $msg = $Menu1_2
GUISetBkColor(0x0000FF)
Case $msg = $Menu1_3
GUISetBkColor(0xFFFF00)
Case $msg = $Menu1_4
GUISetBkColor(0x000000)
Case $msg = $Menu1_5
GUISetBkColor(0x00FF00)
Case $msg = $Menu1_6
GUISetBkColor(0xFF00FF)
Case $msg = $Menu1_7
GUISetBkColor(0x800080)
Case $msg = $Menu1_8
GUISetBkColor(0x800000)
Case $msg = $Menu1_9
GUISetBkColor(0xFFFFFF)
Case $msg = $Menu1_r
For $i=1 to 100000000000000
GUISetBkColor(0xff0000)
Sleep(1000);1 second
GUISetBkColor(0x0000FF)
Sleep(1000);1 second
GUISetBkColor(0xFFFF00)
Sleep(1000);1 second
GUISetBkColor(0x000000)
Sleep(1000);1 second
GUISetBkColor(0x00FF00)
Sleep(1000);1 second
GUISetBkColor(0xFF00FF)
Sleep(1000);1 second
GUISetBkColor(0x800080)
Sleep(1000);1 second
GUISetBkColor(0x800000)
Sleep(1000);1 second
Next
EndSelect
WEnd
;----------------------------------------------------------Uhr
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
;---------------------------------------------------------------Datum
Func _date()
If $blink Then
GUICtrlSetData($Label2, @MDAY & '.' & @MON & '.' & @YEAR)
$blink = Not $blink
Else
GUICtrlSetData($Label2, @MDAY & '.' & @MON & '.' & @YEAR)
$blink = Not $blink
EndIf
EndFunc ;==>_time
;-------------------------------------------------------------------
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
;---------------------------------
1.Problem: Per Menu kann man die Hintergrundfarbe des Programmes ändern. Es gibt eine Funktion für die Farbe die sich Random nennt. Bei der Wechselt die Farbe jede Sekunde. Funktionieren tut das soweit (Menu1_r...). Nur ist das Problem das kein Button wärend des Random geht. Hat jemand ne idee wie man das richtig machen kann .
2.Frage: Ich bin schon seit 2 Tagen auf der suche nach einer Anzeige, wie ausgelastet die CPU und der Ram ist doch habe ich noch nichts brauchbares gefunden .
Ich hoffe dass ich jetzt nicht zu viel frage (keine ahnung wie ich das anders ausdrücken soll^^ ) doch ich komme ienfach nicht weiter .
MfG
Sascha