wmismail Posted June 14, 2009 Share Posted June 14, 2009 #cs AutoIt3 v3.2.4.9 wmismail#ce#include <misc.au3>#include <file.au3>Dim $x, $yDim $tmp = _TempFile(@TempDir, "~", ".tmp", 15)Dim $ptmp = FileOpen($tmp, 10)If $ptmp = -1 Then ExitHotKeySet("^ğ", "SaveToFile")While 1 $x = MouseGetPos(0) $y = MouseGetPos(1) ToolTip("Fare: " & $x & ", " & $y, 0, 0) Sleep(25) If _IsPressed("1B") = 1 Then ExitLoopWEndFileClose($ptmp)FileMove($tmp, @DesktopDir & "\Koordinatlar.txt", 1)Func SaveToFile() FileWriteLine($ptmp, $x & ", " & $y)EndFunc ;==>SaveToFile[/CODE]Bu da benimki Link to comment Share on other sites More sharing options...
blue_life Posted July 11, 2009 Share Posted July 11, 2009 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....#NoTrayIconGlobal $Paused,$x, $yHotKeySet("{PAUSE}", "TogglePause")HotKeySet("{ESC}", "Terminate")While 1 $x = MouseGetPos(0) $y = MouseGetPos(1) ToolTip("Fare: " & $x & ", " & $y, $x, $y + 20) Sleep(50)WEndFunc 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("")EndFuncFunc Terminate() Exit 0EndFunc[/CODE] Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.