SpamBot

[James]

Hey,

I made this for a friend, who is learning AutoIt I fully commented it for him, and I thought I could post it here, so everyone who begins can learn basic things.

Functions

GUI

And loops

expandcollapse popup

#include <GuiConstants.au3>     ; Include this file to allow the GUI to be made

$sGui = GuiCreate("SSpamBot", 250, 100, -1, -1)                     ; Create the GUI
$sLab = GUICtrlCreateLabel("SSpamBot - Secure_ICT", 70, 5, -1, -1)  ; Create a label with text
$sInp = GuiCtrlCreateInput("", 5, 22, 240, -1)                      ; Create an Input
        GUICtrlSetTip($sInp, "What text is to be spammed?")         ; Create tip when mouse hovers over the control
$sAmo = GUICtrlCreateInput("", 5, 45, 240, -1)                      ; Create an Input
        GuiCtrlSetTip($sAmo, "How many times?")                     ; Crate tip when mouse hovers over the control
$sbGo = GuiCtrlCreateButton("Start Spamming", 5, 70, -1, -1)        ; Create a button
        GUICtrlSetTip($sbGo, "Start the spamming!")                 ; Create tip whe mouse hovers over the control
$sCan = GUICtrlCreateButton("Cancel", 90, 70, -1, -1)               ; Create a button
        GUICtrlSetTip($sCan, "Cancel SSpambot!")                    ; Create tip when mouse hovers over the control
        
GuiSetState()   ; Set the state of the window

While 1                     ; While the program is running do things
    $sMsg = GuiGetMsg()     ; Allow the script to recieve and send "messages"
    Switch $sMsg            ; Start switching through events
    Case $GUI_EVENT_CLOSE   ; What will happen if the window closes?
        Exit                ; Exit
    Case $sbGo              ; What will happen if the spam button is pressed?
        _Spammer()          ; Do a function
    Case $sCan              ; What will happen if the cancel button is pressed?
        Exit                ; Exit
    EndSwitch               ; End the switching
Wend                        ; While End - While the statement ends

Func _Spammer()                                                                 ; Start a function
    $sTxt = GuiCtrlRead($sInp)                                                  ; Read a control
    $sNum = GuiCtrlRead($sAmo)                                                  ; Read a control
    If $sTxt = "" Then MsgBox(16, "SSpambot", "There was no text entered!")     ; If a control = something then do something else
    If $sAmo = "" Then MsgBox(16, "SSpambot", "There was no number entered!")   ; If a control = something then do something else
        GuiSetState(@SW_HIDE, $sGui)                                            ; Hide the window
    For $i = 1 to $sNum                                                         ; Start a loop
        Send($sTxt & "{Enter}")                                                 ; In the loop send a read control's text
    Next                                                                        ; And carry on doing it untill the loop ends
        GuiSetState(@SW_SHOW, $sGui)                                            ; Show the GUI after the loop has ended
EndFunc                                                                         ; End the function

Thanks,

Secure

[_Kurt]

Thanks secure, but there are hundreds of examples in the helpfile, this is merely a waste of, yet another, Topic. I cannot understand why you create these garbage topics in scripts & scraps, it's simply a waste. It seems asthough you create one or two topics a day, all of which are filled with crap.

Regards,

Kurt

[James]

I'm not posting for the post count, if a mod wants, they can set me to -1000000 or whatever. I'm posting because things like these are useful to newbies and myself.

[orange]

I'm not posting for the post count, if a mod wants, they can set me to -1000000 or whatever. I'm posting because things like these are useful to newbies and myself.

All this does, for the newbies out there who wanted to know, is send text over and over and over again. It doesn't send email spam, it doesn't really do anything except send text over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over and over.

Thats all.

So, secure_itc, what was the point of this? I mean, the commenting may help people out, but the help files are much more thorough.

[_Kurt]

So, secure_itc, what was the point of this? I mean, the commenting may help people out, but the help files are much more thorough.

Agreed.

[WeMartiansAreFriendly]

i just noticed you used

For $i = 1 to $sNum ; Start a loop

Send($sTxt & "{Enter}") ; In the loop send a read control's text

Next

what that will "theoritically" do is if you loose focus, or want to stop it, it will just flood your computer with the send command, u might wanna add a hotkey to close the script just incase..

[James]

Meh, I tried losing focus. I will add away of always keeping focus.

[rambo3889]

Hey

I agree with Kurt & Orange this is useless:

The button cancel doesnt cancel it just exits the app what about rename it to Exit , And as Mr revoked an hotkey would be very usefull.

In the function _spammer you error check which is good, but you dont exit the function with return , if there is no text in the text to spammed, or no numbers to the for loop.

Just my 2 cents.

-Rambo

[James]

I see what you mean, I dont return if there is no text, it loops nothingness.