Kleines Helferlein

[BotofWar]

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.

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

[kajaman]

bei mir funktioniert der nicht... also ich kann keine exe bilden oder ausführen is aber lieb gemeint

[BotofWar]

ich persönlich nutze es auch nicht als exe sondern lasse es direkt aus ai raus laufen. war eigentlich nie zum compilen gedacht.

[KDeluxe]

Ersetz das mit dem Hotkey doch einfach durch einen rechten Mausklick oder vergleichbaren, dann hat man es einfacher

_IsPressed(02) Then Schreiben()

[BotofWar]

wäre zwar eine möglichkeit, aber wenn es darum geht ganz exakt 1 einziges pixel zu treffen ist es mit einer mx-revolution fast unmöglich während dem rk den zeiger nicht zu bewegen^^
und linke hand hab ich ja frei^^