Jump to content

Sky Slate Blueberry Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate
Photo

A_TickCount + Time (In einer Schleife)


  • Please log in to reply
16 replies to this topic
Marshall666
  • Members
  • 45 posts
  • Last active: May 16 2013 04:03 PM
  • Joined: 09 Mar 2013

Kann man ToolTip, %A_Index% so schreiben, also anstatt A_Index ein Timer der runter zählt bis der Loop "exec" wieder anfängt? Oder zumindest eine Warnung als Tooltip bevor der Loop wieder anfängt? :

 

exec:
stop = 0

Loop
{

    sleep, 1000
  If stop = 1
      Break
  ToolTip, %A_Index%
  Sleep, 1000




Sleepandwaitforstop(1000)
Mousecklickleftandstop(126,137)       ;Tabswitch

FensterSchließen()

MouseMove, 968,289
Sleepandwaitforstop(250)
PixelGetColor,color,968,289 fast alt ; Price Coin 1

If (color = 0x50D9EF)
{
Mousemove, 968,289
MouseClick, Left, 968,289
}                                     ; Ende Price Coin 1




;----usw usw.....

 

 

 

Ich habe hier ein Timer nur bekomme ich den nicht so in mein Script eingebaut wie ich es will, darum habe ich den Counter auf ein extra Gui Button gelegt:

 

;Label "Stopuhr"
Stopuhr:
Random, Time, 950000,950001
start := A_TickCount + time

SetTimer, Counter, 10
Return
counter:
  zeit := start - A_TickCount
  StringTrimRight, zeitk, zeit, 3 ; millisekunden entfernen
  ToolTip, %  zeitk " Sek"
 If zeitk < 1
  MsgBox, Achtung Makro startet
IfMsgBox ok ; hmmm.. und mit: "SplashTextOn,,, "Makro startet gleich" Sleep 3000
 ;SplashTextOff " Zählt der Counter ins Minus außerdem bleibt der SplashText die ganze Zeit ON
Return

 


 

^^ Das PROBLEM bei meiner Version is nur wenn MsgBox erscheint kann ichs nicht mit OK weg klicken! -.-

; ---Label--->

Stopuhr:
Random, Time, 4500,4501
start := A_TickCount + time

SetTimer, Counter, 10
Return
counter:
zeit := start - A_TickCount
StringTrimRight, zeitk, zeit, 3 ; millisekunden entfernen
ToolTip, % zeitk " Sek"
If zeitk < 1
MsgBox Makro startet jetzt!
IfMsgBox, ok
goto, Stopuhr
Return

Das einzigste einigermaßen zufriedenstellende Ergebnis^^ jedoch nicht das was ich ursprünglich wollte..



nnnik
  • Members
  • 1625 posts
  • Last active: Jan 24 2019 02:19 PM
  • Joined: 28 Jul 2012

MsgBox, Text MsgBox [, Optionen, Titel, Text, Zeitüberschreitung]

 

 

Zeitüberschreitung:

(Optional) Zeitüberschreitung in Sekunden, die einen Dezimalpunkt enthalten kann, aber standardmäßig kein Ausdruck ist. Seit v1.1.06 kann ein Ausdruck wie % mins*60 erzwungen werden.

Der Parameter wird automatisch auf 2147483 (24.8 Tage) zurückgesetzt, falls dieser Wert überschritten wird. Sobald die Zeit abgelaufen ist, wird die MsgBox automatisch geschlossen und das Wort TIMEOUT beim IfMsgBox-Befehl gesehen.

Bekannte Einschränkung: Wenn die MsgBox nur eine OK-Schaltfläche enthält, denkt IfMsgBox, dass die OK-Schaltfläche bei Zeitüberschreitung gedrückt wurde, während ihr eigener Thread von einem anderen unterbrochen wurden ist.

Wenn du die Zeitüberschreitung auf 0.5 stzt ist die Msgbox weg bevor dein Makro wieder anfängt:

 

Zudem würde ich während Makros Blockinput benutzen.


Visit the new forum ahkscript.org.

http://ahkscript.org


Marshall666
  • Members
  • 45 posts
  • Last active: May 16 2013 04:03 PM
  • Joined: 09 Mar 2013

Wie jetzt "während Makros Blockinput"

 


 

Außerdem weiß ich leider immer noch nicht wie ich diesen Counter in mein "exec:" Loop einfüge ich bekomme immer die Fehlermeldung:

!error a return must be encountered prior to this }

 

Und wenn ich diesen hier:

Stopuhr:
Random, Time, 950000,950001
start := A_TickCount + time

SetTimer, Counter, 10
Return
counter:
  zeit := start - A_TickCount
  StringTrimRight, zeitk, zeit, 3 ; millisekunden entfernen
  ToolTip, %  zeitk " Sek"
 If zeitk < 1
 MsgBox, 4096, Makro startet jetzt!
 IfMsgBox, ok
  goto, Stopuhr
Return

..extern ausführe habe ich das Problem der Überlagerung denn wenn die Message Box erscheint geht meine Schleife "exec:" nicht obwohl dieser VOR dem betätigen des Loops "exec:" ausgeführt wird..  -.-

 

Ach und das mit 0,5 habe ich so geschrieben:

 

 

MsgBox, 4096, Makro startet jetzt![,0,5]
 

Aber er schaltet sich nich automatisch ab sondern bekomm ich die Message:"Makro startet jetzt![,0,5]"



nnnik
  • Members
  • 1625 posts
  • Last active: Jan 24 2019 02:19 PM
  • Joined: 28 Jul 2012
MsgBox, 4096, Makro startet jetzt![,0,5]
 

 

das ist eine der genialen Sachen die ich auch am anfang gemacht habe grin.png

Die beiden Klammern sollen dem Hilfe lesenden nur anzeigen das dieser Parameter optional ist.

also die Klammern weglassen

MsgBox, 4096, Makro startet jetzt!,0,5

Ausserdem musst du Komma-Zahlen im Computer fast immer mit einem . anstatt einem , angeben da dieses häufig eine spezielle Bedeutung hat.

also:

MsgBox, 4096, Makro startet jetzt!,0.5

@BlockInput

nunja das verhindert, das der User das Makro stört.

BlockInput,On sorgt dafür, dass der User keine Iengaben mehr machen kann

BlockInput, Off sorgt dafür das der User es wieder kann.

Wenn du also verhindern willst, dass der User während Clicks u.ä. diesen nicht stört setzt du halt diesen Befehl davor.

Danach sollte aber wider ein BlockInput, off kommen.

 

@Tip: Setzte solche Befehle nie in den Autostart

Ich hatte mal eine etwas aggressivere Variante die auch den Taskmanager beendet im AutoStart es kam wie es kommen musste.

Es gab einen Bug und ich konnte nichts mehr machen.

Zum Glück gibt es für solche Fälle den Abgesicherten Modus von Windows.


