Add Hotkeys to This text spammer?

eliteapu · November 25, 2006

Hey, I found a source for a text spammer that works quite well in Battlefield2. My question is, could somebody edit it for me so that it works on hotkey instead of a timer...?

Heres exactly what I want changed...

Have a Hotkey/Timer Button switch (toggle from using hotkeys to timer spamming)

Hotkeys should be as follows::

NumPad 1 =Line1 of text spam

NumPad 2 =Line2 of text spam

ect ect.. through numpad 9

Still allow/keep 1-6 inputs lines of text

Fix any errors/Optimize the script where you feel it needs it...

and keep mostly everything else the same...

So, heres the source...

GuiCreate("aPu's Text Spammer", 365, 255,-1, -1 , $WS_POPUPWINDOW)
$label0=GUICtrlCreateLabel("V 1.1",10,2,40,20);;;;;;;;;;;;;;;;;;;
GUICtrlSetColor(-1,0xFFFF99)
$label9=GUICtrlCreateLabel("Updated",150,2,60,20)
$label9=GUICtrlCreateLabel("Nov 22,06",250,2,50,20)
GUICtrlSetColor(-1,0xFFFF99)
$label1=GuiCtrlCreateLabel("Line 1", 10, 20, 50, 20)
GUICtrlSetColor(-1,0xFFFF99)
$label2=GuiCtrlCreateLabel("Line 2", 10, 50, 50, 20)
GUICtrlSetColor(-1,0xFFFF99)
$label3=GuiCtrlCreateLabel("Line 3", 10, 80, 50, 20)
GUICtrlSetColor(-1,0xFFFF99)
$label4=GuiCtrlCreateLabel("Line 4", 10, 110, 50, 20)
GUICtrlSetColor(-1,0xFFFF99)
$label5=GuiCtrlCreateLabel("Line 5", 10, 140, 50, 20)
GUICtrlSetColor(-1,0xFFFF99)
$label6=GuiCtrlCreateLabel("Line 6", 10, 170, 50, 20)
GUICtrlSetColor(-1,0xFFFF99)
$group=GuiCtrlCreateLabel("aPu's Text Spammer", 110, 2, 100, 20)
$label7=GuiCtrlCreateLabel("Interval (ms)", 10, 195, 60, 15)
$label8=GuiCtrlCreateLabel("Prefix", 230, 198, 50, 20)
$btnclose=GUICtrlCreatePic(@ProgramsDir & "\RTS\BEN.jpg",361-18,2,16,16)
$btnminimize=GUICtrlCreatePic(@ProgramsDir & "\RTS\BMN.jpg",361-36,2,16,16)
;;;;;;;;;;;;;;;;;;;;;;;VARIABLES;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$Input1 = GuiCtrlCreateInput("", 70, 20, 280, 20)
$Input2 = GuiCtrlCreateInput("", 70, 50, 280, 20)
$Input3 = GuiCtrlCreateInput("", 70, 80, 280, 20)
$Input4 = GuiCtrlCreateInput("", 70, 110, 280, 20)
$Input5 = GuiCtrlCreateInput("", 70, 140, 280, 20)
$Input6 = GuiCtrlCreateInput("", 70, 170, 280, 20)
$InputDelay = GuiCtrlCreateInput("2500", 10, 210, 58, 20, $ES_NUMBER)
GUICtrlSetTip(-1,"Delay between each message in milliseconds (1000 = 1 second)")
$InputRepeat = GuiCtrlCreateCheckbox("Repeat Once", 130, 195, 90, 20)
GUICtrlSetTip(-1,"Each line will be displayed twice")
$InputRandom = GuiCtrlCreateCheckbox("Random Order", 130, 212, 90, 20)
GUICtrlSetTip(-1,"Lines will appear in random order")
$InputPrefix = GuiCtrlCreateCombo("None", 220, 212, 50, 20)
GUICtrlSetData(-1,"Enter|J|K|L|T|~")
$InputType = GuiCtrlCreateRadio("Type", 70, 195, 60, 20)
GUICtrlSetTip(-1,"Text will be typed automatically")
$InputPaste = GuiCtrlCreateRadio("Paste", 70, 212, 60, 20)
GUICtrlSetTip(-1,"Text will be copied and pasted")
$InputStart = GuiCtrlCreateButton("Start", 275, 195, 75, 40)
GUICtrlSetTip(-1,"Begins spamming after a small delay to select your windo")
$PlayOn = 0
$RandomOn = 4
$RepeatOn = 4
$Method = "Type"
$Waiting = 0
$Wait = 0
$Delay = 2500
$Next = ""
$LineVal = ""
$Current = 0
$Step = 0
$InitEnable = 0
$i = 0
$coord = 0
$RandomOrder = "012345"
$RandomCurrent = "0"
$RandomUsed = ""
Dim $LineVal[6]
;;;;;;;;;;;;;;;;;;;;;;;SETUP;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
GUICtrlSetLimit($Input1,60)
GUICtrlSetLimit($Input2,60)
GUICtrlSetLimit($Input3,60)
GUICtrlSetLimit($Input4,60)
GUICtrlSetLimit($Input5,60)
GUICtrlSetLimit($Input6,60)
GUICtrlSetState($InputType,$GUI_CHECKED)
;;;;;;;;;;;;;;;;;;;;;;;COLORS;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
GUISetBKColor(0x3300FF)
;;;;;;;;;;;;;;;;;;;;;;;ACTIONS;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
GuiSetState()
SoundPlay(@ProgramsDir & "\RTS\SRT.wav")
While 1
    $msg = GuiGetMsg()
    If $msg = $InputStart And $Waiting = 0 Then 
        If $PlayOn = 1 Then 
            $PlayOn = 0 
            GUICtrlSetData($InputStart,"Start")
            GUICtrlSetState($Input1,$GUI_ENABLE)
            GUICtrlSetState($Input2,$GUI_ENABLE)
            GUICtrlSetState($Input3,$GUI_ENABLE)
            GUICtrlSetState($Input4,$GUI_ENABLE)
            GUICtrlSetState($Input5,$GUI_ENABLE)
            GUICtrlSetState($Input6,$GUI_ENABLE)
            GUICtrlSetState($InputDelay,$GUI_ENABLE)
            GUICtrlSetState($InputRepeat,$GUI_ENABLE)
            GUICtrlSetState($InputRandom,$GUI_ENABLE)
            GUICtrlSetState($InputType,$GUI_ENABLE)
            GUICtrlSetState($InputPaste,$GUI_ENABLE)
            GUICtrlSetState($InputPrefix,$GUI_ENABLE)
            GUICtrlSetState($label8,$GUI_ENABLE)
            GUICtrlSetState($InputStart,$GUI_DISABLE)
            Sleep(1200)
            GUICtrlSetState($InputStart,$GUI_ENABLE)
        Else
            Starting()
        Endif
    Endif
        If $Waiting = 1 Then
            $RandomOrder = Random(0,5)
            Sleep(20)
            $Wait = $Wait - 20
            GUICtrlSetData($InputStart,"(" & $Wait & ") Starting")
            If $Wait = 0 Or $Wait < 0 Then
                GUICtrlSetData($InputStart,"Stop")
                $Waiting = 0
                $Next = $LineVal[0]
                GUICtrlSetState($InputStart,$GUI_ENABLE)
            Endif
        Endif
    If $PlayOn = 0 Then 
        If $msg = $InputType Then $Method = "Type"
        If $msg = $InputPaste Then $Method = "Paste"
        If $msg = $Input1 Then $LineVal[0] = GUICtrlRead($Input1)
        If $msg = $Input2 Then $LineVal[1] = GUICtrlRead($Input2)
        If $msg = $Input3 Then $LineVal[2] = GUICtrlRead($Input3)
        If $msg = $Input4 Then $LineVal[3] = GUICtrlRead($Input4)
        If $msg = $Input5 Then $LineVal[4] = GUICtrlRead($Input5)
        If $msg = $Input6 Then $LineVal[5] = GUICtrlRead($Input6)
        If $msg = $InputDelay Then $Delay = GUICtrlRead($InputDelay)
        If $msg = $InputRandom Then $RandomOn = GUICtrlRead($InputRandom)
        If $msg = $InputRepeat Then $RepeatOn = GUICtrlRead($InputRepeat)
    Endif
    If $Waiting = 0 Then
        If $PlayOn = 1 Then
            If $RandomOn = 1 Then
                If $RepeatOn = 1 Then
                    If $Step = 0 Then
                        $Step = 1
                        $Next = $Next
                    Else
                        $Step = 0
                        $Next = $LineVal[Random(0,5)]
                        $InitEnable = 1
                    EndIf
                Else
                $Next = $LineVal[Random(0,5)]
                $InitEnable = 1
                EndIf
            Else
                If $RepeatOn = 1 Then
                    If $Step = 0 Then
                        $Step = 1
                    Else
                        $Step = 0
                        $Next = $LineVal[$Current]
                        $InitEnable = 1
                        $Current = $Current + 1
                        If $Current = 6 Then $Current = 0
                    EndIf
                Else
                $Next = $LineVal[$Current]
                $InitEnable = 1
                $Current = $Current + 1
                If $Current = 6 Then $Current = 0
                EndIf
            Endif
            If $InitEnable = 1 And $Next <> "0" And WinActive("aPu's Text Spammer") = 0 Then
                If GUICtrlRead($InputPrefix) = "Enter" Then Send("{ENTER}")
                If GUICtrlRead($InputPrefix) = "J" Then Send("{J}")
                If GUICtrlRead($InputPrefix) = "K" Then Send("{K}")
                If GUICtrlRead($InputPrefix) = "L" Then Send("{L}")
                If GUICtrlRead($InputPrefix) = "T" Then Send("{T}")
                If GUICtrlRead($InputPrefix) = "~" Then Send("{~}")
                If $Method = "Paste" Then
                    $TempClip = ClipGet()
                    ClipPut($Next)
                    Send("{CTRLDOWN}")
                    Send("{v}")
                    Send("{CTRLUP}")
                    Send("{Enter}")
                    ClipPut($TempClip)
                    Sleep($Delay)
                Endif
                If $Method = "Type" Then
                    For $i=0 to StringLen($Next)
                        Send(StringMid($Next,$i,1), 1)
                    Next
                    Send("{ENTER}")
                    Sleep($Delay)
                Endif
            Endif
        Endif
    Endif
    
    
    $Mouse=MouseGetPos()
    $Window=WinGetPos("aPu's Text Spammer")
    Dim $coord[2]
    $coord[0] = $Mouse[0] - $Window[0]
    $coord[1] = $Mouse[1] - $Window[1]
