Need help with my code

[Valuater]

expandcollapse popup

#include <GUIConstants.au3>

Dim $info1

$Form1 = GUICreate("Automated Script - geocine", 483, 410, 285, 118, -1, BitOR($WS_EX_OVERLAPPEDWINDOW,$WS_EX_WINDOWEDGE))
$Group1 = GUICtrlCreateGroup("Adobe Photoshop CS2", 64, 32, 393, 185, $WS_CLIPSIBLINGS)
GUICtrlSetFont(-1, 10, 800, 0, "@Arial Unicode MS")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel("Opens a file in the specific folder", 72, 48, 233, 22)
GUICtrlSetFont(-1, 10, 800, 0, "@Arial Unicode MS")
$Combo1 = GUICtrlCreateCombo("", 16, 48, 45, 25)
GUICtrlSetData(-1, "F1|F2|F3|F4|F5|F6|F7|F8|F9|F10|F11|F12", "F4")
GUISetState()

Opt("TrayAutoPause",0)
TraySetClick("9")
$MenuItem2 = TrayCreateItem("Hide Window")
$MenuItem1 = TrayCreateItem("Show Window")
TraySetState()
;MsgBox(0, "", Chr(34) & "{" & GUICtrlRead($Combo1) & "}" & chr(34))

$info1 = "{" & GUICtrlRead($Combo1) & "}" 
$info2 = "Step1"
HotKeySet( $info1, $info2)

HotKeySet ("{END}", "term")

While 1
    $nMsg = GUIGetMsg()
    $msg = TrayGetMsg()
    Select
        Case $nMsg = $Combo1
            HotKeySet( $info1)
            $info1 = "{" & GUICtrlRead($Combo1) & "}" 
            $info2 = "Step1"
            HotKeySet( $info1, $info2)
        Case $nMsg = $GUI_EVENT_CLOSE
            GUISetState(@SW_HIDE)
        Case $msg = $MenuItem1
            GUISetState(@SW_SHOW)
        Case $msg = $MenuItem2
            GUISetState(@SW_HIDE)
    EndSelect
WEnd

Func Step1()
    MsgBox(0,0,"test 1", 3)
    ;Send ("^{/}")
    ;Send ("{M}")
EndFunc

Func term()
    Exit
EndFunc

8)

[geocine]

thank you sir val... hope you'll help me again next time..

[SmOke_N]

thank you sir val... hope you'll help me again next time..

Sir Val ... !!

AutoIt's Customer Service Representative.... Hey Val.. What's that pay anyway?