Post by nacken012 » 13 Nov 2019, 09:21
Hallo
Code vom Hauptprogramm welcher per Button Klick hier hin springt
Code: Select all
Weintrauben:
run, externe-Programme/KB-Weintrauben.exe
return
Code von dem Weintrauben Programm
Code: Select all
#SingleInstance, Force
#NoEnv
SetBatchLines, -1
ListLines Off
SendMode Input
IniRead,ReadWuestlandX,Daten/ini/Setup.ini,Weintrauben,Key1
IniRead,ReadWuestlandY,Daten/ini/Setup.ini,Weintrauben,Key2
IniRead,ReadZwergenstadtX,Daten/ini/Setup.ini,Weintrauben,Key3
IniRead,ReadZwergenstadtY,Daten/ini/Setup.ini,Weintrauben,Key4
WinActivate,ahk_exe chrome.exe
#Include D:\Tools\AutoHotkey 1.1\Compiler\ToolTipOpt.ahk
Gui, New, ,Weintrauben
Gui, Add, DropDownList, x5 y5 h56 w200 vWeintraubenInsel, Wüstland|Zwergenstadt
Gui, Show, w215 h60 Center
Gui, Submit, nohide
return
GuiClose:
Gui, Submit, nohide
Gui, Cancel
Sleep, 100
If WeintraubenInsel = Wüstland
goto, Wüstland
If WeintraubenInsel = Zwergenstadt
goto, Zwergenstadt
return
Wüstland:
AnzahlX := ReadWuestlandX
AnzahlY := ReadWuestlandY
AnzahlX -= 1
AnzahlY -= 1
goto, Start
return
Zwergenstadt:
AnzahlX := ReadZwergenstadtX
AnzahlY := ReadZwergenstadtY
AnzahlX -= 1
AnzahlY -= 1
goto, Start
return
Start:
ToolTipFont("s16", "arialbd")
ToolTip, 2 mal verkleinen und den ersten Weintrauben Baum aufstellen, 98, 120, 4
ToolTip, Wenn Du fertig bist drücke die Space Taste, 98, 160, 3
KeyWait, Space, D
ToolTip, , , , 3
ToolTip, , , , 4
Sleep, 1000
CoordMode, Pixel, Screen
PixelSearch, FoundX, FoundY, 0, 0, 1920, 1080, 0x21ba10, 1, Fast ; RGB ;0xc15a0c
if ErrorLevel=1
goto, Exit1
if ErrorLevel=0
MouseMove, %FoundX%, %FoundY%, 0
SendEvent, {Click, Rel 0, 21, 0} ; SendEvent, {Click, Rel 0, 20, 0} klappt guz
Sleep, 200
MouseGetPos , F1X, F1Y, 0, 0, 0
Sleep, 200
;---------- Markt anklicken ----------
MouseMove, 1281, 937, 0
Sleep, 300
Click, Left, 1
Sleep, 1500
;----------- verkaufen öffnen -------
MouseMove, 1284, 687, 0
Sleep, 1000
Click, Left, 1
Sleep, 1000
MouseMove, %F1X%, %F1Y%, 0
Sleep, 200
Click, Left, 1
Sleep, 200
MouseMove, 1295, 999, 0
Sleep, 200
Click, Left, 1
Sleep, 1500
MouseMove, 1195, 614, 0
Sleep, 200
Click, Left, 1
Sleep, 1000
MouseMove, %F1X%, %F1Y%, 0
Sleep, 200
Click, Left, 1
Sleep, 250
Loop, %AnzahlX%
{
SendEvent, {Click, Rel 38, 19, 0}
Sleep, 50 ; 150
Click, Left, 1
Sleep, 50 ; 150
if A_Index = 5
SendEvent, {Click, Rel 2, 1, 0}
if A_Index = 10
SendEvent, {Click, Rel 2, 1, 0}
if A_Index = 15
SendEvent, {Click, Rel 2, 1, 0}
if A_Index = 20
SendEvent, {Click, Rel 2, 1, 0}
;if A_Index = 25
;SendEvent, {Click, Rel -1, 2, 0
;}
}
Loop, %AnzahlY%
{
Sleep, 150
MouseMove, F1X, F1Y
SendEvent, {Click, Rel -38, 19, 0}
Click, Left, 1
MouseGetPos , F1X, F1Y, 0, 0, 0
Loop, %AnzahlX%
{
;Sleep, 250
SendEvent, {Click, Rel 38, 19, 0}
Sleep, 50 ; 150
Click, Left, 1
Sleep, 50 ; 150
if A_Index = 5
SendEvent, {Click, Rel 2, 1, 0}
if A_Index = 10
SendEvent, {Click, Rel 2, 1, 0}
if A_Index = 15
SendEvent, {Click, Rel 2, 1, 0}
if A_Index = 20
SendEvent, {Click, Rel 2, 1, 0}
;if A_Index = 25
;SendEvent, {Click, Rel -1, 2, 0}
}
}
ExitApp
Return
ExitApp
F8::
ExitApp
return
Exit1:
MsgBox, nicht gefunden ; hier passiert es, wird der Baum nicht gefunden und man von der MsgBox ok drückt, startet das Hauptprogramm 5 x
ExitApp
Siehe fast ganz unten im Code, aber ich vermute das es an dem PC bei ihm liegt, warum sollte es sonst auf anderen PC alles perefekt laufen ?
Hallo
Code vom Hauptprogramm welcher per Button Klick hier hin springt
[code]
Weintrauben:
run, externe-Programme/KB-Weintrauben.exe
return
[/code]
Code von dem Weintrauben Programm
[code]
#SingleInstance, Force
#NoEnv
SetBatchLines, -1
ListLines Off
SendMode Input
IniRead,ReadWuestlandX,Daten/ini/Setup.ini,Weintrauben,Key1
IniRead,ReadWuestlandY,Daten/ini/Setup.ini,Weintrauben,Key2
IniRead,ReadZwergenstadtX,Daten/ini/Setup.ini,Weintrauben,Key3
IniRead,ReadZwergenstadtY,Daten/ini/Setup.ini,Weintrauben,Key4
WinActivate,ahk_exe chrome.exe
#Include D:\Tools\AutoHotkey 1.1\Compiler\ToolTipOpt.ahk
Gui, New, ,Weintrauben
Gui, Add, DropDownList, x5 y5 h56 w200 vWeintraubenInsel, Wüstland|Zwergenstadt
Gui, Show, w215 h60 Center
Gui, Submit, nohide
return
GuiClose:
Gui, Submit, nohide
Gui, Cancel
Sleep, 100
If WeintraubenInsel = Wüstland
goto, Wüstland
If WeintraubenInsel = Zwergenstadt
goto, Zwergenstadt
return
Wüstland:
AnzahlX := ReadWuestlandX
AnzahlY := ReadWuestlandY
AnzahlX -= 1
AnzahlY -= 1
goto, Start
return
Zwergenstadt:
AnzahlX := ReadZwergenstadtX
AnzahlY := ReadZwergenstadtY
AnzahlX -= 1
AnzahlY -= 1
goto, Start
return
Start:
ToolTipFont("s16", "arialbd")
ToolTip, 2 mal verkleinen und den ersten Weintrauben Baum aufstellen, 98, 120, 4
ToolTip, Wenn Du fertig bist drücke die Space Taste, 98, 160, 3
KeyWait, Space, D
ToolTip, , , , 3
ToolTip, , , , 4
Sleep, 1000
CoordMode, Pixel, Screen
PixelSearch, FoundX, FoundY, 0, 0, 1920, 1080, 0x21ba10, 1, Fast ; RGB ;0xc15a0c
if ErrorLevel=1
goto, Exit1
if ErrorLevel=0
MouseMove, %FoundX%, %FoundY%, 0
SendEvent, {Click, Rel 0, 21, 0} ; SendEvent, {Click, Rel 0, 20, 0} klappt guz
Sleep, 200
MouseGetPos , F1X, F1Y, 0, 0, 0
Sleep, 200
;---------- Markt anklicken ----------
MouseMove, 1281, 937, 0
Sleep, 300
Click, Left, 1
Sleep, 1500
;----------- verkaufen öffnen -------
MouseMove, 1284, 687, 0
Sleep, 1000
Click, Left, 1
Sleep, 1000
MouseMove, %F1X%, %F1Y%, 0
Sleep, 200
Click, Left, 1
Sleep, 200
MouseMove, 1295, 999, 0
Sleep, 200
Click, Left, 1
Sleep, 1500
MouseMove, 1195, 614, 0
Sleep, 200
Click, Left, 1
Sleep, 1000
MouseMove, %F1X%, %F1Y%, 0
Sleep, 200
Click, Left, 1
Sleep, 250
Loop, %AnzahlX%
{
SendEvent, {Click, Rel 38, 19, 0}
Sleep, 50 ; 150
Click, Left, 1
Sleep, 50 ; 150
if A_Index = 5
SendEvent, {Click, Rel 2, 1, 0}
if A_Index = 10
SendEvent, {Click, Rel 2, 1, 0}
if A_Index = 15
SendEvent, {Click, Rel 2, 1, 0}
if A_Index = 20
SendEvent, {Click, Rel 2, 1, 0}
;if A_Index = 25
;SendEvent, {Click, Rel -1, 2, 0
;}
}
Loop, %AnzahlY%
{
Sleep, 150
MouseMove, F1X, F1Y
SendEvent, {Click, Rel -38, 19, 0}
Click, Left, 1
MouseGetPos , F1X, F1Y, 0, 0, 0
Loop, %AnzahlX%
{
;Sleep, 250
SendEvent, {Click, Rel 38, 19, 0}
Sleep, 50 ; 150
Click, Left, 1
Sleep, 50 ; 150
if A_Index = 5
SendEvent, {Click, Rel 2, 1, 0}
if A_Index = 10
SendEvent, {Click, Rel 2, 1, 0}
if A_Index = 15
SendEvent, {Click, Rel 2, 1, 0}
if A_Index = 20
SendEvent, {Click, Rel 2, 1, 0}
;if A_Index = 25
;SendEvent, {Click, Rel -1, 2, 0}
}
}
ExitApp
Return
ExitApp
F8::
ExitApp
return
Exit1:
MsgBox, nicht gefunden ; hier passiert es, wird der Baum nicht gefunden und man von der MsgBox ok drückt, startet das Hauptprogramm 5 x
ExitApp
[/code]
Siehe fast ganz unten im Code, aber ich vermute das es an dem PC bei ihm liegt, warum sollte es sonst auf anderen PC alles perefekt laufen ?