Mouse Distance Clocker

[Marlo]

So the WoW servers went down stupidly early today so i had nothing better to do than make a script that measured how far my mouse had traveled on screen

I also went through the trouble of finding out how many pixels there were to an inch on my screen (was 80) but that will probably be different for you. First script ive made in a while so i hope you like it.

So here it be:

#include <String.au3>

Global Const $iPixToInch = 80 ;80 pixels to an inch on my screen
Global Const $iInchToKilometer = 39370.0787 ;39370.0787 Inches to a Kilometer

Global $iOldPos, $iNewPos, $iInches, $iKilometers, $iDistance
Global $sSaveFile = @ScriptDir & "\Mouse Measure.ini"

$iDistance = int(IniRead($sSaveFile, "Statistics", "Overall", 0))

Opt("OnExitFunc", "_Save")
AdlibEnable("_Save", 1000)

$iNewPos = MouseGetPos()
$iOldPos = MouseGetPos()

While True
    $iNewPos = MouseGetPos()
    $iDistance += Abs($iNewPos[0] - $iOldPos[0])
    $iDistance += Abs($iNewPos[1] - $iOldPos[1])
    $iOldPos = $iNewPos
    Sleep(2)
WEnd

Func _Save()
    $iInches = Round($iDistance/$iPixToInch, 1)
    $iKilometers = Round($iInches/$iInchToKilometer, 2)
    TraySetToolTip("Pixels Traveled: " & _StringAddThousandsSep($iDistance) & @CR & _
                   "Inches Traveled: " & _StringAddThousandsSep($iInches) & @CR & _
                   "Kilometers Traveled: " & _StringAddThousandsSep($iKilometers))
    Iniwrite($sSaveFile, "Statistics", "Overall", $iDistance)
EndFunc

[billthecreator]

this is pretty cool. there has to be a way to find PixToInch by the resolution and monitor size...

awesome script

[Marlo]

this is pretty cool. there has to be a way to find PixToInch by the resolution and monitor size...

awesome script

There probably is but i didnt look too far into it to be honest. Just drew a 200x200 pix box on my screen and measured it with a ruler

[whim]

<br />this is pretty cool. there has to be a way to find PixToInch by the resolution and monitor size... <br /><br />awesome script<br />

<br /><br /><br />

try this

$Diag_in_pixel = Sqrt(@DesktopWidth*@DesktopWidth + @DesktopHeight*@DesktopHeight)  ; remember Pythagoras ?
$Diag_in_inch = InputBox( "Calculate your monitor DPI", "Type monitor size in inches. Please keep in mind" & @CRLF & _
                                                        "you need to measure the DIAGONAL size, this is how" & @CRLF & _
                                                        "monitor size is usually specified !", "", " M", 300, 150)
$DPI = Round( $Diag_in_pixel / Number($Diag_in_inch) )
If $DPI > 0 And $DPI < 500 Then MsgBox(0, "Your monitor", "has " & $DPI & " dpi")

[FireFox]

@marlo

See here : http://www.autoitscript.com/forum/index.php?showtopic=86154

Cheers, FireFox.