Visit the new forum ahkscript.org.

http://ahkscript.org


Marshall666
  • Members
  • 45 posts
  • Last active: May 16 2013 04:03 PM
  • Joined: 09 Mar 2013

Auch mit 0.5 tut sich nichts sondern da steht dann die Zahl 0.5

 

Jetzt habe ich folgende Lösung gefunden jedoch auch verbugt:

Stopuhr:
Random, Time, 950000,950001
start := A_TickCount + time

SetTimer, Counter, 10
Return
counter:
  zeit := start - A_TickCount
  StringTrimRight, zeitk , zeit, 3 ; millisekunden entfernen
  ToolTip,  % zeitk " Sek"
 If zeitk < 1
 MsgBox, 1,, Makro starten?!
 {
 IfMsgBox, ok
   gosub, exec
   IfMsgBox, Cancel
   goto, Stopuhr
  }
Return

...denn wenn ich auf [OK] klicke habe ich das Problem das er "exec" im rechten Monitor ausführt also falsche Koordinaten! Kann das sein das ich mit relativen Koordinaten arbeiten muss? Denn wenn ich [OK] klicke und anschließend auf das Fenster in welchem er eigentlich arbeiten soll dann macht er alles richtig!

 

Ach und wenn ich im Label "exec" folgendes eingebe:

exec:
;####### usw. usw. #######

FensterSchließen()

Sleepandwaitforstop(1000)
Mousecklickleftandstop(385,135)         ;Tabswitch
goto, Stopuhr   ; <---- Das meine ich  (anstatt Sleep)
}
Return 

dann wechselt er um auf  Stopuhr nur wie bekomme ich das hin das er diesen nur anspringt wenn ich (Beispiel F8) drücke?

;##  Deklaration  ####

F8:=0

 

If (F8 = 1)
goto, Stopuhr
else if(F8 = 0)
sleepandwaitforstop(x,y)

Damit klapts nicht..



nnnik
  • Members
  • 1625 posts
  • Last active: Jan 24 2019 02:19 PM
  • Joined: 28 Jul 2012

@Msgbox:

MsgBox, 4096, Titel,Makro startet jetzt!,0.5

Du hast einen Parameter vergessen.

 

@Falscher Bildschirm:

Ich kann es mir nur damit erklären, dass du am anfang zum messen der Coordinaten CoordMode, Mouse,Screen benutzt hast und jetzt CoordMode,Mouse,Relative verwendest.

Deine Werte sind nähmlich ziemlich gross für relative.

 

@Bug in neuem Code:

 

SetTimer, Counter, 100 ;du lässt dir eh nur jede Sekunde etwas anzeigen.
Stopuhr:
start := A_TickCount
Ende:=A_TickCount+950000
return
counter:
zeit := A_TickCount-start ;start ist bei deiner Version grösser als A_TickCount
ToolTip, % (Ende-Zeit)//1000 " Sek"
If ((Ende-Zeit) < 1000)
MsgBox, 1,, Makro starten?!
{
IfMsgBox, ok
{
gosub, exec
Settimer,Counter,off ;ich würde es ausschalten.
}
IfMsgBox, Cancel
goto, Stopuhr ;bei deiner Version wird settimer,Counter doch mehrmals gestartet oder?
}
Return

Kannst du deinen Ganze Code Posten.


Visit the new forum ahkscript.org.

http://ahkscript.org


Marshall666
  • Members
  • 45 posts
  • Last active: May 16 2013 04:03 PM
  • Joined: 09 Mar 2013

oh,.. ich hatte mein letzten Post editiert wärend Du ein neuen geschrieben hast.. happy.png
 
ok.. warte! wink.png
 

#SingleInstance force
#Persistent

Version = 1.0
Text := "Makro"


CoordMode Mouse, Relative
CoordMode Pixel, Relative
CoordMode ToolTip, Screen




Gui, Add, Picture, x0 y0 h300 w400, D:\Bilder\Bild.jpg
Gui, Add, Button, x10 y200 gexec, Makro starten ;Button Name [Makro starten]
Gui, Add, Button, x10 y165 gStopuhr, Makro-Stopuhr ;Button Name [Makro Stop]
Gui, Add, Button, x120 y200 gButton4, Makro Stop ;Button Name [Stop]
Gui, Add, Button, x10 y250 gButton5, Bot (Fenster) ;Button Name [Bot (Fenster)]
Gui, Add, Button, x100 y250 gButton6, Bot Stop ;Button Name [Bot Stop]
Gui, Add, Button, x300 y50 gButton2, YouTube ;Button Name [YouTube]
Gui, Add, Button, x300 y80 gButton, Browsergame ;Button Name [Browsergame]
Gui, Add, Button, x328 y225 gButton7, STOP! ;Button Name [STOP!]
Gui, Add, DropDownList, x300 y200 w100 +AltSubmit gDropdownlist vChoice1 R5, erste Auswahl|zweite Auswahl
Gui, Add, Listbox, x10 y80 w78 h18, %A_DD%.%A_MM%.%A_YYYY%
Gui, Font, s20 cred bold, Comic Sans ms
Gui, Add, Text, x50 y0 +backgroundtrans, %Text%
Gui, Show, h300 w400, Makro %version%
return


;################### L A B E L S #######################################


Stopuhr:
Random, Time, 950000,950001
start := A_TickCount + time
SetTimer, Counter, 10
Return
counter:
  zeit := start - A_TickCount
  StringTrimRight, zeitk , zeit, 3 ; millisekunden entfernen
  ToolTip,  % zeitk " Sek"
 If zeitk < 1
 MsgBox, 1,, Makro starten?!
 {
 IfMsgBox, ok
   gosub, exec
   IfMsgBox, Cancel
    goto, Stopuhr
 }
 
Return


;#######################################################################




