功能描述：模拟鼠标事件的函数模型 设置光标到指定位置的函数模型 模拟键盘事件的函数模型
命名空间：Lob.API
转化后代码如下：
Imports System
Imports System.Runtime.InteropServices
Namespace Lob.API
Public Class Api
''' <summary>
''' 模拟鼠标事件的函数模型
''' </summary>
''' <param name="flags"></param>
''' <param name="dx"></param>
''' <param name="dy"></param>
''' <param name="dwData"></param>
''' <param name="dwExtraInfo"></param>
Public Declare Sub mouse_event Lib "user32.dll" _(ByVal flags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal dwData As Integer, ByVal dwExtraInfo As Integer)
''' <summary>
''' 设置光标到指定位置的函数模型
''' </summary>
''' <param name="X"></param>
''' <param name="Y"></param>
''' <returns></returns>
Public Declare Function SetCursorPos Lib "user32.dll" _
(ByVal X As Integer, ByVal Y As Integer) As Boolean
''' <summary>
''' 模拟键盘事件的函数模型
''' </summary>
''' <param name="bVk"></param>
''' <param name="bScan"></param>
''' <param name="dwFlags"></param>
''' <param name="dwExtraInfo"></param>
Public Declare Sub keybd_event Lib "user32.dll" Alias "keybd_event" _
(ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
End Class
End Namespace
功能描述：：鼠标控制（Hook鼠标） 鼠标钩子
相关事件 ：鼠标Hook类 委托-鼠标按键触发 委托-鼠标移动触发 模拟鼠标移动的事件 模拟鼠标按下的事件
创建鼠标钩子的实例 控制鼠标执行相应操作
命名空间：Lob.Hooks
Imports System
Imports System.Text
Imports System.Runtime.InteropServices
Imports Lob.API
Imports Lob.Codes
Namespace Lob.Hooks
Public Class MouseHook
Public Sub New()
MyBase.New()
MouseButton = (MouseButton + New DoMouseButtons(Api.mouse_event))
MouseMove = (MouseMove + New DoMouseMove(Api.SetCursorPos))
End Sub
Private Event MouseButton As DoMouseButtons
Private Event MouseMove As DoMouseMove
Public Sub MouseWork(ByVal MEvent As MouseEvent)
Select Case (MEvent.Type)
Case MouseEventType.MouseMove
MouseMove(MEvent.X, MEvent.Y)
Case MouseEventType.MouseLeftDown
MouseMove(MEvent.X, MEvent.Y)
MouseButton(CType(MouseEventFlag.LeftDown, Integer), MEvent.X, MEvent.Y, 0, 0)
Case MouseEventType.MouseLeftUp
MouseMove(MEvent.X, MEvent.Y)
MouseButton(CType(MouseEventFlag.LeftUp, Integer), MEvent.X, MEvent.Y, 0, 0)
Case MouseEventType.MouseRightDown
MouseButton(CType(MouseEventFlag.RightDown, Integer), MEvent.X, MEvent.Y, 0, 0)
Case MouseEventType.MouseRightUp
MouseButton(CType(MouseEventFlag.RightUp, Integer), MEvent.X, MEvent.Y, 0, 0)
Case MouseEventType.MouseClick
MouseMove(MEvent.X, MEvent.Y)
MouseButton(CType(MouseEventFlag.LeftDown, Integer), MEvent.X, MEvent.Y, 0, 0)
MouseButton(CType(MouseEventFlag.LeftUp, Integer), MEvent.X, MEvent.Y, 0, 0)
Case MouseEventType.MouseDoubleClick
MouseMove(MEvent.X, MEvent.Y)
MouseButton(CType(MouseEventFlag.LeftDown, Integer), MEvent.X, MEvent.Y, 0, 0)
MouseButton(CType(MouseEventFlag.LeftDown, Integer), MEvent.X, MEvent.Y, 0, 0)
MouseButton(CType(MouseEventFlag.LeftUp, Integer), MEvent.X, MEvent.Y, 0, 0)
MouseButton(CType(MouseEventFlag.LeftUp, Integer), MEvent.X, MEvent.Y, 0, 0)
End Select
End Sub
Public Enum MouseEventFlag
Move = 1
LeftDown = 2
LeftUp = 4
RightDown = 8
RightUp = 16
MiddleDown = 32
MiddleUp = 64
XDown = 128
XUp = 256
Wheel = 2048
VirtualDesk = 16384
Absolute = 32768
End Enum
Public Delegate Sub DoMouseButtons(ByVal flags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal dwData As Integer, ByVal dwExtraInfo As Integer)
Public Delegate Function DoMouseMove(ByVal X As Integer, ByVal Y As Integer) As Boolean
End Class
End Namespace
功能描述：键盘控制（Hook键盘） 键盘钩子
相关事件 ：按下按键 释放按键
命名空间：Lob.Hooks
Imports System
Imports System.Runtime.InteropServices
Imports Lob.API
Namespace Lob.Hooks
Public Class KeyBoardHook
Private Const KEYEVENTF_KEYDOWN As Integer = 1
Private Const KEYEVENTF_KEYUP As Integer = 2
Public Shared Sub KeyDown(ByVal keyCode As System.Windows.Forms.Keys)
Api.keybd_event(CType(keyCode, Byte), 0, KEYEVENTF_KEYDOWN, 0)
End Sub
Public Shared Sub KeyUp(ByVal keyCode As System.Windows.Forms.Keys)
Api.keybd_event(CType(keyCode, Byte), 0, KEYEVENTF_KEYUP, 0)
End Sub
End Class
End Namespace
