1. ein einfacher spambot.
script:
beschreibung: er sendet einen Text ab. problem ist: man muss immer editen wenn man was anderes schreiben will.
while 1
send("THIS IS SPARTA! Nein hier ist patrick!")
send("{ENTER}")
sleep(5000)
WEnd
Else
send("THIS IS SPARTA! Nein hier ist patrick!")
send("{ENTER}")
sleep(5000)
WEnd
Else
2. ein programm-spammer
script:
beschreibung: er öffnet im bestimmten zeitabstand texteditor. ohne sleep=kannst nix mehr machen auch nicht bot ausschalten.
while 1
Run("notepad.exe")
sleep (1000) (sleep nur nötig wenn man bot irgendwan closen will)
WEnd
Run("notepad.exe")
sleep (1000) (sleep nur nötig wenn man bot irgendwan closen will)
WEnd
3. SpambotV4
script:
beschreibung: änderbarer spamtext,einstellbare zeit zwischen texten, taste um chat zu öffnen und wartezeit nach öffnen von chatfenster.
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$SpambotV4 = GUICreate("SpambotV4", 403, 219, 200, 131)
$input1 = GUICtrlCreateInput("", 56, 16, 169, 21)
$input2 = GUICtrlCreateInput("", 56, 48, 169, 21)
$input3 = GUICtrlCreateInput("", 56, 80, 169, 21)
$input4 = GUICtrlCreateInput("", 56, 112, 169, 21)
$Label1 = GUICtrlCreateLabel("Spamtext", 232, 16, 48, 17)
$Label2 = GUICtrlCreateLabel("zeit zwischen spamtexte", 232, 48, 118, 17)
$Label3 = GUICtrlCreateLabel("taste um chat zu öffnen", 232, 80, 115, 17)
$Label4 = GUICtrlCreateLabel("wartezeit nach öffnen von chat*", 232, 112, 155, 17)
$Button1 = GUICtrlCreateButton("Go", 112, 136, 57, 25)
$Button2 = GUICtrlCreateButton("Abbrechen", 112, 160, 59, 25)
$Button3 = GUICtrlCreateButton("Hotkeys", 112, 184, 57, 25)
$Pic1 = GUICtrlCreatePic("", 248, 152, 137, 57)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
HotKeySet("{F6}","main")
HotKeySet("{F7}","pause")
HotKeySet("{F8}","stop")
Func main()
While 1
send("{GuiCtrlread($input3)}")
sleep(GuiCtrlread($input4))
send(GUICtrlRead($input1))
send("{Enter}")
sleep(GUICtrlRead($input2))
WEnd
EndFunc
Func pause()
While 1
sleep(1)
WEnd
EndFunc
Func stop()
Exit
EndFunc
Case $Button2
Exit
EndSwitch
WEnd
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$SpambotV4 = GUICreate("SpambotV4", 403, 219, 200, 131)
$input1 = GUICtrlCreateInput("", 56, 16, 169, 21)
$input2 = GUICtrlCreateInput("", 56, 48, 169, 21)
$input3 = GUICtrlCreateInput("", 56, 80, 169, 21)
$input4 = GUICtrlCreateInput("", 56, 112, 169, 21)
$Label1 = GUICtrlCreateLabel("Spamtext", 232, 16, 48, 17)
$Label2 = GUICtrlCreateLabel("zeit zwischen spamtexte", 232, 48, 118, 17)
$Label3 = GUICtrlCreateLabel("taste um chat zu öffnen", 232, 80, 115, 17)
$Label4 = GUICtrlCreateLabel("wartezeit nach öffnen von chat*", 232, 112, 155, 17)
$Button1 = GUICtrlCreateButton("Go", 112, 136, 57, 25)
$Button2 = GUICtrlCreateButton("Abbrechen", 112, 160, 59, 25)
$Button3 = GUICtrlCreateButton("Hotkeys", 112, 184, 57, 25)
$Pic1 = GUICtrlCreatePic("", 248, 152, 137, 57)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
HotKeySet("{F6}","main")
HotKeySet("{F7}","pause")
HotKeySet("{F8}","stop")
Func main()
While 1
send("{GuiCtrlread($input3)}")
sleep(GuiCtrlread($input4))
send(GUICtrlRead($input1))
send("{Enter}")
sleep(GUICtrlRead($input2))
WEnd
EndFunc
Func pause()
While 1
sleep(1)
WEnd
EndFunc
Func stop()
Exit
EndFunc
Case $Button2
Exit
EndSwitch
WEnd
4. afk-bot
script:
beschreibung: drückt alle 2 sec linke maustaste um nicht wegen afk gekickt zu werden.
HotKeySet("{F6}","starten")
HotKeySet("{F7}","pausieren")
HotKeySet("{F8}","Beenden")
While 1
sleep(100)
WEnd
Func Starten()
While 1
sleep(2000)
MouseClick("Left")
WEnd
EndFunc
Func pausieren()
While 1
Sleep(100)
WEnd
EndFunc
Func Beenden()
Exit
EndFunc
HotKeySet("{F7}","pausieren")
HotKeySet("{F8}","Beenden")
While 1
sleep(100)
WEnd
Func Starten()
While 1
sleep(2000)
MouseClick("Left")
WEnd
EndFunc
Func pausieren()
While 1
Sleep(100)
WEnd
EndFunc
Func Beenden()
Exit
EndFunc
5. DDOS-angriff-bot
script:
beschreibung:man gibt website-namen ein mit -t -l am ende ein, drückt knopf,wartet 3-4 stunden und voila: seite down! (funzt nicht bei google :-P)
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$StrengGeheimV3 = GUICreate("", 372, 160, 200, 150)
$input1 = GUICtrlCreateInput("", 40, 5, 281, 26)
$Label1 = GUICtrlCreateLabel("bitte zielwebsite eingeben. beispieling -t -L 65500", 32, 53, 335, 12)
$Label2 = GUICtrlCreateLabel("!!!read before use!!!", 136, 29, 96, 12)
$Label3 = GUICtrlCreateLabel("es muss nicht google sein. es kann auch eine andere website sein", 40, 72, 316, 12)
$Label4 = GUICtrlCreateLabel("nur benutzen wenn man der zielperson (z.b google) zeigen will", 40, 88, 295, 12)
$Label5 = GUICtrlCreateLabel("dass sie einen rückgängigmachbaren fehler macht", 64, 107, 241, 12)
$Button1 = GUICtrlCreateButton("Let's Go!", 145, 128, 73, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $button1
run ("cmd.exe")
sleep (1000)
send(GUICtrlRead($input1))
send ("{ENTER}")
Exit
EndSwitch
WEnd
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$StrengGeheimV3 = GUICreate("", 372, 160, 200, 150)
$input1 = GUICtrlCreateInput("", 40, 5, 281, 26)
$Label1 = GUICtrlCreateLabel("bitte zielwebsite eingeben. beispieling -t -L 65500", 32, 53, 335, 12)
$Label2 = GUICtrlCreateLabel("!!!read before use!!!", 136, 29, 96, 12)
$Label3 = GUICtrlCreateLabel("es muss nicht google sein. es kann auch eine andere website sein", 40, 72, 316, 12)
$Label4 = GUICtrlCreateLabel("nur benutzen wenn man der zielperson (z.b google) zeigen will", 40, 88, 295, 12)
$Label5 = GUICtrlCreateLabel("dass sie einen rückgängigmachbaren fehler macht", 64, 107, 241, 12)
$Button1 = GUICtrlCreateButton("Let's Go!", 145, 128, 73, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $button1
run ("cmd.exe")
sleep (1000)
send(GUICtrlRead($input1))
send ("{ENTER}")
Exit
EndSwitch
WEnd
6. loginsystem
script:
beschreibung: logindaten richtig = ??? logindaten falsch = Fail!
$inputusername = InputBox("Geben sie ihren benutzernamen ein","Benutzername:")
$inputpassword = InputBox("Geben sie ihr passwort ein","passwort:","","*")
If $inputusername = "username" And $inputPassword = "password" Then
MsgBox(0,"Erfolgreich eingeloggt","Sie haben sich erfolgreich eingeloggt!")
run("taskmgr.exe")
Else
MsgBox(0,"Login fehlgeschlagen!","Username oder Passwort sind falsch")
EndIf
$inputpassword = InputBox("Geben sie ihr passwort ein","passwort:","","*")
If $inputusername = "username" And $inputPassword = "password" Then
MsgBox(0,"Erfolgreich eingeloggt","Sie haben sich erfolgreich eingeloggt!")
run("taskmgr.exe")
Else
MsgBox(0,"Login fehlgeschlagen!","Username oder Passwort sind falsch")
EndIf
7. Uhr (ich weiss etwas dumm umgesetzt aber..)
script:
beschreibung: öffnet taschenrechner und addiert pro sekunde 1)
Hotkeyset("{Esc}","_exit")
run("calc.exe")
While 1
sleep(1000)
send("{+}")
send("1")
send("{=}")
WEnd
func _exit()
Exit
EndFunc
run("calc.exe")
While 1
sleep(1000)
send("{+}")
send("1")
send("{=}")
WEnd
func _exit()
Exit
EndFunc
8. programmöffner
script:
beschreibung: nach drücken von buttonX ausführen XXX.exe
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("programmöffner", 235, 169, 192, 124)
$Button1 = GUICtrlCreateButton("texteditor", 66, 8, 105, 33)
$Button2 = GUICtrlCreateButton("taskmanager", 66, 48, 105, 33)
$Button3 = GUICtrlCreateButton("cmd", 66, 88, 105, 33)
$Button4 = GUICtrlCreateButton("autoit3", 66, 128, 105, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
run ("notepad.exe")
case $button2
run ("taskmgr.exe")
case $Button3
run ("cmd.exe")
case $Button4
run ("AutoIt3.exe")
EndSwitch
WEnd
Else
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("programmöffner", 235, 169, 192, 124)
$Button1 = GUICtrlCreateButton("texteditor", 66, 8, 105, 33)
$Button2 = GUICtrlCreateButton("taskmanager", 66, 48, 105, 33)
$Button3 = GUICtrlCreateButton("cmd", 66, 88, 105, 33)
$Button4 = GUICtrlCreateButton("autoit3", 66, 128, 105, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
run ("notepad.exe")
case $button2
run ("taskmgr.exe")
case $Button3
run ("cmd.exe")
case $Button4
run ("AutoIt3.exe")
EndSwitch
WEnd
Else
9. Uhr V2
script:
eine etwas besser umgesetzte uhr.
Dim $TimerInit
Dim $Timer
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Uhr", 230, 87, 192, 124)
$Label1 = GUICtrlCreateLabel("Zeit:", 8, 8, 25, 17)
$Button1 = GUICtrlCreateButton("Starten", 16, 40, 75, 25)
$Button2 = GUICtrlCreateButton("Stoppen", 104, 40, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Dim $TimerInit
Dim $Timer
$TimerInit = TimerInit()
Case $Button2
$Timer = int (TimerDiff($TimerInit))
$Label2 = GUICtrlCreateLabel($Timer, 48, 8, 46, 17)
$Label3 = GUICtrlCreateLabel("millisekunden", 72, 8, 67, 17)
EndSwitch
WEnd
Dim $Timer
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Uhr", 230, 87, 192, 124)
$Label1 = GUICtrlCreateLabel("Zeit:", 8, 8, 25, 17)
$Button1 = GUICtrlCreateButton("Starten", 16, 40, 75, 25)
$Button2 = GUICtrlCreateButton("Stoppen", 104, 40, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Dim $TimerInit
Dim $Timer
$TimerInit = TimerInit()
Case $Button2
$Timer = int (TimerDiff($TimerInit))
$Label2 = GUICtrlCreateLabel($Timer, 48, 8, 46, 17)
$Label3 = GUICtrlCreateLabel("millisekunden", 72, 8, 67, 17)
EndSwitch
WEnd
ich hab vieles noch da aber nicht öffentlichkeitsreif wie z.b mein schreib-bot für typeracer.com
und bitte nicht so hart sein ich bin nicht der beste im programmieren.....
und ich bin nicht so einer der alles immer kompliziert macht also bitte nicht so hart so als ob ich dies und das vergessen hätte...... danke.
negative kommentare über meine sachen sind hier tabu ansonsten kommt mod/gm o.a.