none
vb2008關於滑鼠 RRS feed

  • 問題

  • vb2008關於滑鼠

    怎樣按button1把滑鼠的X軸及Y軸,移動到X:0,Y:0,並自動按滑鼠左掣

    2010年7月18日 下午 01:11

解答

  • hello,

    供參考:


        Private Declare Sub Mouse_Event Lib "user32.dll" Alias "mouse_event" (ByVal dwFlags As Int32, ByVal dx As Int32, ByVal dy As Int32, ByVal cButtons As Int32, ByVal dwExtraInfo As Int32)
        Private Declare Function SetCursorPos Lib "user32.dll" (ByVal X As Int32, ByVal Y As Int32) As Int32

        Private Const MOUSEEVENTF_LEFTDOWN = &H2
        Private Const MOUSEEVENTF_LEFTUP = &H4

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

            '把滑鼠的X軸及Y軸,移動到X:0,Y:0
            SetCursorPos(0, 0)

            '按滑鼠左鍵
            Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
            Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

        End Sub

     

    • 已標示為解答 fin71 2010年7月20日 下午 02:32
    2010年7月19日 上午 11:06

所有回覆

  • http://msdn.microsoft.com/zh-tw/library/ms171548(VS.80).aspx


    我看不懂呀!!那個網址

    求你在vb2008打下程式碼,再複制到這裡

    2010年7月18日 下午 02:00
  • 這太沒誠意, 你應該先問阿尼大哥的帳號, 然後匯錢過去才對.
    2010年7月18日 下午 02:02
  • 阿尼大大給的連結中就有VB的程式碼了.
    2010年7月19日 上午 09:19
  • hello,

    供參考:


        Private Declare Sub Mouse_Event Lib "user32.dll" Alias "mouse_event" (ByVal dwFlags As Int32, ByVal dx As Int32, ByVal dy As Int32, ByVal cButtons As Int32, ByVal dwExtraInfo As Int32)
        Private Declare Function SetCursorPos Lib "user32.dll" (ByVal X As Int32, ByVal Y As Int32) As Int32

        Private Const MOUSEEVENTF_LEFTDOWN = &H2
        Private Const MOUSEEVENTF_LEFTUP = &H4

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

            '把滑鼠的X軸及Y軸,移動到X:0,Y:0
            SetCursorPos(0, 0)

            '按滑鼠左鍵
            Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
            Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

        End Sub

     

    • 已標示為解答 fin71 2010年7月20日 下午 02:32
    2010年7月19日 上午 11:06