[PROBLEM] Spamm-Tool

10/19/2010 14:52 18alex03#1

Hey User,
ich hab ein kleines Problem bei meinem Spamm-Tool.
Also man soll in die einzelnen Felder einen Text eingeben k�nnen und dann zB F1 dr�cken und dann wird der Text dahin geschrieben, in welchem Fenster man grade ist. Zum Beispiel ein Textdokument.

Hier mal der Quellcode:

Spoiler

PHP Code:


			
#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Users\Alex\Pictures\SpammToolForm.kxf

$Form1 = GUICreate("Spamm-Tool by 18alex03", 615, 606, 701, 279)

GUISetBkColor(0xA6CAF0)

$Label1 = GUICtrlCreateLabel("      Spamm-Tool by 18alex03", 2, -4, 525, 53)

GUICtrlSetFont(-1, 26, 800, 2, "Comic Sans MS")

GUICtrlSetColor(-1, 0x000000)

$Label2 = GUICtrlCreateLabel("Text f�r F1:", 14, 62, 88, 23)

GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")

GUICtrlSetColor(-1, 0x000000)

$Input1 = GUICtrlCreateInput("", 14, 94, 581, 21)

$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 16, 126, 13, 17)

$Label3 = GUICtrlCreateLabel("Text f�r F2:", 16, 152, 88, 23)

GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")

GUICtrlSetColor(-1, 0x000000)

$Input2 = GUICtrlCreateInput("", 16, 184, 581, 21)

$Checkbox2 = GUICtrlCreateCheckbox("Checkbox1", 18, 216, 13, 17)

$Label4 = GUICtrlCreateLabel("Text f�r F3:", 16, 240, 88, 23)

GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")

GUICtrlSetColor(-1, 0x000000)

$Input3 = GUICtrlCreateInput("", 16, 272, 581, 21)

$Checkbox3 = GUICtrlCreateCheckbox("Checkbox1", 18, 304, 13, 17)

$Label5 = GUICtrlCreateLabel("Text f�r F4:", 18, 332, 88, 23)

GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")

GUICtrlSetColor(-1, 0x000000)

$Input4 = GUICtrlCreateInput("", 18, 364, 581, 21)

$Checkbox4 = GUICtrlCreateCheckbox("Checkbox1", 20, 396, 13, 17)

$Label6 = GUICtrlCreateLabel("Text f�r F5:", 20, 420, 88, 23)

GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")

GUICtrlSetColor(-1, 0x000000)

$Input5 = GUICtrlCreateInput("", 20, 452, 581, 21)

$Checkbox5 = GUICtrlCreateCheckbox("Checkbox1", 22, 484, 13, 17)

$Label7 = GUICtrlCreateLabel("Text f�r F6:", 20, 508, 88, 23)

GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")

GUICtrlSetColor(-1, 0x000000)

$Input6 = GUICtrlCreateInput("", 20, 540, 581, 21)

$Checkbox6 = GUICtrlCreateCheckbox("Checkbox1", 22, 572, 13, 17)

$Label8 = GUICtrlCreateLabel("Enter", 42, 570, 33, 20)

GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")

GUICtrlSetColor(-1, 0x000000)

$Label9 = GUICtrlCreateLabel("Enter", 42, 214, 33, 20)

GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")

GUICtrlSetColor(-1, 0x000000)

$Label10 = GUICtrlCreateLabel("Enter", 42, 304, 33, 20)

GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")

GUICtrlSetColor(-1, 0x000000)

$Label11 = GUICtrlCreateLabel("Enter", 42, 396, 33, 20)

GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")

GUICtrlSetColor(-1, 0x000000)

$Label12 = GUICtrlCreateLabel("Enter", 42, 480, 33, 20)

GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")

GUICtrlSetColor(-1, 0x000000)

$Label13 = GUICtrlCreateLabel("Enter", 42, 128, 33, 20)

GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")

