How do I autospam?

[lolord5]

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.

[Bert]

1. what is the game name?

[Somniis]

Yep.. quite easy, depending on the game.

As Volly said.. what is the name of the game?

[Paulie]

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

[lolord5]

Silkroad; Yeah you have to press enter send message then enter again.

[lolord5]

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

[xcal]

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 January 5, 2007 by xcal

[lolord5]

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

[BALA]

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 January 5, 2007 by BALA

[lolord5]

hmm thanks... well i need something that could spam other messages too instead of just one.

[BALA]

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 January 5, 2007 by BALA

[lolord5]

Oh that would be great!

[BALA]

Ok, let's do here on the thread in case someone else has a similar question. (Also in increase my Uber post count )

Edited January 5, 2007 by BALA

[BALA]

This BA-TYPER as it is currently:

expandcollapse popup

#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

[lolord5]

Ok.

[BALA]

This would be BA-TYPER with ten extra "inputs" :

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
        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 January 5, 2007 by BALA

[lolord5]

Hey whats the position button for?

[BALA]

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 January 5, 2007 by BALA

[Helge]

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 )

[BALA]

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

expandcollapse popup

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 January 5, 2007 by BALA