VB后台控制鼠标点击.

Private Function SendClick(hwnd As Long, mX As Long, mY As Long)
  '发送点击消息
  Dim lp As Long
  lp = mY            
        lp = lp * 65536 + mX 
        Debug.Print "lp=" & lp
 Call SendMessage(hwnd, WM_MOUSEMOVE, 0, ByVal lp)
 Call PostMessage(hwnd, WM_LBUTTONDOWN, MK_LBUTTON, lp)
 Call PostMessage(hwnd, WM_LBUTTONUP, MK_LBUTTON, lp)
        Debug.Print "mx=" & lpEnd Function
代码入上.不知道为何.只会点左右上角..

解决方案 »

  1.   

    可以使用SetCursorPos来设置鼠标的位置
      

  2.   

    ByVal lp => ByRef lp 看看。
      

  3.   

    http://www.autohotkey.com
      

  4.   

    Public Function SendClick(hwnd As Long, mX As Long, mY As Long)
        Dim i As Long
         
        i = PostMessage(hwnd, WM_LBUTTONDOWN, 0, (mX And &HFFFF) + (mY And &HFFFF) * &H10000)
        i = PostMessage(hwnd, WM_LBUTTONUP, 0, (mX And &HFFFF) + (mY And &HFFFF) * &H10000)
    End Function