Movemouse l'api sendmessage

eckostreet Messages postés 26 Date d'inscription lundi 12 avril 2010 Statut Membre Dernière intervention 3 octobre 2016 - Modifié par ucfoutu le 3/10/2016 à 08:40
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 - 3 oct. 2016 à 07:36
Allo, besoin d'aide un problème avec ce bout de code.


Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const WM_MOUSEMOVE = &H200

Public Function LoWord(wParam As Long) As Integer
   If wParam And &H8000& Then
      LoWord = &H8000& Or (wParam And &H7FFF&)
   Else
      LoWord = wParam And &HFFFF&
   End If
End Function

Public Function MAKELONG(wLow As Long, wHigh As Long) As Long
  MAKELONG = LoWord(wLow) Or (&H10000 * LoWord(wHigh))
End Function

Public Sub MoveMouse(hwnd As Long, X As Long, Y As Long)
Call SendMessage(hwnd, WM_MOUSEMOVE, 0, MAKELONG(X,Y))
End Sub

merci d'avance

1 réponse

ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 211
Modifié par ucfoutu le 3/10/2016 à 08:12
Bonjour
Tu veux de l'aide ?
Elle est bien évidemment impossible sans connaître les tenants et les aboutissants précis, ni savoir par quel code tu appelles la procédure publique MoveMouse

EDIT : si tu ne le sais pas, cela voudrait dire que le bout de code montré a été simplement copié/collé sans le comprendre et sans même comprendre qu'il n'était qu'un bout de code à insérer dans un projet dont certaines lignes de code (probablement dans un Timer) en lancent l'exécution ! Développer est tout, sauf ce type d' "approche" ...

________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
0
Rejoignez-nous