Timers and Hotkey Example - Revision history

Jaberwocky6669: Added AutoIt syntax highlight and Samples Category

2013-08-01T02:51:11Z

Added AutoIt syntax highlight and Samples Category

← Older revision		Revision as of 02:51, 1 August 2013
Line 10:		Line 10:
	''Notes:'' Not updated for current versions of AutoIt		''Notes:'' Not updated for current versions of AutoIt

			<syntaxhighlight lang="autoit">
	winclose("mycountdown")		winclose("mycountdown")
	AutoItWinSetTitle ( "mycountdown" )		AutoItWinSetTitle ( "mycountdown" )
Line 66:		Line 67:
	$loc=StringSplit($loc1,",")		$loc=StringSplit($loc1,",")
	endfunc		endfunc
			</syntaxhighlight>

			[[Category:Samples]]

IEvKI3gv9Wrkd41u: add to: Category:Samples

2012-12-11T06:21:10Z

add to: Category:Samples

← Older revision		Revision as of 06:21, 11 December 2012
Line 1:		Line 1:
			[[Category:Samples]]
	''Script by:'' scriptkitty		''Script by:'' scriptkitty

JRowe at 14:22, 14 October 2008

2008-10-14T14:22:20Z

New page

''Script by:'' scriptkitty

''Original Link:''
[http://www.autoitscript.com/forum/index.php?showtopic=1358]

''Description:'' This is just an example of a little quick timer you might have a use for.
It uses variations of one button to do almost everything. I use it personally inside a game I play to keep track of stuff.

''Notes:'' Not updated for current versions of AutoIt

winclose("mycountdown")
AutoItWinSetTitle ( "mycountdown" )
$loc=StringSplit("546,378",","); default location
$amount=90; default time
HotKeySet ("!{NUMPADADD}","testoff")
HotKeySet ("{NUMPADADD}","test")
HotKeySet ("^{NUMPADADD}","amount")
HotKeySet ("^!{NUMPADADD}","loc")
ToolTip("Click + to start", 0, 0)
sleep(2000)

$begin=0
While 1
while $begin<>0
ToolTip("", 0, 0)
while (TimerStop($begin)/1000)<$amount
$time=$amount-int(TimerStop($begin)/1000)/1
if $time>120 then
ToolTip(int($time/60)&" min left "&$time-int($time/60)*60&" seconds",$loc[1],$loc[2])
else
if $time<30 then
ToolTip("Warning Warning Warning, Only "&$time&" seconds left ",$loc[1],$loc[2])
else
ToolTip($time&" seconds left ",$loc[1],$loc[2])
endif
endif

sleep(20)
wend
wend
ToolTip("", 0, 0)
sleep(20)
wend

sleep(-1)

func test()
$begin = TimerStart()
endfunc

func testoff()
ToolTip("")
$begin = 0
endfunc

func amount()
$amount = InputBox("Question", "How many sec?"&@crlf&"or XXmin", "1min", "", -1, -1, 0, 0)
if stringinstr($amount,"min")>0 then $amount=int(stringreplace($amount,"min","")*60)
return $amount
endfunc

func loc()
$loc1 = InputBox("Question", "Location x,y?", "546,378", "", -1, -1, 0, 0)
$loc=StringSplit($loc1,",")
endfunc