Sign in to follow this  
Followers 0
DirtyBanditos

Send Message ned Help

7 posts in this topic

#1 ·  Posted (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.

:idiot::D:lol:

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 by DirtyBanditos

Share this post


Link to post
Share on other sites



a bit more organised, not sure if this is what you meant to do:

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(); 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.

Share this post


Link to post
Share on other sites

a bit more organised, not sure if this is what you meant to do:

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(); 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.

<{POST_SNAPBACK}>

Hello :idiot:

Thx Sscriptkitty

for help and organised this code i test this code!

Thank you! :D

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

Hello  :idiot:

Thx Scriptkitty

for help and organised this code i test this code!

Thank you! ;)

<{POST_SNAPBACK}>

Hello  :D

Thx Sscriptkitty

for help and organised this code i test this code!

Thank you! :D

<{POST_SNAPBACK}>

Hello :lol:

Thx Scriptkitty

for help and organised this code i test this code!

Thank you! :D

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 :D

Edited by DirtyBanditos

Share this post


Link to post
Share on other sites

#5 ·  Posted (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 by scriptkitty

AutoIt3, the MACGYVER Pocket Knife for computers.

Share this post


Link to post
Share on other sites

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 _

<{POST_SNAPBACK}>

Hi Scritkitty thx for fast help! wat do you say is right )

Very big thx for help :idiot:

I test it new wis your exampels :D

Share this post


Link to post
Share on other sites

#7 ·  Posted (edited)

Hi Scritkitty thx for fast help!  wat do  you say is right )

Very big thx for  help :idiot:

I test it new wis your exampels :D

<{POST_SNAPBACK}>

Hello Scritkitty i have adde more Features on it its wörks Great )) ;) ^

Thx you :D

check my code for new Nobb Bugs pls in Sripting thx alot :lol:

; ----------------------------------------------------------------------------

;

; 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 screen

ToolTip(" 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!")

Exit

EndIf

; ----------------------------------------------------------------------------

; Script Start

; ----------------------------------------------------------------------------

; Initial shit

HotKeySet("{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 $Paused

Global $MsgBox

HotKeySet("{PAUSE}", "TogglePause")

HotKeySet("+{PAUSE}", "_MsgBox")

; ----------------------------------------------------------------------------

; Script code

; ----------------------------------------------------------------------------

; ----------------------------------------------------------------------------

; Script code

; ----------------------------------------------------------------------------

AdlibEnable("SacredCheck")

$counter = 1

While 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 + 1

Wend

AdlibDisable(); 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 ;==>SacredCheck

Func TogglePause()

$Paused = Not $Paused

While $Paused

Sleep(100)

Wend

EndFunc ;==>TogglePause

; Function to exit script

Sleep(1000)

; This will create a tooltip in the upper left of the screen

ToolTip("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 display

Func _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

EndIf

EndFunc ;==>_MsgBox

Func _togglePause()

$Paused = Not $Paused

While Not $Paused

Sleep(200)

Wend

EndFunc ;==>_togglePause

Func Pauseon()

$on = 1

Sleep(200)

EndFunc ;==>Pauseon

; Function to exit script

Func Pauseoff()

$on = 0

Sleep(200)

EndFunc ;==>Pauseoff

; Function to exit script

Func EndScript()

Exit

EndFunc ;==>EndScript

AdlibDisable(); you turn it off?

Edited by DirtyBanditos

Share this post


Link to post
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
Sign in to follow this  
Followers 0