Input übernehmen

Xilent

Hi,
Ich möchte gerne in einem neuen Fenster die Einstellungen für mein Programm machen. Dort soll man in ein Input einen Text schreiben können der dann im Eigentlichen Fenster wo jetzt Cabal, CSS... steht eingefügt wird. Also anstadt Cabal steht da nun das was in dem Input steht.
Hier der Script

Spoiler anzeigen

[autoit]

#include <GuiConstants.au3>
#include <GUIConstantsEx.au3>
#include <INet.au3>
#include <Date.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

;----------------------------------
#Region
; 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)
Global $lblCpuPer
;-----------------------
; GROUP WITH RADIO BUTTONS
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 0) ; auf den klassischen Style umschalten
$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)
;---------------------------------------------
$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
#AutoIt3Wrapper_UseX64=n
;-----------------------
Local Const $wbemFlagReturnImmediately = 0x10
Local Const $wbemFlagForwardOnly = 0x20
;-----------------------

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

Global $blink = True
$Label1 = GUICtrlCreateLabel("", 55, 195, 100, 12)
$Label2 = GUICtrlCreateLabel("", 55, 210, 100, 12)
;---------------------------------------Datum
_date()

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

GUISetState(@SW_SHOW)

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

AdlibRegister("_date", 500)
;---------------------------------------Uhr
_time()

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

;GUISetState(@SW_SHOW)

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

AdlibRegister("_time", 500)
;-------------------------------------
;Label
$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)
$L_3 = GUICtrlCreateLabel("IP: " & $PublicIP, 55, 280, 100, 12)
$L_4 = GUICtrlCreateLabel($username, 55, 230, 100, 12)
$L_5 = GUICtrlCreateLabel($osversion, 55, 295, 175, 12)
$L_6 = GUICtrlCreateLabel("CPU Kerne: " & _GetCoreCount(), 55, 250, 175, 12)
$lblCpuPer = GUICtrlCreateLabel("CPU Auslastng: " & CpuAuslastung(), 55, 265, 100, 12)
AdlibRegister("_ShowCpuPer", 2500)

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

; (c)
$c = GUICtrlCreateLabel("© Xilent", 120, 345, 100, 12)
;-----------------------------------------------------------------------------------------------------------------
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 7) ; zurück zum Standard-Windowsstyle
#EndRegion

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

; BUTTON
$button_1 = GUICtrlCreateButton("OK", 50, 315, 100)
$button_2 = GUICtrlCreateButton("Schließen", 150, 315, 100)

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

$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("Ausschalten")
$Menu1_1 = GUICtrlCreateMenuItem("Herrunterfahren", $Menu1)
$Menu1_2 = GUICtrlCreateMenuItem("Ruhezustand", $Menu1)
$Menu1_3 = GUICtrlCreateMenuItem("Neustarten", $Menu1)
;---------
$Menu2 = GUICtrlCreateMenu("Win7 Style")
$Menu2_1 = GUICtrlCreateMenuItem("Aero", $Menu2)
$Menu2_2 = GUICtrlCreateMenuItem("Glow Air Final", $Menu2)
$Menu2_3 = GUICtrlCreateMenuItem("Windows 7 Black Transparent", $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)

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

