vip3ron Posted July 5, 2009 Share Posted July 5, 2009 (edited) 10char Edited September 2, 2011 by vip3ron Link to comment Share on other sites More sharing options...
liten Posted July 5, 2009 Share Posted July 5, 2009 Shure, i would love to help, see you need to either open (if you have it) or download Koda GUI on Forums My UDF:Freeze.au3-Freeze values like CE, ML, ETC[i][/i][u][/u] Link to comment Share on other sites More sharing options...
Randeniya Posted July 5, 2009 Share Posted July 5, 2009 friend , how about this one ?But it your script intervel is too long.try with a timer function to Sleep()SoRRy About my English......expandcollapse popup#cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.0.0 Author: K_ZONE (Randeniya) k_zone_r@yahoo.com Script Function: Simple GUI script. #ce ---------------------------------------------------------------------------- ; Script Start here #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <GuiButton.au3> $Form1 = GUICreate("A simple GUI For Run A macro ", 521, 155, 193, 125) $Button1 = GUICtrlCreateButton("Start", 344, 112, 73, 25, 0) $Button2 = GUICtrlCreateButton("Close", 424, 112, 73, 25, 0) $Group1 = GUICtrlCreateGroup("", 8, 8, 505, 137) $Label1 = GUICtrlCreateLabel("You Are About to run A MaCrO", 16, 32, 476, 57) GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif") $Button3 = GUICtrlCreateButton("About", 264, 112, 73, 25, 0) GUICtrlCreateGroup("", -99, -99, 1, 1) DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Form1, "int", 1000, "long", 262160) GUISetState() WinSetTrans($Form1, "", 210) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $Button1 If $Button1 = "Start" Then _GUICtrlButton_SetText($Button1, "Open") _macro() Else _GUICtrlButton_SetText($Button1, "Close") ;~ ExitLoop EndIf Case $Button2 _QUIT() Case $Button3 MsgBox(0, "Hi", "By K_ZONEĀ® k_zone_r@yahoo.com") Case $GUI_EVENT_CLOSE _QUIT() EndSwitch WEnd Func _macro() While 1;starts loop Sleep(1200000) Send("{F2}") Sleep(1200000) Send("{F3}") WEnd;where loop ends EndFunc ;==>_macro Func _QUIT() DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Form1, "int", 1000, "long", 327696) Exit EndFunc ;==>_QUIT Link to comment Share on other sites More sharing options...
vip3ron Posted July 6, 2009 Author Share Posted July 6, 2009 it doesn't work, but i will use this as an example thank you 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