Valuater Posted September 16, 2006 Share Posted September 16, 2006 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) Link to comment Share on other sites More sharing options...
geocine Posted September 16, 2006 Author Share Posted September 16, 2006 thank you sir val... hope you'll help me again next time.. Do Not Steal The Government Hates CompetitionO2JAM AutoPlayBot [|||||.............] 10%Friendster Commenter [..................] 0%Auto Message Download Percentage [|||||||||||||||||] 100% Link to comment Share on other sites More sharing options...
Moderators SmOke_N Posted September 16, 2006 Moderators Share Posted September 16, 2006 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? Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now