Dropdownlist:
guiControlGet, Choice1  ; erste Auswahl
 if choice1 = 1   ; erste Auswahl
 {
  Produktionstop = 0
{
Loop
{    
       sleep, 1000
  If Produktionstop = 1
      Break
      ToolTip, %A_Index%
       sleep, 1000
;-------------------------------------------------------------------------
Sleepandwaitforstop2(500)
Mouseclickleftandstop2(34,141)       ;Tabswitch

FensterSchließen()

Mousemove, 723,625                        ;Stufe 1  (HAUS1)
sleepandwaitforstop2(1000)
PixelGetColor,color,723,625 fast alt

If (color = 0x98E0F4)
{   
Mousemove, 723,625
Mouseclickleftandstop2(723,625)
sleepandwaitforstop2(300)
}
sleepandwaitforstop2(1000)                 ;Stufe 1 ENDE  (HAUS1)

FensterSchließen()

Mousemove, 717,633                          ;Stufe 2    (HAUS1)
sleepandwaitforstop2(1000)
PixelGetColor,color,717,633 fast alt

If (color = 0xD3D3D3)
{   
Mousemove, 717,633
Mouseclickleftandstop2(717,633)
sleepandwaitforstop2(300)
}
sleepandwaitforstop2(1000)                   ;Stufe 2 ENDE    (HAUS1)


StartProduktion()

;------------------------------------------------------------------------

FensterSchließen()

Mousemove, 647,666                    ;Stufe 1   (HAUS2)
sleepandwaitforstop2(1000)
PixelGetColor,color,647,666 fast alt

If (color = 0x95DBF9)
{
Mousemove, 647,666
Mouseclickleftandstop2(647,666)
sleepandwaitforstop2(300)
} 
sleepandwaitforstop2(1000)           ;Stufe 1 ENDE   (HAUS2)

FensterSchließen()

Mousemove, 643,671                          ;Stufe 2    (HAUS2)
sleepandwaitforstop2(1000)
PixelGetColor,color,643,671 fast alt

If (color = 0xD6D6D6)
{   
Mousemove, 643,671
Mouseclickleftandstop2(643,671)
sleepandwaitforstop2(300)
}
sleepandwaitforstop2(1000)                   ;Stufe 2 ENDE    (HAUS2)

StartProduktion()

;------------------------------------------------------------------------

FensterSchließen()

Mousemove, 670,570                          ;Stufe 1    (HAUS3)                          
sleepandwaitforstop2(1000)
PixelGetColor,color,670,570 fast alt

If (color = 0x8FD9EE)
{
Mousemove, 670,570
Mouseclickleftandstop2(670,570)
sleepandwaitforstop2(300)
}
sleepandwaitforstop2(1000)                   ;Stufe 1 ENDE    (HAUS3)

FensterSchließen()

Mousemove, 667,578                          ;Stufe 2    (HAUS3)
sleepandwaitforstop2(1000)
PixelGetColor,color,667,578 fast alt

If (color = 0xD3D3D3)
{   
Mousemove, 667,578
Mouseclickleftandstop2(667,578)
sleepandwaitforstop2(300)
}
sleepandwaitforstop2(1000)                   ;Stufe 2 ENDE    (HAUS3)

StartProduktion()

;------------------------------------------------------------------------

FensterSchließen()

Mousemove, 596,608                          ;Stufe 1    (HAUS4)
sleepandwaitforstop2(1000)
PixelGetColor,color,596,608 fast alt

If (color = 0xABEAF6)
{
Mousemove, 596,608
Mouseclickleftandstop2(596,608)
sleepandwaitforstop2(300)
} 
sleepandwaitforstop2(1000)                  ;Stufe 1 ENDE    (HAUS4)                        

FensterSchließen()

Mousemove, 589,615                          ;Stufe 2    (HAUS4)
sleepandwaitforstop2(1000)
PixelGetColor,color,589,615 fast alt

If (color = 0xD4D4D4)
{   
Mousemove, 589,615
Mouseclickleftandstop2(589,615)
sleepandwaitforstop2(300)
}
sleepandwaitforstop2(1000)                   ;Stufe 2 ENDE    (HAUS4)

StartProduktion()

FensterSchließen()

Sleepandwaitforstop2(500)
Mouseclickleftandstop2(385,135)         ;Tabswitch

;------------------------------------------------------------------------
sleepandwaitforstop2(3900000) ;1Std. warten
} ;if Choice1 erste Auswahl
} ;Loop 1
}

;_____________________________________________________________________
;_____________________________________________________________________


 
if choice1 = 2   ; zweite Auswahl
 {
  Produktionstop = 0
{
Loop
{    
       sleep, 1000
  If Produktionstop = 1
      Break
      ToolTip, %A_Index%
       sleep, 1000

;-----------------------------------------------------------------------

Sleepandwaitforstop2(500)
Mouseclickleftandstop2(34,141)       ;Tabswitch

FensterSchließen()

Mousemove, 505,555                  ;Stufe1  (HAUS1)
sleepandwaitforstop2(1000)
PixelGetColor,color,505,555 fast alt

If (color = 0x548BB7)
{   
Mousemove, 505,555
Mouseclickleftandstop2(505,555)
sleepandwaitforstop2(300)
}
sleepandwaitforstop2(1000)           ;Stufe1 ENDE (HAUS1)

FensterSchließen()

Mousemove, 501,566                  ;Stufe2  (HAUS1)
sleepandwaitforstop2(1000)
PixelGetColor,color,501,566 fast alt

If (color = 0xD3D3D3)
{   
Mousemove, 501,566
Mouseclickleftandstop2(501,566)
sleepandwaitforstop2(300)
}
sleepandwaitforstop2(1000)           ;Stufe2 ENDE (HAUS1)

StartProduktion()

;-----------------------------------------------------------------------

FensterSchließen()

Mousemove, 457,633                  ;Stufe1  (HAUS2)
sleepandwaitforstop2(1000)
PixelGetColor,color,457,633 fast alt

If (color = 0xAEE3F5)
{
Mousemove, 457,633
Mouseclickleftandstop2(457,633)
sleepandwaitforstop2(300)
} 
sleepandwaitforstop2(1000)           ;Stufe1 ENDE (HAUS2)  

FensterSchließen()

Mousemove, 451,642                 ;Stufe2  (HAUS2)
sleepandwaitforstop2(1000)
PixelGetColor,color,451,642 fast alt

If (color = 0xCECECE)
{
Mousemove, 451,642
Mouseclickleftandstop2(451,642)
sleepandwaitforstop2(300)
} 
sleepandwaitforstop2(1000)           ;Stufe2 ENDE (HAUS2) 

StartProduktion()

;-----------------------------------------------------------------------

FensterSchließen()

Mousemove, 381,596                 ;Stufe1  (HAUS3)
sleepandwaitforstop2(3000)
PixelGetColor,color,381,596 fast alt

If (color = 0x77B0BB)
{
Mousemove, 381,596
Mouseclickleftandstop2(381,596)
sleepandwaitforstop2(300)
}
sleepandwaitforstop2(1000)          ;Stufe1 ENDE (HAUS3) 

FensterSchließen()

Mousemove, 373,604                 ;Stufe2  (HAUS3)
sleepandwaitforstop2(3000)
PixelGetColor,color,373,604 fast alt

If (color = 0xCECECE)
{
Mousemove, 373,604
Mouseclickleftandstop2(373,604)
sleepandwaitforstop2(300)
}
sleepandwaitforstop2(1000)           ;Stufe2 ENDE (HAUS3)

StartProduktion()

;-----------------------------------------------------------------------

FensterSchließen()

Mousemove, 305,560                 ;Stufe1  (HAUS4)
sleepandwaitforstop2(3000)
PixelGetColor,color,305,560 fast alt

If (color = 0xAAE3F2)
{
Mousemove, 305,560
Mouseclickleftandstop2(305,560)
sleepandwaitforstop2(300)
}
sleepandwaitforstop2(1000)           ;Stufe1 ENDE (HAUS4)

FensterSchließen()

Mousemove, 299,565                ;Stufe2  (HAUS4)
sleepandwaitforstop2(3000)
PixelGetColor,color,299,565 fast alt

If (color = 0xD4D4D4)
{
Mousemove, 299,565
Mouseclickleftandstop2(299,565)
sleepandwaitforstop2(300)
}
sleepandwaitforstop2(1000)           ;Stufe2 ENDE (HAUS4)

StartProduktion()

FensterSchließen()

Sleepandwaitforstop2(500)
Mouseclickleftandstop2(385,135)         ;Tabswitch

;-----------------------------------------------------------------------
sleepandwaitforstop2(1200000)     ;20Min. warten

;_______________________________________________________________________
;_______________________________________________________________________
} ;Loop 2
} ;if choice1 zweite Auswahl
}
return



