[Frage] Spammer

03/21/2011 16:35 Ludder231#1

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.?!

03/21/2011 17:06 V8II#2

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

03/21/2011 17:20 Ludder231#3

Quote:

Originally Posted by V8II

Sorry ich verstehe nicht ganz dein Problem.

Und wie lese ich einen Radio button aus?

03/21/2011 17:24 fireman-hh#4

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")
:)

03/21/2011 17:29 Ludder231#5

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 :D
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

03/21/2011 18:30 Ludder231#6

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

03/22/2011 12:32 Ludder231#7

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 :)

03/22/2011 13:59 V8II#8

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

03/22/2011 14:24 Ludder231#9

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

03/22/2011 14:30 V8II#10

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. ([Only registered and activated users can see links. Click Here To Register...])
Lg V8II

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