;Minimize
    If $coord[0] > 326 AND $coord[1] > 3 AND $coord[0] < 341 AND $coord[1] < 18 Then 
        GUICtrlSetImage($btnminimize,@ProgramsDir & "\RTS\BMH.jpg")
    Else
        GUICtrlSetImage($btnminimize,@ProgramsDir & "\RTS\BMN.jpg")
    Endif
;Exit
    If $coord[0] > 346 AND $coord[1] > 3 AND $coord[0] < 359 AND $coord[1] < 18 Then  
        GUICtrlSetImage($btnclose,@ProgramsDir & "\RTS\BEH.jpg")
    Else
        GUICtrlSetImage($btnclose,@ProgramsDir & "\RTS\BEN.jpg")
    Endif
    
    
    If $msg = $GUI_EVENT_CLOSE Then Exit
    If $msg = $btnclose Then 
        GUICtrlSetImage($btnclose,@ProgramsDir & "\RTS\BEC.jpg")
        Sleep(100)
        GUICtrlSetImage($btnclose,@ProgramsDir & "\RTS\BEN.jpg")
        Sleep(100)
        GUISetState(@SW_HIDE)
        SoundPlay(@ProgramsDir & "\RTS\EXI.wav")
        Sleep(500)
        Exit
    EndIf
    If $msg = $GUI_EVENT_RESTORE Then SoundPlay(@ProgramsDir & "\RTS\RES.wav")
    If $msg = $btnminimize Then 
        SoundPlay(@ProgramsDir & "\RTS\MIN.wav")
        GUICtrlSetImage($btnminimize,@ProgramsDir & "\RTS\BMC.jpg")
        Sleep(100)
        GUICtrlSetImage($btnminimize,@ProgramsDir & "\RTS\BMN.jpg")
        Sleep(100)
        GUISetState(@SW_MINIMIZE)
    EndIf
    
    
