Hallo Liebes Forum.
Ich habe folgendes Problem.
Wenn ich im MenuItem auf Aktivieren klicke, ändert sich der eintrag zwar auf "yes" aber im Menu ist dennoch bei Deaktiviert ein Hacken (für Aktiv)
Wenn ich auf Deaktiveren klicke ändert es sich zwar auch, aber bei Aktivieren ist auch noch ein Hacken (für Aktiv)
Wie kann ich das ändern ?!
Hier mal mein Script.
(Im Anhang die Datei für die Bilder)
MfG
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.6.1
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
;~ #include "1.au3"
#include "2.au3"
; = Einstellungen
Opt("TrayMenuMode", 1)
opt("GUIResizeMode",802)
Opt("WinTitleMatchMode", 2)
Opt("TrayMenuMode", 1)
Opt("TrayOnEventMode", 1)
;= Ini
$INI= @ScriptDir & "\Data\Einstellungen.ini"
$runwindoof = IniRead($INI, "Windows", "Run", "")
$ontop = IniRead($INI,"Window", "OnTop", "")
$Modus = IniRead($INI, "Modus", "Fenster", "")
; = Beschreibung
Local $InstallationsPfad
$InstallationsPfad = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft", "InstallPath")
$Title = "World of Warcraft Launcher" & " " & "v1.0 Beta"
; =============================================
If Not FileExists(@ScriptDir & "\Data\") Then
DirCreate(@ScriptDir & "\Data\")
EndIf
If not fileexists($INI) Then
Iniwrite($INI,"Copyright","Titel","(C) Alexander F. 2010 - 2011")
EndIf
;~ WinSetOnTop("", "", 1)
; Immer im Vordergrund
#Region ### START Koda GUI section ### Form=
$vGUIStandartHeight = 290
$vGUILargeHeight = $vGUIStandartHeight + 327
$vGUIStandartWidth = 778
$vGUIColor = 0x161616
_SM_SetVisualStyle(1)
$hGui = GUICreate("" & $Title, 778, 290,-1,-1,-1,BitOR(0x00000080, 0x00000010))
GUISetBkColor($vGUIColor, $hGui)
_SM_SetVisualStyle(0)
GUISetIcon("C:\Programme\Alexander\AutoIt\Projekt 2# Launcher\WoW.ico")
; = Tray
TraySetClick("9")
$MenuItem3 = TrayCreateMenu("MenuItem3")
$MenuItem4 = TrayCreateItem("MenuItem4", $MenuItem3)
$MenuItem2 = TrayCreateItem("MenuItem2")
$MenuItem1 = TrayCreateItem("MenuItem1")
TraySetIcon("C:\Programme\Alexander\AutoIt\Projekt 2# Launcher\WoW.ico")
; = Gui Sachen
$Start = GUICtrlCreateButton("Start", 488, 100, 95, 55, 0x0080)
;~ $Einstellungen = GUICtrlCreateButton("Einstellungen", 592, 8, 97, 33, $WS_GROUP)
$open = GUICtrlCreateButton("open", 82, 195, 77, 20, 0x0080)
$close = GUICtrlCreateButton("close", 160, 195, 77, 20, 0x0080)
;Gui Menu
$hGUIFile = GUICtrlCreateMenu("File")
$hMenuOntop = GUICtrlCreateMenu("Programm immmer im Vordergrund", $hGUIFile)
$hMenuOntopEnable = GUICtrlCreateMenuItem("Aktivieren", $hMenuOntop)
$hMenuOntopDisable = GUICtrlCreateMenuItem("Deaktiveren", $hMenuOntop)
If $ontop = "yes" Then
GUICtrlSetState($hMenuOntopEnable, 1)
GUICtrlSetState($hMenuOntopDisable, 0)
EndIf
If $ontop = "no" Then
GUICtrlSetState($hMenuOntopEnable, 0)
GUICtrlSetState($hMenuOntopDisable, 1)
EndIf
GUICtrlCreateMenuItem("", $hGUIFile)
$hMenuSettings = GUICtrlCreateMenuItem("Allgemeine Einstellungen", $hGUIFile)
GUICtrlCreateMenuItem("", $hGUIFile)
$hMenuUpdateCheck = GUICtrlCreateMenuItem("Nach Updates suchen", $hGUIFile)
GUICtrlCreateMenuItem("", $hGUIFile)
$hMenuRestart = GUICtrlCreateMenuItem("Neustarten", $hGUIFile)
$hMenuExit = GUICtrlCreateMenuItem("Beenden", $hGUIFile)
$hGUIMaps = GUICtrlCreateMenu("Datein")
$hMenuMapsInstall = GUICtrlCreateMenuItem("Installieren", $hGUIMaps)
$hGUIHelp = GUICtrlCreateMenu("Brauchst du Hilfe ?")
$hMenuHelpAbout = GUICtrlCreateMenuItem("Über uns", $hGUIHelp)
GUICtrlCreateMenuItem("", $hGUIHelp)
$hMenuHelpHome = GUICtrlCreateMenuItem("Unsere Homepage", $hGUIHelp)
$hMenuHelpFAQ = GUICtrlCreateMenuItem("Frequently asked questions!", $hGUIHelp)
GUICtrlCreateMenuItem("", $hGUIHelp)
$hMenuHelpContact = GUICtrlCreateMenuItem("Kontaktieren Sie uns über (Fehlern,Problemen...)", $hGUIHelp)
_SM_CreateImageButton($open,$open1)
_SM_CreateImageButton($close,$close1)
_SM_CreateImageButton($Start,$starten1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Start
_WoWStarten()
;~ Case $Einstellungen
;~ _Einstellungen()
Case $close
_ClickButtonCloseExpand()
Case $open
_ClickButtonOpen()
Case $hMenuOntopEnable
IniWrite($INI, "Window", "OnTop", "yes")
GUICtrlSetState($hMenuOntopEnable, 1)
$lesen = IniRead($INI,"Window", "OnTop", "")
$lesen = IniRead($INI,"Window", "OnTop", "")
If $lesen = "yes" Then
GUICtrlSetState($hMenuOntopEnable, 1)
GUICtrlSetState($hMenuOntopDisable, 0)
EndIf
Case $hMenuOntopDisable
IniWrite($INI, "Window", "OnTop", "no")
GUICtrlSetState($hMenuOntopDisable, 1)
If $ontop = "no" Then
GUICtrlSetState($hMenuOntopEnable, 0)
GUICtrlSetState($hMenuOntopDisable, 1)
EndIf
EndSwitch
WEnd
; == Fenster Modus
;~ If WinWaitActive("World of Warcraft") Then
;~ $X = 250
;~ $Y = 250
;~ WinMove ( "World of Warcraft", "", 0, 0, $X, $Y )
;~ EndIf
; == FUNCS
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func _WoWStarten()
Run($InstallationsPfad & "\Wow.exe", "") ; , @SW_MAXIMIZE
EndFunc
; ============== Expander ===============
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func _ClickButtonOpen()
[/autoit] [autoit][/autoit] [autoit]GUISwitch($hGui)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$vGUIPos = WinGetPos($hGui)
If IsArray($vGUIPos) Then
If $vGUIPos[1] + $vGUILargeHeight >= @DesktopHeight - 45 Then
$vGUIPos[1] = @DesktopHeight - $vGUILargeHeight - 45
If $vGUIPos[1] < 0 Then $vGUIPos[1] = 0
EndIf
WinMove($hGui, "", $vGUIPos[0], $vGUIPos[1], $vGUIStandartWidth, $vGUILargeHeight, 1)
EndIf
EndFunc
[/autoit] [autoit][/autoit] [autoit]Func _ClickButtonCloseExpand()
[/autoit] [autoit][/autoit] [autoit]$vGUIPos = WinGetPos($hGui)
If IsArray($vGUIPos) Then WinMove($hGui, "", $vGUIPos[0], $vGUIPos[1], $vGUIStandartWidth, $vGUIStandartHeight + 27, 1)
EndFunc
Func _SM_SetVisualStyle($b_Enable);turn on or of visual styles, able to color groups, checkboxes
Return DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", $b_Enable * 7) ; 7 = Enable, 0 = Disable
EndFunc
Func _SM_CreateImageButton($h_Button, $v_ButtonVariable)
Local $hFile = FileOpen(@TempDir & "\button.bmp", BitOR(2, 16))
FileWrite($hFile, Binary($v_ButtonVariable))
FileClose($hFile)
GUICtrlSetImage($h_Button, @TempDir & "\button.bmp")
FileDelete(@TempDir & "\button.bmp")
EndFunc
; =============== EINSTELLUNGEN =================
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func _Einstellungen()
$Title = "World of Warcraft Launcher" & " " & "v1.0 Beta"
Opt("GUIOnEventMode", 0)
;~ GUISetState(@SW_DISABLE, $hGui)
GUISetState(@SW_HIDE, $hGui)
_SM_SetVisualStyle(1)
$settinggui = GUICreate("Settings", 518, 190,-1,-1,-1,BitOR(0x00000080, 0x00000010), $hGUI)
_SM_SetVisualStyle(0)
GUISetBkColor($vGUIColor, $settinggui)
$cancel = GUICtrlCreateButton("Exit", 263, 160, 247, 20, 0)
$save = GUICtrlCreateButton("Save", 10, 160, 247, 20, 0)
$groupdelays = GUICtrlCreateGroup("Keine Ahnung", 10, 10, 260, 91)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$groupgeneral2 = GUICtrlCreateGroup("Info", 10, 105, 500, 50)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label1 = GUICtrlCreateLabel("" & $Title, 104, 128, 308, 19)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$FTP = GUICtrlCreateGroup("Einstellungen", 280, 10, 230, 91)
GUICtrlSetColor(-1, 0xFFFFFF)
; = Checkboxen
$Checkbox3 = GUICtrlCreateCheckbox("Bla", 25, 34, 121, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
If $Modus = "yes" Then GUICtrlSetState($Checkbox3, 1)
$Checkbox2 = GUICtrlCreateCheckbox("Mit Windows starten", 295, 34, 121, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
If $runwindoof = "yes" Then GUICtrlSetState($Checkbox2, 1)
$Checkbox1 = GUICtrlCreateCheckbox("Immer im Vordergrund", 295, 65, 129, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
If $ontop = "yes" Then GUICtrlSetState($Checkbox1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
[/autoit] [autoit][/autoit] [autoit]GUISetState(@SW_SHOW, $settinggui)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
Switch GUIGetMsg($settinggui)
Case - 3
ExitLoop
Case $cancel
ExitLoop
Case $save
[/autoit] [autoit][/autoit] [autoit]If GUICtrlRead($Checkbox2) = 1 Then
IniWrite($INI, "Windows", "Run", "yes")
$runwindoof = "yes"
Else
IniWrite($INI, "Windows", "Run", "no")
$runwindoof = "no"
EndIf
If GUICtrlRead($Checkbox1) = 1 Then
IniWrite($INI, "Window", "OnTop", "yes")
$ontop = "yes"
Else
IniWrite($INI, "Window", "OnTop", "no")
$ontop = "no"
EndIf
If GUICtrlRead($Checkbox3) = 1 Then
IniWrite($INI, "Modus", "Fenster", "yes")
$Modus = "yes"
Else
IniWrite($INI, "Modus", "Fenster", "no")
$Modus = "no"
EndIf
ExitLoop
;Exit
EndSwitch
Sleep(10)
WEnd
GUIDelete($settinggui)
Sleep(100)
GUISetState(@SW_ENABLE, $hGui)
GUISetState(@SW_SHOW, $hGui)
_SM_SetVisualStyle(1)
EndFunc