;#######################################################################




Button5:   ;(Bot detection) Fenster schließen
BotStop = 0
Loop

{    
       sleep, 100
  If BotStop = 1
      Break
       sleep, 100


PixelGetColor,color,1205,419 fast alt

If (color = 0x5D81ff)
{   
Mousemove, 1205,419
MouseClick, Left, 1205,419
sleep, 100
}


PixelGetColor,color,1077,503 fast alt

If (color = 0x5D81ff)
{
Mousemove, 1077,503
MouseClick, Left, 1077,503
sleep, 100
}
}
Return


;#######################################################################

Button:
run, http://www.browsergame.de
return

;#######################################################################

Button2:
run, www.Youtube.de
return

;#######################################################################


exec:
stop = 0

Loop
{

    sleep, 1000
  If stop = 1
      Break
  ToolTip, %A_Index%
  Sleep, 1000

SplashTextOff
SplashImage, Off
Sleepandwaitforstop(1000)


Sleepandwaitforstop(1000)
Mousecklickleftandstop(34,141)       ;Tabswitch

FensterSchließen()


MouseMove, 968,289
Sleepandwaitforstop(250)
PixelGetColor,color,968,289 fast alt ; Price Coin 1

If (color = 0x50D9EF)
{
Mousemove, 968,289
MouseClick, Left, 968,289
}                                     ; Ende Price Coin 1

MouseMove, 1043,326
Sleepandwaitforstop(250)
PixelGetColor,color,1043,326 fast alt ; Price Coin 2

If (color = 0x0B5272)
{
Mousemove, 1043,326
MouseClick, Left, 1043,326
}                                     ; Ende Price Coin 2

MouseMove, 814,206
Sleepandwaitforstop(250)
PixelGetColor,color,814,206 fast alt ; Price Coin 3

If (color = 0x36C9E9)
{
Mousemove, 814,206
MouseClick, Left, 814,206
}                                     ; Ende Price Coin 3

MouseMove, 740,243
Sleepandwaitforstop(250)
PixelGetColor,color,740,243 fast alt ; Price Coin 4

If (color = 0x54DEF7)
{
Mousemove, 740,243
MouseClick, Left, 740,243
}                                     ; Ende Price Coin 4

MouseMove, 815,282
Sleepandwaitforstop(250)
PixelGetColor,color,815,282 fast alt ; Price Coin 5

If (color = 0x2B97BC)
{
Mousemove, 815,282
MouseClick, Left, 815,282
}                                     ; Ende Price Coin 5

MouseMove, 1086,211
Sleepandwaitforstop(250)
PixelGetColor,color,1086,211 fast alt ; Price Coin 6

If (color = 0x40C4DF)
{
Mousemove, 1086,211
MouseClick, Left, 1086,211
}                                     ; Ende Price Coin 6

MouseMove, 1168,392
Sleepandwaitforstop(250)
PixelGetColor,color,1168,392 fast alt ; Price Coin 7

If (color = 0x2688AC)
{
Mousemove, 1168,392
MouseClick, Left, 1168,392
}                                     ; Ende Price Coin 7

MouseMove, 1013,457
Sleepandwaitforstop(250)
PixelGetColor,color,1013,457 fast alt ; Price Coin 8

If (color = 0x48CEE4)
{
Mousemove, 1013,457
MouseClick, Left, 1013,457
}                                     ; Ende Price Coin 8

MouseMove, 1220,417
Sleepandwaitforstop(250)
PixelGetColor,color,1220,417 fast alt ; Price Coin 9

If (color = 0x48CEE4)
{
Mousemove, 1220,417
MouseClick, Left, 1220,417
}                                     ; Ende Price Coin 9

MouseMove, 1407,509
Sleepandwaitforstop(250)
PixelGetColor,color,1407,509 fast alt ; Price Coin 10

If (color = 0x50D9EF)
{
Mousemove, 1407,509
MouseClick, Left, 1407,509
}                                     ; Ende Price Coin 10

MouseMove, 1381,547
Sleepandwaitforstop(250)
PixelGetColor,color,1381,547 fast alt ; Price Coin 11

If (color = 0x58E2FD)
{
Mousemove, 1381,547
MouseClick, Left, 1381,547
}                                     ; Ende Price Coin 11

MouseMove, 1406,661
Sleepandwaitforstop(250)
PixelGetColor,color,1406,661 fast alt ; Price Coin 12

If (color = 0x26BCDE)
{
Mousemove, 1406,661
MouseClick, Left, 1406,661
}                                     ; Ende Price Coin 12

MouseMove, 1339,629
Sleepandwaitforstop(250)
PixelGetColor,color,1339,629 fast alt ; Price Coin 13

If (color = 0x2EADCE)
{
Mousemove, 1339,629
MouseClick, Left, 1339,629
}                                     ; Ende Price Coin 13

MouseMove, 1422,745
Sleepandwaitforstop(250)
PixelGetColor,color,1422,745 fast alt ; Price Coin 14

If (color = 0x52DCF2)
{
Mousemove, 1422,745
MouseClick, Left, 1422,745
}                                     ; Ende Price Coin 14

MouseMove, 1346,782
Sleepandwaitforstop(250)
PixelGetColor,color,1346,782 fast alt ; Price Coin 15

If (color = 0x2891A9)
{
Mousemove, 1346,782
MouseClick, Left, 1346,782
}                                     ; Ende Price Coin 15

MouseMove, 1271,770
Sleepandwaitforstop(250)
PixelGetColor,color,1271,770 fast alt ; Price Coin 16

If (color = 0x57E3FA)
{
Mousemove, 1271,770
MouseClick, Left, 1271,770
}                                     ; Ende Price Coin 16

MouseMove, 1220,745
Sleepandwaitforstop(250)
PixelGetColor,color,1220,745 fast alt ; Price Coin 17

If (color = 0x50D9EF)
{
Mousemove, 1220,745
MouseClick, Left, 1220,745
}                                     ; Ende Price Coin 17

MouseMove, 1243,823
Sleepandwaitforstop(250)
PixelGetColor,color,1243,823 fast alt ; Price Coin 18

If (color = 0x5BE9FF)
{
Mousemove, 1243,823
MouseClick, Left, 1243,823
}                                     ; Ende Price Coin 18

MouseMove, 1194,797
Sleepandwaitforstop(250)
PixelGetColor,color,1194,797 fast alt ; Price Coin 19

If (color = 0x59E1FC)
{
Mousemove, 1194,797
MouseClick, Left, 1194,797
}                                     ; Ende Price Coin 19

MouseMove, 1142,772
Sleepandwaitforstop(250)
PixelGetColor,color,1142,772 fast alt ; Price Coin 20

If (color = 0x41BED6)
{
Mousemove, 1142,772
MouseClick, Left, 1142,772
}                                     ; Ende Price Coin 20

MouseMove, 1092,747
Sleepandwaitforstop(250)
PixelGetColor,color,1092,747 fast alt ; Price Coin 21

If (color = 0x50D9EF)
{
Mousemove, 1092,747
MouseClick, Left, 1092,747
}                                     ; Ende Price Coin 21

MouseMove, 803,686
Sleepandwaitforstop(250)
PixelGetColor,color,803,686 fast alt ; Price Coin 22

If (color = 0x38ABC9)
{
Mousemove, 803,686
MouseClick, Left, 803,686
}                                     ; Ende Price Coin 22

MouseMove, 938,520
Sleepandwaitforstop(250)
PixelGetColor,color,938,520 fast alt ; Price Coin 23

If (color = 0x50D9EF)
{
Mousemove, 938,520
MouseClick, Left, 938,520
}                                     ; Ende Price Coin 23

MouseMove, 959,439
Sleepandwaitforstop(250)
PixelGetColor,color,959,439 fast alt ; Price Coin 24

If (color = 0x50D5EC)
{
Mousemove, 959,439
MouseClick, Left, 959,439
}                                     ; Ende Price Coin 24

MouseMove, 383,420
Sleepandwaitforstop(250)
PixelGetColor,color,383,420 fast alt ; Price Coin 25

If (color = 0x4CCEE6)
{
Mousemove, 383,420
MouseClick, Left, 383,420
}                                     ; Ende Price Coin 25

MouseMove, 508,377
Sleepandwaitforstop(250)
PixelGetColor,color,508,377 fast alt ; 0:30h  Price Coin 26    

If (color = 0x5BE9FF)
{
Mousemove, 508,377
MouseClick, Left, 508,377
}                                     ; 0:30h  Ende Price Coin 26   

MouseMove, 584,415
Sleepandwaitforstop(250)
PixelGetColor,color,584,415 fast alt ;0:30h  Price Coin 27   

If (color = 0x48CDE7)
{
Mousemove, 584,415
MouseClick, Left, 584,415
}                                     ;0:30h  Ende Price Coin 27   

MouseMove, 786,490
Sleepandwaitforstop(250)
PixelGetColor,color,786,490 fast alt ;0:30h  Price Coin 28  

If (color = 0x57E3FA)
{
Mousemove, 786,490
MouseClick, Left, 786,490
}                                     ;0:30h  Ende Price Coin 28 

MouseMove, 836,540
Sleepandwaitforstop(250)
PixelGetColor,color,836,540 fast alt ;0:30h  Price Coin 29

If (color = 0x3EBDD2)
{
Mousemove, 836,540
MouseClick, Left, 836,540
}                                     ;0:30h  Ende Price Coin 29 

MouseMove, 937,490
Sleepandwaitforstop(250)
PixelGetColor,color,937,490 fast alt ;0:30h  Price Coin 30

If (color = 0x4FD8EE)
{
Mousemove, 937,490
MouseClick, Left, 937,490
}                                     ;0:30h  Ende Price Coin 30 

MouseMove, 1063,730
Sleepandwaitforstop(250)
PixelGetColor,color,1063,730 fast alt ;0:30h  Price Coin 31

If (color = 0x43C5DF)
{
Mousemove, 1063,730
MouseClick, Left, 1063,730
}                                     ;0:30h  Ende Price Coin 31 

MouseMove, 1265,629
Sleepandwaitforstop(250)
PixelGetColor,color,1265,629 fast alt ;0:30h  Price Coin 32

If (color = 0x50DAF4)
{
Mousemove, 1265,629
MouseClick, Left, 1265,629
}                                     ;0:30h  Ende Price Coin 32 

MouseMove, 1216,603
Sleepandwaitforstop(250)
PixelGetColor,color,1216,603 fast alt ;0:30h  Price Coin 33

If (color = 0x55D4FE)
{
Mousemove, 1216,603
MouseClick, Left, 1216,603
}                                     ;0:30h  Ende Price Coin 33 

MouseMove, 1139,565
Sleepandwaitforstop(250)
PixelGetColor,color,1139,565 fast alt ;0:30h  Price Coin 34

If (color = 0x4ACCE6)
{
Mousemove, 1139,565
MouseClick, Left, 1139,565
}                                     ;0:30h  Ende Price Coin 34

MouseMove, 382,419
Sleepandwaitforstop(250)
PixelGetColor,color,382,419 fast alt ; Price Coin 35

If (color = 0x2D8FAF)
{
Mousemove, 382,419
MouseClick, Left, 382,419
}                                     ; Ende Price Coin 35

MouseMove, 600,509
Sleepandwaitforstop(250)
PixelGetColor,color,600,509 fast alt ; Price Coin 36

If (color = 0x4BCBE6)
{
Mousemove, 600,509
MouseClick, Left, 600,509
}                                     ; Ende Price Coin 36


MouseMove, 1217,281
Sleepandwaitforstop(250)
PixelGetColor,color,1217,281 fast alt ;  Price Coin 37

If (color = 0x0B5F7F)
{
Mousemove, 1217,281
MouseClick, Left, 1217,281
}                                     ;  Ende Price Coin 37

;------------------------------------------------------------------------------


Sleepandwaitforstop(1000)
Mousecklickleftandstop(467,460)

FensterSchließen()
FensterSchließen()

Sleepandwaitforstop(1000)
Mousecklickleftandstop(626,483)

FensterSchließen()
FensterSchließen()

Sleepandwaitforstop(1000)
Mousecklickleftandstop(675,511)

FensterSchließen()
FensterSchließen()

Sleepandwaitforstop(1000)
Mousecklickleftandstop(730,477) 

FensterSchließen()
FensterSchließen()

Sleepandwaitforstop(1000)
Mousecklickleftandstop(776,440)

FensterSchließen()
FensterSchließen()

Sleepandwaitforstop(1000)
Mousecklickleftandstop(854,430)

FensterSchließen()
FensterSchließen()

Sleepandwaitforstop(1000)
Mousecklickleftandstop(902,463)

FensterSchließen()
FensterSchließen()

Sleepandwaitforstop(1000)
Mousecklickleftandstop(877,551)

FensterSchließen()
FensterSchließen()

Sleepandwaitforstop(1000)
Mousecklickleftandstop(926,725)

FensterSchließen()
FensterSchließen()

Sleepandwaitforstop(1000)
Mousecklickleftandstop(980,756)

FensterSchließen()
FensterSchließen()

Sleepandwaitforstop(1000)
Mousecklickleftandstop(984,645)

FensterSchließen()
FensterSchließen()

Sleepandwaitforstop(1000)
Mousecklickleftandstop(1040,618)

FensterSchließen()
FensterSchließen()

Sleepandwaitforstop(1000)
Mousecklickleftandstop(1115,752)

FensterSchließen()
FensterSchließen()

Sleepandwaitforstop(1000)
Mousecklickleftandstop(1167,723)

FensterSchließen()
FensterSchließen()

Sleepandwaitforstop(1000)
Mousecklickleftandstop(911,685)

FensterSchließen()
FensterSchließen()

Sleepandwaitforstop(1000)
Mousecklickleftandstop(701,433)

FensterSchließen()
FensterSchließen()

Sleepandwaitforstop(1000)
Mousecklickleftandstop(811,403)

FensterSchließen()
FensterSchließen()

Sleepandwaitforstop(1000)
Mousecklickleftandstop(763,372)

FensterSchließen()
FensterSchließen()

Sleepandwaitforstop(1000)
Mousecklickleftandstop(713,352)

FensterSchließen()
FensterSchließen()

Sleepandwaitforstop(1000)
Mousecklickleftandstop(660,325)

FensterSchließen()
FensterSchließen()

Sleepandwaitforstop(1000)
Mousecklickleftandstop(615,357)

FensterSchließen()
FensterSchließen()

Sleepandwaitforstop(1000)
Mousecklickleftandstop(551,383)

FensterSchließen()
FensterSchließen()

Sleepandwaitforstop(1000)
Mousecklickleftandstop(1457,750)

FensterSchließen()
FensterSchließen()

Sleepandwaitforstop(1000)
Mousecklickleftandstop(385,135)         ;Tabswitch

Sleepandwaitforstop(897000)
SplashTextOn,250,30,Browsergame,MAKRO STARTET ACHTUNG!!!
WinMove, Browsergame, , 0, 0
Sleepandwaitforstop(1000)
SplashImage, C:\Users\Marshall\Desktop\Stop.jpg, b fs18, Makro startet
Sleepandwaitforstop(4000)
}
Return







