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

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

专注于为中小企业提供成都网站设计、成都网站制作服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业镇宁免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了数千家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。

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屏蔽鼠标和键盘的问题

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

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

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

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

本文名称：vb.net鼠标键盘 vbs鼠标
网页路径：http://njwzjz.com/article/dohgehe.html