; 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("C:\Program Files\Counter-Strike Source\hl2.exe -game cstrike -nojoy -noipx -console")
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 = $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 " & 'start C:\Windows\Resources\Themes\Aero.theme', "", @SW_HIDE)
Case $msg = $Menu2_2
Run(@ComSpec & " /c " & 'start C:\Windows\Resources\Themes\Glow_Air_Final.theme', "", @SW_HIDE)
Case $msg = $Menu2_3
Run(@ComSpec & " /c " & 'start C:\Windows\Resources\Themes\W7BT.theme', "", @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 = $Menu5_1
$hSubGui = GUICreate("Einstellungen", 400, 300, 100, 100)
GUISetBkColor(0xff0000)
GUICtrlCreateLabel("Einstellungen", 25, 20, 100, 100)
GUICtrlSetFont(-1, 11, -1, -1, $font2)
GUISetState(@SW_SHOW)
$ge_1 = GUICtrlCreateGroup("Spiele", 25, 50, 200, 225)
$input_1 = GUICtrlCreateInput("", 35, 65, 85, 50)
While 1
$msg = GUIGetMsg()
Switch $msg
Case -3
GUIDelete($hSubGui)
ExitLoop
EndSwitch
WEnd
EndSelect
WEnd

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

Func SetColor($Color)
GUICtrlSetColor($L_1, $Color)
GUICtrlSetColor($L_2, $Color)
GUICtrlSetColor($L_3, $Color)
GUICtrlSetColor($L_4, $Color)
GUICtrlSetColor($L_5, $Color)
GUICtrlSetColor($L_6, $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($c, $Color)
EndFunc ;==>SetColor

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

;----------------------------------------------------------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 ;==>_date
;-------------------------------------------------------------------
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
;---------------------------------
Func _Random_BG()
GUISetBkColor(Random(100, 0xFFFFFF, 1))
EndFunc ;==>_Random_BG
;---------------------------------
Func CpuAuslastung()
;Global $wbemFlagReturnImmediately = 0x10
;Global $wbemFlagForwardOnly = 0x20
Global $wbemFlags = $wbemFlagReturnImmediately + $wbemFlagForwardOnly
Global $strComputer = @ComputerName

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

Global $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
Global $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Processor", "WQL", $wbemFlags)

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

$n = 0
$c = 0
$sMsg = ""
For $ObjItem In $colItems
$sMsg &= "cpu%" & $ObjItem.LoadPercentage
$n += 1
Next

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

$CpuAuslastung = StringSplit($sMsg, "cpu%", 1)

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

For $n = "0" To $CpuAuslastung[0]
$c += $CpuAuslastung[$n]
Next

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

Return (Round($c / $CpuAuslastung[0], 0) & "%")
EndFunc ;==>CpuAuslastung
;---
Func _ShowCpuPer()
GUICtrlSetData($lblCpuPer, "CPU Auslastung: " & CpuAuslastung())
EndFunc ;==>_ShowCpuPer

[/autoit]

Leider weiß ich nicht wie ich das machen soll und vor allem soll er die Einstellungen speichern! Ich hoffe ihr könnt mir helfen .

MfG
Sascha

**Der_Doc**

Hi,
ich verstehe dein Skript leider net ganz, aber ich würde Sachen die gespeichert werden müssen immer in eine Ini-Datei schreiben.
Das kannst du von jedem Fenster aus machen. Einfach das Fenster öffnen und dann den Inhalt deine Input einfach in die INI-Datei schreiben.

MfG
Der_Doc

Xilent

Das Peogramm ist nur son kleines Tool was ihr nicht verstehen müsst
Wie man das allerdings mit der ini machen soll weiß ich nicht

**Der_Doc**

Schau mal in der Hilfe unter

[autoit]

IniDelete ;Löscht einen Wert aus einer standardkonformen .ini-Datei.
IniRead ;Liest einen Wert aus einer standardkonformen .ini-Datei.
IniReadSection ;Liest alle Schlüssel-/Wert-Paare aus einer Sektion einer standardkonformen .ini-Datei.
IniReadSectionNames ;Liest alle Sektionen aus einer standardkonformen .ini-Datei.
IniRenameSection ;Benennt eine Sektion in einer standardkonformen .ini-Datei um.
IniWrite ;Schreibt einen Wert in eine standardkonforme .ini-Datei.
IniWriteSection ;Schreibt eine Sektion in eine standardkonforme .ini-Datei.

[/autoit]

Da sind genug Beispiele dabei die bestimmt weiterhelfen.

MfG
Der_Doc

Xilent

Ok danke werde damit mal rumprobieren
Aber das kann ich erst wenn ich weiß wie man es macht das er das Input übernimmt

Ineluki

[autoit]

GUICtrlRead
ControlSetText

[/autoit]

**Der_Doc**

Wie denn das Input übernimmt?
Schreibe das Inputfeld einfach in eine Variable.

Spoiler anzeigen

[autoit]

$value = InputBox("Test", "CSS.")
msgbox (0,"Ausgabe",$value)

[/autoit]

MfG
Der_Doc

Xilent

Damit man besser erkennt was ich meine erkläre ich es an einem Bild
Wenn man etwas in das GELBE Input Fenster Schreibt soll es im Grünen Erscheinen. Deswegen muss es auch gespeichert werden
[Blockierte Grafik: http://www.abload.de/img/unbenanntvg7p.jpg]

PokerFace

[autoit]

$Input = GUICtrlRead($Input1)
ControlSetText = ($Radio1, $Input1)

[/autoit]

Sowas?

Xilent

Und wie fügt man das da ein (sry checke das noch nicht )?

PokerFace

Kein Problem!
Ganz einfach:

[autoit]

$NeuesSpiel = GUICtrlRead($NameVonInput) ;Das weiße Feld, wo du den Spieletitel einträgst.
; Nun hast du also ausgelesen, wie das neue Spiel heißt.
ControlSetText ($RadioButton, $NeuesSpiel) ; Auf den RadioButton (diese anklickbaren Punkte), setzt du nun den Namen des Spiels, dass du eben ausgelesen hast

[/autoit]

Ich hoffe das ist verständlich, wenn nicht, melden !

Xilent

Es wird schon viel verständlicher aber ganz bekomme ich es immer noch nicht hin

Spoiler anzeigen

[autoit]

#include <GuiConstants.au3>
#include <GUIConstantsEx.au3>
#include <INet.au3>
#include <Date.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

;----------------------------------
#Region
; 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)
Global $lblCpuPer
;-----------------------
; GROUP WITH RADIO BUTTONS
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 0) ; auf den klassischen Style umschalten
$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)
;---------------------------------------------
$Spiel_1 = GUICtrlCreateRadio("", 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
#AutoIt3Wrapper_UseX64=n
;-----------------------
Local Const $wbemFlagReturnImmediately = 0x10
Local Const $wbemFlagForwardOnly = 0x20
;-----------------------

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

Global $blink = True
$Label1 = GUICtrlCreateLabel("", 55, 195, 100, 12)
$Label2 = GUICtrlCreateLabel("", 55, 210, 100, 12)
;---------------------------------------Datum
_date()

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

GUISetState(@SW_SHOW)

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

AdlibRegister("_date", 500)
;---------------------------------------Uhr
_time()

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

;GUISetState(@SW_SHOW)

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

AdlibRegister("_time", 500)
;-------------------------------------
;Label
$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)
$L_3 = GUICtrlCreateLabel("IP: " & $PublicIP, 55, 280, 100, 12)
$L_4 = GUICtrlCreateLabel($username, 55, 230, 100, 12)
$L_5 = GUICtrlCreateLabel($osversion, 55, 295, 175, 12)
$L_6 = GUICtrlCreateLabel("CPU Kerne: " & _GetCoreCount(), 55, 250, 175, 12)
$lblCpuPer = GUICtrlCreateLabel("CPU Auslastng: " & CpuAuslastung(), 55, 265, 100, 12)
AdlibRegister("_ShowCpuPer", 2500)

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

