锐客网

  1. 首页 > 睿知 > it技术 > >

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

IT技术鼠标

vb.net屏蔽鼠标和键盘的问题VB.net可以调用DLL吗?如果可以vb.net鼠标键盘的话,vb.net鼠标键盘你用VB6.0编写一个DLL给VB.NET调用就行vb.net鼠标键盘了
用VB.NET模拟鼠标和键盘动作？不用API模拟，用API的我会！ 用.NET框架的类库怎么模拟呢？.net框架就是对API就行封装 ， 做成一个个的类然后可以让你轻松调用 ， 但是 。net封装的内容，是常用的内容，有些东西用的时候 ， 还是需要调用API函数 ， 自己写，毕竟，微软不知道你要用什么函数，所以尽可能的满足用户大众口味而已 。如果你需要用的比较复杂，还是调用API自己写类吧 。
希望我的回答对您有所帮助
如何在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）模拟鼠标左键按下
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鼠标键盘 vbs模拟鼠标键盘】vb.net鼠标键盘的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs模拟鼠标键盘、vb.net鼠标键盘的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：使用qanp如何构建服务器？ 怎么用qanp搭建服务器

    下一篇：如何正确设置LV服务器？ lv服务器怎么设置