控制鼠标,模拟鼠标移动到屏幕上的指定点并点击
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)
'===========
Dim btnLocation As Point = button1.Location
Dim screenLocation As Point
screenLocation = PointToScreen(jkbtnLocation
咨询电话
暂无