224 lines
5.0 KiB
VB.net
Executable File
224 lines
5.0 KiB
VB.net
Executable File
Imports System.Runtime.InteropServices
|
|
Module input
|
|
|
|
|
|
#Region "mouse events"
|
|
<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
|
|
|
|
Public Const WHEEL_DELTA = 120
|
|
|
|
<DllImport("user32.dll")> _
|
|
Public Sub mouse_event(dwFlags As UInteger, dx As Integer, dy As Integer, dwData As Integer, dwExtraInfo As Integer)
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "keyboard events"
|
|
|
|
Enum VK
|
|
LBUTTON = 1
|
|
RBUTTON = 2
|
|
CANCEL_KEY = 3
|
|
MBUTTON = 4
|
|
XBUTTON1 = 5
|
|
XBUTTON2 = 6
|
|
KEY_BACK = 8
|
|
TAB_KEY = 9
|
|
CLEAR = 12
|
|
RETURN_KEY = 13
|
|
SHIFT = 16
|
|
CONTROL = 17
|
|
MENU = 18
|
|
PAUSE = 19
|
|
CAPITAL = 20
|
|
KANA = 21
|
|
HANGUL = 21
|
|
JUNJA = 23
|
|
FINAL = 24
|
|
HANJA = 25
|
|
KANJI = 25
|
|
ESCAPE = 27
|
|
CONVERT = 28
|
|
NONCONVERT = 29
|
|
ACCEPT = 30
|
|
MODECHANGE = 31
|
|
SPACE_KEY = 32
|
|
PRIOR = 33
|
|
NEXT_KEY = 34
|
|
END_KEY = 35
|
|
HOME = 36
|
|
LEFT_KEY = 37
|
|
UP = 38
|
|
RIGHT_KEY = 39
|
|
DOWN = 40
|
|
SELECT_KEY = 41
|
|
PRINT_KEY = 42
|
|
EXECUTE = 43
|
|
SNAPSHOT = 44
|
|
INSERT = 45
|
|
DELETE = 46
|
|
HELP = 47
|
|
KEY_0 = 48
|
|
KEY_1 = 49
|
|
KEY_2 = 50
|
|
KEY_3 = 51
|
|
KEY_4 = 52
|
|
KEY_5 = 53
|
|
KEY_6 = 54
|
|
KEY_7 = 55
|
|
KEY_8 = 56
|
|
KEY_9 = 57
|
|
KEY_A = 65
|
|
KEY_B = 66
|
|
KEY_C = 67
|
|
KEY_D = 68
|
|
KEY_E = 69
|
|
KEY_F = 70
|
|
KEY_G = 71
|
|
KEY_H = 72
|
|
KEY_I = 73
|
|
KEY_J = 74
|
|
KEY_K = 75
|
|
KEY_L = 76
|
|
KEY_M = 77
|
|
KEY_N = 78
|
|
KEY_O = 79
|
|
KEY_P = 80
|
|
KEY_Q = 81
|
|
KEY_R = 82
|
|
KEY_S = 83
|
|
KEY_T = 84
|
|
KEY_U = 85
|
|
KEY_V = 86
|
|
KEY_W = 87
|
|
KEY_X = 88
|
|
KEY_Y = 89
|
|
KEY_Z = 90
|
|
LWIN = 91
|
|
RWIN = 92
|
|
APPS = 93
|
|
SLEEP = 95
|
|
NUMPAD0 = 96
|
|
NUMPAD1 = 97
|
|
NUMPAD2 = 98
|
|
NUMPAD3 = 99
|
|
NUMPAD4 = 100
|
|
NUMPAD5 = 101
|
|
NUMPAD6 = 102
|
|
NUMPAD7 = 103
|
|
NUMPAD8 = 104
|
|
NUMPAD9 = 105
|
|
MULTIPLY = 106
|
|
ADD = 107
|
|
SEPARATOR = 108
|
|
SUBTRACT = 109
|
|
DECIMAL_KEY = 110
|
|
DIVIDE = 111
|
|
F1 = 112
|
|
F2 = 113
|
|
F3 = 114
|
|
F4 = 115
|
|
F5 = 116
|
|
F6 = 117
|
|
F7 = 118
|
|
F8 = 119
|
|
F9 = 120
|
|
F10 = 121
|
|
F11 = 122
|
|
F12 = 123
|
|
F13 = 124
|
|
F14 = 125
|
|
F15 = 126
|
|
F16 = 127
|
|
F17 = 128
|
|
F18 = 129
|
|
F19 = 130
|
|
F20 = 131
|
|
F21 = 132
|
|
F22 = 133
|
|
F23 = 134
|
|
F24 = 135
|
|
NUMLOCK = 144
|
|
SCROLL = 145
|
|
LSHIFT = 160
|
|
RSHIFT = 161
|
|
LCONTROL = 162
|
|
RCONTROL = 163
|
|
LMENU = 164
|
|
RMENU = 165
|
|
BROWSER_BACK = 166
|
|
BROWSER_FORWARD = 167
|
|
BROWSER_REFRESH = 168
|
|
BROWSER_STOP = 169
|
|
BROWSER_SEARCH = 170
|
|
BROWSER_FAVORITES = 171
|
|
BROWSER_HOME = 172
|
|
VOLUME_MUTE = 173
|
|
VOLUME_DOWN = 174
|
|
VOLUME_UP = 175
|
|
MEDIA_NEXT_TRACK = 176
|
|
MEDIA_PREV_TRACK = 177
|
|
MEDIA_STOP = 178
|
|
MEDIA_PLAY_PAUSE = 179
|
|
LAUNCH_MAIL = 180
|
|
LAUNCH_MEDIA_SELECT = 181
|
|
LAUNCH_APP1 = 182
|
|
LAUNCH_APP2 = 183
|
|
OEM_1 = 186
|
|
OEM_PLUS = 187
|
|
OEM_COMMA = 188
|
|
OEM_MINUS = 189
|
|
OEM_PERIOD = 190
|
|
OEM_2 = 191
|
|
OEM_3 = 192
|
|
OEM_4 = 219
|
|
OEM_5 = 220
|
|
OEM_6 = 221
|
|
OEM_7 = 222
|
|
OEM_8 = 223
|
|
OEM_102 = 226
|
|
PROCESSKEY = 229
|
|
PACKET = 231
|
|
ATTN = 246
|
|
CRSEL = 247
|
|
EXSEL = 248
|
|
EREOF = 249
|
|
PLAY = 250
|
|
ZOOM = 251
|
|
NONAME = 252
|
|
PA1 = 253
|
|
OEM_CLEAR = 254
|
|
End Enum
|
|
|
|
Public Const KEYEVENTF_EXTENDEDKEY As UInteger = &H1
|
|
Public Const KEYEVENTF_KEYUP As UInteger = &H2
|
|
|
|
|
|
<DllImport("user32.dll")> _
|
|
Public Sub keybd_event(bVk As Byte, bScan As Byte, dwFlags As UInteger, dwExtraInfo As Integer)
|
|
End Sub
|
|
|
|
Public Sub keybd_press(bVK As Byte)
|
|
keybd_event(bVK, 0, 0, 0)
|
|
System.Threading.Thread.Sleep(10)
|
|
keybd_event(bVK, 0, KEYEVENTF_KEYUP, 0)
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
End Module
|