|
You last visited: Today at 03:26
Advertisement
Spambot
Discussion on Spambot within the AutoIt forum part of the Coders Den category.
06/18/2010, 15:27
|
#1
|
elite*gold: 227 
Join Date: Jun 2010
Posts: 295
Received Thanks: 37
|
Spambot
wollt da ma nen spambot wer erstellen. komme leider nicht weiter kann mir helfen pls? THX im vorraus. 
PHP Code:
include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <String.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Spambot v1.0 By xEr0r", 625, 443, 192, 124)
$Button1 = GUICtrlCreateButton("An", 440, 24, 49, 17, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Aus", 504, 24, 49, 17, $WS_GROUP)
$Button3 = GUICtrlCreateButton("An", 440, 56, 49, 17, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Aus", 504, 56, 49, 17, $WS_GROUP)
$Button5 = GUICtrlCreateButton("An", 440, 88, 49, 17, $WS_GROUP)
$Button6 = GUICtrlCreateButton("Aus", 504, 88, 49, 17, $WS_GROUP)
$Button7 = GUICtrlCreateButton("An", 440, 120, 49, 17, $WS_GROUP)
$Button8 = GUICtrlCreateButton("Aus", 504, 120, 49, 17, $WS_GROUP)
$Button9 = GUICtrlCreateButton("An", 440, 152, 49, 17, $WS_GROUP)
$Button10 = GUICtrlCreateButton("Aus", 504, 152, 49, 17, $WS_GROUP)
$Button11 = GUICtrlCreateButton("Alle Spams Start", 136, 304, 313, 33, $WS_GROUP)
$Button12 = GUICtrlCreateButton("Alle Spams Stop", 136, 352, 313, 33, $WS_GROUP)
$Button13 = GUICtrlCreateButton("Beenden", 512, 352, 89, 33, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Case $Button1
_senden()
Case $Button2
Case $Button3
_senden()
Case $Button4
Case $Button5
_senden()
Case $Button6
Case $Button7
_senden()
Case $Button8
Case $Button9
_senden()
Case $Button10
Case $Button11
_senden()
Case $Button12
Case $Button13
FUnc beenden()
ProcessClose("Spambot")
EndSwitch
WEnd
EndFunc
|
|
|
|
06/18/2010, 15:37
|
#2
|
elite*gold: 0
Join Date: Jul 2009
Posts: 2,241
Received Thanks: 848
|
Quote:
Originally Posted by xEr0r
wollt da ma nen spambot wer erstellen. komme leider nicht weiter kann mir helfen pls? THX im vorraus.
PHP Code:
include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <String.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Spambot v1.0 By xEr0r", 625, 443, 192, 124)
$Button1 = GUICtrlCreateButton("An", 440, 24, 49, 17, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Aus", 504, 24, 49, 17, $WS_GROUP)
$Button3 = GUICtrlCreateButton("An", 440, 56, 49, 17, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Aus", 504, 56, 49, 17, $WS_GROUP)
$Button5 = GUICtrlCreateButton("An", 440, 88, 49, 17, $WS_GROUP)
$Button6 = GUICtrlCreateButton("Aus", 504, 88, 49, 17, $WS_GROUP)
$Button7 = GUICtrlCreateButton("An", 440, 120, 49, 17, $WS_GROUP)
$Button8 = GUICtrlCreateButton("Aus", 504, 120, 49, 17, $WS_GROUP)
$Button9 = GUICtrlCreateButton("An", 440, 152, 49, 17, $WS_GROUP)
$Button10 = GUICtrlCreateButton("Aus", 504, 152, 49, 17, $WS_GROUP)
$Button11 = GUICtrlCreateButton("Alle Spams Start", 136, 304, 313, 33, $WS_GROUP)
$Button12 = GUICtrlCreateButton("Alle Spams Stop", 136, 352, 313, 33, $WS_GROUP)
$Button13 = GUICtrlCreateButton("Beenden", 512, 352, 89, 33, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Case $Button1
_senden()
Case $Button2
Case $Button3
_senden()
Case $Button4
Case $Button5
_senden()
Case $Button6
Case $Button7
_senden()
Case $Button8
Case $Button9
_senden()
Case $Button10
Case $Button11
_senden()
Case $Button12
Case $Button13
FUnc beenden()
ProcessClose("Spambot")
EndSwitch
WEnd
EndFunc
|
Erstmal wozu hast du ewig-viele Buttons, die ein und dieselbe Funktion ausführen?
Hier mal n älteres Spam-Script von mir:
PHP Code:
#include <GUIConstants.au3>
#include <Array.au3>
$Form1 = GUICreate("Spam-O-Mat R:2b", 238, 250)
$Input1 = GUICtrlCreateInput("Dein Text", 24, 16, 185, 21)
$Input2 = GUICtrlCreateInput("Anzahl der Wiederholungen", 24, 48, 185, 21)
$check = GUICtrlCreateRadio("Enter nach jeder Zeile", 24, 78)
$check2 = GUICtrlCreateRadio("Enter am Anfang und am Ende", 24, 100)
$check3 = GUICtrlCreateRadio("Enter am Anfang und nach jeder Zeile", 24, 122)
$Button1 = GUICtrlCreateButton("Start", 24, 215,50)
$Button2 = GUICtrlCreateButton("Stop", 79, 215, 50)
$Button3 = GUICtrlCreateButton("Fenster suchen", 24, 182,100)
$label = GUICtrlCreateLabel("", 185,220,30,20)
$Input3 = GUICtrlCreateInput("Fenstername", 24, 152, 185, 21)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_senden()
Case $Button3
_suchen()
EndSwitch
WEnd
Func _suchen()
$list = WinList()
MsgBox(0,"Hinweis","<Copy Selected> kopiert auch die beiden Spalten links und rechts. Per STRG+V einfügen und die beiden Spalten löschen")
_ArrayDisplay($list)
EndFunc
Func _senden()
$read1 = GUICtrlRead($Input1)
$read2 = GUICtrlRead($Input2)
$read3 = GUICtrlRead($Input3)
$read4 = Guictrlread($check)
$read5 = GUICtrlRead($check2)
$read6 = GUICtrlRead($check3)
GUICtrlSetData($label,"3")
Sleep(1000)
GUICtrlSetData($label,"2")
Sleep(1000)
GUICtrlSetData($label,"1")
Sleep(1000)
GUICtrlSetData($label,"Start")
WinActivate($read3)
If $read4 = 1 Then
For $i = 1 To $read2
GUICtrlSetData($label, $i)
Send($read1 & "{ENTER}")
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exitloop
Exit
Case $Button2
Exitloop
EndSwitch
Next
ElseIf $read5 = 1 Then
Send("{ENTER}")
For $i = 1 To $read2
GUICtrlSetData($label,$i)
Send($read1)
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
Exitloop
EndSwitch
Next
Send("{ENTER}")
ElseIf $read6 = 1 Then
Send("{ENTER}")
For $i = 1 To $read2
GUICtrlSetData($label, $i)
Send($read1 & "{ENTER}")
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
Exitloop
EndSwitch
Next
EndIf
GUICtrlSetData($label,"Ende")
EndFunc
|
|
|
|
|
06/18/2010, 15:43
|
#3
|
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,255
|
warum so umständlich......?!
PHP Code:
HotKeySet("{ESC}", "_exit")
$input = InputBox ("SPAWMBOT", "Was soll gespamt werden?")
MsgBox(64, "Info", "Text wird nach 5sec gespamt!")
Sleep(5000)
While 1
Send($input)
Send("{ENTER}")
WEnd
Func _exit()
Exit
EndFunc
|
|
|
|
|
06/18/2010, 15:45
|
#4
|
elite*gold: 227
Join Date: Jun 2010
Posts: 295
Received Thanks: 37
|
:P danke^^
weil wollt den für metin erstellen. deswegen au GUI.^^
|
|
|
|
Similar Threads
|
[SX] Spambot V4
11/10/2010 - WarRock Hacks, Bots, Cheats & Exploits - 10 Replies
Screenshot]
http://www.abload.de/img/spambotv4jhff.png
Functions]
-up to 4 textboxes
-3 types of antimute (for warrock)
-3 types of antidetect
-hotkeys
-adjustable speed
|
Spambot pls ;)
09/15/2010 - 4Story - 8 Replies
hat jemmand ein spambot für 4story offi oder ein lvlbot
32bit.
|
SPambot
09/13/2010 - Last Chaos - 8 Replies
huuh
hab mal ne frage,
ich will mir meinen eigenen sPambot machn, kann mir da jemand tiPPs oder ein tool geben?
mfg
|
SpamBot :s
03/23/2010 - Dekaron - 3 Replies
Hi , someone can say me where i can get a spambot to 2moons... :s
i was searching on internet and nothing...
Please dont comment saying "U are a noob cause u want to spam"
"Another spam noob :s"
Please help and thanks...
:mofo:
|
All times are GMT +1. The time now is 03:26.
|
|
