Question

VB.NET2013如何控制鼠标在某一坐标点击一下

网页中有一个登陆按钮,在屏幕的坐标是 500,500,
我想写个软件运行后自动点击这个登录按钮达到登录的目的,
目前已获取到了按钮的坐标,鼠标也能自动移动到该坐标,但不知道用vb.net控制鼠标点击 如何写代码,麻烦高手指教。谢谢！

Answer 1

Imports System.Runtime.InteropServices
<DllImport("user32.dll")> 
    Private Shared Function SetCursorPos(ByVal X As Integer, ByVal Y As Integer) As Boolean    End Function
    <DllImport("user32.dll")> 
        Private Shared Sub mouse_event(ByVal flags As MouseEventFlag, ByVal dx As Integer, ByVal dy As Integer, ByVal data As UInteger, ByVal extraInfo As UIntPtr)    End Sub
    <Flags()>
        Private Enum MouseEventFlag As UInteger   
            Move = &H1 
            LeftDown = &H2
             LeftUp = &H4
             RightDown = &H8
             RightUp = &H10
              MiddleDown = &H20 
              MiddleUp = &H40 
               XDown = &H80 
                XUp = &H100
                Wheel = &H800 
                VirtualDesk = &H4000
                Absolute = &H8000 
     End Enum
 
 
SetCursorPos(intX, intY)mouse_event(MouseEventFlag.LeftDown, intX, intY, 0, UIntPtr.Zero)
mouse_event(MouseEventFlag.LeftUp, intX, intY, 0, UIntPtr.Zero)