Bonjour à toutes et à tous.
Mon petit soucis du moment ...
Voilà, une personne travaillant dans mon entreprise a de gros problème de vue et elle utilisait lorsque sa machine était sous Windows XP un petit soft qui s'appelle "RPMouse" et qui avait pour but de lui montrer ou se trouvait le curseur de sa souris en cliquant sur la molette de cette dernière.
http://www.rptools.org/?p=110&l=2&lg=fr ... 1447168246
pour ceux que ça intéresse.
C'est un outil qui n'est plus trop mis à jour et qui malheureusement ne fonctionne plus sous Windows SEVEN (de plus notre anti-virus le considère comme un cheval de Troy !!)
Donc, je me suis dit : Ne pourrais-je pas lui faire un truc assez simple qui ferait grosso modo la même chose, en claire un exe qui se lance au démarrage de sa machine et qui est transparent, mais quand j'appuie sur la touche "F11" (voir mon script ci dessous) une ligne rouge (assez grosse) est tracé de l'origine de l'écran (0,0) à la position de la souris .... Mais voilà, je pensais ne passer que quelques heures sur ce petit outil mais, je sèche lamentablement.... Pourriez vous jeter un œil à mon script et me dire ou je me plante ?
en vous remerciant par avance les amis...
► Afficher le texte
Code : Tout sélectionner
#cs ----------------------------------------------------------------------------
AutoIt Version : 3.3.6.0
Auteur: MonNom
Fonction du Script :
Modèle de Script AutoIt.
#ce ----------------------------------------------------------------------------
; Début du script - Ajouter votre code ci-dessous.
#include <Process.au3>
#include <GUIConstants.au3>
#Include <GuiEdit.au3>
#include <ScrollBarConstants.au3>
#include <GuiStatusBar.au3>
#include <StructureConstants.au3>
#include <EditConstants.au3>
#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
Local $msg
HotKeySet("{F10}", "exiter")
Local $msg
HotKeySet("{F11}", "tracer")
$gui = GUICreate("", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, $WS_EX_LAYERED)
$background = GUICtrlCreatePic(@ScriptDir&"\toto.png", 0, 0, @DesktopWidth, @DesktopHeight)
GUICtrlSetState(-1, $GUI_ENABLE)
GUISetState(@SW_SHOWDEFAULT)
;GUICtrlSetState(-1, $GUI_ONTOP)
;GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
;GUISetState(@SW_SHOW)
while 1
$msg = GUIGetMsg()
WEnd
Func tracer()
;While 1
Local $xmouse = _WinAPI_GetMousePosX()
Local $ymouse = _WinAPI_GetMousePosY()
;MsgBox(4096, "Position de la souris", "X = " & $xmouse & @LF & "Y = " & $ymouse)
_GDIPlus_Startup ()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND ($gui)
$hPen = _GDIPlus_PenCreate ()
_GDIPlus_GraphicsDrawLine ($hGraphic, 0, 0, $xmouse, $ymouse, $hPen)
sleep(100)
;WEnd
EndFunc
Func exiter()
Exit
EndFunc