vb鼠标左键代码（vb鼠标左键按下事件）

今天给各位分享vb鼠标左键代码的知识，其中也会对vb鼠标左键按下事件进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、VB中任意键代码怎么写
• 2、VB语言 “如果鼠标左键单击”的代码
• 3、VB实现自动单击鼠标左键的代码是什么?
• 4、VB常用键盘代码一览表
• 5、VB如何设置点击鼠标左键

VB中任意键代码怎么写

键码

常数 值 描述

vbKeyLButton 1 鼠标左键

vbKeyRButton 2 鼠标右键

vbKeyCancel 3 CANCEL 键

vbKeyMButton 4 鼠标中键

vbKeyBack 8 BACKSPACE 键

vbKeyTab 9 TAB 键

vbKeyClear 12 CLEAR 键

vbKeyReturn 13 ENTER 键

vbKeyShift 16 SHIFT 键

vbKeyControl 17 CTRL 键

vbKeyMenu 18 菜单键

vbKeyPause 19 PAUSE 键

vbKeyCapital 20 CAPS LOCK 键

vbKeyEscape 27 ESC 键

vbKeySpace 32 SPACEBAR 键

vbKeyPageUp 33 PAGEUP 键

vbKeyPageDown 34 PAGEDOWN 键

vbKeyEnd 35 END 键

vbKeyHome 36 HOME 键

vbKeyLeft 37 LEFT ARROW 键

vbKeyUp 38 UP ARROW 键

vbKeyRight 39 RIGHT ARROW 键

vbKeyDown 40 DOWN ARROW 键

vbKeySelect 41 SELECT 键

vbKeyPrint 42 PRINT SCREEN 键

vbKeyExecute 43 EXECUTE 键

vbKeySnapshot 44 SNAP SHOT 键

vbKeyInser 45 INS 键

vbKeyDelete 46 DEL 键

vbKeyHelp 47 HELP 键

vbKeyNumlock 144 NUM LOCK 键

================================

A 键到 Z 键与其 ASCII 码的相应值'A' 到 'Z' 是一致的

常数 值 描述

vbKeyA 65 A 键

vbKeyB 66 B 键

vbKeyC 67 C 键

vbKeyD 68 D 键

vbKeyE 69 E 键

vbKeyF 70 F 键

vbKeyG 71 G 键

vbKeyH 72 H 键

vbKeyI 73 I 键

vbKeyJ 74 J 键

vbKeyK 75 K 键

vbKeyL 76 L 键

vbKeyM 77 M 键

vbKeyN 78 N 键

vbKeyO 79 O 键

vbKeyP 80 P 键

vbKeyQ 81 Q 键

vbKeyR 82 R 键

vbKeyS 83 S 键

vbKeyT 84 T 键

vbKeyU 85 U 键

vbKeyV 86 V 键

vbKeyW 87 W 键

vbKeyX 88 X 键

vbKeyY 89 Y 键

vbKeyZ 90 Z 键

==============================================

0 键到 9 键与其 ASCII 码的相应值 '0' 到 '9' 是一致的

常数 值 描述

vbKey0 48 0 键

vbKey1 49 1 键

vbKey2 50 2 键

vbKey3 51 3 键

vbKey4 52 4 键

vbKey5 53 5 键

vbKey6 54 6 键

vbKey7 55 7 键

vbKey8 56 8 键

vbKey9 57 9 键

==============================================

数字小键盘上的键

常数 值 描述

vbKeyNumpad0 96 0 键

vbKeyNumpad1 97 1 键

vbKeyNumpad2 98 2 键

vbKeyNumpad3 99 3 键

vbKeyNumpad4 100 4 键

vbKeyNumpad5 101 5 键

vbKeyNumpad6 102 6 键

vbKeyNumpad7 103 7 键

vbKeyNumpad8 104 8 键

vbKeyNumpad9 105 9 键

vbKeyMultiply 106 乘号 (*) 键

vbKeyAdd 107 加号 (+) 键

vbKeySeparator 108 ENTER 键（在数字小键盘上）

vbKeySubtract 109 减号 (-) 键

vbKeyDecimal 110 小数点 (.) 键

vbKeyDivide 111 除号 (/) 键

==================================================

功能键

常数 值 描述

vbKeyF1 112 F1 键

vbKeyF2 113 F2 键

vbKeyF3 114 F3 键

vbKeyF4 115 F4 键

vbKeyF5 116 F5 键

vbKeyF6 117 F6 键

vbKeyF7 118 F7 键

vbKeyF8 119 F8 键

vbKeyF9 120 F9 键

vbKeyF10 121 F10 键

vbKeyF11 122 F11 键

vbKeyF12 123 F12 键

vbKeyF13 124 F13 键

vbKeyF14 125 F14 键

vbKeyF15 126 F15 键