GUICtrlSetColor(-1, 0x000000)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###



$taste1 = HotKeySet(("{F1}"), "_f1")



While 1

    $nMsg = GUIGetMsg()

    Switch $nMsg

        Case $GUI_EVENT_CLOSE

            Exit

        Case 1

            HotKeySet(("{F1}"), "_f1")



    EndSwitch

WEnd





Func _f1()

    While 1

        Sleep(50)

        $read1 = GUICtrlRead($Input1)



        If $Checkbox1 = True Then

            Send($read1)

            Send("{Enter}")

        Else

            Send($read1)

        EndIf

    WEnd



EndFunc   ;==>_f1

Leider Funktioniert das nicht.
K�nnte mir jemand helfen?
Achja und wenn die Checkbox aktiviert ist, soll nach dem man F1 gedr�ckt hat, der Text geschrieben werden und Enter gedr�ckt werden.

10/19/2010 15:00 omer36#2

ist eig. auch nicht die beste l�sung, wegen den 2 while scheifen.. aber nja klapt :p

PHP Code:


			
#EndRegion ### END Koda GUI section ###

HotKeySet("{F1}", "spam")
HotKeySet("{ESC}", "_exit")

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


Func spam()
    While 1
        $read1 = GUICtrlRead($Input1)
        If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED Then
            Send($read1)
            Send("{Enter}")
        Else
            Send($read1)
        EndIf
    WEnd
EndFunc

Func _exit()
    Exit
EndFunc

10/19/2010 15:05 18alex03#3

ehm hab mich vllt unklar ausgedr�ckt, aber das programm soll den text nur einmal schreiben. also 1 mal f1 dr�cken -> 1 mal text schreiben. micht dauernd :S

aber danke

10/19/2010 15:09 ZaZiZu#4

also text nur 1x hinschreiben und dann ende?
dann fehlt dir exitloop oder so ^^
das mit enter (hab ich von nem anderen) kann man mit @CRLF l�sen, also einfach : Send (@CRLF)

hier mal beispiel:

Quote:

If $Checkbox1 = True Then
Send($read1)
Send(@CRLF)
ExitLoop

und f�r was soll das enter sein? der bringt iwie nix ^^

und €dit: das mit dem kontrollk�stchen macht iwie keinen unterschied ^^
und das "Else" find ich auch nirgends wieder
mit der checkbox kenn ich mich auch ganz und gar nicht aus. hab in meiner gui das selbe problem, der der es l�st kriegt gleich 2 thanks :D

btw. die vielen FX und readX und tasteX usw kann man mit einer variable mit nur einer funktion/schleife vereinfachen ;)
beispiel:

Spoiler

10/19/2010 15:12 18alex03#5

ah danke ich habs, muss bei dem von omer36 nur die while schleife wegmachen, dann funzt alles.

das enter soll bewirken, das der text abgeschickt wird, zB in icq oder so ;)

10/19/2010 15:30 lolkop#6

ich w�rde dir empfehlen das ganze in eine schleife zu setzen...
etwa so:

Code:

#include <misc.au3>
Dim $input[6], $checkbox[6]

$gui =GUICreate("Spamm-Tool by 18alex03", 615, 606)
GUISetBkColor(0xA6CAF0)
GUICtrlCreateLabel("      Spamm-Tool by 18alex03", 2, -4, 525, 53)
GUICtrlSetFont(-1, 26, 800, 2, "Comic Sans MS")
For $i=0 To 5
	GUICtrlCreateLabel("Text f�r F"&$i+1&":", 14, 62 + $i*90, 88, 23)
	GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
	$input[$i] = GUICtrlCreateInput("", 14, 94 + $i*90, 581, 21)
	$checkbox[$i] = GUICtrlCreateCheckbox('Enter', 16, 126 + $i*90, 50, 17)
	GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
Next
GUISetState(@SW_SHOW)