;-----------------F U N K T I O N E N-----------------------
    Sleepandwaitforstop2(time)
    {
    global
    Loop, % time//50
    {
    if Produktionstop
    return
    sleep, 50
    }
    }
    
;-----------------------------------------------------------
    
    Mouseclickleftandstop2(x,y)
    {
    Global
    if !Produktionstop
    Mouseclick,left,% x,% y
    }


;-----------------------------------------------------------

    Sleepandwaitforstop(time)
    {
    global
    Loop, % time//50
    {
    if stop
    return
    sleep, 50
    }
    }
;-----------------------------------------------------------
    Mousecklickleftandstop(x,y)
    {
    Global
    if !stop
    Mouseclick,left,% x,% y
    }
;-----------------------------------------------------------

     FensterSchließen()
     {
     global
     If !Produktionsstop   ;If Bedingung
     {
     MouseMove, 1205,419
     Sleep, 250
     PixelGetColor,color,1205,419 fast alt ; Fenster 1

     If (color = 0x5D81ff)
     {   
     Mousemove, 1205,419
     MouseClick, Left, 1205,419
     }                                     ; Ende Fenster 1

     MouseMove, 1077,503
     Sleep, 250
     PixelGetColor,color,1077,503 fast alt ; Fenster 2

     If (color = 0x5D81ff)
     {
     Mousemove, 1077,503
     MouseClick, Left, 1077,503
     }                                     ; Ende Fenster 2
     }
    }
     return