; (c)
$c = GUICtrlCreateLabel("© Xilent", 120, 345, 100, 12)
;-----------------------------------------------------------------------------------------------------------------
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 7) ; zurück zum Standard-Windowsstyle
#EndRegion

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

;===============================
$R_1 = GUICtrlRead($Input_1)
ControlSetText ($Spiel_1, $R_1)
;===============================

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

; BUTTON
$button_1 = GUICtrlCreateButton("OK", 50, 315, 100)
$button_2 = GUICtrlCreateButton("Schließen", 150, 315, 100)

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

$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("Ausschalten")
$Menu1_1 = GUICtrlCreateMenuItem("Herrunterfahren", $Menu1)
$Menu1_2 = GUICtrlCreateMenuItem("Ruhezustand", $Menu1)
$Menu1_3 = GUICtrlCreateMenuItem("Neustarten", $Menu1)
;---------
$Menu2 = GUICtrlCreateMenu("Win7 Style")
$Menu2_1 = GUICtrlCreateMenuItem("Aero", $Menu2)
$Menu2_2 = GUICtrlCreateMenuItem("Glow Air Final", $Menu2)
$Menu2_3 = GUICtrlCreateMenuItem("Windows 7 Black Transparent", $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)

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

; 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("C:\Program Files\Counter-Strike Source\hl2.exe -game cstrike -nojoy -noipx -console")
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 = $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 " & 'start C:\Windows\Resources\Themes\Aero.theme', "", @SW_HIDE)
Case $msg = $Menu2_2
Run(@ComSpec & " /c " & 'start C:\Windows\Resources\Themes\Glow_Air_Final.theme', "", @SW_HIDE)
Case $msg = $Menu2_3
Run(@ComSpec & " /c " & 'start C:\Windows\Resources\Themes\W7BT.theme', "", @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 = $Menu5_1
$hSubGui = GUICreate("Einstellungen", 400, 300, 100, 100)
GUISetBkColor(0xff0000)
GUICtrlCreateLabel("Einstellungen", 25, 20, 100, 100)
GUICtrlSetFont(-1, 11, -1, -1, $font2)
GUISetState(@SW_SHOW)
$ge_1 = GUICtrlCreateGroup("Spiele", 25, 50, 200, 225)
$Input_1 = GUICtrlCreateInput("", 35, 65, 85, 50)
While 1
$msg = GUIGetMsg()
Switch $msg
Case -3
GUIDelete($hSubGui)
ExitLoop
EndSwitch
WEnd
EndSelect
WEnd

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

Func SetColor($Color)
GUICtrlSetColor($L_1, $Color)
GUICtrlSetColor($L_2, $Color)
GUICtrlSetColor($L_3, $Color)
GUICtrlSetColor($L_4, $Color)
GUICtrlSetColor($L_5, $Color)
GUICtrlSetColor($L_6, $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($c, $Color)
EndFunc ;==>SetColor

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

;----------------------------------------------------------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 ;==>_date
;-------------------------------------------------------------------
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
;---------------------------------
Func _Random_BG()
GUISetBkColor(Random(100, 0xFFFFFF, 1))
EndFunc ;==>_Random_BG
;---------------------------------
Func CpuAuslastung()
;Global $wbemFlagReturnImmediately = 0x10
;Global $wbemFlagForwardOnly = 0x20
Global $wbemFlags = $wbemFlagReturnImmediately + $wbemFlagForwardOnly
Global $strComputer = @ComputerName

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

Global $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
Global $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Processor", "WQL", $wbemFlags)

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

$n = 0
$c = 0
$sMsg = ""
For $ObjItem In $colItems
$sMsg &= "cpu%" & $ObjItem.LoadPercentage
$n += 1
Next

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

$CpuAuslastung = StringSplit($sMsg, "cpu%", 1)

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

For $n = "0" To $CpuAuslastung[0]
$c += $CpuAuslastung[$n]
Next

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

Return (Round($c / $CpuAuslastung[0], 0) & "%")
EndFunc ;==>CpuAuslastung
;---
Func _ShowCpuPer()
GUICtrlSetData($lblCpuPer, "CPU Auslastung: " & CpuAuslastung())
EndFunc ;==>_ShowCpuPer

[/autoit]

Xilent

Sry für dopplepost habe es aber nochmal probiert.

Spoiler anzeigen

[autoit]

#include <GuiConstants.au3>
#include <GUIConstantsEx.au3>
#include <INet.au3>
#include <Date.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

;----------------------------------
#Region
; 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)
Global $lblCpuPer
;-----------------------
; GROUP WITH RADIO BUTTONS
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 0) ; auf den klassischen Style umschalten
$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)
;---------------------------------------------
$Spiel_1 = GUICtrlCreateRadio(" ", 180, 40, 55)
;---------------------------------------------
$spiel_2 = GUICtrlCreateRadio(" ", 180, 60, 55)
;---------------------------------------------
$spiel_3 = GUICtrlCreateRadio(" ", 180, 80, 55)
;---------------------------------------------
$spiel_4 = GUICtrlCreateRadio(" ", 180, 100, 55)
;---------------------------------------------
$spiel_5 = GUICtrlCreateRadio(" ", 180, 120, 55)
;---------------------------------------------
$spiel_6 = GUICtrlCreateRadio(" ", 180, 140, 55)
;---------------------------------------------
GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group
#AutoIt3Wrapper_UseX64=n
;-----------------------
Local Const $wbemFlagReturnImmediately = 0x10
Local Const $wbemFlagForwardOnly = 0x20
;-----------------------

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

