[How-To]SpamBot in AutoIt erstellen

12/27/2010 20:52 CrAcKxX#1
Hallo Leute.
Hier zeige ich euch wie ihr einen SpamBot in AutoIT erstellt !

Was brauchen wir ??

-AutoIT
-SciTE Editor

So fangen wir mal an :

Ersteinmal brauchen wir die Includes und das HotkeySet :

Code:
HotKeySet("{F1}","_start")
HotKeySet("{F2}","_pause")
HotKeySet("{F3}","_end")

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Nun brauchen wir unser Design der Code sieht z.b. so aus :

Code:
$Form1 = GUICreate("SpamBot TuT", 226, 156, 192, 124)
$Input1 = GUICtrlCreateInput("Input1", 8, 32, 209, 21)
$Label1 = GUICtrlCreateLabel("Text der gesendet werden soll :", 8, 8, 152, 17)
$Label2 = GUICtrlCreateLabel("Start F1", 8, 64, 41, 17)
$Label3 = GUICtrlCreateLabel("Pause F2", 8, 96, 49, 17)
$Label4 = GUICtrlCreateLabel("Beenden F3", 8, 128, 62, 17)
GUISetState(@SW_SHOW)
Den habe ich mit dem Koda Form Designer erstellt !

Nun muss unser Hotkeyset natürlich Funktionen haben !
Das sieht bei unserem SpamBot so aus :

Code:
While 1
Sleep(2000)
WEnd



Func _start()
msgbox (0,"Started","Started")
While 2
	send (GuiCtrlread($Input1))
send ("{enter}")
sleep (4000)
WEnd
EndFunc


Func _pause()
	msgbox (0,"Pause","Paused")
While 3
Sleep(2000)
WEnd
ENdFunc

Func _end()
	msgbox (0,"Exit","Exiting...")
	sleep (1000)
Exit
EndFunc

So nun sind wird Fertig !

Unser gesamter Code sieht jetz so aus :

Code:
HotKeySet("{F1}","_start")
HotKeySet("{F2}","_pause")
HotKeySet("{F3}","_end")

$Form1 = GUICreate("SpamBot TuT", 226, 156, 192, 124)
$Input1 = GUICtrlCreateInput("Input1", 8, 32, 209, 21)
$Label1 = GUICtrlCreateLabel("Text der gesendet werden soll :", 8, 8, 152, 17)
$Label2 = GUICtrlCreateLabel("Start F1", 8, 64, 41, 17)
$Label3 = GUICtrlCreateLabel("Pause F2", 8, 96, 49, 17)
$Label4 = GUICtrlCreateLabel("Beenden F3", 8, 128, 62, 17)
GUISetState(@SW_SHOW)

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

	EndSwitch
WEnd


While 1
Sleep(2000)
WEnd



Func _start()
msgbox (0,"Started","Started")
While 2
	send (GuiCtrlread($Input1))
send ("{enter}")
sleep (4000)
WEnd
EndFunc


Func _pause()
	msgbox (0,"Pause","Paused")
While 3
Sleep(2000)
WEnd
ENdFunc

Func _end()
	msgbox (0,"Exit","Exiting...")
	sleep (1000)
Exit
EndFunc
Mfg Reackon !

Have Fun ;D
12/28/2010 11:04 Algaten™#2
Quote:
Originally Posted by CrAcKxX View Post
Hallo Leute.
Hier zeige ich euch wie ihr einen SpamBot in AutoIT erstellt !

Was brauchen wir ??

-AutoIT
-SciTE Editor

So fangen wir mal an :

Ersteinmal brauchen wir die Includes und das HotkeySet :

Code:
HotKeySet("{F1}","_start")
HotKeySet("{F2}","_pause")
HotKeySet("{F3}","_end")

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Nun brauchen wir unser Design der Code sieht z.b. so aus :

Code:
$Form1 = GUICreate("SpamBot TuT", 226, 156, 192, 124)
$Input1 = GUICtrlCreateInput("Input1", 8, 32, 209, 21)
$Label1 = GUICtrlCreateLabel("Text der gesendet werden soll :", 8, 8, 152, 17)
$Label2 = GUICtrlCreateLabel("Start F1", 8, 64, 41, 17)
$Label3 = GUICtrlCreateLabel("Pause F2", 8, 96, 49, 17)
$Label4 = GUICtrlCreateLabel("Beenden F3", 8, 128, 62, 17)
GUISetState(@SW_SHOW)
Den habe ich mit dem Koda Form Designer erstellt !

Nun muss unser Hotkeyset natürlich Funktionen haben !
Das sieht bei unserem SpamBot so aus :

Code:
While 1
Sleep(2000)
WEnd



Func _start()
msgbox (0,"Started","Started")
While 2
	send (GuiCtrlread($Input1))
send ("{enter}")
sleep (4000)
WEnd
EndFunc


Func _pause()
	msgbox (0,"Pause","Paused")
While 3
Sleep(2000)
WEnd
ENdFunc

Func _end()
	msgbox (0,"Exit","Exiting...")
	sleep (1000)
Exit
EndFunc

So nun sind wird Fertig !

Unser gesamter Code sieht jetz so aus :

Code:
HotKeySet("{F1}","_start")
HotKeySet("{F2}","_pause")
HotKeySet("{F3}","_end")

$Form1 = GUICreate("SpamBot TuT", 226, 156, 192, 124)
$Input1 = GUICtrlCreateInput("Input1", 8, 32, 209, 21)
$Label1 = GUICtrlCreateLabel("Text der gesendet werden soll :", 8, 8, 152, 17)
$Label2 = GUICtrlCreateLabel("Start F1", 8, 64, 41, 17)
$Label3 = GUICtrlCreateLabel("Pause F2", 8, 96, 49, 17)
$Label4 = GUICtrlCreateLabel("Beenden F3", 8, 128, 62, 17)
GUISetState(@SW_SHOW)

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

	EndSwitch
WEnd


While 1
Sleep(2000)
WEnd



Func _start()
msgbox (0,"Started","Started")
While 2
	send (GuiCtrlread($Input1))
send ("{enter}")
sleep (4000)
WEnd
EndFunc


Func _pause()
	msgbox (0,"Pause","Paused")
While 3
Sleep(2000)
WEnd
ENdFunc

Func _end()
	msgbox (0,"Exit","Exiting...")
	sleep (1000)
Exit
EndFunc
Mfg Reackon !

Have Fun ;D
Das ist wohl eher angebracht?


Quote:
Originally Posted by Walter Sobchak View Post
Ist kein Tutorial und in Releases passt es auch nicht rein.

Poste es wenn überhaupt dann im Sammelthread.

#closed

Quote:
Originally Posted by Walter Sobchak View Post
Bitte informiere dich nochmal darüber was ein Tutorial ist.
Zu sagen wo man welchen Code einfügt ist nicht wirklich ein Tutorial.
Versuch das ganze mal etwas ausführlicher zu umschreiben und zu erklären, damit die Leute wissen was der Code überhaupt macht.
Lg Algaten™
(Tut=Alles erklären denn woher sollen die wissen was was ist?)
12/29/2010 17:32 CrAcKxX#3
Da haste auch wieder recht ^^
Bitten closen !
02/06/2011 19:32 LordFlorax#4
ja das ist kein tut und die codes isnd eh falsch teilweise variablen nicht erklärt ...