IMSpammer

[Bru]

Hello all, just started Autoit.

I did used to mess about with it a while back. But now i've decided to actually get cracking in it.

So here is something i thought i would make. Totally out of bordom.

It is an Instant Messenger Spammer.

HotKeys

F7 : Start

F8 : Stop

F9 : Close

I guess as there are hotkeys it could be used for other things, not just IM.

Codeee...

expandcollapse popup

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
#NoTrayIcon

Global $Pause = 1

;GUI
$Form1 = GUICreate("Spammer", 250, 178, 258, 170)
$Label1 = GUICtrlCreateLabel("Text :", 24, 32, 41, 17)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Group1 = GUICtrlCreateGroup("Settings", 8, 8, 233, 57)
$Input1 = GUICtrlCreateInput("", 72, 32, 161, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Hotkeys", 8, 72, 145, 97)
$Label2 = GUICtrlCreateLabel("Start : F7", 24, 96, 117, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Stop : F8", 24, 120, 113, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("Close : F9", 24, 144, 120, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Send to Tray", 168, 80, 73, 89, 0)

;Tray
Opt("TrayMenuMode",1)

$About = TrayCreateItem("About")
TrayCreateItem("")
$Show = TrayCreateItem("Show Spammer..")
TrayCreateItem("")
$Exit = TrayCreateItem("Exit")

GUISetState(@SW_SHOW)

HotKeySet("{f7}", "Start")
HotKeyset("{f8}", "Stop")
HotKeySet("{f9}", "Close")


While 1
    $nMsg = GUIGetMsg()
    Select
        Case $nMsg = $GUI_EVENT_CLOSE
            GUIDelete()
            Exit
            
        Case $nMsg = $Button1
            TraySetState(1)
            TraySetToolTip("Spammer..")
            GUISetState(@SW_HIDE)
        While 1
            $nMsg2 = TrayGetMsg()
            Select
                Case $nMsg2 = $About
                    MsgBox(64, "About", "An Instant Messenger Spammer created by Ant")
                    
                Case $nMsg2 = $Show
                    GUISetState(@SW_SHOW)
                    ExitLoop
                    
                Case $nMsg2 = $Exit
                    GUIDelete()
                    Exit
                EndSelect
        WEnd
    EndSelect
WEnd


Func Start()
    ClipPut(GUICtrlRead($Input1))
    $Pause = 2
    While $Pause = 2
        Send("^v")
        Send("{ENTER}")
    Wend
EndFunc

Func Stop()
    $Pause = 1
EndFunc

Func Close()
    GUIDelete()
    Exit
EndFunc

[Jos]

Created by Ant?

The purpose of this is a post as much BS as possible fast?

[Bru]

Yes created by ant.

Ant is my real name.

Bru is just the name i have registered to this forum using.

And pretty much, yes.

But i might try and make it so that, it will go through all your online contacts and send them all a message?

Something alike. Not sure if this can be done.

[RomanK]

Sounds interesting. Which messenger will you use? ICQ, AIM, MSN, Trillian, Jabber, ..., ......... ?

[Bru]

Hmmm, I will most probly try with MSN first, then make it with all?

Not sure how to go about doing it though.

Any help appreciated.

[trancexx]

It gives me the creeps to see Send("{ENTER}"), but when I see it in tight loop I die.

Dr. Watson payed me a visit after running this. Ah well... will be smarter next time.