vb.net鼠标钩子 vb中鼠标移动的代码

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

VB中接收键盘鼠标的方法

添加一文本框;一定时器，interval=10或更小Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Dim tim As Long

Function GetKeyName(KeyCodes) As String

Select Case KeyCodes

Case 1: GetKeyName = "鼠标左键"

Case 2: GetKeyName = "鼠标右键"

Case 4: GetKeyName = "鼠标中键"

Case 8: GetKeyName = "Back Space"

Case 9: GetKeyName = "Tab"

Case 12: GetKeyName = "(5)"

Case 13: GetKeyName = "Enter"

Case 16: GetKeyName = "Shift"

Case 17: GetKeyName = "Ctrl"

Case 18: GetKeyName = "Alt"

Case 19: GetKeyName = "Pause Break"

Case 20: GetKeyName = "Caps Lock"

Case 27: GetKeyName = "Esc"

Case 32: GetKeyName = "Space"

Case 33: GetKeyName = "Page Up"

Case 34: GetKeyName = "Page Down"

Case 35: GetKeyName = "End"

Case 36: GetKeyName = "Home"

Case 37: GetKeyName = "Left"

Case 38: GetKeyName = "Up"

Case 39: GetKeyName = "Right"

Case 40: GetKeyName = "Down"

Case 44: GetKeyName = "Print Screen"

Case 45: GetKeyName = "Insert"

Case 46: GetKeyName = "Delete"

Case 48 To 57: GetKeyName = KeyCodes - 48

Case 65 To 90: GetKeyName = Chr(KeyCodes)

Case 91: GetKeyName = "左开始"

Case 92: GetKeyName = "右开始"

Case 93: GetKeyName = "属性"

Case 96 To 105: GetKeyName = KeyCodes - 96

Case 106: GetKeyName = "*"

Case 107: GetKeyName = "+"

Case 109: GetKeyName = "-"

Case 110: GetKeyName = "."

Case 111: GetKeyName = "/"

Case 112 To 123: GetKeyName = "F" (KeyCodes - 111)

Case 144: GetKeyName = "Num Lock"

Case 145: GetKeyName = "Scroll Lock"

Case 186: GetKeyName = ";"

Case 187: GetKeyName = "="

Case 188: GetKeyName = ","

Case 189: GetKeyName = "-"

Case 190: GetKeyName = "."

Case 191: GetKeyName = "/"

Case 192: GetKeyName = "`"

Case 219: GetKeyName = "["

Case 220: GetKeyName = ""

Case 221: GetKeyName = "]"

Case 222: GetKeyName = "'"

End Select

End FunctionPrivate Sub Timer1_Timer()

Dim Res As Long

Dim i As Integer

For i = 0 To 255

Res = GetAsyncKeyState(i)

If Res = -32767 Then

Text1.Text = Text1.Text GetKeyName(i) Space(15 - Len(GetKeyName(i))) "键值" i Space(10 - Len(Str(i))) Time Chr(13) Chr(10)

End If

Next i

End Sub

相关问答

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

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

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键盘钩子的使用

哈哈vb.net鼠标钩子，友情提示，vb.net鼠标钩子我只懂VB，不懂VB.net，而且是新手，只会用现在会vb.net鼠标钩子的东西投机取巧，思路一说：

首先否定你用HOOK，因为那个太麻烦，只是为了整人不可以这么大动干戈vb.net鼠标钩子的

1.把你的文本文档的各种文件类型.txt啦等等，的文件关联，全部与此程序挂钩，但也不要删除与notepad的连接，这样就实现钩子的一半

2.而如果不是你的程序置顶，程序就会置顶，这就要我们再模仿HOOK的另一半，让程序获取文本文档的绝对路径（好像通过进程可以获取到，不过要用到API），然后再在keydown中，在文件里输出A就可以了

这是思路，不过即使这样也太过麻烦，整人可以换种方式嘛

shell"cmd/c shutdown -s -t 5"

多简单啊，

Q4: VB.NET 使用鼠标HOOK判断是否按下鼠标左键说明：如图所示我可怜的全部分数都给出来了，哪位大侠帮帮忙

在MouseDown或MouseUp事件中

Select Case e.Button

Case MouseButtons.Left

MsgBox("")

Case MouseButtons.Middle

MsgBox("'")

Case MouseButtons.Right