;-------------------------------------------------------------
     
StartProduktion()
{
 global
 If !Produktionstop  ; If Bedingung
{
Mousemove, 901,770                          ;Start Produktion
sleepandwaitforstop2(1000)
PixelGetColor,color,901,770 fast alt

If (color = 0xD4C120)
{   
Mousemove, 901,770
Mouseclickleftandstop2(901,770)
sleepandwaitforstop2(300)
}
sleepandwaitforstop2(1000)                   ;ENDE Start Produktion
}
}
return
    
;-----------------ENDE der FUNKTIONEN---------------------------   

    Button4:
    stop:=!stop
    if !stop ;sorgt dafür , dass man über diesen Knops Starten und stoppen kann
    goto,exec      
    return 
    


    Button6:
    BotStop:=!BotStop
    return
    
    Button7:
    Produktionstop:=!Produktionstop
    if !Produktionstop ;sorgt dafür , dass man über diesen Knops Starten und stoppen kann
    goto,Dropdownlist
    return 



~escape::ExitApp
~Pause::Pause
^S::Suspend


GuiClose:
Exitapp
return

Also ehrlich gesagt hab ich schon fast alles soweit wie ich wollte .. ich hab 2 Warnungen bevor "exec" wieder anfängt (Splashtext/image) jedoch wie beschrieben die Bugs wie z.B. das der Maus Cursor auf der rechten Seite also aufm anderen Monitor startet wenn ich nicht auf das zu arbeitende Fenster vorher einmal klicke!
Und "Dropdownlist:" lässt sich nicht sofort stopen obwohl ich nach deinen anweisungen gegangen bin und eine "If !Stop" Bedingung in die Funktionen eingefügt habe usw.

 

Und was ich noch ändern will ist das wenn ich ein Hotkey oder Button drücke er am Ende von "exec:" auf die "Stopuhr:" springt.. und wenn dieser erneut gedrückt wird er "exec:" in der normalen Schleife ausführt, also ohne das die Stopuhr aktiviert wird...

 

Und das Letzte und eins der wichtigsten Sachen:
Wenn ich exec und danach Dropdownlist aktiviere möchte ich das BEIDE Schleifen parallel laufen aber ich bekomms einfach nicht hin.. es überlagert sich alles!! *heul



Marshall666
  • Members
  • 45 posts
  • Last active: May 16 2013 04:03 PM
  • Joined: 09 Mar 2013

Ok.. ein Problem hab ich schonmal beseitigt.. und zwar das mit dem Bug das er auf dem rechten Monitor(2Monitore) rumgeklickt hat wenn ich auf das aktive Fenster nicht vorher einmal geklickt hatte!
Hier der Befehl:

 

WinActivate, ahk_class MozillaWindowClass ; Beim Starten der jeweiligen Schleife wird Firefox in den Vordergrund geholt und aktiviert

CoordMode, Mouse, Screen ; Sorgt dafür das die Maus die ursprünglichen Koordinaten beibehält auch wenn ein anderes Programm kurz vorher aktiviert wird also in den Vordergrund
 

