Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > AutoIt
You last visited: Today at 01:20

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

Advertisement



Brauche Hilfe

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

Reply
 
Old   #1
 
elite*gold: 124
Join Date: Jul 2011
Posts: 230
Received Thanks: 12
Brauche Hilfe

Was Habe ich falsch gemacht es soll auch eine schleife geben.



#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Tommy\Desktop\Nostale Bot V1.kxf
$Form1 = GUICreate("Nostale Bot V1.0", 540, 148, 267, 117)
$Input1 = GUICtrlCreateInput("", 320, 16, 121, 21)
$Input2 = GUICtrlCreateInput("", 320, 56, 121, 21)
$Input3 = GUICtrlCreateInput("", 320, 88, 121, 21)
$Label1 = GUICtrlCreateLabel("In Welchen Abstand soll die Leertaste gedrückt werden?", 32, 16, 272, 17)
$Label2 = GUICtrlCreateLabel("In Welchen Abstand solll X gedrückt werden?", 80, 56, 223, 17)
$Label3 = GUICtrlCreateLabel("In Welchen Abstand Soll 9 Gedrückt werden?", 80, 88, 221, 17)
$Button1 = GUICtrlCreateButton("Start", 448, 16, 75, 25)
$Button2 = GUICtrlCreateButton("Start", 448, 56, 75, 25)
$Button3 = GUICtrlCreateButton("Start", 448, 88, 75, 25)
$Button4 = GUICtrlCreateButton("Ende", 280, 120, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Send ("{Space}") ;Sende Leertaste
$Sleep = GUICtrlRead("Input1") ;Sleep Time
Case $Button2
Send ("x") ;Sende X
$Sleep = GUICtrlRead("Input2")
Case $Button3
Send ("9") ;Sende 9
$Sleep = GUICtrlRead("Input3")
Case $Button4
Exit

EndSwitch
WEnd
Freaky423 is offline  
Old 11/28/2011, 17:27   #2


 
Whoknowsit's Avatar
 
elite*gold: 146
Join Date: May 2009
Posts: 3,764
Received Thanks: 6,973
Mal ein Vorschlag:

Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Users\Tommy\Desktop\Nostale Bot V1.kxf
$Form1 = GUICreate("Nostale Bot V1.0", 540, 148, 267, 117)
$Input1 = GUICtrlCreateInput("", 320, 16, 121, 21)
$Input2 = GUICtrlCreateInput("", 320, 56, 121, 21)
$Input3 = GUICtrlCreateInput("", 320, 88, 121, 21)
$Label1 = GUICtrlCreateLabel("In Welchen Abstand soll die Leertaste gedrückt werden?", 32, 16, 272, 17)
$Label2 = GUICtrlCreateLabel("In Welchen Abstand solll X gedrückt werden?", 80, 56, 223, 17)
$Label3 = GUICtrlCreateLabel("In Welchen Abstand Soll 9 Gedrückt werden?", 80, 88, 221, 17)
$Button1 = GUICtrlCreateButton("Start", 448, 16, 75, 25)
$Button2 = GUICtrlCreateButton("Start", 448, 56, 75, 25)
$Button3 = GUICtrlCreateButton("Start", 448, 88, 75, 25)
$Button4 = GUICtrlCreateButton("Ende", 280, 120, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE, $Button4
			AdlibUnRegister("sendSpace")
			AdlibUnRegister("sendX")
			AdlibUnRegister("send9")
			Exit
		Case $Button1
			AdlibRegister("sendSpace", GUICtrlRead("Input1") * 1000)
		Case $Button2
			AdlibRegister("sendX", GUICtrlRead("Input2") * 1000)
		Case $Button3
			AdlibRegister("send9", GUICtrlRead("Input3") * 1000)
		Exit
	EndSwitch
WEnd

Func sendSpace()
	Send("{SPACE}")
EndFunc

Func sendX()
	Send("x")
EndFunc

Func send9()
	Send("9")
EndFunc
Whoknowsit is offline  
Thanks
1 User
Old 11/28/2011, 17:49   #3
 
elite*gold: 124
Join Date: Jul 2011
Posts: 230
Received Thanks: 12
Klapt Super Kriegst ein Thanks
Freaky423 is offline  
Reply


Similar Threads Similar Threads
[Sammelthread]Brauche hilfe/Biete hilfe beim p-server erstellen
07/07/2011 - Metin2 Private Server - 14 Replies
Jeder einzelne um hilfe bittet bzw bietet. Dafür muss nicht immer ein extra Thread eröffnet werden ;) -Posted eure fragen -Eure probleme -Oder wenn ihr Hilfe anbietet doch einfach hier hinein
[Hilfe]Brauche Hilfe kann mir wer beim Tool fixxen helfen
10/12/2010 - Metin2 Private Server - 3 Replies
Hallo E*pvp Ich brauche drigend Hilfe beim Fixxen Von dem Server hack Tool Ich hoffe es ist jemand so nett und hilft mir PS: Es ist ein Root Server. Mfg Sonnylein
[HILFE]Brauche hilfe beim FreeBSD Rootserver umbekannte Fehlermeldung.
09/09/2010 - Metin2 Private Server - 8 Replies
Hallo comunity. So, ich habe ja letztens schonmal was gefragt wegen dem kernel. Dem den rootserver gehört hat den den hoster eingeschreiben, die haben nun einen reinstall gemacht. So bis jetzt klappt alles, so wie es soll außer....das starten Wenn wir den den server starten möchten, kommt das: http://www.fotos-hochladen.net/uploads/unbenann11 tuptn6kfg.png
Brauche Dringend Hilfe! Bin Metin spieler aber Brauche Hilfe
12/30/2009 - Metin2 Private Server - 0 Replies
Es gehört hier zwar nicht rein , aber ich weiß keine andere Lösung Ich habe seit einigen Tagen ein Problem... Microsoft Windows Search Protocol Host funktioniert nicht mehr Die Anwendung wird Aufgrund eines Problems nicht mehr richtig Ausgeführt. Ich weiß nicht was das ist und wie ich es loswerde.



All times are GMT +2. The time now is 01:20.


Powered by vBulletin®
Copyright ©2000 - 2024, 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 ©2024 elitepvpers All Rights Reserved.