Hallo zusammen,
da mir hier ja schon ein paar mal ganz nett geholfen wurde dachte ich mir ich geb mal eine Kleinigkeit zurück.
Habe es zwar selbst nur aus den Hilfedateien und was weiss ich woher zusammengestückelt und es ist auch nicht viel, aber für mich war es bis jetzt äusserst hilfreich und hat mir viel Schreibkram erspart.
Hoffe ich kann irgendwem damit eine kleine Freude machen.
da mir hier ja schon ein paar mal ganz nett geholfen wurde dachte ich mir ich geb mal eine Kleinigkeit zurück.
Habe es zwar selbst nur aus den Hilfedateien und was weiss ich woher zusammengestückelt und es ist auch nicht viel, aber für mich war es bis jetzt äusserst hilfreich und hat mir viel Schreibkram erspart.
Hoffe ich kann irgendwem damit eine kleine Freude machen.
Code:
Opt('PixelCoordMode', 2)
Opt('MouseCoordMode', 0)
$fenster="Anwendungsname"
$start=1
$pos=0
$var=0
Zeiger()
func Zeiger()
HotKeySet("^y", "Schreiben")
WinWaitActive ($fenster)
while $start=1
$pos = MouseGetPos()
$var = PixelGetColor( $pos[0] , $pos[1] )
ToolTip("Mouse x,y: " & $pos[0] & "," & $pos[1] & " " & Hex($var, 6))
sleep(100)
$start=1
wend
EndFunc
func Schreiben()
$file = FileOpen("test.txt", 1)
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
FileWrite($file, "PixelSearch(" & $pos[0] & "," & $pos[1] & "," & $pos[0] & "," & $pos[1] & ",0x" & Hex($var, 6) & ",1,1)" & @CRLF)
FileClose($file)
EndFunc