|
You last visited: Today at 10:03
Advertisement
Kurz und schnell beantworte aber wie?
Discussion on Kurz und schnell beantworte aber wie? within the AutoIt forum part of the Coders Den category.
04/13/2013, 17:27
|
#1
|
elite*gold: 0
Join Date: Jun 2011
Posts: 21
Received Thanks: 1
|
Kurz und schnell beantworte aber wie?
heyho ich war herade am schreiben und wollte fragen wie ich das eine script in einer while schleife pausiere während das andere läuft?
Code:
Func start()
While 1
Send ("{Up down}");====> oberer teil
Sleep(500)
Send ("{Up up}")
Sleep(500)
Send ("{down down}")
Sleep(500)
Send ("{down up}")
Sleep(500);===> oberer teil
$Variable = PixelSearch (1230, 161, 1230, 161, 0xB8D8F0)
If IsArray ($Variable) = True Then ;===> das soll laufen während
Send ("z") ;===> der obere teil pausiert
Send ("z") ;===> ist
EndIf
WEnd
EndFunc
|
|
|
04/13/2013, 17:48
|
#2
|
elite*gold: 113
Join Date: Dec 2009
Posts: 16,685
Received Thanks: 4,449
|
Ich verstehe nicht ganz, wie du das ganze Meinst, aber wenn ich das ganze richtig schlussfolgere wäre das wohl glaube ich die Lösung zu deinem Problem?
Code:
Func start()
Do
Send ("{Up down}");====> oberer teil
Sleep(500)
Send ("{Up up}")
Sleep(500)
Send ("{down down}")
Sleep(500)
Send ("{down up}")
Sleep(500);===> oberer teil
$Variable = PixelSearch (1230, 161, 1230, 161, 0xB8D8F0)
Until IsArray ($Variable)
Send ("z")
Send ("z")
EndFunc
Übrigens möchte ich dir empfehlen, explizite Funktionsnamen zu wählen, um Komplikationen mit eventuellen Includes zu vermeiden, und auch die Verständlichkeit des Codes zu verbessern.
|
|
|
04/13/2013, 17:52
|
#3
|
elite*gold: 0
Join Date: Jun 2011
Posts: 21
Received Thanks: 1
|
Quote:
Originally Posted by Rorc
Ich verstehe nicht ganz, wie du das ganze Meinst, aber wenn ich das ganze richtig schlussfolgere wäre das wohl glaube ich die Lösung zu deinem Problem?
Code:
Func start()
Do
Send ("{Up down}");====> oberer teil
Sleep(500)
Send ("{Up up}")
Sleep(500)
Send ("{down down}")
Sleep(500)
Send ("{down up}")
Sleep(500);===> oberer teil
$Variable = PixelSearch (1230, 161, 1230, 161, 0xB8D8F0)
Until IsArray ($Variable)
Send ("z")
Send ("z")
EndFunc
Übrigens möchte ich dir empfehlen, explizite Funktionsnamen zu wählen, um Komplikationen mit eventuellen Includes zu vermeiden, und auch die Verständlichkeit des Codes zu verbessern.
|
ah danke das ist schon super aber er soll es immer wieder wiederholen reicht es dann den code in eine while schleife zu packen
|
|
|
04/13/2013, 18:03
|
#4
|
elite*gold: 113
Join Date: Dec 2009
Posts: 16,685
Received Thanks: 4,449
|
Soll es, sobald $variable ein Array ist, unendlich Oft "z" senden, oder nur, solange es ein Array ist, und dann zu dem anderen Teil zurückkehren?
oder reicht sogar 2x "z", und danach zum Hauptteil zurückkehren?
|
|
|
04/13/2013, 18:12
|
#5
|
elite*gold: 0
Join Date: Jun 2011
Posts: 21
Received Thanks: 1
|
Quote:
Originally Posted by Rorc
Soll es, sobald $variable ein Array ist, unendlich Oft "z" senden, oder nur, solange es ein Array ist, und dann zu dem anderen Teil zurückkehren?
oder reicht sogar 2x "z", und danach zum Hauptteil zurückkehren?
|
haha du hast so eben mein zweites problem vorraus gegriffen
Code:
Func start()
Do
Send ("{Up down}")
Sleep(500)
Send ("{Up up}")
Sleep(500)
Send ("{down down}")
Sleep(500)
Send ("{down up}")
Sleep(500)
$kampfpixel = PixelSearch (1230, 161, 1230, 161, 0xB8D8F0)
Until IsArray ($kampfpixel)
While 1
If IsArray ($kampfpixel) Then
Send ("z")
EndIf
WEnd
EndFunc
was passieren soll: part 1 bis pixel $kampfpixel erscheint, dann solange z bis $kampfpixel verschwindet
was passiert part 1 dann part 2 nach beendung von part 2 kehrt er nicht zu part 1 zurück und drückt die ganze zeit nur z
|
|
|
04/13/2013, 18:26
|
#6
|
elite*gold: 113
Join Date: Dec 2009
Posts: 16,685
Received Thanks: 4,449
|
Das ist klar, weil es in
Code:
While 1
If IsArray ($kampfpixel) Then
Send ("z")
EndIf
WEnd
Stehen bleibt.
Hierbei wäre es wohl die beste Lösung, es so zu machen:
Code:
Func start()
While True
Send ("{Up down}")
Sleep(500)
Send ("{Up up}")
Sleep(500)
Send ("{down down}")
Sleep(500)
Send ("{down up}")
Sleep(500)
$kampfpixel = PixelSearch (1230, 161, 1230, 161, 0xB8D8F0)
While IsArray ($kampfpixel)
Send ("z")
WEnd
WEnd
EndFunc
Und ich möchte dir nochmal meinen Tip ans Herz legen, den Funktionsnamen zu ändern, um zukünftige Probleme zu vermeiden.
|
|
|
04/13/2013, 18:33
|
#7
|
elite*gold: 0
Join Date: Jun 2011
Posts: 21
Received Thanks: 1
|
Quote:
Originally Posted by Rorc
Und ich möchte dir nochmal meinen Tip ans Herz legen, den Funktionsnamen zu ändern, um zukünftige Probleme zu vermeiden.
|
sooo
Code:
#RequireAdmin
MsgBox(0,"","botstart")
HotKeySet("2","botstart")
HotKeySet("{Esc}","beenden")
While 1
Sleep (20)
WEnd
Func beenden()
Exit
EndFunc
Func botstart()
While True
Send ("{Up down}")
Sleep(500)
Send ("{Up up}")
Sleep(500)
Send ("{down down}")
Sleep(500)
Send ("{down up}")
Sleep(500)
$kampfpixel = PixelSearch (1230, 161, 1230, 161, 0xB8D8F0)
While IsArray ($kampfpixel)
Send ("z")
WEnd
WEnd
EndFunc
das ist der komplette code, aber er bleibt bei mir immer noch stehen nachdem der $kampfpixel weg ist er spamt immer noch z :/
und danke für die super hilfe
|
|
|
04/13/2013, 19:24
|
#8
|
elite*gold: 113
Join Date: Dec 2009
Posts: 16,685
Received Thanks: 4,449
|
Quote:
Originally Posted by Spodes
sooo
Code:
#RequireAdmin
MsgBox(0,"","botstart")
HotKeySet("2","botstart")
HotKeySet("{Esc}","beenden")
While 1
Sleep (20)
WEnd
Func beenden()
Exit
EndFunc
Func botstart()
While True
Send ("{Up down}")
Sleep(500)
Send ("{Up up}")
Sleep(500)
Send ("{down down}")
Sleep(500)
Send ("{down up}")
Sleep(500)
$kampfpixel = PixelSearch (1230, 161, 1230, 161, 0xB8D8F0)
While IsArray ($kampfpixel)
Send ("z")
WEnd
WEnd
EndFunc
das ist der komplette code, aber er bleibt bei mir immer noch stehen nachdem der $kampfpixel weg ist er spamt immer noch z :/
und danke für die super hilfe
|
Fehler meinerseits, die Variable wird danach natürlich nicht mehr neu gesetzt, und bleibt somit immer ein Array.
Code:
#RequireAdmin
MsgBox(0,"","botstart")
HotKeySet("2","botstart")
HotKeySet("{Esc}","beenden")
While 1
Sleep (20)
WEnd
Func beenden()
Exit
EndFunc
Func botstart()
While True
Send ("{Up down}")
Sleep(500)
Send ("{Up up}")
Sleep(500)
Send ("{down down}")
Sleep(500)
Send ("{down up}")
Sleep(500)
$kampfpixel = PixelSearch (1230, 161, 1230, 161, 0xB8D8F0)
While IsArray ($kampfpixel)
Send ("z")
$kampfpixel = PixelSearch (1230, 161, 1230, 161, 0xB8D8F0)
WEnd
WEnd
EndFunc
fixxd
|
|
|
04/13/2013, 22:47
|
#9
|
elite*gold: 0
Join Date: Jun 2011
Posts: 21
Received Thanks: 1
|
vielen dank für die hilfe läuft wunder bar :*
Quote:
Originally Posted by Rorc
fixxd
|
ok eine frage noch gibt es eine möglichkeit den bot im hintergrund laufen zu lassen und ich bin z.B. im browser und der bot nimmt nur bezug auf das spiel?
|
|
|
04/14/2013, 12:31
|
#10
|
elite*gold: 113
Join Date: Dec 2009
Posts: 16,685
Received Thanks: 4,449
|
Hierfür müsstest du dich mal über ControlSend informieren, das wäre die Funktion die du suchst.
|
|
|
04/14/2013, 14:48
|
#11
|
elite*gold: 0
Join Date: Jun 2011
Posts: 21
Received Thanks: 1
|
Quote:
Originally Posted by Rorc
Hierfür müsstest du dich mal über ControlSend informieren, das wäre die Funktion die du suchst.
|
kannst du mir einen tut link schicken? oder gleich den fehler beheben ?
Code:
#RequireAdmin
MsgBox(0,"Level Bot","Esc beenden Einf pause 2 start")
HotKeySet("2","botstart")
HotKeySet("{Esc}","beenden")
HotKeySet("{Insert}","pause")
While 1
Sleep (200)
WEnd
Func pause()
Sleep(100000000000000000)
EndFunc
Func beenden()
Exit
EndFunc
Func botstart()
MsgBox(9,"","START")
While True
ControlSend ("PokeMMO","","LWJGL","{down}")
ControlSend ("PokeMMO","","LWJGL","{down}")
ControlSend ("PokeMMO","","LWJGL","{down}")
ControlSend ("PokeMMO","","LWJGL","{down}")
ControlSend ("PokeMMO","","LWJGL","{down}")
ControlSend ("PokeMMO","","LWJGL","{down}")
ControlSend ("PokeMMO","","LWJGL","{down}")
ControlSend ("PokeMMO","","LWJGL","{down}")
$slot = PixelSearch (1002, 470, 1002, 470, 0x90F890)
While IsArray ($slot)
ControlSend ("PokeMMO","","LWJGL","z")
$slot = PixelSearch (1002, 470, 1002, 470, 0x90F890)
WEnd
WEnd
EndFunc
er beendet sich direkt nach start und es passiert gar nichts
|
|
|
04/14/2013, 18:39
|
#12
|
elite*gold: 50
Join Date: Sep 2012
Posts: 3,841
Received Thanks: 1,462
|
Code:
ControlSend ( "fenster-titel", "fenster-text", Fenster-controlID, "dein text" , 0)
|
|
|
04/14/2013, 20:39
|
#13
|
elite*gold: 0
Join Date: Jan 2013
Posts: 426
Received Thanks: 129
|
da hast du schon einen fehler. wenn du dein script pausierst kannst du das script nicht mehr entpausieren weil es den befehl zuende macht. deswegen
Code:
#RequireAdmin
MsgBox(0,"Level Bot","Esc beenden Einf pause 2 start")
HotKeySet("2","botstart")
HotKeySet("{Esc}","beenden")
HotKeySet("{Insert}","pause")
While 1
Sleep (200)
WEnd
Func pause()
while 1
Sleep(1)
wend
EndFunc
Func beenden()
Exit
EndFunc
Func botstart()
MsgBox(9,"","START")
While True
ControlSend ("PokeMMO","","LWJGL","{down}")
ControlSend ("PokeMMO","","LWJGL","{down}")
ControlSend ("PokeMMO","","LWJGL","{down}")
ControlSend ("PokeMMO","","LWJGL","{down}")
ControlSend ("PokeMMO","","LWJGL","{down}")
ControlSend ("PokeMMO","","LWJGL","{down}")
ControlSend ("PokeMMO","","LWJGL","{down}")
ControlSend ("PokeMMO","","LWJGL","{down}")
$slot = PixelSearch (1002, 470, 1002, 470, 0x90F890)
While IsArray ($slot)
ControlSend ("PokeMMO","","LWJGL","z")
$slot = PixelSearch (1002, 470, 1002, 470, 0x90F890)
WEnd
WEnd
EndFunc
|
|
|
04/14/2013, 21:08
|
#14
|
elite*gold: 0
Join Date: Jun 2011
Posts: 21
Received Thanks: 1
|
Quote:
Originally Posted by »FlutterShy™
Code:
ControlSend ( "fenster-titel", "fenster-text", Fenster-controlID, "dein text" , 0)
|
was ist mit fenster text gemeint?
au3info zeigt nur
|
|
|
04/14/2013, 23:27
|
#15
|
elite*gold: 50
Join Date: Sep 2012
Posts: 3,841
Received Thanks: 1,462
|
Bin grad nur am handy online sry aber fenster text ist wenn du z.b. eine gui machst mit einem label drinne wo steht : hallo . muesste hallo da rein
Achso ja da ist kein text angegeben aber du musst den parameter drinne lassen also mach einfacgh "" lass die stelle also lehr ueberspring die aber nicht . Der text ist auch nicht umbedingt nietig aber du hattest das glaube ich uebersprungen und die class darein geschrieben ach keine ahnung
|
|
|
|
Similar Threads
|
Brauche kurz Rat und Antwort schnell !?
04/08/2010 - Metin2 Private Server - 9 Replies
Habe 512 mb Ram und will nur das 2 leute auf meinem Pserver zocken sollen
und wir alle wollen nur auf 1 map bleiben auf der blauen map .
geht das ?
schnelle hilfe ist gedacht
gebe die ersten 5 die mir helfen nen fettes thx:p
|
Könnt ihr mir kurz pls helfen SCHNELL
04/08/2010 - Metin2 Private Server - 2 Replies
Bei Neonblue Client ist doch so wenn man sich lvlt wird ja ein punkt für pferderufen frei... Wo kann der datei liegen wo das ist in der client ordner?
gebe thx
MfG
|
Virus hilfe schnell [Ich weiss falsche Section aber es mus schnell gehen]
02/24/2010 - Main - 7 Replies
Da,es schnell gehen muss einmal kurz der Grund:
Aufgrund eines Virus,kackt Internet andauernd ab.
Also ich hab mit nem Kollegen geschrieben,so nichts passiert,dann war ich aber ne weile afk und ich schriebt bzw der Pc automatisch:
hallo, sag mal ist das dein foto?Dann halt ein link mit der Endung der Email-Adresse dessen,mit dem ich grad schreibe.
Das Prob:
Kann keine Anti-Vir Programme mehr starten.
Geschweige denn Systemwiederherstellung machen..
was soll ich tun?
Pls schnell...
|
Habe vielleicht einen neuen pserver, brauche aber hilfe kurz
09/03/2009 - Metin2 Private Server - 5 Replies
Hallo wer mir kurz helfen kann und mir sagen kann ob das ein P.server ist ( Link per PN) einfach mal hier rein schreibenl.
|
All times are GMT +2. The time now is 10:03.
|
|