Mouse Koordinat Bulucu

[wmismail]

#cs 
	AutoIt3 v3.2.4.9
	wmismail
#ce

#include <misc.au3>
#include <file.au3>


Dim $x, $y

Dim $tmp = _TempFile(@TempDir, "~", ".tmp", 15)
Dim $ptmp = FileOpen($tmp, 10)
If $ptmp = -1 Then Exit

HotKeySet("^ğ", "SaveToFile")

While 1
	$x = MouseGetPos(0)
	$y = MouseGetPos(1)
	ToolTip("Fare: " & $x & ", " & $y, 0, 0)
	Sleep(25)
	If _IsPressed("1B") = 1 Then ExitLoop
WEnd

FileClose($ptmp)
FileMove($tmp, @DesktopDir & "\Koordinatlar.txt", 1)

Func SaveToFile()
	FileWriteLine($ptmp, $x & ", " & $y)
EndFunc  ;==>SaveToFile[/CODE]

Bu da benimki

[blue_life]

Bazen gereken güzel bir şey. Program için teşekkürler.

Bu da benim kullandığım AutoIt3 script kodları....

;Author BlueLife
; Esc ye basınca kapanır......
;Pauseye basınca beklemeye geçer....
#NoTrayIcon
Global $Paused,$x, $y
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
While 1
	$x = MouseGetPos(0)
	$y = MouseGetPos(1)	
	ToolTip("Fare: " & $x & ", " & $y, $x, $y + 20)
	Sleep(50)
WEnd
Func TogglePause()
	Local $Shell_Pos = WinGetPos(WinGetHandle("[CLASS:Shell_TrayWnd]"))
	$Paused = NOT $Paused
	If $Paused Then ToolTip('MPos - Beklemede',@DesktopWidth - 90, @DesktopHeight - ($Shell_Pos[3] + 18))
	While $Paused
		sleep(100)		
	WEnd
	ToolTip("")
EndFunc
Func Terminate()
	Exit 0
EndFunc[/CODE]