vb.net鼠标键盘 vbs模拟鼠标键盘

vb.net屏蔽鼠标和键盘的问题

VB.net可以调用DLL吗?如果可以vb.net鼠标键盘的话,vb.net鼠标键盘你用VB6.0编写一个DLL给VB.NET调用就行vb.net鼠标键盘了

相关问答

Q1: 用VB.NET模拟鼠标和键盘动作？不用API模拟，用API的我会！ 用.NET框架的类库怎么模拟呢？

.net框架就是对API就行封装，做成一个个的类然后可以让你轻松调用，但是。net封装的内容，是常用的内容，有些东西用的时候，还是需要调用API函数，自己写，毕竟，微软不知道你要用什么函数，所以尽可能的满足用户大众口味而已。如果你需要用的比较复杂，还是调用API自己写类吧。

希望我的回答对您有所帮助

Q2: 如何在VB.net中用程序控制鼠标移动和点击

调用api

在Visual Baisc.net中的声明：

Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Public Const MOUSEEVENTF_LEFTDOWN = H2 '模拟鼠标左键按下

Public Const MOUSEEVENTF_LEFTUP = H4 ’模拟鼠标左键释放

Public Const MOUSEEVENTF_MIDDLEDOWN = H20 '模拟鼠标中间键按下

Public Const MOUSEEVENTF_MIDDLEUP = H40 '模拟鼠标中间键释放

Public Const MOUSEEVENTF_RIGHTDOWN = H8 '模拟鼠标右键按下

Public Const MOUSEEVENTF_RIGHTUP = H10 '模拟鼠标右键释放

Public Const MOUSEEVENTF_MOVE = H1 '模拟鼠标指针移动

例：

mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0

'在（10，10）模拟鼠标左键按下

Q3: vb.net中如何禁用键盘和鼠标

很简单，你怎么不先问我，还在这提问。用api函数，钩子，设置成全局钩子，然后对钩取来的message消息不做处理，也不返回，这样屏蔽了键盘了。钩子函数api好像是什么hook的那个，还有钩子函数的返回函数，以整个自定义函数的指针作参数

Q4: VB.net 我的程序只有一个窗体，窗体很小，怎么才能检测到鼠标在窗体以外的范围移动，还有键盘输入

用API GetCursorPos  

用Timer隔一段时间获取一次鼠标位置。

键盘输入，用 GetKeyboardState

加点分的话就给你完整的代码

Public Class NativeMethods

        '获取鼠标位置

Declare Function GetCursorPos Lib "user32.dll" _

(ByRef lpPoint As System.Drawing.Point) as boolean

Private Shared keyState() As Byte

DllImport("user32.dll") _

    Private Shared Function GetKeyboardState(ByVal keyState() As Byte) As Boolean

    End Function

 

    Private Shared Sub Update()

    keyState = New Byte(256) {}

    Dim result As Boolean = GetKeyboardState(keyState)

    ' Check for error:

    If result = False Then

        Debug.WriteLine("GetKeyBoardState error: "  Marshal.GetLastWin32Error)

        Throw New Exception("GetKeyBoardState error: "  Marshal.GetLastWin32Error)

    End If

    End Sub

 

    Public Enum LightState

    Off

    [On]

    End Enum

 

    ' Example - the keyboard lights...

 

    Public Shared ReadOnly Property CapsLockState() As LightState

    Get

        Update()

        Dim isOn As Boolean = (keyState(Keys.CapsLock) = 1)

        Return IIf(isOn, LightState.On, LightState.Off)

    End Get

    End Property

 

    Public Shared ReadOnly Property NumLockState() As LightState

    Get

        Update()

        Dim isOn As Boolean = (keyState(Keys.NumLock) = 1)

        Return IIf(isOn, LightState.On, LightState.Off)

    End Get

    End Property

 

    Public Shared ReadOnly Property ScrollLockState() As LightState

    Get

        Update()

        Dim isOn As Boolean = (keyState(Keys.Scroll) = 1)

        Return IIf(isOn, LightState.On, LightState.Off)

    End Get

    End Property

 

End Class

pinvoke.net: GetCursorPos (user32)

pinvoke.net: GetKeyboardState (user32)

vb.net鼠标键盘的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs模拟鼠标键盘、vb.net鼠标键盘的信息别忘了在本站进行查找喔。