Jump to content

How do I autospam?


Recommended Posts

  • Replies 49
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

No problem, hope this helps you in AutoIt programming :D

No really, make it help, I don't wanna get in trouble for this! :P

Edited 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
Link to comment
Share on other sites

Oh, just add Then after 11, I must've forgot that part :P

Do that for all of them

Edited 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
Link to comment
Share on other sites

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 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
Link to comment
Share on other sites

you did replace:

If $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
Link to comment
Share on other sites

This code should work:

#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
Link to comment
Share on other sites

THIS code should work:

#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
Link to comment
Share on other sites

Oh, again it's another copy and paste mistake I made :P

Here:

#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 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
Link to comment
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...