Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > AutoIt
You last visited: Today at 13:50

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

Advertisement



Autoit Problem Schleife will nicht

Discussion on Autoit Problem Schleife will nicht within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1

 
.Lolcat's Avatar
 
elite*gold: 100
The Black Market: 423/1/0
Join Date: Dec 2009
Posts: 3,504
Received Thanks: 1,219
Autoit Problem Schleife will nicht

Hi Leute
Ich habe ein Problem
ich möchte ein script haben welches auf tastendruck eine eingabe macht (/x 1) und beim nächsten tastendruck wieder eine eingabe macht (/x 2) usw.
mein bruder hat es so versucht aber will nicht klappen er weiß nicht was er noch machen soll.

Code:
HotKeySet ("{Numpadadd}", "ssrm")
HotKeySet ("{Numpadmult}", "ende")

While 1
SLeep (1)
Wend

Func _KeyWait($sHexKey, $iTimeOut = -1, $vDLL = -1)
    Local $hDLL, $aRet, $iTimer

    If $vDLL = -1 Then $hDLL = DllOpen("user32.dll")
    If $vDLL <> -1 Then $hDLL = $vDLL
    If StringLeft($sHexKey, 2) = "0x" Then $sHexKey = StringTrimLeft($sHexKey, 2)
    If $iTimeOut <> -1 Then $iTimer = TimerInit()

    Do
        $aRet = DllCall($hDLL, "short", "GetAsyncKeyState", "int", '0x' & $sHexKey)
        If $iTimeOut <> -1 And TimerDiff($iTimer) > $iTimeOut Then ExitLoop
    Until BitAND($aRet[0], 0x8000) <> 0

    If $vDLL = -1 Then DllClose($hDLL)
EndFunc   ;==>_KeyWait

Func ssrm()
For $i=1 to 999 Step +1
Send ("t")
Sleep(250)
Send ("/x "& $i)
Sleep(250)
Send ("{Enter}")
_KeyWait("{Numpadadd}")
$i = $i + 1
Next
Endfunc

Func ende()
   Exit
EndFunc
.Lolcat is offline  
Old 11/21/2012, 19:28   #2
 
Logtetsch's Avatar
 
elite*gold: 192
Join Date: May 2009
Posts: 2,227
Received Thanks: 3,262
Code:
$i = $i + 1
Kannst du dir sparren. Die Syntax ist ebenfalls verbesserungsfähig, aber das nur nebenbei.
Achja, das eigentliche Problem liegt in der _KeyWait Funktion. Schau es dir nochmal genau an.
Falls du das Problem nicht gefunden hast, helf ich dir nochmal.
Logtetsch is offline  
Old 11/21/2012, 19:29   #3
 
Georgi091's Avatar
 
elite*gold: 0
Join Date: Oct 2012
Posts: 106
Received Thanks: 13
Guter Thread name xD
Georgi091 is offline  
Old 11/21/2012, 20:17   #4

 
.Lolcat's Avatar
 
elite*gold: 100
The Black Market: 423/1/0
Join Date: Dec 2009
Posts: 3,504
Received Thanks: 1,219
habe meinen bruder gerade gefragt er meint er hat keine ahnung er hat das ganze
[CODE]Func _KeyWait($sHexKey, $iTimeOut = -1, $vDLL = -1)
Local $hDLL, $aRet, $iTimer

If $vDLL = -1 Then $hDLL = DllOpen("user32.dll")
If $vDLL <> -1 Then $hDLL = $vDLL
If StringLeft($sHexKey, 2) = "0x" Then $sHexKey = StringTrimLeft($sHexKey, 2)
If $iTimeOut <> -1 Then $iTimer = TimerInit()

Do
$aRet = DllCall($hDLL, "short", "GetAsyncKeyState", "int", '0x' & $sHexKey)
If $iTimeOut <> -1 And TimerDiff($iTimer) > $iTimeOut Then ExitLoop
Until BitAND($aRet[0], 0x8000) <> 0

If $vDLL = -1 Then DllClose($hDLL)
EndFunc ;==>_KeyWait[CODE]
selber nur c&p
.Lolcat is offline  
Old 11/21/2012, 20:21   #5


 
K1ramoX's Avatar
 
elite*gold: 26
Join Date: Jan 2012
Posts: 3,474
Received Thanks: 18,847
wie kompliziert du das machst o,ô