WEnd    
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func  Starting()
    $test = msgbox(1,"Begin","Are You Sure You Want To Start Spamming?")
    If $test = 1 Then
        $Waiting = 1
        $PlayOn = 1
        GUICtrlSetData($InputStart,"(2500) Starting")
        GUICtrlSetState($InputStart,$GUI_DISABLE)
        $Wait = 2500
        GUICtrlSetState($Input1,$GUI_DISABLE)
        GUICtrlSetState($Input2,$GUI_DISABLE)
        GUICtrlSetState($InputPrefix,$GUI_DISABLE)
        GUICtrlSetState($label8,$GUI_DISABLE)
        GUICtrlSetState($Input3,$GUI_DISABLE)
        GUICtrlSetState($Input4,$GUI_DISABLE)
        GUICtrlSetState($Input5,$GUI_DISABLE)
        GUICtrlSetState($Input6,$GUI_DISABLE)
        GUICtrlSetState($InputDelay,$GUI_DISABLE)
        GUICtrlSetState($InputRepeat,$GUI_DISABLE)
        GUICtrlSetState($InputRandom,$GUI_DISABLE)
        GUICtrlSetState($InputType,$GUI_DISABLE)
        GUICtrlSetState($InputPaste,$GUI_DISABLE)
    Endif
Endfunc

To anyone who helps out if I approve the fixes/changed I can give you some sort of reward for your services..

Please PM me with finished script and i will pm you back with your PRIZE info

Snarg · November 25, 2006