$dll = DllOpen('user32.dll')
Do
	For $i=0 To 5
		If _IsPressed(70 + $i, $dll) Then
			If BitAND(GUICtrlRead($checkbox[$i]), 1) Then
				Send(GUICtrlRead($input[$i])&@CRLF)
			Else
				Send(GUICtrlRead($input[$i]))
			EndIf
			Do
				Sleep(1)
			Until Not _IsPressed(70 + $i, $dll)
		EndIf
	Next
Until GUIGetMsg() = -3
DllClose($dll)

nat�rlich hast du bei den F tasten den nachteil, das die meisten tools zb auf F1 ihre hilfe funktion haben...

10/19/2010 15:39 ZaZiZu#7

Quote:

Originally Posted by lolkop

ich w�rde dir empfehlen das ganze in eine schleife zu setzen...
etwa so:

Code:

#include <misc.au3>
Dim $input[6], $checkbox[6]

$gui =GUICreate("Spamm-Tool by 18alex03", 615, 606)
GUISetBkColor(0xA6CAF0)
GUICtrlCreateLabel("      Spamm-Tool by 18alex03", 2, -4, 525, 53)
GUICtrlSetFont(-1, 26, 800, 2, "Comic Sans MS")
For $i=0 To 5
	GUICtrlCreateLabel("Text f�r F"&$i+1&":", 14, 62 + $i*90, 88, 23)
	GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
	$input[$i] = GUICtrlCreateInput("", 14, 94 + $i*90, 581, 21)
	$checkbox[$i] = GUICtrlCreateCheckbox('Enter', 16, 126 + $i*90, 50, 17)
	GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
Next
GUISetState(@SW_SHOW)

$dll = DllOpen('user32.dll')
Do
	For $i=0 To 5
		If _IsPressed(70 + $i, $dll) Then
			If BitAND(GUICtrlRead($checkbox[$i]), 1) Then
				Send(GUICtrlRead($input[$i])&@CRLF)
			Else
				Send(GUICtrlRead($input[$i]))
			EndIf
			Do
				Sleep(1)
			Until Not _IsPressed(70 + $i, $dll)
		EndIf
	Next
Until GUIGetMsg() = -3
DllClose($dll)

nat�rlich hast du bei den F tasten den nachteil, das die meisten tools zb auf F1 ihre hilfe funktion haben...

kannst mir diesen teil erl�utern pls?

Quote:

If _IsPressed(70 + $i, $dll) Then

was ist das f�r eine dll?

€dit: den spammbot k�nnte man gut mit Nummerntasten laufen lassen ^^

10/19/2010 15:55 lolkop#8

Quote:

Originally Posted by ZaZiZu

kannst mir diesen teil erl�utern pls?

was ist das f�r eine dll?

das ist die user32.dll die ich vorher einmalig ge�ffnet habe, da sie sehr oft in der sekunde gebraucht wird.
wenn man das ganze weggelassen h�tte, w�rde die dll jedes mal ge�ffnet und geschlossen werden...

die 70 steht eben f�r F1. die for schleife checkt die ganze zeit ob die tasten von F1 bis F6 (70+5) gedr�ckt werden.

10/19/2010 16:03 ZaZiZu#9

Quote:

Originally Posted by lolkop

das ist die user32.dll die ich vorher einmalig ge�ffnet habe, da sie sehr oft in der sekunde gebraucht wird.
wenn man das ganze weggelassen h�tte, w�rde die dll jedes mal ge�ffnet und geschlossen werden...

die 70 steht eben f�r F1. die for schleife checkt die ganze zeit ob die tasten von F1 bis F6 (70+5) gedr�ckt werden.

wollte eigentlich bei der dll nur wissen was die �berhaupt macht ^^ aber ok, habs hier nachgeschaut
[Only registered and activated users can see links. Click Here To Register...]

10/19/2010 17:20 18alex03#10

Quote:

Originally Posted by lolkop

