L3G3NdKillEr Posted June 27, 2009 Posted June 27, 2009 hi all, is it possible to use two timers for two different hot keys.. e.g. if hot key 6 press after hot key 5 then hot key 6 activate for 30 seconds. and during 30 sec if i press hotkey 7 then the timer of hot key 6 stop and hot key 7 timer starts working. i want both timers to work individually at same time.. have a look at my script that may make you understand better., expandcollapse popup#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=C:\Documents and Settings\saeed\My Documents\pak.ico #AutoIt3Wrapper_outfile=new.exe #AutoIt3Wrapper_Allow_Decompile=n #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <GUIConstants.au3> #include <File.au3> #include <misc.au3> #include <GuiConstantsEx.au3> #include <WindowsConstants.au3> HotKeySet("5", "sevenup") HotKeySet("6", "sevendown") HotKeySet("7", "ndplaya") Global $i = 0 Global $j = 0 Opt("GUIOnEventMode", 1) #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("", 640, 30, 0, 450, BitOR($WS_MINIMIZEBOX, $WS_GROUP, $WS_CLIPSIBLINGS, $WS_POPUP)) $label = GUICtrlCreateLabel(" coins: ", 0, 0, 200, 200) GUICtrlSetColor($label, 0x00FF00) GUICtrlSetFont($label, 18, 400, "", "Arial") GUISetBkColor(0x0E1010) WinMove($form1, "", 0, 450) GUISetState(@SW_SHOW) WinSetOnTop($Form1, "", 1) #EndRegion ### END Koda GUI section ### While 1 Sleep(50) WEnd Func WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam) If $hWnd = $Form1 And $iMsg = $WM_NCHITTEST Then $id = _API_DefWindowProc($hWnd, $iMsg, $iwParam, $ilParam) If $id = 2 Then;if it is the title handle Return 1;return the client handle Else Return $id;return the real handle EndIf EndIf EndFunc ;==>WM_NCHITTEST Func _API_DefWindowProc($hWnd, $iMsg, $iwParam, $ilParam) Local $aResult $aResult = DllCall("User32.dll", "int", "DefWindowProc", "hwnd", $hWnd, "int", $iMsg, "int", $iwParam, "int", $ilParam) Return $aResult[0] EndFunc ;==>_API_DefWindowProc ;==>fuckoff Func SevenDown() HotKeySet("6") If $i = 0 Then Send("0") EndIf ConsoleWrite("sdn" & @CRLF) If $i >= 1 Then;<----changed this so I could test it. Send("1") lod3Sleep(100) Send("1") lod3Sleep(100) Send("1") EndIf If $i > 0 Then $i -= 1 SoundPlay(@WindowsDir & "\media\ir_end.wav") GUICtrlSetData($label, " coins: " & $i) $s = lod3Sleep(30000) Else $i = 0 EndIf ;HotKeySet("1") HotKeySet("6", "SevenDown") ConsoleWrite("Endsdn" & @CRLF) EndFunc ;==>SevenDown Func lod3Sleep($lt) Opt("SendKeydelay", 200) $tin = TimerInit() While TimerDiff($tin) < $lt ;if NUm5 or 5 pressed HotKeySet("5", "sevenup") HotKeySet("7", "ndplaya") if _IsPressed("36") Then Send("1") EndIf WEnd EndFunc ;==>lod3Sleep Func lod2Sleep($lt2) Opt("SendKeydelay", 200) $tin2 = TimerInit() While TimerDiff($tin2) < $lt2 ;if NUm5 or 5 pressed HotKeySet("5", "sevenup") HotKeySet("6", "SevenDown") if _IsPressed("37") Then Send("2") EndIf WEnd EndFunc Func sevenup() $i += 1 SoundPlay(@WindowsDir & "\media\ringin.wav") GUICtrlSetData($label, " coins: " & $i) EndFunc ;==>sevenup Func ndplaya() HotKeySet("7") If $i = 0 Then Send("0") EndIf ConsoleWrite("sdn" & @CRLF) If $i >= 1 Then;<----changed this so I could test it. Send("2") lod2Sleep(100) Send("2") lod2Sleep(100) Send("2") EndIf If $i > 0 Then $i -= 1 SoundPlay(@WindowsDir & "\media\ir_end.wav") GUICtrlSetData($label, " coins: " & $i) $s = lod2Sleep(30000) Else $i = 0 EndIf ;HotKeySet("1") HotKeySet("7", "ndplaya") ConsoleWrite("Endsdn" & @CRLF) EndFunc ;==>SevenDown i'm very responsible, when ever something goes wrong they always say I'm responsible.Life is like an Adventure... BUT COOL GRAPHICS<====================----=LEGEND KILLER=----=========================>
PsaltyDS Posted June 27, 2009 Posted June 27, 2009 hi all,is it possible to use two timers for two different hot keys..e.g. if hot key 6 press after hot key 5 then hot key 6 activate for 30 seconds. and during 30 sec if i press hotkey 7 then the timer of hot key 6 stop and hot key 7 timer starts working.i want both timers to work individually at same time.. have a look at my script that may make you understand better.,Trim your reproducer down to just the issue at hand. Too much irrelevant stuff to pick through in there. Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law
L3G3NdKillEr Posted June 27, 2009 Author Posted June 27, 2009 [solved] i'm very responsible, when ever something goes wrong they always say I'm responsible.Life is like an Adventure... BUT COOL GRAPHICS<====================----=LEGEND KILLER=----=========================>
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