44 lines
1.3 KiB
VB.net
Executable File
44 lines
1.3 KiB
VB.net
Executable File
Imports System.Runtime.InteropServices
|
|
Module input
|
|
|
|
|
|
|
|
<Flags()> _
|
|
Public Enum MouseEventFlags As UInteger
|
|
MOUSEEVENTF_ABSOLUTE = &H8000
|
|
MOUSEEVENTF_LEFTDOWN = &H2
|
|
MOUSEEVENTF_LEFTUP = &H4
|
|
MOUSEEVENTF_MIDDLEDOWN = &H20
|
|
MOUSEEVENTF_MIDDLEUP = &H40
|
|
MOUSEEVENTF_MOVE = &H1
|
|
MOUSEEVENTF_RIGHTDOWN = &H8
|
|
MOUSEEVENTF_RIGHTUP = &H10
|
|
MOUSEEVENTF_XDOWN = &H80
|
|
MOUSEEVENTF_XUP = &H100
|
|
MOUSEEVENTF_WHEEL = &H800
|
|
MOUSEEVENTF_HWHEEL = &H1000
|
|
End Enum
|
|
|
|
<DllImport("user32.dll")> _
|
|
Private Sub mouse_event(dwFlags As UInteger, dx As Integer, dy As Integer, dwData As UInteger, dwExtraInfo As Integer)
|
|
End Sub
|
|
|
|
Public Sub movemouse(dx As Integer, dy As Integer)
|
|
mouse_event(MouseEventFlags.MOUSEEVENTF_MOVE, dx, dy, 0, 0)
|
|
End Sub
|
|
|
|
Public Sub leftclick()
|
|
mouse_event(MouseEventFlags.MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
|
|
System.Threading.Thread.Sleep(10)
|
|
mouse_event(MouseEventFlags.MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
|
|
End Sub
|
|
|
|
Public Sub leftstart()
|
|
mouse_event(MouseEventFlags.MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
|
|
End Sub
|
|
|
|
Public Sub leftrelease()
|
|
mouse_event(MouseEventFlags.MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
|
|
End Sub
|
|
End Module
|