Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Windows.Forms
Imports System.Runtime.InteropServices
Imports System.Threading
Public Class KeyAndMouseUtils
Friend Enum INPUT_TYPE As UInteger
INPUT_MOUSE = 0
INPUT_KEYBOARD = 1
INPUT_HARDWARE = 2
End Enum
<Flags()> _
Friend Enum KEYEVENTF As UInteger
EXTENDEDKEY = &H1
KEYUP = &H2
UNICODE = &H4
SCANCODE = &H8
End Enum
Friend Enum MAPVK_MAPTYPES As UInteger
MAPVK_VK_TO_VSC = &H0
MAPVK_VSC_TO_VK = &H1
MAPVK_VK_TO_CHAR = &H2
MAPVK_VSC_TO_VK_EX = &H3
MAPVK_VK_TO_VSC_EX = &H4
End Enum
<Flags()> _
Friend Enum MOUSEEVENTF As UInteger
'&H1
'0x1
hit = &H2
MOVE = &H1
' mouse move
LEFTDOWN = &H2
' left button down
LEFTUP = &H4
' left button up
RIGHTDOWN = &H8
' right button down
RIGHTUP = &H10
' right button up
MIDDLEDOWN = &H20
' middle button down
MIDDLEUP = &H40
' middle button up
XDOWN = &H80
' x button down
XUP = &H100
' x button down
WHEEL = &H800
' wheel button rolled
VIRTUALDESK = &H4000
' map to entire virtual desktop
ABSOLUTE = &H8000
End Enum
' absolute move
<StructLayout(LayoutKind.Sequential)> _
Friend Structure MOUSEINPUT
Public dx As Integer
Public dy As Integer
Public mouseData As UInteger
Public dwFlags As MOUSEEVENTF
Public time As UInteger
Public dwExtraInfo As UIntPtr
End Structure
<StructLayout(LayoutKind.Sequential)> _
Friend Structure HARDWAREINPUT
Public uMsg As UInteger
Public wParamL As UShort
Public wParamH As UShort
End Structure
<StructLayout(LayoutKind.Sequential)> _
Friend Structure KEYBDINPUT
Public wVk As UShort
Public wScan As UShort
Public dwFlags As KEYEVENTF
Public time As UInteger
Public dwExtraInfo As IntPtr
End Structure
<StructLayout(LayoutKind.Explicit)> _
Friend Structure INPUT
<FieldOffset(0)> _
Public type As INPUT_TYPE
<FieldOffset(4)> _
Public mi As MOUSEINPUT
<FieldOffset(4)> _
Public ki As KEYBDINPUT
<FieldOffset(4)> _
Public hi As HARDWAREINPUT
End Structure
<DllImport("user32.dll", CallingConvention:=CallingConvention.StdCall, CharSet:=CharSet.Unicode, EntryPoint:="MapVirtualKey", SetLastError:=False)> _
Friend Shared Function MapVirtualKey(ByVal uCode As UInteger, ByVal uMapType As MAPVK_MAPTYPES) As UInteger
End Function
<DllImport("user32.dll")> _
Friend Shared Function GetMessageExtraInfo() As IntPtr
End Function
<DllImport("user32.dll", SetLastError:=True)> _
Friend Shared Function SendInput(ByVal nInputs As UInteger, ByVal pInputs As INPUT(), ByVal cbSize As Integer) As UInteger
End Function
<DllImportAttribute("User32.dll", SetLastError:=True)> _
Friend Shared Function FindWindow(ByVal ClassName As String, ByVal WindowName As String) As IntPtr
End Function
<DllImportAttribute("User32.dll", SetLastError:=True)> _
Friend Shared Function SetForegroundWindow(ByVal hWnd As IntPtr) As Boolean
End Function
<DllImport("user32.dll")> _
Private Shared Sub keybd_event(ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As UInteger, ByVal dwExtraInfo As UIntPtr)
End Sub
Friend Shared Sub SendMouseInput(ByVal dwFlags As MOUSEEVENTF, ByVal dx As UInteger, ByVal dy As UInteger, ByVal dwData As UInteger, ByVal dwExtraInfo As UIntPtr)
Dim input As New INPUT()
input.mi = New MOUSEINPUT()
input.type = INPUT_TYPE.INPUT_MOUSE
input.mi.dwFlags = dwFlags
input.mi.dx = CInt(dx)
input.mi.dy = CInt(dy)
input.mi.mouseData = dwData
input.mi.time = 0
input.mi.dwExtraInfo = dwExtraInfo
SendInput(1, New INPUT() {input}, Marshal.SizeOf(GetType(INPUT)))
End Sub
Public Shared Sub SendKeyInput(ByVal keys__1 As Keys, ByVal press As Boolean, ByVal release As Boolean)
If Not press AndAlso Not release Then
Exit Sub
End If
Dim numInputs As Integer = 0
If press AndAlso release Then
numInputs = 2
Else
numInputs = 1
End If
Dim inputs As INPUT() = New INPUT(numInputs - 1) {}
Dim curInput As Integer = 0
If press Then
Dim input As New INPUT()
input.ki = New KEYBDINPUT()
Dim scanCode As UShort = CUShort(MapVirtualKey(CUInt((keys__1 And Keys.KeyCode)), MAPVK_MAPTYPES.MAPVK_VK_TO_VSC))
input.ki.wScan = scanCode
input.ki.time = 0
input.ki.dwFlags = KEYEVENTF.SCANCODE
If (CInt((keys__1 And Keys.KeyCode)) And &HE000) > 0 Then
input.ki.dwFlags = input.ki.dwFlags Or KEYEVENTF.EXTENDEDKEY
End If
input.ki.dwExtraInfo = GetMessageExtraInfo()
input.type = INPUT_TYPE.INPUT_KEYBOARD
inputs(curInput) = input
curInput += 1
End If
If release Then
Dim input As New INPUT()
input.ki = New KEYBDINPUT()
Dim scanCode As UShort = CUShort(MapVirtualKey(CUInt((keys__1 And Keys.KeyCode)), MAPVK_MAPTYPES.MAPVK_VK_TO_VSC))
input.ki.wScan = scanCode
input.ki.time = 0
input.ki.dwFlags = (KEYEVENTF.KEYUP Or KEYEVENTF.SCANCODE)
If (CInt((keys__1 And Keys.KeyCode)) And &HE000) > 0 Then
input.ki.dwFlags = input.ki.dwFlags Or KEYEVENTF.EXTENDEDKEY
End If
input.ki.dwExtraInfo = GetMessageExtraInfo()
input.type = INPUT_TYPE.INPUT_KEYBOARD
inputs(curInput) = input
End If
SendInput(CUInt(numInputs), inputs, Marshal.SizeOf(GetType(INPUT)))
End Sub
Public Shared Sub SendKeyInputToFalcon(ByVal keys As Keys, ByVal press As Boolean, ByVal release As Boolean)
Dim falconWindow As IntPtr = FindWindow("FalconDisplay", Nothing)
SetForegroundWindow(falconWindow)
SendKeyInputToFalcon(keys, press, release)
End Sub
''' <summary>
'''Moves the mouse to the given relative (x,y) coordinates.
''' </summary>
Public Shared Sub MouseMoveRelative(ByVal x As Integer, ByVal y As Integer)
Dim cur_x As Integer = Cursor.Position.X
Dim cur_y As Integer = Cursor.Position.Y
Dim new_x As Integer = cur_x + x
Dim new_y As Integer = cur_y + y
MouseMoveAbsolute(new_x, new_y)
End Sub
''' <summary>
'''Moves the mouse to the given absolute (x,y) coordinates.
''' </summary>
Public Shared Sub MouseMoveAbsolute(ByVal x As Integer, ByVal y As Integer)
x = x * 65535 / Screen.PrimaryScreen.Bounds.Width
y = y * 65535 / Screen.PrimaryScreen.Bounds.Height
SendMouseInput((MOUSEEVENTF.ABSOLUTE Or MOUSEEVENTF.MOVE), CUInt(x), CUInt(y), CUInt(0), UIntPtr.Zero)
End Sub
''' <summary>
'''Moves the mouse wheel by given amount.
''' </summary>
Public Shared Sub MouseWheelMove(ByVal amount As Integer)
SendMouseInput(MOUSEEVENTF.WHEEL, CUInt(0), CUInt(0), CUInt(amount), UIntPtr.Zero)
End Sub
''' <summary>
'''Sends a left mouse button up event at the current cursor position.
''' </summary>
Public Shared Sub LeftUp()
SendMouseInput(MOUSEEVENTF.LEFTUP, 0, 0, 0, UIntPtr.Zero)
End Sub
''' <summary>
'''Sends a right mouse button up event at the current cursor position.
''' </summary>
Public Shared Sub RightUp()
SendMouseInput(MOUSEEVENTF.RIGHTUP, 0, 0, 0, UIntPtr.Zero)
End Sub
''' <summary>
'''Sends a middle mouse button up event at the current cursor position.
''' </summary>
Public Shared Sub MiddleUp()
SendMouseInput(MOUSEEVENTF.MIDDLEUP, 0, 0, 0, UIntPtr.Zero)
End Sub
''' <summary>
'''Sends a middle mouse button down event at the current cursor position.
''' </summary>
Public Shared Sub MiddleDown()
SendMouseInput(MOUSEEVENTF.MIDDLEDOWN, 0, 0, 0, UIntPtr.Zero)
End Sub
''' <summary>
'''Sends a right mouse button down event at the current cursor position.
''' </summary>
Public Shared Sub RightDown()
SendMouseInput(MOUSEEVENTF.RIGHTDOWN, 0, 0, 0, UIntPtr.Zero)
End Sub
''' <summary>
'''Sends a left mouse button down event at the current cursor position.
''' </summary>
Public Shared Sub LeftDown()
SendMouseInput(MOUSEEVENTF.LEFTDOWN, 0, 0, 0, UIntPtr.Zero)
End Sub
''' <summary>
'''Sends a middle mouse button double click at the current cursor position.
''' </summary>
Public Shared Sub MiddleDoubleClick()
SendMouseInput(MOUSEEVENTF.MIDDLEDOWN, 0, 0, 0, UIntPtr.Zero)
Thread.Sleep(100)
SendMouseInput(MOUSEEVENTF.MIDDLEUP, 0, 0, 0, UIntPtr.Zero)
Thread.Sleep(100)
SendMouseInput(MOUSEEVENTF.MIDDLEDOWN, 0, 0, 0, UIntPtr.Zero)
Thread.Sleep(100)
SendMouseInput(MOUSEEVENTF.MIDDLEUP, 0, 0, 0, UIntPtr.Zero)
Thread.Sleep(100)
End Sub
''' <summary>
'''Sends a right mouse button double click at the current cursor position.
''' </summary>
Public Shared Sub RightDoubleClick()
SendMouseInput(MOUSEEVENTF.RIGHTDOWN, 0, 0, 0, UIntPtr.Zero)
Thread.Sleep(100)
SendMouseInput(MOUSEEVENTF.RIGHTUP, 0, 0, 0, UIntPtr.Zero)
Thread.Sleep(100)
SendMouseInput(MOUSEEVENTF.RIGHTDOWN, 0, 0, 0, UIntPtr.Zero)
Thread.Sleep(100)
SendMouseInput(MOUSEEVENTF.RIGHTUP, 0, 0, 0, UIntPtr.Zero)
Thread.Sleep(100)
End Sub
''' <summary>
'''Sends a left mouse button double click at the current cursor position.
''' </summary>
Public Shared Sub LeftDoubleClick()
SendMouseInput(MOUSEEVENTF.LEFTDOWN, 0, 0, 0, UIntPtr.Zero)
Thread.Sleep(100)
SendMouseInput(MOUSEEVENTF.LEFTUP, 0, 0, 0, UIntPtr.Zero)
Thread.Sleep(100)
SendMouseInput(MOUSEEVENTF.LEFTDOWN, 0, 0, 0, UIntPtr.Zero)
Thread.Sleep(100)
SendMouseInput(MOUSEEVENTF.LEFTUP, 0, 0, 0, UIntPtr.Zero)
Thread.Sleep(100)
End Sub
''' <summary>
'''Sends a right mouse button click at the current cursor position.
''' </summary>
Public Shared Sub RightClick()
SendMouseInput(MOUSEEVENTF.RIGHTDOWN, 0, 0, 0, UIntPtr.Zero)
Thread.Sleep(100)
SendMouseInput(MOUSEEVENTF.RIGHTUP, 0, 0, 0, UIntPtr.Zero)
Thread.Sleep(100)
End Sub
''' <summary>
'''Sends a left mouse button click at the current cursor position.
''' </summary>
Public Shared Sub LeftClick()
SendMouseInput(MOUSEEVENTF.LEFTDOWN, 0, 0, 0, UIntPtr.Zero)
Thread.Sleep(100)
SendMouseInput(MOUSEEVENTF.LEFTUP, 0, 0, 0, UIntPtr.Zero)
Thread.Sleep(100)
End Sub
''' <summary>
'''Sends a middle mouse button click at the current cursor position.
''' </summary>
Public Shared Sub MiddleClick()
SendMouseInput(MOUSEEVENTF.MIDDLEDOWN, 0, 0, 0, UIntPtr.Zero)
Thread.Sleep(100)
SendMouseInput(MOUSEEVENTF.MIDDLEUP, 0, 0, 0, UIntPtr.Zero)
Thread.Sleep(100)
End Sub
Friend Shared Sub SendKeyInput()
SendKeyInput()
End Sub
End Class
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'KeyAndMouseUtils.LeftClick()
KeyAndMouseUtils.SendKeyInput(Keys.B, 1, 1)
End Sub
FAQ
Cerca
Lista degli utenti
Gruppi utenti
Profilo
Messaggi Privati
Login
anche se esperto non lo sono, in quanto autodidatta in VB.Net 
