[Frage] Spammer

Ludder231 · 03/21/2011, 16:35

Hallo,

ich will mir einen spammer bauen. So sieht die Form ungefähr aus:

PHP Code:


			
#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=d:\neuer ordner\koda_1.7.3.0\forms\spammer.kxf

$Form1_1 = GUICreate("Spammer", 212, 346, 191, 121)

$Label1 = GUICtrlCreateLabel("Text to Spam:", 8, 8, 86, 20)

GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

$Input1tospam = GUICtrlCreateInput("Here the Text", 8, 32, 193, 21)

$Label2 = GUICtrlCreateLabel("How often to Spam:", 8, 64, 119, 20)

GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

$Checkbox8 = GUICtrlCreateCheckbox("Checkbox8", 24, 136, 1, 9)

$Button1 = GUICtrlCreateButton("Activate", 56, 272, 97, 25)

GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

$Label3 = GUICtrlCreateLabel("Press F1 to start spamming", 8, 304, 130, 17)

$Label4 = GUICtrlCreateLabel("Press F3 to show the Menü", 8, 320, 133, 17)

$Label5 = GUICtrlCreateLabel("Wait between the last spam:", 8, 168, 170, 20)

GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

$Radio1 = GUICtrlCreateRadio("1 sec", 8, 192, 49, 25)

$Radio2 = GUICtrlCreateRadio("2 sec", 56, 192, 49, 25)

$Radio3 = GUICtrlCreateRadio("3 sec", 112, 192, 49, 25)

$Radio4 = GUICtrlCreateRadio("5 sec", 8, 216, 49, 25)

$Radio5 = GUICtrlCreateRadio("10 sec", 56, 216, 49, 25)

$Radio6 = GUICtrlCreateRadio("15 sec", 112, 216, 49, 25)

$Radio7 = GUICtrlCreateRadio("20 sec", 8, 240, 49, 25)

$Radio8 = GUICtrlCreateRadio("25 sec", 64, 240, 49, 25)

$Radio9 = GUICtrlCreateRadio("30 sec", 120, 240, 49, 25)

$Radio10 = GUICtrlCreateRadio("1x", 8, 88, 41, 25)

$Radio11 = GUICtrlCreateRadio("2x", 48, 88, 41, 25)

$Radio12 = GUICtrlCreateRadio("3x", 80, 88, 49, 25)

$Radio13 = GUICtrlCreateRadio("5x", 8, 112, 33, 25)

$Radio14 = GUICtrlCreateRadio("10x", 48, 112, 41, 25)

$Radio15 = GUICtrlCreateRadio("15x", 88, 112, 49, 25)

$Radio16 = GUICtrlCreateRadio("20x", 8, 136, 33, 25)

$Radio17 = GUICtrlCreateRadio("25x", 48, 136, 33, 25)

$Radio18 = GUICtrlCreateRadio("30x", 88, 136, 41, 25)

GUISetState(@SW_SHOW)

Und jetz will ich mit den radio button eine anzahl auswählen und wenn ich auf activate drücke dann soll es sich hiden(Das weiß ich wie es geht mit den hiden). Jetzt soll er aber erst anfangen zu spammen wenn ich auf einen hotkey drücke.?!

V8II · 03/21/2011, 17:06

Sorry ich verstehe nicht ganz dein Problem. Einfach mit

PHP Code:


			
HotKeySet("{DeinKnopf}","DeineStartFunktion")
;Deine GUI

Func DeineStartFunktion()
;Hier mit GuiCtrlRead die Radioboxen und Inputbox auslesen
;Gui Mit GuiSetState(@SW_HIDE) verstecken
;vielleicht hier noch ein hotkeyset mit funktion zum wieder sichtbarmachen der GUI?
For $i=1 to $AusgeleseneAnzahlWieOftErSpammenSoll
;Text senden
Next
;GuiSetState(@SW_SHOW)
EndFunc

Lg

