lolord5 Posted January 5, 2007 Share Posted January 5, 2007 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. Link to comment Share on other sites More sharing options...
Bert Posted January 5, 2007 Share Posted January 5, 2007 1. what is the game name? The Vollatran project My blog: http://www.vollysinterestingshit.com/ Link to comment Share on other sites More sharing options...
Somniis Posted January 5, 2007 Share Posted January 5, 2007 Yep.. quite easy, depending on the game. As Volly said.. what is the name of the game? Link to comment Share on other sites More sharing options...
Paulie Posted January 5, 2007 Share Posted January 5, 2007 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 More sharing options...
lolord5 Posted January 5, 2007 Author Share Posted January 5, 2007 Silkroad; Yeah you have to press enter send message then enter again. Link to comment Share on other sites More sharing options...
lolord5 Posted January 5, 2007 Author Share Posted January 5, 2007 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 More sharing options...
xcal Posted January 5, 2007 Share Posted January 5, 2007 (edited) 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 How To Ask Questions The Smart Way Link to comment Share on other sites More sharing options...
lolord5 Posted January 5, 2007 Author Share Posted January 5, 2007 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 More sharing options...
BALA Posted January 5, 2007 Share Posted January 5, 2007 (edited) Haha, I made an auto spammer just 3 days ago, it's up for download on my site: http://www.BA-LA.tkIt'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 [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 More sharing options...
lolord5 Posted January 5, 2007 Author Share Posted January 5, 2007 hmm thanks... well i need something that could spam other messages too instead of just one. Link to comment Share on other sites More sharing options...
BALA Posted January 5, 2007 Share Posted January 5, 2007 (edited) 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 [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 More sharing options...
lolord5 Posted January 5, 2007 Author Share Posted January 5, 2007 Oh that would be great! Link to comment Share on other sites More sharing options...
BALA Posted January 5, 2007 Share Posted January 5, 2007 (edited) 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 [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 More sharing options...
BALA Posted January 5, 2007 Share Posted January 5, 2007 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 [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 More sharing options...
lolord5 Posted January 5, 2007 Author Share Posted January 5, 2007 Ok. Link to comment Share on other sites More sharing options...
BALA Posted January 5, 2007 Share Posted January 5, 2007 (edited) 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 [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 More sharing options...
lolord5 Posted January 5, 2007 Author Share Posted January 5, 2007 Hey whats the position button for? Link to comment Share on other sites More sharing options...
BALA Posted January 5, 2007 Share Posted January 5, 2007 (edited) 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 [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 More sharing options...
Helge Posted January 5, 2007 Share Posted January 5, 2007 I'm just wondering...where's the limit for these kind of questions ? When looking at Jon's statement after he closedthe gaming-forum in 2004, it doesn't seem to be a rule that is followed, as I can't remember seeing a single topicthat 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 More sharing options...
BALA Posted January 5, 2007 Share Posted January 5, 2007 (edited) 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 popupIf $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 [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 More sharing options...
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