Jump to content

How do I autospam?


Recommended Posts

  • Replies 49
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

I want to make a script that can auto spam like 10 pharases all random. Is that possible? This is for a game I am playing and I am tired of spamming the item and price i am it selling for.

What do you have to do to send it?

Do you have to push enter before typing? or something like that?

This may give you an idea

HotKeySet("{HOME}", "Spam")

While 1
    Sleep(1000)
WEnd

Func Spam()
    $Num = Random(1, 10, 1)
    Switch $Num
        Case 1
            Send("Message 1")
        Case 2
            Send("Message 2")
        Case 3
            Send("Message 3")
        Case 4
            Send("Message 4")
        Case 5
            Send("Message 5")
        Case 6
            Send("Message 6")
        Case 7
            Send("Message 7")
        Case 8
            Send("Message 8")
        Case 9
            Send("Message 9")
        Case 10
            Send("Message 10")
    EndSwitch
EndFunc
Link to comment
Share on other sites

lol thanks for that Paulie. This is what I came up with. But can you help me on how to auto spam it? Like say a message after 10 seconds. Thanks so much!

HotKeySet("{HOME}", "Spam")

While 1

Sleep(1000)

WEnd

Func Spam()

$Num = Random(1, 10, 1)

Switch $Num

Case 1

Send("{Enter}")

Send("Message 1{Enter}")

Case 2

Send("{Enter}")

Send("Message 2{Enter}")

Case 3

Send("{Enter}")

Send("Message 3{Enter}")

Case 4

Send("{Enter}")

Send("Message 4{Enter}")

Case 5

Send("{Enter}")

Send("Message 5{Enter}")

Case 6

Send("{Enter}")

Send("Message 6{Enter}")

Case 7

Send("{Enter}")

Send("Message 7{Enter}")

Case 8

Send("{Enter}")

Send("Message 8{Enter}")

Case 9

Send("{Enter}")

Send("Message 9{Enter}")

Case 10

Send("{Enter}")

Send("Message 10{Enter}")

EndSwitch

EndFunc

Link to comment
Share on other sites

I'm only posting this because I'm bored. I haven't seen any code from you at all, so I'm a little reluctant. But, anyway...

HotKeySet('{esc}', 'quit')
HotKeySet('{F2}', 'toggle')

$on = False

Dim $msgs[10] = [ _
        'msg 1', _
        'msg 2', _
        'msg 3', _
        'msg 4', _
        'msg 5', _
        'msg 6', _
        'msg 7', _
        'msg 8', _
        'msg 9', _
        'msg 10']

While 1
    While $on
        Send('{enter}')
        Send($msgs[Random(0, 9, 1) ])
        Send('{enter}')
        Sleep(10000)
    WEnd
    Sleep(100)
WEnd

Func toggle()
    $on = Not $on
EndFunc

Func quit()
    MsgBox(0, '', 'Exiting...', 1)
    Exit
EndFunc

edit - because

Edited by xcal
Link to comment
Share on other sites

thanks guys. Hey btw this game has a spam protection. Meaning that if you type something in twice it doesnt let you talk anymore. Also I observed how it would work through a notepad and it sometimes sends the same message twice. It there a way to send the messages in the order 1-10 then start over again instead of random? Thank you!!!

Link to comment
Share on other sites

:P Haha, I made an auto spammer just 3 days ago, it's up for download on my site: http://www.BA-LA.tk

It's called BA-TYPER and it'll let you input how long you want to wait between each "spam" and lets you choose where to "spam" the "spam" too.

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

well, you know how to code in AutoIt right? If so, all you need to do is just create more input slots in the GUI and tell the program to run them one at a time.

If you want, I could help you program a modified version of my BA-TYPER for yourself.

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

Ok, let's do here on the thread in case someone else has a similar question. (Also in increase my Uber post count :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

This BA-TYPER as it is currently:

#include <Misc.au3>
#include <GUIConstants.au3>

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
        MouseClick("left", $Position[0], $position[1], 1)
        Send (""&GuiCtrlRead($input))
        If GUICtrlRead($checkbox) = $GUI_CHECKED Then
            Send("{ENTER}")
        EndIf
        sleep(1000 * GuiCtrlRead($time))
    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 would be BA-TYPER with ten extra "inputs" :

#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
        MouseClick("left", $Position[0], $position[1], 1)
        Send (""&GuiCtrlRead($input))
        If GUICtrlRead($checkbox) = $GUI_CHECKED Then
            Send("{ENTER}")
        EndIf
        sleep(1000 * GuiCtrlRead($time))
    EndIf
    sleep(10)
WEnd

Now we need to make it so the program executes these in order.

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'll have to change this part of the code:

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Ý÷ Ù:,¢g­)à)¶¬jëh×6If $check = 1 Then
        If $score < 11
            MouseClick("left", $Position[0], $position[1], 1)
            Send (""&GuiCtrlRead($input))
            If GUICtrlRead($checkbox) = $GUI_CHECKED Then
                Send("{ENTER}")
            EndIf
            sleep(1000 * GuiCtrlRead($time))
            $score = $score + 1
        EndIf
        If $score = 11
            $score = 1
        EndIfoÝ÷ ØçÜ¢êì{*.Â)e«Þ¶nµ«­¢+Ù±½°ÀÌØíͽÉôÄ

near the top of the code.

Note that it's not finished yet.

Position allows you to choose where you want the program to simulate a click, as to where you want to spam. You're "positioning" where the mouse clicks

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

I'm just wondering...where's the limit for these kind of questions ? When looking at Jon's statement after he closed

the gaming-forum in 2004, it doesn't seem to be a rule that is followed, as I can't remember seeing a single topic

that is closed purely because it was a gaming question, such as this one.

Gaming questions may not be asked in the other forums unless they are phrased politely as a non-gaming question.

( http://www.autoitscript.com/forum/index.php?showtopic=978 )
Link to comment
Share on other sites

This will tell the program to "spam" in order and after it spams the last one, it'll go back to the first one:

If $check = 1 Then
        If $score < 11
            If $score = 1
                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
                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
                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
                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
                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
                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
                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
                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
                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
                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
            $score = 1
        EndIf
    EndIf

EDIT: sorry for continuing if this is against the rule, saw Helge's post after I already posted

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...