|
You last visited: Today at 09:01
Advertisement
[PROBLEM] Spamm-Tool
Discussion on [PROBLEM] Spamm-Tool within the AutoIt forum part of the Coders Den category.
10/19/2010, 14:52
|
#1
|
elite*gold: 0
Join Date: Dec 2008
Posts: 102
Received Thanks: 10
|
[PROBLEM] Spamm-Tool
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:
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
|
#2
|
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,254
|
ist eig. auch nicht die beste lösung, wegen den 2 while scheifen.. aber nja klapt
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
|
#3
|
elite*gold: 0
Join Date: Dec 2008
Posts: 102
Received Thanks: 10
|
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
|
#4
|
elite*gold: 0
Join Date: Jul 2008
Posts: 832
Received Thanks: 136
|
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
btw. die vielen FX und readX und tasteX usw kann man mit einer variable mit nur einer funktion/schleife vereinfachen
beispiel:
Func _f1&$i()
While 1
Sleep(50)
$read&$i = GUICtrlRead($Input&$i)
If $Checkbox&$i = True Then
Send($read&$i)
Send(@CRLF)
ExitLoop
Else
Send($read&$i)
Send("nö")
ExitLoop
EndIf
WEnd
EndFunc
|
|
|
10/19/2010, 15:12
|
#5
|
elite*gold: 0
Join Date: Dec 2008
Posts: 102
Received Thanks: 10
|
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
|
#6
|
elite*gold: 280
Join Date: May 2007
Posts: 2,818
Received Thanks: 3,483
|
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
|
#7
|
elite*gold: 0
Join Date: Jul 2008
Posts: 832
Received Thanks: 136
|
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
|
#8
|
elite*gold: 280
Join Date: May 2007
Posts: 2,818
Received Thanks: 3,483
|
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
|
#9
|
elite*gold: 0
Join Date: Jul 2008
Posts: 832
Received Thanks: 136
|
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
|
|
|
10/19/2010, 17:20
|
#10
|
elite*gold: 0
Join Date: Dec 2008
Posts: 102
Received Thanks: 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
|
#11
|
elite*gold: 0
Join Date: Jul 2008
Posts: 832
Received Thanks: 136
|
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 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)
|
|
|
|
|
Similar Threads
|
problem with s4 and res tool
07/25/2010 - S4 League - 2 Replies
hello, after having to use tool without re crc fix, s4 gives me the following error File is changed: W L
_resources \ 835d510f54155340
I try to replace the s4Hd haked by the original without success, and delete the file 835d510f54155340 without success
I think I could just replace the old 835d510f54155340 by the original?
please help me
|
[[Mein Spamm Bot Tool mit Musik]]
07/03/2010 - Combat Arms Hacks, Bots, Cheats & Exploits - 4 Replies
Hallo :handsdown:
Der Spamm Bot Tool ist mein Projekt 3 :rolleyes:
Was er so hat :D
1)Uhr Anzeige
2)Datum Anzeige
3)ein Start/An und ein Stop/Aus Knopf
4)7 Text Felder
|
Problem mit dem Res.- Tool
12/29/2009 - S4 League - 5 Replies
Hey Leute,
ich bekomme andauernd das Problem das mein Resource Tool die Resourcedateien nicht findet.
Hat jemand von euch eine Lösung?
|
[DOWNLOAD] Metin2 Spamm Tool [NEW]
11/23/2007 - Metin2 - 2 Replies
Ohoh, Welcome...
Hab für euch einen Spam Tool vorbereitet...
Sagen wir mal mein Freund, und hat es mir geschickt!
Ich poste mal den Link rein: *removed*
Disclaimer:
Hab nix mit der Zusammenarbeit des Programms zu tun oder ähnliches ich sorge nicht für Computer beschädigung oder ähnliches was zu Verlusten führt.
Bei mir zeigte es kein Virus ein, könnt ihr gerne bei VirusTotal scannen.
|
All times are GMT +2. The time now is 09:01.
|
|