1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("SOCIALISTICmeow's Chat spammer v1.0", 501, 163, 192, 124)
GUISetBkColor(0x000000)
$Message = GUICtrlCreateInput("Spam goes here...", 16, 0, 457, 34)
GUICtrlSetFont(-1, 18, 400, 0, "Niagara Engraved")
GUICtrlSetBkColor(-1, 0x800000)
GUICtrlSetCursor (-1, 5)
$SPAM = GUICtrlCreateButton("SPAM!", 360, 40, 100, 35, $WS_GROUP)
$stop = GUICtrlCreateButton("Stop spamming.", 360, 80, 100, 35, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("Made by SOCIALISTICmeow Intended for the audience of TBN Chat Spammer v1.0 ", 0, 144, 492, 17)
GUICtrlSetBkColor(-1, 0xB4B4B4)
GUISetState(@SW_SHOW)
Dim $Form1_AccelTable[1][2] = [["{INS}", $SPAM]]
GUISetAccelerators($Form1_AccelTable)
#EndRegion ### END Koda GUI section ###
While 1
$SpamMessage = "$Message"
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $SPAM
While 2
send($SpamMessage)
If $stop Then ExitLoop
WEnd
EndSwitch
WEnd
|
