Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > AutoIt
You last visited: Today at 14:41

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

Advertisement



AutoIt: While-Wend Schleife. Func-EndFunc.

Discussion on AutoIt: While-Wend Schleife. Func-EndFunc. within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Feb 2014
Posts: 35
Received Thanks: 1
AutoIt: While-Wend Schleife. Func-EndFunc.

Ich möchte in meiner While-Wend Schleife verschiedene Tasten drücken lassen, jedoch eine bestimme Taste durchgehend gedrückt lassen.

Ich hab 3 Func Befehle: Starten(F1), Ende(F2), Pause(F3).

Ich möchte, wenn ich F1(Starten) drücke, dass er mir die Befehle abarbeitet die er jede Sekunde einmal drücken soll, aber dazu soll noch eine Leertaste permanent gedrücken sein.

Bei Pause(F3) soll er alles pausiern.

Code:
HotKeySet ("{F1}", "Start")
HotKeySet ("{F2}", "Ende")
HotKeySet ("{F3}", "Pause")


While(1)
	Sleep(1000)
WEnd

Func Start()
While(1)
	Send("{a down}")
	Sleep(100)
	Send("{a up}")
	Sleep(1020)
	Send("{c down}")
	Sleep(100)
	Send("{c up}")
	Sleep(1020)
	Send("{d down}")
	Sleep(100)
	Send("{d up}")
	Sleep(200)
    WEnd
EndFunc


Func Pause()
	While(1)
		Sleep(10000)
	WEnd
	EndFunc


Func Ende()
	Exit
	EndFunc
Soviel wäre schon.
Vielen Dank.
OnlyGood is offline  
Old 08/15/2015, 15:24   #2
 
xKemya's Avatar
 
elite*gold: 0
Join Date: Jan 2013
Posts: 2,450
Received Thanks: 1,880
Can you ask in English?
xKemya is offline  
Old 08/15/2015, 16:56   #3
 
mlukac89's Avatar
 
elite*gold: 0
Join Date: Sep 2010
Posts: 473
Received Thanks: 104
Try like this, with F1 u start / pause script and when u run it default is paused.

If that dont work try to add #RequireAdmin on top of your script.

Code:
HotKeySet ("{F1}", "Start") ; start / pause script
HotKeySet ("{F2}", "Ende")  ; exit script

Global $pause = False

; idle
While 1
    Sleep(1000)
WEnd

Func Start()
    $pause = Not $pause
    While $pause
        Send("{a down}")
        Sleep(100)
        Send("{a up}")
        Sleep(1020)
        Send("{c down}")
        Sleep(100)
        Send("{c up}")
        Sleep(1020)
        Send("{d down}")
        Sleep(100)
        Send("{d up}")
        Sleep(200)
    WEnd

EndFunc

Func Ende()
    Exit
EndFunc ; => exit
mlukac89 is offline  
Old 08/15/2015, 17:09   #4


 
elite*gold: 1860
Join Date: Jan 2012
Posts: 2,209
Received Thanks: 1,630
Schau dir mal in der AutoIt Hilfe den Befehl Send("") an.
Weiteres wirst da erfahren.
MaxChri is offline  
Old 08/21/2015, 15:04   #5
 
WJNeeson's Avatar
 
elite*gold: 1445
Join Date: Sep 2011
Posts: 199
Received Thanks: 177
Bin mir nicht sicher wie genau du das jetzt haben möchtest:

Hierbei drückt er permanent die Leertaste runter und jede Sekunde einmal jeden Befehl. So wie du es im Startpost beschrieben hast.

Also: a - c - d - Pause - a - c - d - Pause - a - c - d usw...

PHP Code:
HotKeySet("{F1}""_fStart") ;Start/Pause switch
HotKeySet("{F2}""_fEnde")

Global 
$bPause False

Do
    
Sleep(1000)
Until $bPause Not $bPause

Func _fStart
()
    
$ta TimerInit()
    
$tc TimerInit()
    
$td TimerInit()

    
$bPause Not $bPause
    
While $bPause
        Send
("{space down}")
        If 
TimerDiff($ta) >= 1020 Then
            Send
("{a down}")
            
Sleep(100)
            
Send("{a up}")
            
$ta TimerInit()
        EndIf
        If 
TimerDiff($tc) >= 1020 Then
            Send
("{c down}")
            
Sleep(100)
            
Send("{c up}")
            
$tc TimerInit()
        EndIf
        If 
TimerDiff($td) >= 1020 Then
            Send
("{d down}")
            
Sleep(100)
            
Send("{d up}")
            
$td TimerInit()
        EndIf
    
WEnd
    Send
("{space up}")
EndFunc

Func _fEnde
()
    Exit
EndFunc 
Laut deinem Script möchtest du es aber so haben, dass nach jeder Sekunde jeweils ein Befehl ausgeführt wird.

Also: a - Pause - c - Pause - d - Pause - a - Pause - c - Pause usw...

PHP Code:
HotKeySet("{F1}""_fStart") ;Start/Pause switch
HotKeySet("{F2}""_fEnde")

Global 
$bPause False

Do
    
Sleep(1000)
Until $bPause Not $bPause

Func _fStart
()
    
$timer TimerInit()
    
$i 1

    $bPause 
Not $bPause
    
While $bPause
        Send
("{space down}")
        If 
TimerDiff($timer) >= 1020 Then
            
If $i 1 Then
                Send
("{a down}")
                
Sleep(100)
                
Send("{a up}")
            ElseIf 
$i 2 Then
                Send
("{c down}")
                
Sleep(100)
                
Send("{c up}")
            ElseIf 
$i 3 Then
                Send
("{d down}")
                
Sleep(100)
                
Send("{d up}")
                
$i 0
            
EndIf
            
$i += 1
            $timer 
TimerInit()
        EndIf
    
WEnd
    Send
("{space up}")
EndFunc

Func _fEnde
()
    Exit
EndFunc 
WJNeeson is offline  
Reply


Similar Threads Similar Threads
Frage Autoit 2 While&WEnd Schleifen paralel laufen lassen
01/23/2011 - AutoIt - 7 Replies
Hallo, Ich lerne im moment autoit(Bot´s machen) und wolte fragen wie ich 2 while&WEnd schleifen in einer func paralel zueinander laufen lassen kann. Also beide gleichzeitig Sinn: die erste schleife drückt die ganze zeit also so jede skunde und die 2te so alle 30 minuten so ungefär(soll heisen bei mir sieht´s ordentlicher aus) sieht es im mom bei mir aus: $var1 = Inputbox ("" "" "" "") $var2 = Inputbox ("" "" "" "")
[Client-Modding] Schleife like while...wend
09/08/2010 - Metin2 - 3 Replies
hi, ich wollte fragen wie bei metin2 im client eine schleife funzt so das sich etwas immer wiederholt wie bei while...wend in autoit?
Brauch hilfe mit Func...EndFunc
04/18/2009 - General Coding - 5 Replies
Hi Leute wenn ich mehrere funcs in einem skript habe und alle mit nem button aktivieren will dann schreibe ich es wie immer ober in die erste endlosschleife. d.h. so: Case $Button1 angeln () rausziehen () wenn ich es so mache dann startet er nur angeln rausziehen ignoriert er... warum?



All times are GMT +1. The time now is 14:42.


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.