[HOW TO]Spammbot Scripten

05/16/2010 11:12 KingKongKing#1
Die ersten schritte in Autoit habe ich euch schon in diesem Thread Erklärt: Hacks und Bots selber machen Jetzt zeige ich euch wie ihr euch einen Spammbot Scriptet. Ihr könnt euch mit Koda jetzt Inputboxen scripten das geht so :

[Only registered and activated users can see links. Click Here To Register...]

ich habe mal das angepasst und das Script gemacht. Mein design sieht so aus:

[Only registered and activated users can see links. Click Here To Register...]

Script:

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
= GUICreate("Form1", 559, 131, 192, 124)
= GUICtrlCreateInput("Text", 304, 16, 145, 21)
= GUICtrlCreateLabel("Text der gesendet werden soll", 24, 16, 244, 17)
= GUICtrlCreateLabel("In wieviel Milisekunden wiedersende", 24, 48, 252, 25)
= GUICtrlCreateInput("100000", 304, 56, 145, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
= GUIGetMsg()
Switch
Case
Exit
EndSwitch
WEnd

So nun müssen wir noch die Befehle hinzufügen als erstes natürlich die Hotkeys

HotKeySet ( "{F5}" , "Start" )
HotKeySet ( "{F6}" , "Pause" )
HotKeySet ( "{F7}" , "Ende" )


Logischer weise muss dann die Funktion auch dabei sein, das sieht dann so aus:

HotKeySet ( "{F5}" , "Start" )
HotKeySet ( "{F6}" , "Pause" )
HotKeySet ( "{F7}" , "Ende" )

Func Start ()
While (1)Wend
EndFunc

Func Pause ()
While (1)
Sleep (1)
Wend
EndFunc

Func Ende ()
Exit
EndFunc
So nun müssen wir nur noch den Befehl hinzufügen, dass es die "Inputs" liest. Das machen wir mit dem Befehl GUICtrlRead.
Das sieht dann so aus

Sleep (GUICtrlRead())
Send (GuiCtrlRead())

Das Sleep steht dafür dass er warten muss und wie lange ist natürlich wie lange ihr in der Inputbox angegeben habt (Hinweis Die Zeit ist immer in Milisekunden 1000 = 1 Sekunde). Wenn Die Zeit des wartens in $input1 ist dann muss man natürlich Sleep(GUICtrlRead($input1))
Das Send steht dafür, dass ihr den Text den ihr angegeben habt auch sendet.

Das einzige was wir noch brauchen ist der Befehl, damit es immer [ENTER] drückt. Der befehl geht so


Send ("{enter}")
Jetzt müsst ihr das nur noch vernünftig zusammenflicken.
Mein Scrip sieht jetzt so aus

Code:

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
= GUICreate("Form1", 559, 131, 192, 124)
= GUICtrlCreateInput("Text", 304, 16, 145, 21)
= GUICtrlCreateLabel("Text der gesendet werden soll", 24, 16, 244, 17)
= GUICtrlCreateLabel("In wieviel Milisekunden wiedersende", 24, 48, 252, 25)
= GUICtrlCreateInput("100000", 304, 56, 145, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

HotKeySet ( "{F1}" , "Start" )
HotKeySet ( "{F2}" , "Pause" )
HotKeySet ( "{F3}" , "Ende" )

Func Start ()
While (1)
Send ("{enter}")
Send (GuiCtrlRead($input1))
Send ("{enter}")
Sleep (GuiCtrlRead($input2))
Wend
EndFunc

Func Pause ()
While (1)
Sleep (1)
Wend
EndFunc

Func Ende ()
Exit
EndFunc

While 1
$msg=GuiGetMsg()
If $msg=-3 Then Exit
Wend


While 1
= GUIGetMsg()
Switch
Case
Exit

EndSwitch
WEnd

So nun können wir noch machen, dass wir Metin2 auch minimieren können dass machen wir mit dem Befehl ControlSend("METIN2","","","{Enter}")

So nun fügen wir alles noch Hinzu, dann sieht dass so aus:


Code:

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
= GUICreate("Form1", 559, 131, 192, 124)
= GUICtrlCreateInput("Text", 304, 16, 145, 21)
= GUICtrlCreateLabel("Text der gesendet werden soll", 24, 16, 244, 17)
= GUICtrlCreateLabel("In wieviel Milisekunden wiedersende", 24, 48, 252, 25)
= GUICtrlCreateInput("100000", 304, 56, 145, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

HotKeySet ( "{F1}" , "Start" )
HotKeySet ( "{F2}" , "Pause" )
HotKeySet ( "{F3}" , "Ende" )

Func Start ()
While (1)
Sleep (GuiCtrlRead($input2))
ControlSend("METIN2","","","{Enter}")
ControlSend("METIN2","","",guictrlread(sinput1))
ControlSend("METIN2","","","{Enter}")
Wend
EndFunc

Func Pause ()
While (1)
Sleep (1)
Wend
EndFunc

Func Ende ()
Exit
EndFunc

While 1
=GuiGetMsg()
If =-3 Then Exit
Wend


While 1
= GUIGetMsg()
Switch
Case
Exit

EndSwitch
WEnd

So solltet ihr jetzt wissen wie ihr einen Spammbot scripten könnt.

Ich hoffe ich habe euch damit geholfen und ich habe euch zum AutoIT Profi ein bisschen näher gebracht


thx sind gerne erwünscht
05/16/2010 11:20 Visonar#2
ganz große arbeit.
05/16/2010 11:42 Lightning.#3
Uhhh Klaaaaaaaaaaaaassse Arbeit!!
Ich werds Testen

€:Klappt ^^

Greetz ~DerWars~
05/16/2010 21:56 xXGiuliXx#4
Nice guide, aufjedenfall ein Thx wert ;)
05/16/2010 21:59 22Uhr06#5
Gehört das nicht in [Only registered and activated users can see links. Click Here To Register...] ?
05/16/2010 22:16 8976541#6
Für den Anfang ;) Ist mir aber trotzdem kein thxs wert, sorry.
05/16/2010 22:21 Visonar#7
Quote:
Originally Posted by 22Uhr06 View Post
Gehört das nicht in [Only registered and activated users can see links. Click Here To Register...] ?
nein, da das kein release, sondern ein guide/how to ist, ist das hier schon richtig.
05/16/2010 23:06 Rossko#8
sry aber kannste vllt link zum thread senden?

Die ersten schritte in Autoit habe ich euch schon in diesem Thread Erklärt: Hacks und Bots selber machen

den da halt^^


€: ach und sufu bringt 0^^
05/17/2010 20:13 _sh0x#9
Ganz gut nur
Code:
Sleep(1)
??? Da kannste auch die Sleeps weglassen! :D
07/17/2010 17:33 wolfini96#10
Also ich finde das TuT gut nur ich habe mir jetzt nach der Anleitung einen eigenen gemacht nur Spammt der null :/
Hier ist mal der Script,damit du vielleicht den Fehler findest:

HTML Code:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\besitzer\eigene dateien\eigene bilder\spambot_by_longjuini.kxf
$Form2 = GUICreate("Spambot by Longjuini", 413, 301, 302, 218)
GUISetBkColor(0xFF0000)
$Pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Besitzer\Eigene Dateien\Spambot by Longjuini\longjuini.jpg", 0, 0, 412, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("Hier kommt der Text hin der gespammt werden soll :", 32, 40, 247, 17)
GUICtrlCreateInput("", 32, 64, 297, 21)
$Label2 = GUICtrlCreateLabel("Hier eingeben im welchem Abstand gesendet werden soll  :", 32, 96, 282, 17)
GUICtrlCreateInput("", 32, 120, 297, 21)
$Label3 = GUICtrlCreateLabel("Bot : ", 240, 184, 29, 17)
GUICtrlCreateLabel("-Start = F10", 280, 160, 59, 17)
$Label4 = GUICtrlCreateLabel("-Ende = F12", 280, 208, 62, 17)
$Label5 = GUICtrlCreateLabel("-Pause = F11", 280, 184, 67, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

HotKeySet("{F10}","Start")
HotKeySet("{F11}","Pause")
HotKeySet("{F12}","Ende")

Func Start()
While (1)
Send ("{enter}")
Send (GuiCtrlRead($input1))
Send ("{enter}")
Sleep (GuiCtrlRead($input2))
Wend
EndFunc

Func Pause ()
While (1)
Sleep (1)
Wend
EndFunc

Func Ende ()
Exit
EndFunc

While 1
$msg=GuiGetMsg()
If $msg=-3 Then Exit
Wend


EndSwitch
WEnd
Ich hoffe jemand kann mich über meinen Fehler aufklären
07/17/2010 17:50 HaxxR#11
Was macht der Spammbot? :D
07/17/2010 17:58 wolfini96#12
Er sendet die Texte die ich eingebe o_O
Jedenfalls sollte er das