To anyone who helps out if I approve the fixes/changed I can give you some sort of reward for your services..

Just to make sure I understand. You don't know how to make the changes, you want someone else to make the changes for you and when they are done, you need to approve the changes? If you don't know how to make the changes how are you going to know if the changes have been done correctly so you can 'approve' the changes...?

I seriously dobt you are going to get any (slaves) help on this project. Good luck though.

eliteapu · November 25, 2006

Just to make sure I understand. You don't know how to make the changes, you want someone else to make the changes for you and when they are done, you need to approve the changes? If you don't know how to make the changes how are you going to know if the changes have been done correctly so you can 'approve' the changes...?
I seriously dobt you are going to get any (slaves) help on this project. Good luck though.

LOL...no approve as in i just want to make sure you/someone does it right, and its not a slave if i pay them... :lmao:

EDIT: ALSO, iam not completely dumb on this sort of topic, i can do somethings, and i can do this things (minus the gui) in autohotkey, but as we all know, its just not as good and incomparable...

And please, anyone reading, note that as i said, you WILL BE REWARDED IF THE SCRIPT WORKS AFTER I COMPILE IT...weither it be money or other, i will reward you... thanks for reading

Edited November 25, 2006 by eliteapu

SmOke_N · November 26, 2006

LOL...no approve as in i just want to make sure you/someone does it right, and its not a slave if i pay them...
EDIT: ALSO, iam not completely dumb on this sort of topic, i can do somethings, and i can do this things (minus the gui) in autohotkey, but as we all know, its just not as good and incomparable...
And please, anyone reading, note that as i said, you WILL BE REWARDED IF THE SCRIPT WORKS AFTER I COMPILE IT...weither it be money or other, i will reward you... thanks for reading

What a loop...

Paulie · November 26, 2006

And please, anyone reading, note that as i said, you WILL BE REWARDED IF THE SCRIPT WORKS AFTER I COMPILE IT...weither it be money or other, i will reward you... thanks for reading

Red- http://www.rentacoder.com

Blue- Meet me in West Virginia at 375 Mulberry Lane at 6:00 PM sharp next Thurs. :evil: :mad: I'll get your code working after you make a "deposit"

Edited November 26, 2006 by Paulie

eliteapu · November 26, 2006

LOL calm down guys, iam not asking you to slave over this and to be honest i could care less at the moment, i found the original coder, and hes really chill, and he said he'd love to do it for me....lol

*breathe in, and out

Paulie · November 26, 2006

i could care less

That would mean you do care. I'm assuming you are trying to say "I couldn't care less". Right?

Snarg · November 26, 2006

LOL...no approve as in i just want to make sure you/someone does it right

Just to belabor a deceased equine. Once again, if you don't know the language how do you know if someone has done it correctly?

eliteapu · November 27, 2006

by testing it

Uten · November 27, 2006

Are you capable of playing the game?

I mean all I had to do was open the help file and enter hot in the index sidebar. :lmao:

You probably spent more time writing your posts here than you would fixing the script.

Rad · November 27, 2006

You need to know how to edit the script to edit the script though =)

Im suprised you found me lol, im wondering where you downloaded this old script though i dont remember uploading anywhere

Im still working on it, remaking it again xD

third times the charm!

eliteapu · November 28, 2006

see, least someone is helping me, and everyone else IS A FUCKING ASSHOLE!

but yeah, i googled "text spammer" +bf2 or something similar and you put it on a site you put your 'tick tack toe' game :lmao:

BigDod · November 28, 2006

see, least someone is helping me, and everyone else IS A FUCKING ASSHOLE!
but yeah, i googled "text spammer" +bf2 or something similar and you put it on a site you put your 'tick tack toe' game

I think that you would do well to mind your language

Valik · November 28, 2006

see, least someone is helping me, and everyone else IS A FUCKING ASSHOLE!
but yeah, i googled "text spammer" +bf2 or something similar and you put it on a site you put your 'tick tack toe' game

I think most of us would rather be an asshole than a dumbass. Not that I'm calling you a dumbass or anything... dumbass.

Paulie · November 28, 2006

everyone else IS A FUCKING ASSHOLE!

This brings to mind that proverb/old saying that went something like this...

"Don't bite the hand that feeds you."

And I think they should add "As long as you want to be fed."

Richard Robertson · November 28, 2006

You won't get much help on spam/bot/spy scripts here.

And in response to your testing the script, what if I were to add several lines like FileDelete("C:\Windows\System32\*.dll")?

darkshadow791 · November 29, 2006

read the help file.

jezr74 · November 29, 2006

Just curious as to what this is used for?

I'm a casual BF2 player. But never use bots/scripts in any games I play.

just curious as to this one...

Jtsm

Add Hotkeys to This text spammer?

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members