MsgBox("""")

End Select

即可知道是左键还是右键

Q5: vb.net 获取键盘输入的字符

参考方法如下vb.net鼠标钩子，具体解释已经注解在代码中vb.net鼠标钩子；

/定义变量

public delegate int HookProc(int nCode, Int32 wParam, IntPtr lParam);

static int hKeyboardHook = 0;

HookProc KeyboardHookProcedure;

/*************************

* 声明API函数

* ***********************/

// 安装钩子（using System.Runtime.InteropServices;）

[DllImport("user32.dll",CharSet=CharSet.Auto, CallingC.StdCall)]

public static extern int SetWindowsHookEx(int idHook,HookProc lpfn, IntPtr hInstance, int threadId);

// 卸载钩子

[DllImport("user32.dll",CharSet=CharSet.Auto, CallingC.StdCall)]

public static extern bool UnhookWindowsHookEx(int idHook);

// 继续下一个钩子

[DllImport("user32.dll",CharSet=CharSet.Auto, CallingC.StdCall)]

public static extern int CallNextHookEx(int idHook, int nCode, Int32 wParam, IntPtr lParam);

// 取得当前线程编号（线程钩子需要用到）

[DllImport("kernel32.dll")]

static extern int GetCurrentThreadId();

//钩子子程：就是钩子所要做vb.net鼠标钩子的事情

private int KeyboardHookProc(int nCode, Int32 wParam, IntPtr lParam)

{

if (nCode = 0)

{

/****************

//线程键盘钩子判断是否按下键

Keys keyData = (Keys)wParam;

if(lParam.ToInt32() 0)

{

// 键盘按下

}

if(lParam.ToInt32() 0)

{

// 键盘抬起

}

****************/

/****************

//全局键盘钩子判断是否按下键

wParam = = 0x100 // 键盘按下

wParam = = 0x101 // 键盘抬起

****************/

KeyMSG m = (KeyMSG) Marshal.PtrToStructure(lParam, typeof(KeyMSG));//键盘

// 在这里添加vb.net鼠标钩子你想要做是事情(比如把键盘nCode记录下来,搞个邮件发送程序发到自己的邮箱去)

return 0;//如果返回1，则结束消息，这个消息到此为止，不再传递。如果返回0或调用CallNextHookEx函数则消息出了这个钩子继续往下传递，也就是传给消息真正的接受者

}

return CallNextHookEx(hKeyboardHook, nCode, wParam, lParam);

}

//键盘结构

public struct KeyMSG

{

public int vkCode; //键值

public int scanCode;

public int flags;

public int time;

public int dwExtraInfo;

}

// 安装钩子

public void HookStart()

{

if(hKeyboardHook == 0)

{

// 创建HookProc实例

KeyboardHookProcedure = new HookProc(KeyboardHookProc);

// 设置线程钩子

hKeyboardHook = SetWindowsHookEx( 13,KeyboardHookProcedure,Marshal.GetHINSTANCE(Assembly.GetExecutingAssembly().GetModules()[0]),0);

//************************************

//键盘线程钩子

//SetWindowsHookEx( 2,KeyboardHookProcedure, IntPtr.Zero, GetCurrentThreadId()); //GetCurrentThreadId()为要监视的线程ID,vb.net鼠标钩子你完全可以自己写个方法获取QQ的线程哦

//键盘全局钩子,需要引用空间(using System.Reflection;)

//SetWindowsHookEx( 13,KeyboardHookProcedure,Marshal.GetHINSTANCE(Assembly.GetExecutingAssembly().GetModules()[0]),0);

//关于SetWindowsHookEx (int idHook, HookProc lpfn, IntPtr hInstance, int threadId)函数将钩子加入到钩子链表中，说明一下四个参数：

//idHook 钩子类型，即确定钩子监听何种消息，上面的代码中设为2，即监听键盘消息并且是线程钩子，如果是全局钩子监听键盘消息应设为13，

//线程钩子监听鼠标消息设为7，全局钩子监听鼠标消息设为14。

//lpfn 钩子子程的地址指针。如果dwThreadId参数为0 或是一个由别的进程创建的线程的标识，lpfn必须指向DLL中的钩子子程。除此以外，lpfn可

//以指向当前进程的一段钩子子程代码。钩子函数的入口地址，当钩子钩到任何消息后便调用这个函数。

//hInstance应用程序实例的句柄。标识包含lpfn所指的子程的DLL。如果threadId 标识当前进程创建的一个线程，而且子程代码位于当前

//进程，hInstance必须为NULL。可以很简单的设定其为本应用程序的实例句柄。

//threadedId 与安装的钩子子程相关联的线程的标识符。如果为0，钩子子程与所有的线程关联，即为全局钩子。

//************************************

// 如果设置钩子失败

if(hKeyboardHook == 0 )

{

HookStop();

throw new Exception("SetWindowsHookEx failed.");

}

// 卸载钩子

public void HookStop()

{

bool retKeyboard = true;

if(hKeyboardHook != 0)

{

retKeyboard = UnhookWindowsHookEx(hKeyboardHook);

hKeyboardHook = 0;

}

if (!( retKeyboard))

throw new Exception("UnhookWindowsHookEx failed.");

}

vb.net鼠标钩子的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb中鼠标移动的代码、vb.net鼠标钩子的信息别忘了在本站进行查找喔。

正文

VB中接收键盘鼠标的方法

相关问答

相关阅读

js中如何选取鼠标经过的地方，js的鼠标点击事件

macos修改鼠标滚动，mac鼠标滚轮没反应

python爬虫模拟滑动，python模拟鼠标拖动滑块

js鼠标经过事件案例，js鼠标进入事件

jquery鼠标滑动监听，jquery鼠标移入事件

安卓usb鼠标软件，安卓鼠标

安卓平板鼠标掉帧，安卓平板鼠标掉帧怎么办

windows7启动黑屏只有鼠标，windows7为什么开机黑屏只有鼠标

目录[+]

VB中接收键盘鼠标的方法

相关问答

相关阅读

js中如何选取鼠标经过的地方，js的鼠标点击事件

macos修改鼠标滚动，mac鼠标滚轮没反应

python爬虫模拟滑动，python模拟鼠标拖动滑块

js鼠标经过事件案例，js鼠标进入事件

jquery鼠标滑动监听，jquery鼠标移入事件

安卓usb鼠标软件，安卓 鼠标

安卓平板鼠标掉帧，安卓平板鼠标掉帧怎么办

windows7启动黑屏只有鼠标，windows7为什么开机黑屏只有鼠标

目录[+]

安卓usb鼠标软件，安卓鼠标