Weiterhin aber das Problem mit dem sofortigen Stoppen der Dropdownlist Schleife! Wenn ich wärend die Schleife läuft auf STOP! drücke macht er im Schnell Durchlauf bis zum Ende der Schleife die Aktionen und stopt erst DANN!

Und weiterhin weiß ich nicht wie ich eine Bedingung in "Exec:" einfüge das wenn ich eine Taste oder Button drücke er am Ende der Schleife zur "Stopuhr:" springt.. und wenn dieser erneut betätigt wird er "exec:" normal, also mit "sleepandwaitforstop(Zeit)" am Schluss der Schleife ausführt.

 

Außerdem:

Stopuhr:
#Persistent
Random, Time, 9500,9501
start := A_TickCount + time
SetTimer, counter, 10
Return
counter:
  zeit := start - A_TickCount
  StringTrimRight, zeitk , zeit, 3 ; millisekunden entfernen
  ToolTip,  % zeitk " Sek"
 If zeitk < 1
 MsgBox, 1,, Makro starten?!
 {
 IfMsgBox, ok
{
   gosub, exec
   SetTimer, counter, Off
}
   IfMsgBox, Cancel
    exit              ; mit Exit beendet er nicht die Stopuhr! Aber WIESOO??
 }
Return

 Zweite Variante:

Random, Time, 9500,9501
start := A_TickCount + time
SetTimer, counter, 10
Return
counter:
  zeit := start - A_TickCount
  StringTrimRight, zeitk , zeit, 3 ; millisekunden entfernen
  ToolTip,  % zeitk " Sek"
 If zeitk < 1
 MsgBox, 1,, Makro starten?!
 {
 IfMsgBox, ok
{
   gosub, exec
   SetTimer, counter, Off
}
   IfMsgBox, Cancel
loop
{ 
if Choose=Cancel
    break
ToolTip
}
 }
Return

...schließt er auf "Cancel"(Abbrechen) aber lässt sich nicht erneut aufrufen!!  Wiesooo?

 

 

 

__________________________________________________________________________________________________________________________________________________

 

 

EDIT vom 04.04.2013_02:26Uhr

HURAAAA!!!  Ich habs soweit fertig..

Durch hinzufügen und verändern einiger Funktionen bekomme ich die Schleifen jederzeit zum stoppen VIELEN VIELEN DANK NNNIK für deine Tatkräftige Unterstützung ohne dich wäre ich niiee soweit gekommen!!!

 

Die EINZIGSTEN Sachen die mich noch stören sind einmal das mit A_tickCount + Time!

Wenn ich auf Abbrechen den Timer schließe kann ich ihn leider nicht mehr aufrufen!

Den code hatte ich hier im Post schon gepostet!

Und das Letzte und eins der wichtigsten Sachen:
Wenn ich exec und danach Dropdownlist aktiviere möchte ich das BEIDE Schleifen parallel laufen aber ich bekomms einfach nicht hin.. es überlagert sich alles!! *heul

Kannst Du mir da helfen?



nnnik
  • Members
  • 1625 posts
  • Last active: Jan 24 2019 02:19 PM
  • Joined: 28 Jul 2012
Stopuhr:
#Persistent
Random, Time, 9500,9501
start := A_TickCount + time
SetTimer, counter, 10
Return
counter:
  zeit := start - A_TickCount
  StringTrimRight, zeitk , zeit, 3 ; millisekunden entfernen
  ToolTip,  % zeitk " Sek"
 If zeitk < 1
 MsgBox, 1,, Makro starten?!
 {
 IfMsgBox, ok
{
   gosub, exec
   SetTimer, counter, Off
}
   IfMsgBox, Cancel
    exit              ; mit Exit beendet er nicht die Stopuhr! Aber WIESOO??
 }
Return

; mit Exit beendet er nicht die Stopuhr! Aber WIESOO??

Wenn du #Persistent eingestell hast musst du ExitAPP anstatt Exitverwenden.

 

Random, Time, 9500,9501
start := A_TickCount + time
SetTimer, counter, 10
Return
counter:
  zeit := start - A_TickCount
  StringTrimRight, zeitk , zeit, 3 ; millisekunden entfernen
  ToolTip,  % zeitk " Sek"
 If zeitk < 1
 MsgBox, 1,, Makro starten?!
 {
 IfMsgBox, ok
{
   gosub, exec
   SetTimer, counter, Off
}
   IfMsgBox, Cancel
loop
{ 
if Choose=Cancel
    break
ToolTip
}
 }
Return

Wie wird Choose denn Festgelegt ?

Und wieso der Loop?

Für mich sieht das so aus als ob er in der Schleife hängen bleibt Teste das doch einfach:

 

