Frage - Mehrere Schleifen Gleichzeitig

King-Style

Hallo das ist mein erster Post und auch meine erste Frage.
Ich wollte fragen kann man mehrere While..WEnd schleifen gleichzeitig benutzen?
zb..

Spoiler anzeigen

[autoit]

...
...
Func BotStart()
Sleep(1000)
;-------------FK1-----------------------
While 1
$FKeit1 = GUICtrlRead($FK1_Input)
$FKeit1_wait = GUICtrlRead($FK1_Input_wait)
Send($FKeit1)
Sleep($FKeit1_wait)
WEnd
While 1
;-------------FK2-----------------------
$FKeit2 = GUICtrlRead($FK2_Input)
$FKeit2_wait = GUICtrlRead($FK2_Input_wait)
Send($FKeit2)
Sleep($FKeit2_wait)
WEnd
While 1
;-------------FK3-----------------------
$FKeit3 = GUICtrlRead($FK3_Input)
$FKeit3_wait = GUICtrlRead($FK3_Input_wait)
Send($FKeit3)
Sleep($FKeit3_wait)
WEnd
While 1
;-------------FK4-----------------------
$FKeit4 = GUICtrlRead($FK4_Input)
$FKeit4_wait = GUICtrlRead($FK4_Input_wait)
Send($FKeit4)
Sleep($FKeit4_wait)
WEnd
EndFunc
...
...

[/autoit]

leviathan

man kann sie nicht parallel nebeneinander laufen lassen.

King-Style

achso...gibt es den eine andere möglichkeit ?

blubbstar

Alles in eine Schleife, ist doch auch kein Problem.

King-Style

Ja, schon aber ich will das nach ca 15 sec z.b die Taste 1 gedrückt wird und nach 20 sec die 2 aber wenn es 30 sec geworden sind soll er die Taste 1 wiederholen...ganzer Script im Anhang...

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $Paused
HotKeySet("{F10}", "Start")
HotKeySet("{F9}", "Pause")
HotKeySet("{ESC}", "Beenden")

[/autoit] [autoit][/autoit] [autoit]