ich w�rde dir empfehlen das ganze in eine schleife zu setzen...
etwa so:

Code:

#include <misc.au3>
Dim $input[6], $checkbox[6]

$gui =GUICreate("Spamm-Tool by 18alex03", 615, 606)
GUISetBkColor(0xA6CAF0)
GUICtrlCreateLabel("      Spamm-Tool by 18alex03", 2, -4, 525, 53)
GUICtrlSetFont(-1, 26, 800, 2, "Comic Sans MS")
For $i=0 To 5
	GUICtrlCreateLabel("Text f�r F"&$i+1&":", 14, 62 + $i*90, 88, 23)
	GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
	$input[$i] = GUICtrlCreateInput("", 14, 94 + $i*90, 581, 21)
	$checkbox[$i] = GUICtrlCreateCheckbox('Enter', 16, 126 + $i*90, 50, 17)
	GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
Next
GUISetState(@SW_SHOW)

$dll = DllOpen('user32.dll')
Do
	For $i=0 To 5
		If _IsPressed(70 + $i, $dll) Then
			If BitAND(GUICtrlRead($checkbox[$i]), 1) Then
				Send(GUICtrlRead($input[$i])&@CRLF)
			Else
				Send(GUICtrlRead($input[$i]))
			EndIf
			Do
				Sleep(1)
			Until Not _IsPressed(70 + $i, $dll)
		EndIf
	Next
Until GUIGetMsg() = -3
DllClose($dll)

nat�rlich hast du bei den F tasten den nachteil, das die meisten tools zb auf F1 ihre hilfe funktion haben...

das programm ist sch�n und gut, doch leider funktioniert das mit der checkbox nicht.
wenn man eine f taste dr�ckt, macht der immer enter, egal ob nen hacken drin ist oder nicht

10/19/2010 17:45 ZaZiZu#11

Quote:

Originally Posted by 18alex03

das programm ist sch�n und gut, doch leider funktioniert das mit der checkbox nicht.
wenn man eine f taste dr�ckt, macht der immer enter, egal ob nen hacken drin ist oder nicht

wo ist das problem? also bei mir klappt es wunderbar im editor^^
wie lolkop schon sagte, viele programme haben eigene funktionen, deswegen hab ich es mal auf Nummerntasten umgeschrieben:
und grad dazueditiert: abfragefenster, welches abfragt wieviele reihen da rein sollen :D da ich sicherlich nicht jedes mal 6 nachrichten auf kurzwahl habe, ma 2, ma 9

Quote:

#include <misc.au3>

$lol=InputBox("Test", "Anzahl der Reihen", "1-9 m�glich")
Dim $input[$lol], $checkbox[$lol]

$gui =GUICreate("Spamm-Tool by 18alex03", 615, 606)
GUISetBkColor(0xA6CAF0)
GUICtrlCreateLabel(" Spamm-Tool by 18alex03", 2, -4, 525, 53)
GUICtrlSetFont(-1, 26, 800, 2, "Comic Sans MS")
For $i=0 To $lol-1
GUICtrlCreateLabel("Text f�r #"&$i+1&":", 14, 62 + $i*90, 88, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$input[$i] = GUICtrlCreateInput("", 14, 94 + $i*90, 581, 21)
$checkbox[$i] = GUICtrlCreateCheckbox('Enter', 16, 126 + $i*90, 50, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
Next
GUISetState(@SW_SHOW)

$dll = DllOpen('user32.dll')
Do
For $i=0 To $lol-1
If _IsPressed(61 + $i, $dll) Then
If BitAND(GUICtrlRead($checkbox[$i]), 1) Then
Send("{BS}"&GUICtrlRead($input[$i])&@CRLF)
Else
Send("{BS}"&GUICtrlRead($input[$i]))
EndIf
Do
Sleep(1)
Until Not _IsPressed(61 + $i, $dll)
EndIf
Next
Until GUIGetMsg() = -3
DllClose($dll)