Ludder231 · 03/21/2011, 17:20

Quote:

Originally Posted by V8II

Sorry ich verstehe nicht ganz dein Problem.

Und wie lese ich einen Radio button aus?

fireman-hh · 03/21/2011, 17:24

V811

hat es doch schon geschrieben:

;Hier mit GuiCtrlRead die Radioboxen und Inputbox auslesen
dann brauchst noch einen Überprüfung via If schleife.

Also
If Guictrlread($Radion1) = '1' Then
Msgbox(64,"","Radion 1 ist Aktiv")
Else
Msgbox(64,"","Radion 1 ist Nichtaktiv")

Ludder231 · 03/21/2011, 17:29

Quote:

Originally Posted by fireman-hh

V811

hat es doch schon geschrieben:

;Hier mit GuiCtrlRead die Radioboxen und Inputbox auslesen
dann brauchst noch einen Überprüfung via If schleife.

Also
If Guictrlread($Radion1) = '1' Then
Msgbox(64,"","Radion 1 ist Aktiv")
Else
Msgbox(64,"","Radion 1 ist Nichtaktiv")

Ja sorry hab ich gerade auch bemerkt oO WIe dumm von mir

Bin irgendwie durch den Wind xD
Jetzt weiß ich wie es geht bloß jetzt ist die frage, warum er es jetzt nicht nur einmal spammt

Ich wollte ja mit dem radio button erreichen das er eine bestimmte anzahl spammt.

