Tapez le script suivant dans le Bloc-notes:
dim addx unsigned
dim Addy unsigned
addx = allouer (8)
Addy = addx + 4
répéter
a = externe ("user32.dll", "GetCursorPos", addx)
si un lt;> 0 alors
pos_x = PeekInteger (addx, 4)
pos_y = PeekInteger (Addy, 4)
mes $ = "Curseur X est au:" + str $ (pos_x) + " n curseur Y est à:" + str $ (pos_y)
msgframe (MES $, 1)
Pause 1
fin si
jusqu'à i = 100
Cela permet d'afficher les coordonnées de la souris pour les 100 prochaines secondes. Réglez cette fois en changeant la valeur dans la dernière ligne du script de "100" à un autre numéro de votre choix.