|
You last visited: Today at 05:02
Advertisement
Brauch kleine Hilfe...
Discussion on Brauch kleine Hilfe... within the AutoIt forum part of the Coders Den category.
04/22/2010, 19:09
|
#1
|
elite*gold: 60
Join Date: Jun 2009
Posts: 717
Received Thanks: 431
|
Brauch kleine Hilfe...
Hey, hab hier folgendes Script und ich möchte, dass es wenn ich die Entf Taste drück anfängt zu spammen, leider habe ich keine Ahnung, wie ich das machen soll....
Script:
PHP Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Webbrowser by FrEakY.", 325, 117, 192, 124)
$Input1 = GUICtrlCreateInput("Hier den Link eingeben", 16, 8, 289, 21)
$Button1 = GUICtrlCreateButton("Go", 32, 48, 73, 49, $WS_GROUP)
$Button2 = GUICtrlCreateButton("E*Pvpers", 120, 48, 73, 49, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Spamm", 208, 48, 81, 49, $WS_GROUP)
$Pic1 = GUICtrlCreatePic("C:\Users\TheAdmin\Desktop\Crack\AS-RENDERS_547.jpg", 0, 0, 324, 116, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetState(-1,$GUI_disable)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
HotKeySet("{delete}","Start")
HotKeySet("{end}","Stop")
Global $Start
Global $Stop
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
gogo()
Case $Button2
los()
Case $Button3
spamm()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func gogo()
ShellExecute(GUICtrlRead($Input1))
EndFunc
Func los()
ShellExecute("http://www.elitepvpers.com")
Exit
EndFunc
Func spamm()
MsgBox(0, "Hinweis!", "Drücke Entf zum Starten" & @CRLF & "Drücke Ende zum Beenden")
While 1
Send(GUICtrlRead($Input1))
Send("{ENTER}")
Sleep(5000)
WEnd
EndFunc
Func Start()
Schonmal Danke im Vorraus
|
|
|
04/22/2010, 19:15
|
#2
|
elite*gold: 0
Join Date: Nov 2009
Posts: 76
Received Thanks: 6
|
An den Anfang:
HotKeySet("{F2}", "ToggleStop")
Global $Stop
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
spamm()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Wo es passieren soll:
Func ToggleStop()
$Stop = NOT $Stop
MsgBox(0, "Information", "Das Programm beendet sich jetzt")
Exit
EndFunc
so hat es bei mir geklappt...
Einfach für F2 , entf einfügen(Denk ich mal  )
Und die anderen knöpfe deinen anpassen
|
|
|
04/22/2010, 19:18
|
#3
|
elite*gold: 60
Join Date: Jun 2009
Posts: 717
Received Thanks: 431
|
Das is nen Ausschnitt aus einem meiner Scripte ...
|
|
|
04/22/2010, 20:14
|
#4
|
elite*gold: 0
Join Date: Jul 2009
Posts: 2,241
Received Thanks: 848
|
Was soll er denn spammen? Bisschen mehr Infos bitte^^
|
|
|
04/22/2010, 21:22
|
#5
|
elite*gold: 60
Join Date: Jun 2009
Posts: 717
Received Thanks: 431
|
aus der inputbox .....
|
|
|
04/23/2010, 06:34
|
#6
|
elite*gold: 0
Join Date: Jul 2009
Posts: 2,241
Received Thanks: 848
|
Variante 1:
PHP Code:
Func Start() read1 = GuiCtrlRead(Input1) ;liest die Anzahl, wie oft gespammt werden soll read2 = GuiCtrlRead(Input2) ;liest den Inhalt der Spam-Naricht
For $i = 1 To $read1 Send("{ENTER}") Send($read2) Send("{ENTER}") Sleep(100) Next MsgBox(0,"Fertig!",$read1 & " mal " & $read2 " gespammt!") ;zeigt an wie oft etwas gespammt wurde
EndFunc
Variante 2:
PHP Code:
Func Start() read1 = GuiCtrlRead(Input1) ;liest den Inhalt der Spam-Naricht
While 1 Send("{ENTER}" Send($read1) Send("{ENTER}" Sleep(100) WEnd
EndFunc
|
|
|
04/23/2010, 12:37
|
#7
|
elite*gold: 60
Join Date: Jun 2009
Posts: 717
Received Thanks: 431
|
Danke für die Hilfe
|
|
|
 |
Similar Threads
|
[HILFE]Mein freund brauch hilfe
01/31/2010 - Metin2 Private Server - 12 Replies
Wie immer brauch mein freund hilfe er hatte server heut schon on aber als er reboot gemacht hat und vpc starten u laden gemacht kommt bei ihm das erste mal conecton:conection refused das spammmt die ganze zeit danach kommt 20 mal connect:Network is unreachable also kann er nich verbnden was heißt das????
|
[HILFE]brauch ma hilfe beim rüssi modden
12/28/2009 - Metin2 Private Server - 5 Replies
Hey Com
also ich such jemanden der mir beim modden helfen könnte ich habe soweit alles fertig nur mein problem ist wenn ich ins spiel gehe das die rüssi immer noch so ist wie sie war :confused: bei hilfe gibts natürlich THX ;)
|
Brauch kleine Hilfe bei longjuyt2
10/20/2009 - Metin2 Private Server - 10 Replies
Hi
Ich hab die Deutsche exe gedownloadet und habe sie in meinen Metin2 ordner, hab die Deutsche exe geöffnet zum gamen, als ein fenster geöffnet wurde kam eine nachricht: Run - exceptions. Attribute Error: 'module' object has not attribute 'LoadlocalAddr'
Wie weiss man ob man die richtige Metin 2 DE version hat? Hab jetzt einfach die neue heruntergeladen, ist gerade am downloaden.
peace
|
All times are GMT +1. The time now is 05:03.
|
|