vbKeyF16 127 F16 键

VB语言 “如果鼠标左键单击”的代码

首先按钮是有点击事件的，为什么要用if呢

private sub command2_click()

'你要出现的某某某是什么东西呢？

'如果是出现一个提示

msgbox "你点击了按钮"

'如果是要出现某个控件比如一个原来是不可见的文本框

text1.visalbe=true

'如果是要出现一个新的窗体form2

form2.show

'如果要关闭原来的窗体

me.hide

end sub

VB实现自动单击鼠标左键的代码是什么?

　1、首先我们要用FindWindow,知道游戏窗口的句柄，因为我们要通过它来得知游戏的运行后所在进程的ID，下面就是FindWindow的用法：

HWND FindWindow(

LPCTSTR lpClassName, // pointer to class name

LPCTSTR lpWindowName // pointer to window name

);

2、我们GetWindowThreadProcessId来得到游戏窗口相对应进程的进程ID，函数用法如下：

DWORD GetWindowThreadProcessId(

HWND hWnd, // handle of window

LPDWORD lpdwProcessId // address of variable for process identifier

);

3、得到游戏进程ID后，接下来的事是要以最高权限打开进程，所用到的函数OpenProcess的具体使用方法如下：

HANDLE OpenProcess(

DWORD dwDesiredAccess, // access flag

BOOL bInheritHandle, // handle inheritance flag

DWORD dwProcessId // process identifier

);

在dwDesiredAccess之处就是设存取方式的地方，它可设的权限很多，我们在这里使用只要使用PROCESS_ALL_ACCESS 来打开进程就可以，其他的方式我们可以查一下MSDN。

4、打开进程后，我们就可以用函数对存内进行操作，在这里我们只要用到WriteProcessMemory来对内存地址写入数据即可（其他的操作方式比如说：ReadProcessMemory等，我在这里就不一一介绍了），我们看一下WriteProcessMemory的用法：

BOOL WriteProcessMemory(

HANDLE hProcess, // handle to process whose memory is written to

LPVOID lpBaseAddress, // address to start writing to

LPVOID lpBuffer, // pointer to buffer to write data to

DWORD nSize, // number of bytes to write

LPDWORD lpNumberOfBytesWritten // actual number of bytes written

);

5、下面用CloseHandle关闭进程句柄就完成了。

这就是这类游戏外挂的程序实现部份的方法，好了，有了此方法，我们就有了理性的认识，我们看看实际例子，提升一下我们的感性认识吧，下面就是XX游戏的外挂代码，我们照上面的方法对应去研究一下吧：

const

ResourceOffset: dword = $004219F4;

resource: dword = 3113226621;

ResourceOffset1: dword = $004219F8;

resource1: dword = 1940000000;

ResourceOffset2: dword = $0043FA50;

resource2: dword = 1280185;

ResourceOffset3: dword = $0043FA54;

resource3: dword = 3163064576;

ResourceOffset4: dword = $0043FA58;

resource4: dword = 2298478592;

var

hw: HWND;

pid: dword;

h: THandle;

tt: Cardinal;

begin

hw := FindWindow('XX', nil);

if hw = 0 then

Exit;

GetWindowThreadProcessId(hw, @pid);

h := OpenProcess(PROCESS_ALL_ACCESS, false, pid);

if h = 0 then

Exit;

if flatcheckbox1.Checked=true then

begin

WriteProcessMemory(h, Pointer(ResourceOffset), @Resource, sizeof(Resource), tt);

WriteProcessMemory(h, Pointer(ResourceOffset1), @Resource1, sizeof(Resource1), tt);

end;

if flatcheckbox2.Checked=true then

begin

WriteProcessMemory(h, Pointer(ResourceOffset2), @Resource2, sizeof(Resource2), tt);

WriteProcessMemory(h, Pointer(ResourceOffset3), @Resource3, sizeof(Resource3), tt);

WriteProcessMemory(h, Pointer(ResourceOffset4), @Resource4, sizeof(Resource4), tt);

end;

MessageBeep(0);

CloseHandle(h);

close;

VB常用键盘代码一览表

Keycode 常数

可在代码中的任何地方用下列常数代替实际值：

常数 值 描述

vbKeyLButton 0x1 鼠标左键

vbKeyRButton 0x2 鼠标右键

vbKeyCancel 0x3 CANCEL 键

vbKeyMButton 0x4 鼠标中键

vbKeyBack 0x8 BACKSPACE 键

vbKeyTab 0x9 TAB 键

vbKeyClear 0xC CLEAR 键

vbKeyReturn 0xD ENTER 键

vbKeyShift 0x10 SHIFT 键

vbKeyControl 0x11 CTRL 键

vbKeyMenu 0x12 MENU 键

vbKeyPause 0x13 PAUSE 键

vbKeyCapital 0x14 CAPS LOCK 键