Global $blink = True
$Label1 = GUICtrlCreateLabel("", 55, 195, 100, 12)
$Label2 = GUICtrlCreateLabel("", 55, 210, 100, 12)
;---------------------------------------Datum
_date()

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

GUISetState(@SW_SHOW)

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

AdlibRegister("_date", 500)
;---------------------------------------Uhr
_time()

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

;GUISetState(@SW_SHOW)

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

AdlibRegister("_time", 500)
;-------------------------------------
;Label
$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)
$L_3 = GUICtrlCreateLabel("IP: " & $PublicIP, 55, 280, 100, 12)
$L_4 = GUICtrlCreateLabel($username, 55, 230, 100, 12)
$L_5 = GUICtrlCreateLabel($osversion, 55, 295, 175, 12)
$L_6 = GUICtrlCreateLabel("CPU Kerne: " & _GetCoreCount(), 55, 250, 175, 12)
$lblCpuPer = GUICtrlCreateLabel("CPU Auslastng: " & CpuAuslastung(), 55, 265, 100, 12)
AdlibRegister("_ShowCpuPer", 2500)

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

; (c)
$c = GUICtrlCreateLabel("© Xilent", 120, 345, 100, 12)
;-----------------------------------------------------------------------------------------------------------------
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 7) ; zurück zum Standard-Windowsstyle
#EndRegion

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