$Form1 = GUICreate("Multi Metin2Bot by eBErmir", 269, 350, 220, 121)
$Tab1 = GUICtrlCreateTab(0, 0, 265, 349)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Main")
$FK1 = GUICtrlCreateLabel("FK1 auf : ", 14, 45, 53, 17)
$FK2 = GUICtrlCreateLabel("FK2 auf : ", 14, 69, 53, 17)
$FK1_Input = GUICtrlCreateInput("3", 77, 43, 33, 21)
$FK2_Input = GUICtrlCreateInput("4", 77, 67, 33, 21)
$FK1_sec = GUICtrlCreateLabel("sec.", 218, 47, 24, 17)
$FK2_sec = GUICtrlCreateLabel("sec.", 218, 71, 24, 17)
$FK1_warten = GUICtrlCreateLabel("...warten", 117, 46, 45, 17)
$FK2_Input_wait = GUICtrlCreateInput("105000", 164, 67, 50, 21)
$FK1_Input_wait = GUICtrlCreateInput("25000", 164, 43, 50, 21)
$FK2_warten = GUICtrlCreateLabel("...warten", 117, 71, 45, 17)
$FK3 = GUICtrlCreateLabel("FK3 auf : ", 15, 94, 53, 17)
$FK4 = GUICtrlCreateLabel("FK4 auf : ", 15, 118, 53, 17)
$FK3_Input = GUICtrlCreateInput("" & """{F1}""" & "", 77, 92, 33, 21)
$FK4_Input = GUICtrlCreateInput("" & """{F2}""" & "", 77, 115, 33, 21)
$FK3_sec = GUICtrlCreateLabel("sec.", 219, 96, 24, 17)
$FK4_sec = GUICtrlCreateLabel("sec.", 219, 120, 24, 17)
$FK3_warten = GUICtrlCreateLabel("...warten", 118, 95, 45, 17)
$FK4_Input_wait = GUICtrlCreateInput("20000", 164, 116, 50, 21)
$FK3_Input_wait = GUICtrlCreateInput("15000", 164, 92, 50, 21)
$FK4_warten = GUICtrlCreateLabel("...warten", 118, 120, 45, 17)
$FK5 = GUICtrlCreateLabel("FK5 auf : ", 16, 142, 53, 17)
$FK6 = GUICtrlCreateLabel("FK6 auf : ", 16, 166, 53, 17)
$FK5_Input = GUICtrlCreateInput("" & """{F3}""" & "", 77, 140, 33, 21)
$FK6_Input = GUICtrlCreateInput("" & """{F4}""" & "", 77, 164, 33, 21)
$FK5_sec = GUICtrlCreateLabel("sec.", 220, 144, 24, 17)
$FK6_sec = GUICtrlCreateLabel("sec.", 220, 168, 24, 17)
$FK5_warten = GUICtrlCreateLabel("...warten", 119, 143, 45, 17)
$FK6_Input_wait = GUICtrlCreateInput("15000", 164, 164, 50, 21)
$FK5_Input_wait = GUICtrlCreateInput("25000", 164, 140, 50, 21)
$FK6_warten = GUICtrlCreateLabel("...warten", 119, 168, 45, 17)
$Roter_Pot = GUICtrlCreateLabel("Roter Pot: ", 16, 216, 55, 17)
$RP_Input = GUICtrlCreateInput("1", 77, 214, 33, 21)
$RP_warten = GUICtrlCreateLabel("...warten", 119, 217, 45, 17)
$RP_Input_wait = GUICtrlCreateInput("10000", 164, 214, 50, 21)
$RP_sec = GUICtrlCreateLabel("sec.", 220, 216, 24, 17)
$BP_sec = GUICtrlCreateLabel("sec.", 220, 241, 24, 17)
$BP_Input_wait = GUICtrlCreateInput("20000", 164, 239, 50, 21)
$BP_warten = GUICtrlCreateLabel("...warten", 119, 242, 45, 17)
$BP_Input = GUICtrlCreateInput("2", 77, 239, 33, 21)
$Blauer_Pot = GUICtrlCreateLabel("Blauer Pot: ", 16, 241, 59, 17)
$Group1 = GUICtrlCreateGroup("Fertigkeiten Bot", 10, 29, 241, 165)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Potte Bot", 10, 200, 241, 69)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Pick UP Bot", 10, 273, 241, 61)
$Button1 = GUICtrlCreateButton("Normal", 17, 296, 69, 25, 0)
$Button2 = GUICtrlCreateButton("Mittel", 94, 296, 65, 25, 0)
$Button3 = GUICtrlCreateButton("Schnell", 169, 295, 65, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet2 = GUICtrlCreateTabItem("Credits")
$Label1 = GUICtrlCreateLabel("Dieser Bot funzt nur mit den Multihackselector. ", 6, 33, 226, 17)
$Label2 = GUICtrlCreateLabel("Und ist auch dafür gescriptet worden...damit dies ", 6, 53, 240, 17)
$Label3 = GUICtrlCreateLabel("ein Sinn hat müsst ihr MobLock anschalten.", 6, 75, 210, 17)
$Button4 = GUICtrlCreateButton("--=::=- HOMEPAGE --=::=--", 3, 320, 257, 25, 0)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label4 = GUICtrlCreateLabel("Hotkeys: SchlageBot PickupBot ", 6, 97, 221, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x0000FF)
$Label5 = GUICtrlCreateLabel(" F9 = Pause ", 59, 137, 169, 17)
GUICtrlSetBkColor(-1, 0xFFFF00)
$Label6 = GUICtrlCreateLabel(" ESC = Beenden ", 59, 158, 170, 17)
GUICtrlSetBkColor(-1, 0xFF0000)
$Label7 = GUICtrlCreateLabel("F10 = Start ", 60, 117, 65, 17)
GUICtrlSetBkColor(-1, 0x00FF00)
$Label8 = GUICtrlCreateLabel("Per Tasten ", 162, 117, 65, 17)
GUICtrlSetBkColor(-1, 0x00FF00)
$Label10 = GUICtrlCreateLabel("Viel Spaß....", 18, 193, 118, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
$Label11 = GUICtrlCreateLabel("...wünscht euch", 83, 231, 152, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
$Label12 = GUICtrlCreateLabel("...eBErmir...", 29, 271, 141, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Local $Paused
Case $Button1
Sleep(1000)
While 1
Sleep(50)
Send("y")
WEnd
Case $Button2
Sleep(1000)
While 1
Sleep(15)
Send("y")
WEnd
Case $Button3
Sleep(1000)
While 1
Send("y")
WEnd
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func Start()
Sleep(1000)
;-------------FK1-----------------------
While 1
$FKeit1 = GUICtrlRead($FK1_Input)
$FKeit1_wait = GUICtrlRead($FK1_Input_wait)
Send($FKeit1)
Sleep($FKeit1_wait)
WEnd
While 1
;-------------FK2-----------------------
$FKeit2 = GUICtrlRead($FK2_Input)
$FKeit2_wait = GUICtrlRead($FK2_Input_wait)
Send($FKeit2)
Sleep($FKeit2_wait)
WEnd
While 1
;-------------FK3-----------------------
$FKeit3 = GUICtrlRead($FK3_Input)
$FKeit3_wait = GUICtrlRead($FK3_Input_wait)
Send($FKeit3)
Sleep($FKeit3_wait)
WEnd
While 1
;-------------FK4-----------------------
$FKeit4 = GUICtrlRead($FK4_Input)
$FKeit4_wait = GUICtrlRead($FK4_Input_wait)
Send($FKeit4)
Sleep($FKeit4_wait)
WEnd
While 1
;-------------FK5-----------------------
$FKeit5 = GUICtrlRead($FK5_Input)
$FKeit5_wait = GUICtrlRead($FK5_Input_wait)
Send($FKeit5)
Sleep(100)
WEnd
While 1
;-------------FK6-----------------------
$FKeit6 = GUICtrlRead($FK6_Input)
$FKeit6_wait = GUICtrlRead($FK6_Input_wait)
Send($FKeit6)
Sleep(100)
WEnd
While 1
;--------------RP1-----------------------
$RPot1 = GUICtrlRead($RP_Input)
$RPot1_wait = GUICtrlRead($RP_Input_wait)
Send($RPot1)
Sleep(100)
WEnd
While 1
;--------------BP1-----------------------
$BPot2 = GUICtrlRead($BP_Input)
$BPot2_wait = GUICtrlRead($BP_Input_wait)
Send($BPot2)
Sleep(100)
WEnd
While 1
Send("{Space}") ;Im hintergrund soll die ganze Zeit noch Space gedrückt sein.
WEnd
EndFunc ;==>Start
;----------------------------------------

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func Pause()
$Paused = Not $Paused
While $Paused
Sleep(50)
WEnd
EndFunc ;==>Pause

[/autoit] [autoit][/autoit] [autoit]

Func Beenden()
MsgBox(0, "Programm", "Hiermit wird der Programm jetzt geschlossen !! ")
Exit 0
EndFunc ;==>Beenden

[/autoit]

JoEtHeKiLlEr

Da brauchst du die Timer-Funktionen

King-Style

Dürfte ich Fragen was das ist ?
Erstma..*googlesuch*

JoEtHeKiLlEr

TimerInit bzw. TimerDiff
mit TimerInit erstellst du einen "Zeitstempel" und mit TimerDiff liest du die Zeit aus, die seit dem Erstellen dieses "Zeitstempels" vergangen ist...

anno2008

Hi,

Zitat

Ja, schon aber ich will das nach ca 15 sec z.b die Taste 1 gedrückt wird und nach 20 sec die 2 aber wenn es 30 sec geworden sind soll er die Taste 1 wiederholen...ganzer Script im Anhang...

wie wärs einfach mit sleeps?

[autoit]

sleep(15000)
send("Taste1")
sleep(5000)
send("Taste2")
sleep(10000)
send("Taste1")

[/autoit]

blubbstar

naja, sleeps ich weiss nicht, ziemlich unübersichtlich bei mehreren Tasten.
Hier timerinit + timerdiff lösung:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $Paused
HotKeySet("{F10}", "BotStart")
HotKeySet("{F9}", "Pause")
HotKeySet("{ESC}", "Beenden")

[/autoit] [autoit][/autoit] [autoit]

$Form1 = GUICreate("Multi Metin2Bot by eBErmir", 269, 350, 220, 121)
$Tab1 = GUICtrlCreateTab(0, 0, 265, 349)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Main")
$FK1 = GUICtrlCreateLabel("FK1 auf : ", 14, 45, 53, 17)
$FK2 = GUICtrlCreateLabel("FK2 auf : ", 14, 69, 53, 17)
$FK1_Input = GUICtrlCreateInput("3", 77, 43, 33, 21)
$FK2_Input = GUICtrlCreateInput("4", 77, 67, 33, 21)
$FK1_sec = GUICtrlCreateLabel("sec.", 218, 47, 24, 17)
$FK2_sec = GUICtrlCreateLabel("sec.", 218, 71, 24, 17)
$FK1_warten = GUICtrlCreateLabel("...warten", 117, 46, 45, 17)
$FK2_Input_wait = GUICtrlCreateInput("105000", 164, 67, 50, 21)
$FK1_Input_wait = GUICtrlCreateInput("25000", 164, 43, 50, 21)
$FK2_warten = GUICtrlCreateLabel("...warten", 117, 71, 45, 17)
$FK3 = GUICtrlCreateLabel("FK3 auf : ", 15, 94, 53, 17)
$FK4 = GUICtrlCreateLabel("FK4 auf : ", 15, 118, 53, 17)
$FK3_Input = GUICtrlCreateInput("" & """{F1}""" & "", 77, 92, 33, 21)
$FK4_Input = GUICtrlCreateInput("" & """{F2}""" & "", 77, 115, 33, 21)
$FK3_sec = GUICtrlCreateLabel("sec.", 219, 96, 24, 17)
$FK4_sec = GUICtrlCreateLabel("sec.", 219, 120, 24, 17)
$FK3_warten = GUICtrlCreateLabel("...warten", 118, 95, 45, 17)
$FK4_Input_wait = GUICtrlCreateInput("20000", 164, 116, 50, 21)
$FK3_Input_wait = GUICtrlCreateInput("15000", 164, 92, 50, 21)
$FK4_warten = GUICtrlCreateLabel("...warten", 118, 120, 45, 17)
$FK5 = GUICtrlCreateLabel("FK5 auf : ", 16, 142, 53, 17)
$FK6 = GUICtrlCreateLabel("FK6 auf : ", 16, 166, 53, 17)
$FK5_Input = GUICtrlCreateInput("" & """{F3}""" & "", 77, 140, 33, 21)
$FK6_Input = GUICtrlCreateInput("" & """{F4}""" & "", 77, 164, 33, 21)
$FK5_sec = GUICtrlCreateLabel("sec.", 220, 144, 24, 17)
$FK6_sec = GUICtrlCreateLabel("sec.", 220, 168, 24, 17)
$FK5_warten = GUICtrlCreateLabel("...warten", 119, 143, 45, 17)
$FK6_Input_wait = GUICtrlCreateInput("15000", 164, 164, 50, 21)
$FK5_Input_wait = GUICtrlCreateInput("25000", 164, 140, 50, 21)
$FK6_warten = GUICtrlCreateLabel("...warten", 119, 168, 45, 17)
$Roter_Pot = GUICtrlCreateLabel("Roter Pot: ", 16, 216, 55, 17)
$RP_Input = GUICtrlCreateInput("1", 77, 214, 33, 21)
$RP_warten = GUICtrlCreateLabel("...warten", 119, 217, 45, 17)
$RP_Input_wait = GUICtrlCreateInput("10000", 164, 214, 50, 21)
$RP_sec = GUICtrlCreateLabel("sec.", 220, 216, 24, 17)
$BP_sec = GUICtrlCreateLabel("sec.", 220, 241, 24, 17)
$BP_Input_wait = GUICtrlCreateInput("20000", 164, 239, 50, 21)
$BP_warten = GUICtrlCreateLabel("...warten", 119, 242, 45, 17)
$BP_Input = GUICtrlCreateInput("2", 77, 239, 33, 21)
$Blauer_Pot = GUICtrlCreateLabel("Blauer Pot: ", 16, 241, 59, 17)
$Group1 = GUICtrlCreateGroup("Fertigkeiten Bot", 10, 29, 241, 165)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Potte Bot", 10, 200, 241, 69)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Pick UP Bot", 10, 273, 241, 61)
$Button1 = GUICtrlCreateButton("Normal", 17, 296, 69, 25, 0)
$Button2 = GUICtrlCreateButton("Mittel", 94, 296, 65, 25, 0)
$Button3 = GUICtrlCreateButton("Schnell", 169, 295, 65, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet2 = GUICtrlCreateTabItem("Credits")
$Label1 = GUICtrlCreateLabel("Dieser Bot funzt nur mit den Multihackselector. ", 6, 33, 226, 17)
$Label2 = GUICtrlCreateLabel("Und ist auch dafür gescriptet worden...damit dies ", 6, 53, 240, 17)
$Label3 = GUICtrlCreateLabel("ein Sinn hat müsst ihr MobLock anschalten.", 6, 75, 210, 17)
$Button4 = GUICtrlCreateButton("--=::=- HOMEPAGE --=::=--", 3, 320, 257, 25, 0)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label4 = GUICtrlCreateLabel("Hotkeys: SchlageBot PickupBot ", 6, 97, 221, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x0000FF)
$Label5 = GUICtrlCreateLabel(" F9 = Pause ", 59, 137, 169, 17)
GUICtrlSetBkColor(-1, 0xFFFF00)
$Label6 = GUICtrlCreateLabel(" ESC = Beenden ", 59, 158, 170, 17)
GUICtrlSetBkColor(-1, 0xFF0000)
$Label7 = GUICtrlCreateLabel("F10 = Start ", 60, 117, 65, 17)
GUICtrlSetBkColor(-1, 0x00FF00)
$Label8 = GUICtrlCreateLabel("Per Tasten ", 162, 117, 65, 17)
GUICtrlSetBkColor(-1, 0x00FF00)
$Label10 = GUICtrlCreateLabel("Viel Spaß....", 18, 193, 118, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
$Label11 = GUICtrlCreateLabel("...wünscht euch", 83, 231, 152, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
$Label12 = GUICtrlCreateLabel("...eBErmir...", 29, 271, 141, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Local $Paused
Case $Button1
Sleep(1000)
While 1
Sleep(50)
Send("y")
WEnd
Case $Button2
Sleep(1000)
While 1
Sleep(15)
Send("y")
WEnd
Case $Button3
Sleep(1000)
While 1
Send("y")
WEnd
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func BotStart()
Sleep(1000)
AdlibEnable("_adlibenable")
$Fertigkeitenanzahl = 6

Global $FKeit[$Fertigkeitenanzahl + 1]
Global $FKeitwait[$Fertigkeitenanzahl + 1]
Global $Fkeittimer[$Fertigkeitenanzahl + 1]

For $i = 1 To $Fertigkeitenanzahl
$FKeit[$i] = GUICtrlRead(Eval("FK" & $i & "_Input"))
$FKeitwait[$i] = GUICtrlRead(Eval("FK" & $i & "_Input_wait"))
Next
$RPot1 = GUICtrlRead($RP_Input)
$RPot1_wait = GUICtrlRead($RP_Input_wait)
$BPot2 = GUICtrlRead($BP_Input)
$BPot2_wait = GUICtrlRead($BP_Input_wait)

For $i = 1 To $Fertigkeitenanzahl
$Fkeittimer[$i] = TimerInit()
Next
$RPottimer = TimerInit()
$BPottimer = TimerInit()

[/autoit] [autoit][/autoit] [autoit]

While 1
For $i = 1 To $Fertigkeitenanzahl
If TimerDiff($Fkeittimer[$i]) > $FKeitwait[$i] Then
Send($FKeit[$i])
$Fkeittimer[$i] = TimerInit()
EndIf
Next
If TimerDiff($RPottimer) > $RPot1_wait Then
Send($RPot1)
$RPottimer = TimerInit()
EndIf
If TimerDiff($BPottimer) > $BPot2_wait Then
Send($BPot2)
$BPottimer = TimerInit()
EndIf
sleep(50); sonst cpuauslastnug = 50 bzw 100%
WEnd
EndFunc ;==>BotStart
;----------------------------------------

[/autoit] [autoit][/autoit] [autoit]

Func _adlibenable()
Send("{Space}") ;Im hintergrund soll die ganze Zeit noch Space gedrückt sein.
Sleep(100)
EndFunc ;==>_adlibenable

[/autoit] [autoit][/autoit] [autoit]

Func Pause()
$Paused = Not $Paused
While $Paused
Sleep(50)
WEnd
EndFunc ;==>Pause

[/autoit] [autoit][/autoit] [autoit]

Func Beenden()
MsgBox(0, "Multi Metin2Bot", "Hiermit wird der Programm jetzt geschlossen !!")
Exit 0
EndFunc ;==>Beenden

[/autoit]

King-Style

Anno2008 was du meinst geht nicht...weil das soll ja gelesen werden von der InputBox..
Danke trodtzdem das du mir helfen wolltest.

Big THX!!! Blubbstar...XD