vbKeyEscape 0x1B ESC 键

vbKeySpace 0x20 SPACEBAR 键

vbKeyPageUp 0x21 PAGE UP 键

vbKeyPageDown 0x22 PAGE DOWN 键

vbKeyEnd 0x23 END 键

vbKeyHome 0x24 HOME 键

vbKeyLeft 0x25 LEFT ARROW 键

vbKeyUp 0x26 UP ARROW 键

vbKeyRight 0x27 RIGHT ARROW 键

vbKeyDown 0x28 DOWN ARROW 键

vbKeySelect 0x29 SELECT 键

vbKeyPrint 0x2A PRINT SCREEN 键

vbKeyExecute 0x2B EXECUTE 键

vbKeySnapshot 0x2C SNAPSHOT 键

vbKeyInsert 0x2D INSERT 键

vbKeyDelete 0x2E DELETE 键

vbKeyHelp 0x2F HELP 键

vbKeyNumlock 0x90 NUM LOCK 键

A 至 Z 键与 A – Z 字母的 ASCII 码相同：

常数 值 描述

vbKeyA 65 A 键

vbKeyB 66 B 键

vbKeyC 67 C 键

vbKeyD 68 D 键

vbKeyE 69 E 键

vbKeyF 70 F 键

vbKeyG 71 G 键

vbKeyH 72 H 键

vbKeyI 73 I 键

vbKeyJ 74 J 键

vbKeyK 75 K 键

vbKeyL 76 L 键

vbKeyM 77 M 键

vbKeyN 78 N 键

vbKeyO 79 O 键

vbKeyP 80 P 键

vbKeyQ 81 Q 键

vbKeyR 82 R 键

vbKeyS 83 S 键

vbKeyT 84 T 键

vbKeyU 85 U 键

vbKeyV 86 V 键

vbKeyW 87 W 键

vbKeyX 88 X 键

vbKeyY 89 Y 键

vbKeyZ 90 Z 键

0 至 9 键与数字 0 – 9 的 ASCII 码相同：

常数 值 描述

vbKey0 48 0 键

vbKey1 49 1 键

vbKey2 50 2 键

vbKey3 51 3 键

vbKey4 52 4 键

vbKey5 53 5 键

vbKey6 54 6 键

vbKey7 55 7 键

vbKey8 56 8 键

vbKey9 57 9 键

下列常数代表数字键盘上的键：

常数 值 描述

vbKeyNumpad0 0x60 0 键

vbKeyNumpad1 0x61 1 键

vbKeyNumpad2 0x62 2 键

vbKeyNumpad3 0x63 3 键

vbKeyNumpad4 0x64 4 键

vbKeyNumpad5 0x65 5 键

vbKeyNumpad6 0x66 6 键

vbKeyNumpad7 0x67 7 键

vbKeyNumpad8 0x68 8 键

vbKeyNumpad9 0x69 9 键

vbKeyMultiply 0x6A MULTIPLICATION SIGN (*) 键

vbKeyAdd 0x6B PLUS SIGN (+) 键

vbKeySeparator 0x6C ENTER 键

vbKeySubtract 0x6D MINUS SIGN (–) 键

vbKeyDecimal 0x6E DECIMAL POINT (.) 键

vbKeyDivide 0x6F DIVISION SIGN (/) 键

下列常数代表功能键：

常数 值 描述

vbKeyF1 0x70 F1 键

vbKeyF2 0x71 F2 键

vbKeyF3 0x72 F3 键

vbKeyF4 0x73 F4 键

vbKeyF5 0x74 F5 键

vbKeyF6 0x75 F6 键

vbKeyF7 0x76 F7 键

vbKeyF8 0x77 F8 键

vbKeyF9 0x78 F9 键

vbKeyF10 0x79 F10 键

vbKeyF11 0x7A F11 键

vbKeyF12 0x7B F12 键

vbKeyF13 0x7C F13 键

vbKeyF14 0x7D F14 键

vbKeyF15 0x7E F15 键

vbKeyF16 0x7F F16 键

VB如何设置点击鼠标左键

下面是模拟窗体的双击事件

Private 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)

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

Private Const MOUSEEVENTF_LEFTUP = H4 '模拟鼠标左键抬起

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Sub Form_dblClick()

MsgBox "双击"

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyA Then '按下A即是双击了窗体，即触发了form的dblclick事件，A为热键

mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

End If

If KeyCode = vbKeyQ Then ' 按下Q结束程序

End

End If

End Sub

Private Sub Timer1_Timer()

SetCursorPos (Me.Left + 1000) / Screen.TwipsPerPixelX, (Me.Top + 1000) / Screen.TwipsPerPixelY ' 设置鼠标的位置在窗体上

End Sub

关于vb鼠标左键代码和vb鼠标左键按下事件的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。