Random, Time, 9500,9501
start := A_TickCount + time
SetTimer, counter, 10
Return
counter:
  zeit := start - A_TickCount
  StringTrimRight, zeitk , zeit, 3 ; millisekunden entfernen
  ToolTip,  % zeitk " Sek"
 If zeitk < 1
 MsgBox, 1,, Makro starten?!
 {
 IfMsgBox, ok
{
   gosub, exec
   SetTimer, counter, Off
}
   IfMsgBox, Cancel
loop
{ 
if Choose=Cancel
    break
ToolTip Ich hänge Fest :(
}
 }
Return

 

@Frage wieso macht er noch weiter?

Er macht bei manchen Befehlen weiter solange Stop 1 ist bei anderen bis Produktionsstop 2 ist.

Mache MouseMoves und MouseClicks hast du ohne Stop oder Produktionsstop Bedingung versehen.

Natürlich macht er dann weiter.


Visit the new forum ahkscript.org.

http://ahkscript.org


Marshall666
  • Members
  • 45 posts
  • Last active: May 16 2013 04:03 PM
  • Joined: 09 Mar 2013

Hi.. nnnik ich habs fast! wink.png
 
Soll ich mal den ganzen EDITIERTEN Code nochmal posten?
Weil ich habs soweit fertig außer halt:
 

Durch hinzufügen und verändern einiger Funktionen bekomme ich die Schleifen jederzeit zum stoppen VIELEN VIELEN DANK NNNIK für deine Tatkräftige Unterstützung ohne dich wäre ich niiee soweit gekommen!!!
 
Die EINZIGSTEN Sachen die mich noch stören sind einmal das mit A_tickCount + Time!
Wenn ich auf Abbrechen den Timer schließe kann ich ihn leider nicht mehr aufrufen!
Den code hatte ich oben schon gepostet.

 


Und das Letzte und eins der wichtigsten Sachen:
Wenn ich exec und danach Dropdownlist aktiviere möchte ich das BEIDE Schleifen parallel laufen, also wenn ich beide aktiviere das nach Exec die Dropdownliste abgefragt wird und umgekehrt! ..aber ich bekomms einfach nicht hin.. es überlagert sich alles!! *heul
Kannst Du mir da helfen?


Mit:

Critical, Off
Critical 0
 
 macht er nur eins von beiden und wenn ich eins stoppe springt er erst DANN die andere Schleife an!

 

Ich weiß in AHK kann man nicht zwei Threads gleichzeitig laufen lassen

 

AutoHotkey ist eigentlich nicht in der Lage, mehrere Threads gleichzeitig auszuführen, trotzdem wird dieses Verhalten teilweise nachgeahmt: Sobald ein zweiter Thread gestartet wird (wenn beispielsweise ein weiterer Hotkey gedrückt wird, während der vorherige noch ausgeführt wird), wird der aktuelle Thread unterbrochen (vorübergehend angehalten), damit der neue Thread zum aktuellen Thread wird. Sobald ein dritter Thread gestartet wird, während der zweite noch ausgeführt wird, dann ist sowohl der zweite als auch der erste Thread im Ruhezustand, und so weiter.

..aber ich will Sie ja nicht gleichzeitig laufen lassen sondern zuerst soll der eine Thread und danach der andere laufen(aber in Schleife)

 

 

 

 

nnnik schrieb:
Wie wird Choose denn Festgelegt ?

..wie meinst Du das genau?
 

nnnik schrieb:
Wenn du #Persistent eingestell hast musst du ExitAPP anstatt Exitverwenden.

Mit ExitApp beendet er doch alles oder etwa nicht? #Persistent hab ich raus genommen und trotzdem habe ich das selbe Problem und wenn ich den Loop raus nehme dann bekomme ich folgende Fehlermeldung:
"Break/Continue must be enclosed by a Loop."
 
Ja er hängt im Loop...  guter Tipp das mit dem testen ich seh ich kann echt noch viel von dir lernen! wink.png
Ich guck mal wie ich das in den Griff bekomme..



nnnik
  • Members
  • 1625 posts
  • Last active: Jan 24 2019 02:19 PM
  • Joined: 28 Jul 2012

DIe Variable Choose ist Leer und wird auch niemals gefüllt.

Deshalb hängt er im Loop fest.


Visit the new forum ahkscript.org.

http://ahkscript.org


nnnik
  • Members
  • 1625 posts
  • Last active: Jan 24 2019 02:19 PM
  • Joined: 28 Jul 2012
Und das Letzte und eins der wichtigsten Sachen:
Wenn ich exec und danach Dropdownlist aktiviere möchte ich das BEIDE Schleifen parallel laufen, also wenn ich beide aktiviere das nach Exec die Dropdownliste abgefragt wird und umgekehrt! ..aber ich bekomms einfach nicht hin.. es überlagert sich alles!! *heul
Kannst Du mir da helfen?


Mit:

Critical, Off
Critical 0
 

 macht er nur eins von beiden und wenn ich eins stoppe springt er erst DANN die andere Schleife an!

Man kann auch mit AHK Multitasken:

Es gibt dafür z.B. die AutoHotkey.dll.

Sie führt ein komplettes script in sich aus, und man kann dieses auch steuern.

Oder du startest einfach eine 2. Ahk Datei,  die lässt sich dann aber nicht direkt steuern.


Visit the new forum ahkscript.org.

http://ahkscript.org


Marshall666
  • Members
  • 45 posts
  • Last active: May 16 2013 04:03 PM
  • Joined: 09 Mar 2013

Man kann auch mit AHK Multitasken:

Es gibt dafür z.B. die AutoHotkey.dll.

Sie führt ein komplettes script in sich aus, und man kann dieses auch steuern.

Oder du startest einfach eine 2. Ahk Datei,  die lässt sich dann aber nicht direkt steuern.

Wo finde ich diese? o.0

 

 

Stopuhr:
Choose = 0   ; Ich glaub das ist nicht richtig?! .. aber der Wert "1" ist steht doch für "Cancel" ?!
Random, Time, 9500,9501
start := A_TickCount + time
SetTimer, counter, 10
Return
counter:
  zeit := start - A_TickCount
  StringTrimRight, zeitk , zeit, 3 ; millisekunden entfernen
  ToolTip,  % zeitk " Sek"
 If zeitk < 1
 MsgBox, 1,, Makro starten?!
 {
 IfMsgBox, ok
{
   gosub, exec
   SetTimer, counter, Off
}
   IfMsgBox, Cancel
loop
{ 
if Choose=Cancel
    break
ToolTip Ich hänge Fest :(
}
 }
Return

^^ Habe ich falsch umgesetzt was? Jedenfalls funktioniert es immer noch nicht bzw. hängt im Loop! -.-



nnnik
  • Members
  • 1625 posts
  • Last active: Jan 24 2019 02:19 PM
  • Joined: 28 Jul 2012

^^ Habe ich falsch umgesetzt was? Jedenfalls funktioniert es immer noch nicht bzw. hängt im Loop! -.-

 

Wieso überhaupt der Loop?

Du schaust quasi die ganze Zeit nur nach ob Choose "Cancel" enthält.

Choose kann sich aber nicht verändern solange du im Loop steckst.

Also wieso der Loop du führst in ihm nichts aus.

 

Mit der AutoHotkey.dll arbeite ich selber ganz gerne.

Allerdings ist das ganze etwas schwer.

Ich werd vieleicht bald ein deutschsprachiges Tut machen.

 

Falls du es trotztdem schonmal versuchen möchtest.

Du musst dir nur Autohotkey.dll anschauen AutoHotkey_H ist zwar stark verknüpft ist aber keine Vorrausseztung.


Visit the new forum ahkscript.org.

http://ahkscript.org


Marshall666
  • Members
  • 45 posts
  • Last active: May 16 2013 04:03 PM
  • Joined: 09 Mar 2013

Hmm.. das mit der .dll wäre cool wenn Du da ein tut machen könntest und bzgl. dem Loop im Timer:

Ich muss doch ein Loop setzen sonnst kann ich den Brake nicht einfügen der zeigt mir dann immer den Fehler an. ;(

 

Ach ja ich hab ne alternative zur parallelen Ausführung zweier Threads:

 

Am ende jeweils ein Goto, Dropdownlist und ein Goto, exec  ..aber ich will wenn ich die Dropdownliste lösche (Hab ein Gui Button dazu erstellt) er nurnoch exec ausführt aber wenn ich die Liste lösche dann macht er nur ein Durchlauf, also kein Loop da er bei Goto, stopt weil Dropdownliste gelöscht ist.. wie könnt ich das realisieren? Hast du da Tipps oder besser sogar Vorschläge für mich?

Mit if Bedingungen im Thread selbst bin ich nicht weiter gekommen!!

Aber etwas in dieser Richtung will ich:

Goto, Dropdownlist

If Dropdownlist=0

return ; also exec normal ausfürhen wie gehabt

 

Und am Ende der DropdownSchleife ein:

Goto, exec

 

Lg