lolord5 Posted January 5, 2007 Author Posted January 5, 2007 Thanks so much Bala for helping me on this!!!!!
BALA Posted January 5, 2007 Posted January 5, 2007 (edited) No problem, hope this helps you in AutoIt programming No really, make it help, I don't wanna get in trouble for this! Edited January 5, 2007 by BALA [font="Comic Sans MS"]BA-LA[/font]http://ba-la.110mb.comJoin my community, CLICK HEREAlternative links to my site:http://www.ba-la.tkhttp://www.ba-la.co.nrContact me if you would like to help with some of my projects: joeythepirate@gmail.com
lolord5 Posted January 5, 2007 Author Posted January 5, 2007 Oh i think I found a bug. It says Line 2 If $score < 11 Error: "If" statements must have a "Then" keyword.
BALA Posted January 5, 2007 Posted January 5, 2007 (edited) Oh, just add Then after 11, I must've forgot that part Do that for all of them Edited January 5, 2007 by BALA [font="Comic Sans MS"]BA-LA[/font]http://ba-la.110mb.comJoin my community, CLICK HEREAlternative links to my site:http://www.ba-la.tkhttp://www.ba-la.co.nrContact me if you would like to help with some of my projects: joeythepirate@gmail.com
BALA Posted January 5, 2007 Posted January 5, 2007 What happens? [font="Comic Sans MS"]BA-LA[/font]http://ba-la.110mb.comJoin my community, CLICK HEREAlternative links to my site:http://www.ba-la.tkhttp://www.ba-la.co.nrContact me if you would like to help with some of my projects: joeythepirate@gmail.com
BALA Posted January 5, 2007 Posted January 5, 2007 (edited) Do you have it like this? If $score < 11 Then $score = 1 EndIf remember: you have to put that Then after every If command. Edited January 5, 2007 by BALA [font="Comic Sans MS"]BA-LA[/font]http://ba-la.110mb.comJoin my community, CLICK HEREAlternative links to my site:http://www.ba-la.tkhttp://www.ba-la.co.nrContact me if you would like to help with some of my projects: joeythepirate@gmail.com
lolord5 Posted January 5, 2007 Author Posted January 5, 2007 Ok I've done that. Now it gives me another error. Line 1 If $check = 1 Then If ^ ERROR Error: Variable used without being declared.
BALA Posted January 5, 2007 Posted January 5, 2007 you did replace: expandcollapse popupIf $check = 1 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) EndIfoÝ÷ Øíà@MÄEÊ{«¢+Ù%ÀÌØí¡¬ôÄQ¡¸(%ÀÌØíͽɱÐìÄÄQ¡¸(%ÀÌØíͽÉôÄQ¡¸(5½ÕÍ ±¥¬ ÅÕ½Ðí±ÐÅÕ½Ðì°ÀÌØíA½Í¥Ñ¥½¹lÁt°ÀÌØíÁ½Í¥Ñ¥½¹lÅt°Ä¤(M¹ ÅÕ½ÐìÅÕ½ÐìµÀíÕ¥ ÑɱI ÀÌØí¥¹ÁÕÐĤ¤(%U% ÑɱI ÀÌØí¡½à¤ôÀÌØíU%} ! -Q¡¸(M¹ ÅÕ½Ðíí9QIôÅÕ½Ðì¤(¹%(ͱÀ ÄÀÀÀ¨Õ¥ ÑɱI ÀÌØíÑ¥µ¤¤(ÀÌØíͽÉôÀÌØíͽɬÄ(¹%(%ÀÌØíͽÉôÈQ¡¸(5½ÕÍ ±¥¬ ÅÕ½Ðí±ÐÅÕ½Ðì°ÀÌØíA½Í¥Ñ¥½¹lÁt°ÀÌØíÁ½Í¥Ñ¥½¹lÅt°Ä¤(M¹ ÅÕ½ÐìÅÕ½ÐìµÀíÕ¥ ÑɱI ÀÌØí¥¹ÁÕÐĤ¤(%U% ÑɱI ÀÌØí¡½à¤ôÀÌØíU%} ! -Q¡¸(M¹ ÅÕ½Ðíí9QIôÅÕ½Ðì¤(¹%(ͱÀ ÄÀÀÀ¨Õ¥ ÑɱI ÀÌØíÑ¥µ¤¤(ÀÌØíͽÉôÀÌØíͽɬÄ(¹%(%ÀÌØíͽÉôÌQ¡¸(5½ÕÍ ±¥¬ ÅÕ½Ðí±ÐÅÕ½Ðì°ÀÌØíA½Í¥Ñ¥½¹lÁt°ÀÌØíÁ½Í¥Ñ¥½¹lÅt°Ä¤(M¹ ÅÕ½ÐìÅÕ½ÐìµÀíÕ¥ ÑɱI ÀÌØí¥¹ÁÕÐĤ¤(%U% ÑɱI ÀÌØí¡½à¤ôÀÌØíU%} ! -Q¡¸(M¹ ÅÕ½Ðíí9QIôÅÕ½Ðì¤(¹%(ͱÀ ÄÀÀÀ¨Õ¥ ÑɱI ÀÌØíÑ¥µ¤¤(ÀÌØíͽÉôÀÌØíͽɬÄ(¹%(%ÀÌØíͽÉôÐQ¡¸(5½ÕÍ ±¥¬ ÅÕ½Ðí±ÐÅÕ½Ðì°ÀÌØíA½Í¥Ñ¥½¹lÁt°ÀÌØíÁ½Í¥Ñ¥½¹lÅt°Ä¤(M¹ ÅÕ½ÐìÅÕ½ÐìµÀíÕ¥ ÑɱI ÀÌØí¥¹ÁÕÐĤ¤(%U% ÑɱI ÀÌØí¡½à¤ôÀÌØíU%} ! -Q¡¸(M¹ ÅÕ½Ðíí9QIôÅÕ½Ðì¤(¹%(ͱÀ ÄÀÀÀ¨Õ¥ ÑɱI ÀÌØíÑ¥µ¤¤(ÀÌØíͽÉôÀÌØíͽɬÄ(¹%(%ÀÌØíͽÉôÔQ¡¸(5½ÕÍ ±¥¬ ÅÕ½Ðí±ÐÅÕ½Ðì°ÀÌØíA½Í¥Ñ¥½¹lÁt°ÀÌØíÁ½Í¥Ñ¥½¹lÅt°Ä¤(M¹ ÅÕ½ÐìÅÕ½ÐìµÀíÕ¥ ÑɱI ÀÌØí¥¹ÁÕÐĤ¤(%U% ÑɱI ÀÌØí¡½à¤ôÀÌØíU%} ! -Q¡¸(M¹ ÅÕ½Ðíí9QIôÅÕ½Ðì¤(¹%(ͱÀ ÄÀÀÀ¨Õ¥ ÑɱI ÀÌØíÑ¥µ¤¤(ÀÌØíͽÉôÀÌØíͽɬÄ(¹%(%ÀÌØíͽÉôØQ¡¸(5½ÕÍ ±¥¬ ÅÕ½Ðí±ÐÅÕ½Ðì°ÀÌØíA½Í¥Ñ¥½¹lÁt°ÀÌØíÁ½Í¥Ñ¥½¹lÅt°Ä¤(M¹ ÅÕ½ÐìÅÕ½ÐìµÀíÕ¥ ÑɱI ÀÌØí¥¹ÁÕÐĤ¤(%U% ÑɱI ÀÌØí¡½à¤ôÀÌØíU%} ! -Q¡¸(M¹ ÅÕ½Ðíí9QIôÅÕ½Ðì¤(¹%(ͱÀ ÄÀÀÀ¨Õ¥ ÑɱI ÀÌØíÑ¥µ¤¤(ÀÌØíͽÉôÀÌØíͽɬÄ(¹%(%ÀÌØíͽÉôÜQ¡¸(5½ÕÍ ±¥¬ ÅÕ½Ðí±ÐÅÕ½Ðì°ÀÌØíA½Í¥Ñ¥½¹lÁt°ÀÌØíÁ½Í¥Ñ¥½¹lÅt°Ä¤(M¹ ÅÕ½ÐìÅÕ½ÐìµÀíÕ¥ ÑɱI ÀÌØí¥¹ÁÕÐĤ¤(%U% ÑɱI ÀÌØí¡½à¤ôÀÌØíU%} ! -Q¡¸(M¹ ÅÕ½Ðíí9QIôÅÕ½Ðì¤(¹%(ͱÀ ÄÀÀÀ¨Õ¥ ÑɱI ÀÌØíÑ¥µ¤¤(ÀÌØíͽÉôÀÌØíͽɬÄ(¹%(%ÀÌØíͽÉôàQ¡¸(5½ÕÍ ±¥¬ ÅÕ½Ðí±ÐÅÕ½Ðì°ÀÌØíA½Í¥Ñ¥½¹lÁt°ÀÌØíÁ½Í¥Ñ¥½¹lÅt°Ä¤(M¹ ÅÕ½ÐìÅÕ½ÐìµÀíÕ¥ ÑɱI ÀÌØí¥¹ÁÕÐĤ¤(%U% ÑɱI ÀÌØí¡½à¤ôÀÌØíU%} ! -Q¡¸(M¹ ÅÕ½Ðíí9QIôÅÕ½Ðì¤(¹%(ͱÀ ÄÀÀÀ¨Õ¥ ÑɱI ÀÌØíÑ¥µ¤¤(ÀÌØíͽÉôÀÌØíͽɬÄ(¹%(%ÀÌØíͽÉôäQ¡¸(5½ÕÍ ±¥¬ ÅÕ½Ðí±ÐÅÕ½Ðì°ÀÌØíA½Í¥Ñ¥½¹lÁt°ÀÌØíÁ½Í¥Ñ¥½¹lÅt°Ä¤(M¹ ÅÕ½ÐìÅÕ½ÐìµÀíÕ¥ ÑɱI ÀÌØí¥¹ÁÕÐĤ¤(%U% ÑɱI ÀÌØí¡½à¤ôÀÌØíU%} ! -Q¡¸(M¹ ÅÕ½Ðíí9QIôÅÕ½Ðì¤(¹%(ͱÀ ÄÀÀÀ¨Õ¥ ÑɱI ÀÌØíÑ¥µ¤¤(ÀÌØíͽÉôÀÌØíͽɬÄ(¹%(%ÀÌØíͽÉôÄÀQ¡¸(5½ÕÍ ±¥¬ ÅÕ½Ðí±ÐÅÕ½Ðì°ÀÌØíA½Í¥Ñ¥½¹lÁt°ÀÌØíÁ½Í¥Ñ¥½¹lÅt°Ä¤(M¹ ÅÕ½ÐìÅÕ½ÐìµÀíÕ¥ ÑɱI ÀÌØí¥¹ÁÕÐĤ¤(%U% ÑɱI ÀÌØí¡½à¤ôÀÌØíU%} ! -Q¡¸(M¹ ÅÕ½Ðíí9QIôÅÕ½Ðì¤(¹%(ͱÀ ÄÀÀÀ¨Õ¥ ÑɱI ÀÌØíÑ¥µ¤¤(ÀÌØíͽÉôÀÌØíͽɬÄ(¹%(¹%(%ÀÌØíͽÉôÄÄQ¡¸(ÀÌØíͽÉôÄ(¹%(¹% Right? [font="Comic Sans MS"]BA-LA[/font]http://ba-la.110mb.comJoin my community, CLICK HEREAlternative links to my site:http://www.ba-la.tkhttp://www.ba-la.co.nrContact me if you would like to help with some of my projects: joeythepirate@gmail.com
BALA Posted January 5, 2007 Posted January 5, 2007 This code should work: expandcollapse popup#include <Misc.au3> #include <GUIConstants.au3> Global $score = 1 Opt("GUIOnEventMode", 1) $mainwindow = GUICreate("BA-TYPER", 300, 160) GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked") GUISetState() $position1 = GUICtrlCreateButton("Position", 70, 20, 120) GUICtrlSetOnEvent($position1, "Position") $on = GUICtrlCreateRadio ("On", 40, 60, 40, 20) $off = GUICtrlCreateRadio ("Off", 40, 80, 40, 20) GUICtrlSetState ($off, $GUI_CHECKED) $input = GUICtrlCreateInput("", 80, 70, 180, 20) ; This is the input slot, we'll need to create ten of these $checkbox = GUICtrlCreateCheckbox ("Input an 'Enter' after text", 41, 100, 140, 20) $time = GUICtrlCreateInput("5", 210, 127, 40, 20) GUICtrlCreateLabel ("Time between Posts (in seconds)", 40, 130) Dim $Position, $i = 0, $Record[1][2] Global $check = 0 Func CLOSEClicked() Exit EndFunc Func Position() While 1 If _IsPressed("01") Then $Position = MouseGetPos() ReDim $Record[$i + 1][2] $Record[$i][0] = $Position[0] $Record[$i][1] = $position[1] consoleWrite($Record[$i][0] & @LF & $Record[$i][ 1] & @LF) GUICtrlCreateLabel ("x = "&$Record[$i][0] & @LF & "y = "& $Record[$i][1] & @LF, 200, 20) $i += 1 ExitLoop EndIf sleep(10) WEnd EndFunc While 1 If GUICtrlRead($on) = $GUI_CHECKED Then $check = 1 EndIf If GUICtrlRead($off) = $GUI_CHECKED Then $check = 0 EndIf If $check = 1 Then If $score < 11 Then If $score = 1 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input1)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf If $score = 2 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input1)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf If $score = 3 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input1)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf If $score = 4 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input1)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf If $score = 5 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input1)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf If $score = 6 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input1)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf If $score = 7 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input1)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf If $score = 8 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input1)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf If $score = 9 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input1)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf If $score = 10 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input1)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf EndIf If $score = 11 Then $score = 1 EndIf EndIf sleep(10) WEnd [font="Comic Sans MS"]BA-LA[/font]http://ba-la.110mb.comJoin my community, CLICK HEREAlternative links to my site:http://www.ba-la.tkhttp://www.ba-la.co.nrContact me if you would like to help with some of my projects: joeythepirate@gmail.com
BALA Posted January 5, 2007 Posted January 5, 2007 Oh sorry, need to resize GUI, hold on. [font="Comic Sans MS"]BA-LA[/font]http://ba-la.110mb.comJoin my community, CLICK HEREAlternative links to my site:http://www.ba-la.tkhttp://www.ba-la.co.nrContact me if you would like to help with some of my projects: joeythepirate@gmail.com
BALA Posted January 5, 2007 Posted January 5, 2007 THIS code should work: expandcollapse popup#include <Misc.au3> #include <GUIConstants.au3> Opt("GUIOnEventMode", 1) $mainwindow = GUICreate("BA-TYPER", 300, 320) GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked") GUISetState() $position1 = GUICtrlCreateButton("Position", 70, 20, 120) GUICtrlSetOnEvent($position1, "Position") $on = GUICtrlCreateRadio ("On", 40, 60, 40, 20) $off = GUICtrlCreateRadio ("Off", 40, 80, 40, 20) GUICtrlSetState ($off, $GUI_CHECKED) ;Inputs are here $input1 = GUICtrlCreateInput("", 80, 70, 180, 20) $input2 = GUICtrlCreateInput("", 80, 90, 180, 20) $input3 = GUICtrlCreateInput("", 80, 110, 180, 20) $input4 = GUICtrlCreateInput("", 80, 130, 180, 20) $input5 = GUICtrlCreateInput("", 80, 150, 180, 20) $input6 = GUICtrlCreateInput("", 80, 170, 180, 20) $input7 = GUICtrlCreateInput("", 80, 190, 180, 20) $input8 = GUICtrlCreateInput("", 80, 210, 180, 20) $input9 = GUICtrlCreateInput("", 80, 230, 180, 20) $input10 = GUICtrlCreateInput("", 80, 250, 180, 20) $checkbox = GUICtrlCreateCheckbox ("Input an 'Enter' after text", 41, 280, 140, 20) $time = GUICtrlCreateInput("5", 210, 307, 40, 20) GUICtrlCreateLabel ("Time between Posts (in seconds)", 40, 310) Dim $Position, $i = 0, $Record[1][2] Global $check = 0 Func CLOSEClicked() Exit EndFunc Func Position() While 1 If _IsPressed("01") Then $Position = MouseGetPos() ReDim $Record[$i + 1][2] $Record[$i][0] = $Position[0] $Record[$i][1] = $position[1] consoleWrite($Record[$i][0] & @LF & $Record[$i][ 1] & @LF) GUICtrlCreateLabel ("x = "&$Record[$i][0] & @LF & "y = "& $Record[$i][1] & @LF, 200, 20) $i += 1 ExitLoop EndIf sleep(10) WEnd EndFunc While 1 If GUICtrlRead($on) = $GUI_CHECKED Then $check = 1 EndIf If GUICtrlRead($off) = $GUI_CHECKED Then $check = 0 EndIf If $check = 1 Then If $score < 11 Then If $score = 1 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input1)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf If $score = 2 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input1)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf If $score = 3 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input1)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf If $score = 4 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input1)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf If $score = 5 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input1)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf If $score = 6 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input1)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf If $score = 7 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input1)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf If $score = 8 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input1)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf If $score = 9 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input1)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf If $score = 10 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input1)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf EndIf If $score = 11 Then $score = 1 EndIf EndIf sleep(10) WEnd [font="Comic Sans MS"]BA-LA[/font]http://ba-la.110mb.comJoin my community, CLICK HEREAlternative links to my site:http://www.ba-la.tkhttp://www.ba-la.co.nrContact me if you would like to help with some of my projects: joeythepirate@gmail.com
lolord5 Posted January 5, 2007 Author Posted January 5, 2007 Lol. Sorry for all this trouble man. But I've found another bug. Line 65 If $score <11 Then If ^ ERROR Error: Variable used without being declared
BALA Posted January 5, 2007 Posted January 5, 2007 Forgot to set the variable Just add: Global $score = 1 near the top of the code. [font="Comic Sans MS"]BA-LA[/font]http://ba-la.110mb.comJoin my community, CLICK HEREAlternative links to my site:http://www.ba-la.tkhttp://www.ba-la.co.nrContact me if you would like to help with some of my projects: joeythepirate@gmail.com
lolord5 Posted January 5, 2007 Author Posted January 5, 2007 Lol Just 1 more tiny bug. The program just spams the first message all day without going to the second one. Lol good work btw.
BALA Posted January 5, 2007 Posted January 5, 2007 (edited) Oh, again it's another copy and paste mistake I made Here: expandcollapse popup#include <Misc.au3> #include <GUIConstants.au3> Global $score = 1 Opt("GUIOnEventMode", 1) $mainwindow = GUICreate("BA-TYPER", 300, 320) GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked") GUISetState() $position1 = GUICtrlCreateButton("Position", 70, 20, 120) GUICtrlSetOnEvent($position1, "Position") $on = GUICtrlCreateRadio ("On", 40, 60, 40, 20) $off = GUICtrlCreateRadio ("Off", 40, 80, 40, 20) GUICtrlSetState ($off, $GUI_CHECKED) ;Inputs are here $input1 = GUICtrlCreateInput("", 80, 70, 180, 20) $input2 = GUICtrlCreateInput("", 80, 90, 180, 20) $input3 = GUICtrlCreateInput("", 80, 110, 180, 20) $input4 = GUICtrlCreateInput("", 80, 130, 180, 20) $input5 = GUICtrlCreateInput("", 80, 150, 180, 20) $input6 = GUICtrlCreateInput("", 80, 170, 180, 20) $input7 = GUICtrlCreateInput("", 80, 190, 180, 20) $input8 = GUICtrlCreateInput("", 80, 210, 180, 20) $input9 = GUICtrlCreateInput("", 80, 230, 180, 20) $input10 = GUICtrlCreateInput("", 80, 250, 180, 20) $checkbox = GUICtrlCreateCheckbox ("Input an 'Enter' after text", 41, 280, 140, 20) $time = GUICtrlCreateInput("5", 210, 307, 40, 20) GUICtrlCreateLabel ("Time between Posts (in seconds)", 40, 310) Dim $Position, $i = 0, $Record[1][2] Global $check = 0 Func CLOSEClicked() Exit EndFunc Func Position() While 1 If _IsPressed("01") Then $Position = MouseGetPos() ReDim $Record[$i + 1][2] $Record[$i][0] = $Position[0] $Record[$i][1] = $position[1] GUICtrlCreateLabel ("x = "&$Record[$i][0] & @LF & "y = "& $Record[$i][1] & @LF, 200, 20) $i += 1 ExitLoop EndIf sleep(10) WEnd EndFunc While 1 If GUICtrlRead($on) = $GUI_CHECKED Then $check = 1 EndIf If GUICtrlRead($off) = $GUI_CHECKED Then $check = 0 EndIf If $check = 1 Then If $score < 11 Then If $score = 1 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input1)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf If $score = 2 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input2)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf If $score = 3 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input3)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf If $score = 4 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input4)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf If $score = 5 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input5)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf If $score = 6 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input6)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf If $score = 7 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input7)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf If $score = 8 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input8)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf If $score = 9 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input9)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf If $score = 10 Then MouseClick("left", $Position[0], $position[1], 1) Send (""&GuiCtrlRead($input10)) If GUICtrlRead($checkbox) = $GUI_CHECKED Then Send("{ENTER}") EndIf sleep(1000 * GuiCtrlRead($time)) $score = $score + 1 EndIf EndIf If $score = 11 Then $score = 1 EndIf EndIf sleep(10) WEnd Edited January 6, 2007 by BALA [font="Comic Sans MS"]BA-LA[/font]http://ba-la.110mb.comJoin my community, CLICK HEREAlternative links to my site:http://www.ba-la.tkhttp://www.ba-la.co.nrContact me if you would like to help with some of my projects: joeythepirate@gmail.com
lolord5 Posted January 5, 2007 Author Posted January 5, 2007 Lol can you show me how to use the position button? Lol. I don't get it. I click on it then it shows the x and y numbers.
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