Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > AutoIt
You last visited: Today at 05:02

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



Brauch kleine Hilfe...

Discussion on Brauch kleine Hilfe... within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #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."325117192124)
$Input1 GUICtrlCreateInput("Hier den Link eingeben"16828921)
$Button1 GUICtrlCreateButton("Go"32487349$WS_GROUP)
$Button2 GUICtrlCreateButton("E*Pvpers"120487349$WS_GROUP)
$Button3 GUICtrlCreateButton("Spamm"208488149$WS_GROUP)
$Pic1 GUICtrlCreatePic("C:\Users\TheAdmin\Desktop\Crack\AS-RENDERS_547.jpg"00324116BitOR($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
FrEakY. is offline  
Old 04/22/2010, 19:15   #2
 
arisha's Avatar
 
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
arisha is offline  
Old 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 ...
FrEakY. is offline  
Old 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^^
mipez is offline  
Old 04/22/2010, 21:22   #5
 
elite*gold: 60
Join Date: Jun 2009
Posts: 717
Received Thanks: 431
aus der inputbox .....
FrEakY. is offline  
Old 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 Anzahlwie 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 
mipez is offline  
Thanks
1 User
Old 04/23/2010, 12:37   #7
 
elite*gold: 60
Join Date: Jun 2009
Posts: 717
Received Thanks: 431
Danke für die Hilfe
FrEakY. is offline  
Reply


Similar Threads 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.


Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.