; BUTTON
$button_1 = GUICtrlCreateButton("OK", 50, 315, 100)
$button_2 = GUICtrlCreateButton("Schließen", 150, 315, 100)

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

$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("Ausschalten")
$Menu1_1 = GUICtrlCreateMenuItem("Herrunterfahren", $Menu1)
$Menu1_2 = GUICtrlCreateMenuItem("Ruhezustand", $Menu1)
$Menu1_3 = GUICtrlCreateMenuItem("Neustarten", $Menu1)
;---------
$Menu2 = GUICtrlCreateMenu("Win7 Style")
$Menu2_1 = GUICtrlCreateMenuItem("Aero", $Menu2)
$Menu2_2 = GUICtrlCreateMenuItem("Glow Air Final", $Menu2)
$Menu2_3 = GUICtrlCreateMenuItem("Windows 7 Black Transparent", $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)

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

; 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("C:\Program Files\Counter-Strike Source\hl2.exe -game cstrike -nojoy -noipx -console")
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 = $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 " & 'start C:\Windows\Resources\Themes\Aero.theme', "", @SW_HIDE)
Case $msg = $Menu2_2
Run(@ComSpec & " /c " & 'start C:\Windows\Resources\Themes\Glow_Air_Final.theme', "", @SW_HIDE)
Case $msg = $Menu2_3
Run(@ComSpec & " /c " & 'start C:\Windows\Resources\Themes\W7BT.theme', "", @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 = $Menu5_1
$hSubGui = GUICreate("Einstellungen", 400, 300, 100, 100)
GUISetBkColor(0xff0000)
;========
Example()
;========
;==========
GUICtrlCreateLabel("Einstellungen", 25, 20, 100, 100)
GUICtrlSetFont(-1, 11, -1, -1, $font2)
$spiel1 = GUICtrlCreateLabel("Spiel 1", 35, 65, 50, 100)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$spiel2 = GUICtrlCreateLabel("Spiel 2", 35, 95, 50, 100)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$spiel3 = GUICtrlCreateLabel("Spiel 3", 35, 125, 50, 100)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$spiel4 = GUICtrlCreateLabel("Spiel 4", 35, 155, 50, 100)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$spiel5 = GUICtrlCreateLabel("Spiel 5", 35, 185, 50, 100)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$spiel6 = GUICtrlCreateLabel("Spiel 6", 35, 215, 50, 100)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
GUISetState(@SW_SHOW)
$ge_1 = GUICtrlCreateGroup("Spiele", 25, 50, 325, 200)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
;=======================================================
Func Example()
Local $file
$Input_1 = GUICtrlCreateInput("" ,85, 65, 100, 20)
$Input_2 = GUICtrlCreateInput("" ,85, 95, 100, 20)
$Input_3 = GUICtrlCreateInput("" ,85, 125, 100, 20)
$Input_4 = GUICtrlCreateInput("" ,85, 155, 100, 20)
$Input_5 = GUICtrlCreateInput("" ,85, 185, 100, 20)
$Input_6 = GUICtrlCreateInput("" ,85, 215, 100, 20)
;==================================================
$Input_1_1 = GUICtrlCreateInput("" ,190, 65, 150, 20)
$Input_2_1 = GUICtrlCreateInput("" ,190, 95, 150, 20)
$Input_3_1 = GUICtrlCreateInput("" ,190, 125, 150, 20)
$Input_4_1 = GUICtrlCreateInput("" ,190, 155, 150, 20)
$Input_5_1 = GUICtrlCreateInput("" ,190, 185, 150, 20)
$Input_6_1 = GUICtrlCreateInput("" ,190, 215, 150, 20)
EndFunc
;=======================================================
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
While 1
$msg = GUIGetMsg()
Switch $msg
case $msg = $Input_1
$NeuesSpiel = GUICtrlRead($Input_1)
ControlSetText ($Spiel_1, $NeuesSpiel)
Case -3
GUIDelete($hSubGui)
ExitLoop
EndSwitch
WEnd
EndSelect
WEnd

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

Func SetColor($Color)
GUICtrlSetColor($L_1, $Color)
GUICtrlSetColor($L_2, $Color)
GUICtrlSetColor($L_3, $Color)
GUICtrlSetColor($L_4, $Color)
GUICtrlSetColor($L_5, $Color)
GUICtrlSetColor($L_6, $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($c, $Color)
EndFunc ;==>SetColor

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

;----------------------------------------------------------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 ;==>_date
;-------------------------------------------------------------------
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
;---------------------------------
Func _Random_BG()
GUISetBkColor(Random(100, 0xFFFFFF, 1))
EndFunc ;==>_Random_BG
;---------------------------------
Func CpuAuslastung()
;Global $wbemFlagReturnImmediately = 0x10
;Global $wbemFlagForwardOnly = 0x20
Global $wbemFlags = $wbemFlagReturnImmediately + $wbemFlagForwardOnly
Global $strComputer = @ComputerName

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

Global $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
Global $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Processor", "WQL", $wbemFlags)

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

$n = 0
$c = 0
$sMsg = ""
For $ObjItem In $colItems
$sMsg &= "cpu%" & $ObjItem.LoadPercentage
$n += 1
Next

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

$CpuAuslastung = StringSplit($sMsg, "cpu%", 1)

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

For $n = "0" To $CpuAuslastung[0]
$c += $CpuAuslastung[$n]
Next

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

Return (Round($c / $CpuAuslastung[0], 0) & "%")
EndFunc ;==>CpuAuslastung
;---
Func _ShowCpuPer()
GUICtrlSetData($lblCpuPer, "CPU Auslastung: " & CpuAuslastung())
EndFunc ;==>_ShowCpuPer

[/autoit]

Bekomme aber leider diesen Error und bekomme ihn nicht weg
[Blockierte Grafik: http://www.abload.de/img/unbenannt20ln.jpg]
Ich hoffe ihr könnt mir helfen
#

Sascha

PokerFace

Das liegt daran, da du in der While schleife etwas abfragst, was erst noch durch die Funktion "Example" erstellt werden muss.
Du musst das Input Feld also vorher erstellen und erst dann abfragen

Xilent

Und wie mache ich das habe näml9ich keine ahnung wie ich das machen soll?

Xilent

Problem gelöst mit einer ini datei und google hats dann prima funktioniert

Danke euch

Sascha