[HOW TO]Spammbot Scripten

[KingKongKing]

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 :



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



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

[Visonar]

ganz große arbeit.

[Lightning.]

Uhhh Klaaaaaaaaaaaaassse Arbeit!!
Ich werds Testen

€:Klappt ^^

Greetz ~DerWars~

[xXGiuliXx]

Nice guide, aufjedenfall ein Thx wert

[22Uhr06]

Gehört das nicht in ?

[8976541]

Für den Anfang Ist mir aber trotzdem kein thxs wert, sorry.

[Visonar]

Originally Posted by 22Uhr06

Gehört das nicht in ?

nein, da das kein release, sondern ein guide/how to ist, ist das hier schon richtig.

[Rossko]

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^^

[_sh0x]

Ganz gut nur

Sleep(1)

??? Da kannste auch die Sleeps weglassen!

[wolfini96]

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:

#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

[HaxxR]

Was macht der Spammbot?

[wolfini96]

Er sendet die Texte die ich eingebe o_O
Jedenfalls sollte er das