machs doch so, is ganz einfach:

Code:
HotKeySet("{Numpadadd}", "ssrm")
HotKeySet("{Numpadmult}", "_exit")

Global $count = 1

While 1
	Sleep(1)
WEnd

Func ssrm()
	Send("t")
	Sleep(250)
	Send("/x " & $count)
	Sleep(250)
	Send("{Enter}")

	$count = $count + 1
EndFunc   ;==>ssrm

Func _exit()
	Exit
EndFunc   ;==>_exit
K1ramoX is offline  
Thanks
1 User
Old 11/21/2012, 20:27   #6
 
MyLifeBeLike's Avatar
 
elite*gold: 0
Join Date: Aug 2009
Posts: 171
Received Thanks: 16
oman ich dachte die ganze zeit ich muss $i wie in java ein "int" davor machen..
oder es in der for schleife "inten"
MyLifeBeLike is offline  
Old 11/21/2012, 20:29   #7


 
K1ramoX's Avatar
 
elite*gold: 26
Join Date: Jan 2012
Posts: 3,474
Received Thanks: 18,847
Quote:
Originally Posted by MyLifeBeLike View Post
oman ich dachte die ganze zeit ich muss $i wie in java ein "int" davor machen..
oder es in der for schleife "inten"
autoit macht die definierung von variablen automatisch. das interessante dabei is dass man erst eine variable zB als int (1) definieren kann, dann die variable zB als string (blah123) und wenn man immernoch lust hat als bool (true, false) machen ^^ natürlich gibts noch mehr datentypen doch dass is jetzt erstmal egal, wichtig werden datentypen erst bei dll strukturen für dll calls zB

also muss man sich um variablendefinierung keine sorgen machen, können wenig fehler auftreten
K1ramoX is offline  
Thanks
1 User
Old 11/21/2012, 21:01   #8

 
.Lolcat's Avatar
 
elite*gold: 100
The Black Market: 423/1/0
Join Date: Dec 2009
Posts: 3,504
Received Thanks: 1,219
danke danke danke :**
.Lolcat is offline  
Old 11/21/2012, 21:04   #9
 
MyLifeBeLike's Avatar
 
elite*gold: 0
Join Date: Aug 2009
Posts: 171
Received Thanks: 16
ok danke
MyLifeBeLike is offline  
Reply


Similar Threads Similar Threads
Autoit bekomme Schleife nicht hin
04/21/2011 - General Coding - 5 Replies
Guten Tag, ich habe mir paar Tutorials über die Schleifen angeguckt, doch ich bekomme es einfach nicht hin. Ich will den Befehl, den ich zuerst eingegeben habe 200x wiederholen lassen. Wie mache ich das und wo muss der Befehl rein? Um die Tutorials zu kapieren bin ich wohl zu blöd. MfG netterwurm8
[AutoIt] Problem mit While-Schleife
03/21/2011 - AutoIt - 5 Replies
Hallo. Ich bin noch Anfänger, also bitte keine dummen Sprüche. Also. Ich möchte dass wenn ich Button1 drücke die Leertaste immer gedrückt wird und es immer nach 8Sek die Taste F3 drückt. Das mit der Leertaste klapp gut. Aber die F3 Taste wir nicht gedrückt. Was habe ich falsch gemacht?? Wenn ihr noch andere Fehler bemerkt, könnt ihr es mir auch noch sagen. #include <GUIConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Farmbot by bls", 364, 100, 193, 125)...
autoit do schleife problem
11/21/2009 - AutoIt - 16 Replies
wolte ma ein autoit spammer machen #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> Global $pause
Autoit - If Schleife - Problem
05/27/2009 - AutoIt - 3 Replies
Huhu, hab nen kleines Problem mit ner If-Schleife: $pixel_mob = PixelGetColor (549, 68) $farbe_mob = Hex($pixel_mob, 6) if $farbe_mob = 'CE0000' Then ToolTip('Attacking...',0,0)
Autoit - Problem mit If-Schleife
05/27/2009 - General Coding - 1 Replies
Huhu, erstmal ne kleine Frage...hab gerade zu diesem Thema nen Beitrag geschrieben, flupps, 5 Minuten später war er gelöscht - keine PN, nix.. Naja...mal schaun ^^ Problem ist folgendes: Hab diese if schleife in meiner while schleife:



All times are GMT +2. The time now is 13:52.


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.