Spambot

06/18/2010 15:27 xEr0r#1
wollt da ma nen spambot wer erstellen. komme leider nicht weiter kann mir helfen pls? THX im vorraus. :mofo:

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 mipez#2
Quote:
Originally Posted by xEr0r View Post
wollt da ma nen spambot wer erstellen. komme leider nicht weiter kann mir helfen pls? THX im vorraus. :mofo:

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 omer36#3
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 xEr0r#4
:P danke^^
weil wollt den für metin erstellen. deswegen au GUI.^^