PHP Code:


			
Func _Start()
GUICtrlRead(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Spam", GUICtrlRead($Input1tospam, $Radio11)))
For $i=1 to $Radio11
send(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Spam", GUICtrlRead($Input1tospam)))
send("{enter}")
next
EndFunc

Ludder231 · 03/21/2011, 18:30

Mit einem klappts ja, aber der hat ein konflikt mit dem next undso.
Wie kann ich dass verhindern?

PHP Code:


			
Func _Start()
For $i=1 to $Radio10
send(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Spam", GUICtrlRead($Input1, $Radio10)))
send("{enter}")
sleep(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Time", GUICtrlRead($Input2)))
next

Ludder231 · 03/22/2011, 12:32

So hab jetzt einiges ergänzt...

Müsste alles klappen

Hier der Code:

PHP Code:


			
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=d:\neuer ordner\koda_1.7.3.0\forms\spammer.kxf
$Form1_1 = GUICreate(" |:=-Spammer-=:|", 212, 294, 191, 121)
$Label1 = GUICtrlCreateLabel("Text to Spam:", 8, 8, 86, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("Here the Text", 8, 32, 193, 21)
$Label2 = GUICtrlCreateLabel("How often to Spam:", 8, 64, 119, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Checkbox8 = GUICtrlCreateCheckbox("Checkbox8", 24, 136, 1, 9)
$Button1 = GUICtrlCreateButton("Activate", 56, 168, 97, 25)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Press F1 to start spamming", 8, 200, 130, 17)
$Label4 = GUICtrlCreateLabel("Press F3 to show the Menü", 8, 216, 133, 17)
$Label5 = GUICtrlCreateLabel("Wait between the last spam:", 8, 120, 170, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("1000", 8, 144, 41, 21)
$Label6 = GUICtrlCreateLabel("Milliseconds", 56, 144, 79, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input3 = GUICtrlCreateInput("15", 8, 88, 41, 21)
$Label7 = GUICtrlCreateLabel("Press F5 for pause", 8, 232, 92, 17)
$Label8 = GUICtrlCreateLabel("Made by Ludder231", 0, 272, 116, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

HotKeySet("{F1}", "_Start")
HotKeySet("{F3}", "_pause")


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        case $Button1
            GUISetState(@sw_hide)
            iniWrite(@DesktopCommonDir&"\Spammer.ini", "", "Spam", GUICtrlRead($Input1))
            iniWrite(@DesktopCommonDir&"\Spammer.ini", "", "Time", GUICtrlRead($Input2))
            iniWrite(@DesktopCommonDir&"\Spammer.ini", "", "Howmuch", GUICtrlRead($Input3))
            if not FileExists(@DesktopCommonDir&"\Spammer.ini") Then
                msgbox(16, "Error", "Spammer.ini don't exist...")
                endif
            _tooltip()
            
EndSwitch

WEnd

func _tooltip()
    ToolTip("Press F1 to Start spamming" & @CRLF & _
            "Press F3 to pause the bot", 0, 0, "Help", 1)
        EndFunc
        
Func _Start()
for $i=1 to GUICtrlRead($Input3)
send(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "", GUICtrlRead($Input1)))
send("{enter}")
sleep(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Time", GUICtrlRead($Input2)))
next
GUISetState(@sw_show, " |:=-Spammer-=:|")
MsgBox(0, "Ready", "Finished spamming...") 

endFunc  


func _pause()
    while 1
        sleep(500)
        wend
endfunc

P.S: Bei manchen sonderzeichen wie ! klappts nicht das er enter drückt
Bei # erscheint garnicht erst

Viele Grüße an die Leecher

V8II · 03/22/2011, 13:59

Ein bisschen aufwendig geschrieben, ansonsten herzlichen Glückwunsch, dass du es geschafft hast!
Was mir so auf die schnelle aufgefallen ist, dass du keine Variablen benutzt. Wenn du dich nicht auskennst, melde dich doch mal bei mir bei Skype (Hunternino) dann kann ich dir Sachen erklären oder bei Problemen helfen. Ich habe bemerkt, dass du des öfteren Fragen stellst, deshalb währe es vielleicht effektiver dir über Skype zu helfen.

Achja, nochwas, hier im Forum ist es nicht erwünscht, wenn das selbe Mitglied mehrere Beiträge hintereinander schreibt. Bitte versuche in Zukunft nicht mehrere Male nacheinander schreiben, es gibt auch den Edit-Knopf, mit dem kann man was in einen schon vorhandenen Beitrag schreiben.

Lg V8II

Ludder231 · 03/22/2011, 14:24

Quote:

Originally Posted by V8II

Ein bisschen aufwendig geschrieben, ansonsten herzlichen Glückwunsch, dass du es geschafft hast!
Was mir so auf die schnelle aufgefallen ist, dass du keine Variablen benutzt. Wenn du dich nicht auskennst, melde dich doch mal bei mir bei Skype (Hunternino) dann kann ich dir Sachen erklären oder bei Problemen helfen. Ich habe bemerkt, dass du des öfteren Fragen stellst, deshalb währe es vielleicht effektiver dir über Skype zu helfen.

Achja, nochwas, hier im Forum ist es nicht erwünscht, wenn das selbe Mitglied mehrere Beiträge hintereinander schreibt. Bitte versuche in Zukunft nicht mehrere Male nacheinander schreiben, es gibt auch den Edit-Knopf, mit dem kann man was in einen schon vorhandenen Beitrag schreiben.

Lg V8II

Danke!
Das mit dem "auskennen" stimmt ja.

Hmm, hab mich auch schon gefragt ob das erlaubt ist mit dem mehreren beiträgen undso

Naja hab jetzt erstmal meine beiden Programme fertig und weiß noch nicht was ich als nächstes machen werde.

Das mit dem Angebot finde ich sehr Nett werd ich mir merken wenn ich mal Probleme mit iwas hab oder fragen..

MfG Ludder231

V8II · 03/22/2011, 14:30

Also wenn du eine leichte Aufgabe zum Üben suchst, ich habe mal ein Programm geschrieben mit vielen einfachen Funktionen drin. Du könntest sowas in der Art auch mal versuchen. (

)
Lg V8II

Edit: Naja nicht ich habs geschrieben, AutoitScript hat mitgeholfen, habe den armen Kerl ganz vergessen