Aktuální pozice myši je:

 

Do sekce <BODY> umístěte:
<SCRIPT LANGUAGE = VBScript>
<!--

Option Explicit

Sub Document_OnMouseMove()
Dim Temp, TheSource

Set TheSource = Window.Event
Temp = "X: " & TheSource.X
Temp = Temp & ", Y: " & TheSource.Y
TheText.Value = Temp
End Sub
-->
</SCRIPT>

<p align="center"><font face="Verdana, Arial" size="2">
<br>
Aktuální pozice myši je:<br>
<input type="text" id="TheText" readOnly style="background-color: #FFFFFF; text-align: center; font: 10pt Verdana, Arial; border: 1px solid white">
</font></p>