DirtyBanditos Posted December 4, 2004 Share Posted December 4, 2004 (edited) Hello I have test autoit 3 wis scriptwriter wörks great) My prob i ned help for create a InputBox to send my wrote message! this is my simpel text send need help for make a InputBox to send my wrote message! Thx all for help) i have fund this code on his forum $Sentences = FileRead('c:\sentences.txt',FileGetSize('e:\full path\sentences.txt')) StringReplace($Sentences,@CRLF,@LF);If it is a standard Dos .txt file that uses @crlf as ; new line chars. otherwise change as needed. $Sentences = StringSplit($Sentences,@lf) Send('{Enter}');Activate the 'chat mode' Send($Sentences[int(Random(1,$Sentences[0]+1))],1);Write your nonsense Send('{Enter}');Send it! This is the my Sentence Text for send Messages $Sentences 01- I want to kill everyone! 02- You... I hate, die. 03- You are boring, die. 04- Move along or die. You have to choice. 05- MURDER! DEATH! KILL! 06- Worry not. You'll leave... for going in hell. 07- Heavens are awaiting you. 08- Ect. And this is my code for send a message from Sentences.txt lock pls wy not send my message from his Sentences.txt wen use this bot send his not the text message hi send the other message great need pls Big thx to all)) Opt("WinWaitDelay",4000) Opt("WinTitleMatchMode",4) Opt("WinDetectHiddenText",1) Opt("MouseCoordMode",0) WinWait("Sacred","") If Not WinActive("Sacred","") Then WinActivate("Sacred","") WinWaitActive("Sacred","") AdlibEnable("SacredCheck") AdlibDisable() Func SacredCheck() If WinExists("Sacred") == 0 Then MsgBox(0,"My Spam Bot","You need Sacred to run, and the window is not present in memory.") Exit EndIf If WinActive("Sacred") == 0 Then $msgActive = MsgBox(4,"DirtyBanditos SpamBot 1.0 Beta Version ","Sacred is not active and should be. The script is now paused. Click YES if you want to unpause the script, or NO if you want to stop its execution.") Select Case $msgActive = 6 WinActivate("Sacred") Case $msgActive = 7 Exit EndSelect EndIf EndFunc Sleep(1000) Global $Paused HotKeySet("{PAUSE}", "TogglePause") Func TogglePause() $Paused = NOT $Paused While $Paused Sleep(100) WEnd EndFunc $counter = 1 While 1 Sleep(1000) $Sentences = FileRead('c:\sentences.txt',FileGetSize('c:\sentences.txt')) StringReplace($Sentences,@CRLF,@LF);If it is a standard Dos .txt file that uses @crlf as ; new line chars. otherwise change as needed. $Sentences = StringSplit($Sentences,@lf) Send('{Enter}'); Sleep(1000) Send($Sentences[int(Random(1,$Sentences[0]+1))],1);Write your Message to Spamm Sleep(1000) Send('{Enter}'); Sleep(1000) If $counter = 5 Then Send("{ENTER}{CTRLDOWN}{ALTDOWN}[{CTRLUP}{ALTUP}\cff000020{SHIFTDOWN}h{SHIFTUP}ello{SPACE}this{SPACE}is{SPACE}my{SPACE}first{SPACE}spamm{SPACE}b ot{SPACE}l`l{ENTER}"); sleep(1500) ; $counter = 1 EndIf $counter = $counter + 1 Wend Edited December 4, 2004 by DirtyBanditos Link to comment Share on other sites More sharing options...
scriptkitty Posted December 4, 2004 Share Posted December 4, 2004 a bit more organised, not sure if this is what you meant to do: expandcollapse popupOpt ("WinWaitDelay", 4000) Opt ("WinTitleMatchMode", 4) Opt ("WinDetectHiddenText", 1) Opt ("MouseCoordMode", 0) WinWait("Sacred", "") If Not WinActive("Sacred", "") Then WinActivate("Sacred", "") WinWaitActive("Sacred", "") AdlibEnable("SacredCheck") AdlibDisable(); you turn it off? Sleep(1000) Global $Paused HotKeySet("{PAUSE}", "TogglePause") $counter = 1 While 1 Sleep(1000) $Sentences = FileRead('c:\sentences.txt', FileGetSize('c:\sentences.txt')) ; note StringReplace($Sentences,@CRLF,@LF) by itself does nothing $Sentences = StringReplace($Sentences, @CRLF, @LF);If it is a standard Dos .txt file that uses @crlf as ; new line chars. otherwise change as needed. tooltip($sentences) $Sentences = StringSplit($Sentences, @LF) Send('{Enter}'); Sleep(1000) Send($Sentences[Int(Random(1, $Sentences[0] + 1)) ], 1);Write your Message to Spamm Sleep(1000) Send('{Enter}'); Sleep(1000) If $counter = 5 Then Send("{ENTER}{CTRLDOWN}{ALTDOWN}[{CTRLUP}{ALTUP}& #092;cff000020{SHIFTDOWN}h{SHIFTUP}ello{SPACE}this{SPACE}is{SPACE}my{SPACE}first{SPACE}spamm{SPACE}b ot{SPACE}l`l{ENTER}"); Sleep(1500); $counter = 1 EndIf $counter = $counter + 1 Wend Func SacredCheck() If WinExists("Sacred") == 0 Then MsgBox(0, "My Spam Bot", "You need Sacred to run, and the window is not present in memory.") Exit EndIf If WinActive("Sacred") == 0 Then $msgActive = MsgBox(4, "DirtyBanditos SpamBot 1.0 Beta Version ", "Sacred is not active and should be. The script is now paused. Click YES if you want to unpause the script, or NO if you want to stop its execution.") Select Case $msgActive = 6 WinActivate("Sacred") Case $msgActive = 7 Exit EndSelect EndIf EndFunc ;==>SacredCheck Func TogglePause() $Paused = Not $Paused While $Paused Sleep(100) Wend EndFunc ;==>TogglePause on a side note, please put all functions at top or bottom, and not inbetween your code, it is very confusing to read. I noted a few things I saw as problems. AutoIt3, the MACGYVER Pocket Knife for computers. Link to comment Share on other sites More sharing options...
DirtyBanditos Posted December 4, 2004 Author Share Posted December 4, 2004 a bit more organised, not sure if this is what you meant to do:expandcollapse popupOpt ("WinWaitDelay", 4000) Opt ("WinTitleMatchMode", 4) Opt ("WinDetectHiddenText", 1) Opt ("MouseCoordMode", 0) WinWait("Sacred", "") If Not WinActive("Sacred", "") Then WinActivate("Sacred", "") WinWaitActive("Sacred", "") AdlibEnable("SacredCheck") AdlibDisable(); you turn it off? Sleep(1000) Global $Paused HotKeySet("{PAUSE}", "TogglePause") $counter = 1 While 1 Sleep(1000) $Sentences = FileRead('c:\sentences.txt', FileGetSize('c:\sentences.txt')) ; note StringReplace($Sentences,@CRLF,@LF) by itself does nothing $Sentences = StringReplace($Sentences, @CRLF, @LF);If it is a standard Dos .txt file that uses @crlf as ; new line chars. otherwise change as needed. tooltip($sentences) $Sentences = StringSplit($Sentences, @LF) Send('{Enter}'); Sleep(1000) Send($Sentences[Int(Random(1, $Sentences[0] + 1)) ], 1);Write your Message to Spamm Sleep(1000) Send('{Enter}'); Sleep(1000) If $counter = 5 Then Send("{ENTER}{CTRLDOWN}{ALTDOWN}[{CTRLUP}{ALTUP}& #092;cff000020{SHIFTDOWN}h{SHIFTUP}ello{SPACE}this{SPACE}is{SPACE}my{SPACE}first{SPACE}spamm{SPACE}b ot{SPACE}l`l{ENTER}"); Sleep(1500); $counter = 1 EndIf $counter = $counter + 1 Wend Func SacredCheck() If WinExists("Sacred") == 0 Then MsgBox(0, "My Spam Bot", "You need Sacred to run, and the window is not present in memory.") Exit EndIf If WinActive("Sacred") == 0 Then $msgActive = MsgBox(4, "DirtyBanditos SpamBot 1.0 Beta Version ", "Sacred is not active and should be. The script is now paused. Click YES if you want to unpause the script, or NO if you want to stop its execution.") Select Case $msgActive = 6 WinActivate("Sacred") Case $msgActive = 7 Exit EndSelect EndIf EndFunc ;==>SacredCheck Func TogglePause() $Paused = Not $Paused While $Paused Sleep(100) Wend EndFunc ;==>TogglePauseon a side note, please put all functions at top or bottom, and not inbetween your code, it is very confusing to read.I noted a few things I saw as problems.<{POST_SNAPBACK}>Hello Thx Sscriptkittyfor help and organised this code i test this code!Thank you! Link to comment Share on other sites More sharing options...
DirtyBanditos Posted December 4, 2004 Author Share Posted December 4, 2004 (edited) Hello Thx Scriptkittyfor help and organised this code i test this code!Thank you! <{POST_SNAPBACK}>Hello Thx Sscriptkittyfor help and organised this code i test this code!Thank you! <{POST_SNAPBACK}>Hello Thx Scriptkittyfor help and organised this code i test this code!Thank you! I have this prob wis the code i ned the comand for closed the string from the error pick folow this link to my error Pick((Error pick ned help pls^^Thx for help Edited December 4, 2004 by DirtyBanditos Link to comment Share on other sites More sharing options...
scriptkitty Posted December 4, 2004 Share Posted December 4, 2004 (edited) your problem is pasting the code back in, this should be all one line: this is a cut and paste Send("{ENTER}{CTRLDOWN}{ALTDOWN}[{CTRLUP}{ALTUP}& #092;cff000020{SHIFTDOWN}h{SHIFTUP}ello{SPACE}this{SPACE}is{SPACE}my{SPACE}first{SPACE}spamm{SPACE}b ot{SPACE}l`l{ENTER}"); this looks the same but isn't Send("{ENTER}{CTRLDOWN}{ALTDOWN}[{CTRLUP}{ALTUP}\cff000020{SHIFTDOWN}h{SHIFTUP}ello{SPACE}this{SPACE}is{SPACE}my{SPACE}first{SPACE}spamm{SPACE}b ot{SPACE}l`l{ENTER}"); you can alternately break it apart for easier viewing and copying: Send("{ENTER}{CTRLDOWN}{ALTDOWN}[{CTRLUP}_ {ALTUP}& #092;cff000020{SHIFTDOWN}h{SHIFTUP}ello_ {SPACE}this{SPACE}is{SPACE}my{SPACE}first{SPACE}_ spamm{SPACE}bot{SPACE}l`l{ENTER}"); example: sleep(1000) send("hello there bob") send("{enter}") send("hel_ lo th_ ere bob") it is in the manual but a bit hard to find. Continue lines with _ Edited December 4, 2004 by scriptkitty AutoIt3, the MACGYVER Pocket Knife for computers. Link to comment Share on other sites More sharing options...
DirtyBanditos Posted December 4, 2004 Author Share Posted December 4, 2004 your problem is pasting the code back in, this should be all one line:this is a cut and pasteSend("{ENTER}{CTRLDOWN}{ALTDOWN}[{CTRLUP}{ALTUP}& #092;cff000020{SHIFTDOWN}h{SHIFTUP}ello{SPACE}this{SPACE}is{SPACE}my{SPACE}first{SPACE}spamm{SPACE}b ot{SPACE}l`l{ENTER}");this looks the same but isn'tSend("{ENTER}{CTRLDOWN}{ALTDOWN}[{CTRLUP}{ALTUP}\cff000020{SHIFTDOWN}h{SHIFTUP}ello{SPACE}this{SPACE}is{SPACE}my{SPACE}first{SPACE}spamm{SPACE}b ot{SPACE}l`l{ENTER}");you can alternately break it apart for easier viewing and copying:Send("{ENTER}{CTRLDOWN}{ALTDOWN}[{CTRLUP}_ {ALTUP}& #092;cff000020{SHIFTDOWN}h{SHIFTUP}ello_ {SPACE}this{SPACE}is{SPACE}my{SPACE}first{SPACE}_ spamm{SPACE}bot{SPACE}l`l{ENTER}");example:sleep(1000) send("hello there bob") send("{enter}") send("hel_ lo th_ ere bob")it is in the manual but a bit hard to find. Continue lines with _<{POST_SNAPBACK}>Hi Scritkitty thx for fast help! wat do you say is right )Very big thx for help I test it new wis your exampels Link to comment Share on other sites More sharing options...
DirtyBanditos Posted December 4, 2004 Author Share Posted December 4, 2004 (edited) Hi Scritkitty thx for fast help! wat do you say is right )Very big thx for help I test it new wis your exampels <{POST_SNAPBACK}>Hello Scritkitty i have adde more Features on it its wörks Great )) ^Thx you check my code for new Nobb Bugs pls in Sripting thx alot ; ----------------------------------------------------------------------------;; AutoIt Version: 5.0; Language: Germany; Platform: Win9x / NT/XP; Description: Get the red component of a given color.; Syntax: _ Color( $nColor ); Parameter(s): $nColor - The RGB color to work with (numeric).; Requirement(s): None; Return Value(s): On Success - Returns the component color in the range 0-255; On Failure - None; Author: DirtyBanditos <DirtyBanditos@web.de.>; Website Autor WWW.SacredShop.de.vu; Helper; Scriptkitty www.hiddesoft.com; Releas Date : 6.12.2004; Script Function: Spammbot For Sacred 1.8.26 Finel;Template AutoIt script.;;===============================================================================; ----------------------------------------------------------------------------; Set up our defaults; ----------------------------------------------------------------------------;AutoItSetOption("MustDeclareVars", 1);AutoItSetOption("MouseCoordMode", 0);AutoItSetOption("PixelCoordMode", 0);AutoItSetOption("RunErrorsFatal", 1);AutoItSetOption("TrayIconDebug", 1);AutoItSetOption("WinTitleMatchMode", 4); ----------------------------------------------------------------------------; Script Start; ----------------------------------------------------------------------------$on = 0$destination = @TempDir & "\mySplash.bmp"FileInstall("C:\Programme\THC.bmp", $destination)SplashImageOn("Fall", $destination, 800, 525, -1, -1, 1)Sleep(3000)SplashOff(); ----------------------------------------------------------------------------; Script Start; ----------------------------------------------------------------------------SoundPlay("C:\Programme\DirtyBanditos\Thc.wav", 0)If FileExists("C:\Programme\DirtyBanditos\Thc.wav") Then $Tada = ("C:\Programme\DirtyBanditos\Thc.wav")Else $Tada = ("C:\Programme\DirtyBanditos\Thc.wav")EndIf; ----------------------------------------------------------------------------; Script Start; ----------------------------------------------------------------------------; This will create a tooltip in the upper left of the screenToolTip(" Drücke Shift+Pause In Game Das Öfnet Die Hilfe Box Have Fun^", 370, 320)Sleep(1000) ; Sleep to give tooltip time to display; ----------------------------------------------------------------------------; Script Start; ----------------------------------------------------------------------------; Prompt the user to run the script using Yes/No prompt$run = MsgBox(4, "DirtyBanditos Sacred 1.8.26 Finel Public Spammbot 1.1 Beta Version ", "This script will call DirtyBanditos sacred 1.8.26 Finel Public Spammbot 1.1 Beta Reales written In Autoit By DirtyBanditos sacred 1.8.26 Finel Public Spammbot 1.1 Beta Version Reales written In Autoit 3 Beta By DirtyBanditos )) Coded By DirtyBanditos Copyright 2004 THX To Scriptkitty for Help To make This Spammbot 1.1 Beta )). Run?", "Do you want to run DirtyBanditos sacred 1.8.26 Finel Public Spammbot 1.1 Beta Version?"); Exit if "No"If $run = 7 Then MsgBox(0, "DirtyBanditos sacred 1.8.26 Finel Public Spammbot 1.1 Beta Version ", "Coded <By DirtyBanditos 2004-2005 OK. Bye!") ExitEndIf; ----------------------------------------------------------------------------; Script Start; ----------------------------------------------------------------------------; Initial shitHotKeySet("{ESC}", "EndScript")HotKeySet("{F1}", "Pauseon")HotKeySet("{F2}", "Pauseoff")HotKeySet("+{PAUSE}", "_MsgBox"); ----------------------------------------------------------------------------; Script Start; ----------------------------------------------------------------------------SplashTextOn('DirtyBanditos sacred 1.8.26 Finel Public Spammbot 1,.1 Beta Reales written In Autoit By DirtyBanditos )) Coded By DirtyBanditos 5.12.2004 Copyright 2004', '..Loading.. DirtyBanditos sacred 1.8.26 Finel Public Spammbot 1.1 Beta Reales written In Autoit By DirtyBanditos Team THC-POWER Thx To Scriptkitty for Help to Prog This Spammbot 1.1 Beta for Sacred Use Shift+Pause Keys For In Game Help Have Fun DirtyBanditos ACHTUNG ACHTUNG!!! SACRED MUS IMMER Im FullMode Laufen Bzw NACH DEM START!!!)', 400, 400)Sleep(3500)SplashOff(); ----------------------------------------------------------------------------; Script code; ----------------------------------------------------------------------------Opt ("WinWaitDelay", 4000)Opt ("WinTitleMatchMode", 4)Opt ("WinDetectHiddenText", 1)Opt ("MouseCoordMode", 0)WinWait("Sacred", "")If Not WinActive("Sacred") Then WinActivate("Sacred")WinWaitActive("Sacred")AdlibEnable("SacredCheck")Sleep(1000)Global $PausedGlobal $MsgBoxHotKeySet("{PAUSE}", "TogglePause")HotKeySet("+{PAUSE}", "_MsgBox"); ----------------------------------------------------------------------------; Script code; ----------------------------------------------------------------------------; ----------------------------------------------------------------------------; Script code; ----------------------------------------------------------------------------AdlibEnable("SacredCheck")$counter = 1While 1 Sleep(1000) $Sentences = FileRead('C:\Programme\DirtyBanditos\THC 1.1 Beta.ini', FileGetSize('C:\Programme\DirtyBanditos\THC 1.1 Beta.ini')) ; note StringReplace($Sentences,@CRLF,@LF) by itself does nothing $Sentences = StringReplace($Sentences, @CRLF, @LF,);If it is a standard Dos .txt file that uses @crlf as ; new line chars. otherwise change as needed. ToolTip($Sentences) $Sentences = StringSplit($Sentences, @LF) Send('{Enter}'); Sleep(1000) Send($Sentences[int(Random(1, $Sentences[0] + 1)) ], 1);Write your Message to Spamm Sleep(1000) Send('{Enter}'); Sleep(1100) If $counter = 10 Then Send("{ENTER}{CTRLDOWN}{ALTDOWN}[{CTRLUP}_ {ALTUP}\cffff0090{SHIFTDOWN}h{SHIFTUP}ello_ {SPACE}this{SPACE}is{SPACE}The{SPACE}First{SPACE}_ Spamm{SPACE}Tradebot{SPACE}{SPACE} Not Publick{SPACE}{ENTER}"); $counter = 1 EndIf $counter = $counter + 1WendAdlibDisable(); you turn it off?; ----------------------------------------------------------------------------; Script code; ----------------------------------------------------------------------------AdlibEnable("SacredCheck")Func SacredCheck() If WinExists("Sacred") == 0 Then MsgBox(0, "Sacred", "You need Sacred to run, and the window is not present in memory.") Exit EndIf If WinActive("Sacred") == 10Then $msgActive = MsgBox(4, "DirtyBanditos SpammBot 1.1 Beta Version ", "Sacred is not active and should be. The script is now paused. Click YES if you want to unpause the script, or NO if you want to stop its execution.") Select Case $msgActive = 6 WinActivate("Sacred") Case $msgActive = 7 Exit EndSelect EndIf ; ---------------------------------------------------------------------------- ; Script code ; ---------------------------------------------------------------------------- ;EndFunc ;==>SacredCheckFunc TogglePause() $Paused = Not $Paused While $Paused Sleep(100) WendEndFunc ;==>TogglePause; Function to exit scriptSleep(1000); This will create a tooltip in the upper left of the screenToolTip("Drücke in Shift+Pause um Die InGame Keys zum Bot Zu sehn Have Fun°°", 370, 320)Sleep(13000) ; Sleep to give tooltip time to displayFunc _MsgBox() $run = MsgBox(4, "DirtyBanditos Sacred 1.8.26 Finel Public Spammbot 1.1 Beta Version ", " Achtung Achtung!!Sacred Mus Immer Maximiert Sein Sonst Kommt Es zu Ernsten Probs Also Immer Maxen Sacred nach dem Bot Start! ") $run = MsgBox(4, "DirtyBanditos Sacred 1.8.26 Finel Public Spammbot 1.1 Beta Version ", " Drücke In Game Pause Für Pause Und noch mal für Fortsetzen Des Bottes! ") $run = MsgBox(4, "DirtyBanditos Sacred 1.8.26 Finel Public Spammbot 1.1 Beta Version ", "Drücke Shift+Pause Für Hilfe Funktion der Tasten ") $run = MsgBox(4, "DirtyBanditos Sacred 1.8.26 Finel Public Spammbot 1.1 Beta Version ", " Drücke Die Esc Taste Für Exit Des Bottes ") $run = MsgBox(4, "DirtyBanditos Sacred 1.8.26 Finel Public Spammbot 1.1 Beta Version ", " Coded <By DirtyBanditos 2004-2005 ") ; Exit if "No" If $run = 7 Then MsgBox(0, "DirtyBanditos sacred 1.8.26 Finel Public Spammbot 1.1 Beta Version ", "Coded <By DirtyBanditos 2004-2005 OK. Bye DirtyBanditos!") Exit EndIfEndFunc ;==>_MsgBoxFunc _togglePause() $Paused = Not $Paused While Not $Paused Sleep(200) WendEndFunc ;==>_togglePauseFunc Pauseon() $on = 1 Sleep(200)EndFunc ;==>Pauseon; Function to exit scriptFunc Pauseoff() $on = 0 Sleep(200)EndFunc ;==>Pauseoff; Function to exit scriptFunc EndScript() ExitEndFunc ;==>EndScriptAdlibDisable(); you turn it off? Edited December 6, 2004 by DirtyBanditos 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