您现在的位置是:首页 > 编程 > 

VS2010旗舰版的VB.ET版本的里的keybd_eventa键盘按键参数和代码ZQ

2025-07-15 22:21:23
vbKeyLButton0x1鼠标左键vbKeyRButton0x2鼠标右键vbKeyCancel0xCACEL键vbKeyMButton0x4鼠标中键vbKeyBack0x8退格键vbKeyTab0x9TAB键vbKeyClear0xCCLEAR健vbKeyReturn0xD回车键vbKey…展开  我来答

vbKeyLButton0x1鼠标左键vbKeyRButton0x2鼠标右键vbKeyCancel0xCACEL键vbKeyMButton0x4鼠标中键vbKeyBack0x8退格键vbKeyTab0x9TAB键vbKeyClear0xCCLEAR健vbKeyReturn0xD回车键vbKey…展开
 我来答 分享 举报
1个回答
wangaochao1980
推荐于2016-04-16 · TA获得超过449个赞

Keycode 常数
可在代码中的任何地方用下列常数代替实际值:
常数 值 描述
vbKeyLButton 0x1 鼠标左键
vbKeyRButton 0x2 鼠标右键
vbKeyCancel 0x CACEL 键
vbKeyMButton 0x4 鼠标中键
vbKeyBack 0x8 BACKSPACE 键
vbKeyTab 0x9 TAB 键
vbKeyClear 0xC CLEAR 键
vbKeyReturn 0xD ETER 键
vbKeyShift 0x10 SHIFT 键
vbKeyControl 0x11 CTRL 键
vbKeyMenu 0x12 MEU 键
vbKeyPause 0x1 PAUSE 键
vbKeyCapital 0x14 CAPS LOCK 键
vbKeyEscape 0x1B ESC 键
vbKeySpace 0x20 SPACEBAR 键
vbKeyPageUp 0x21 PAGE UP 键
vbKeyPageDown 0x22 PAGE DOW 键
vbKeyEnd 0x2 ED 键
vbKeyHome 0x24 HOME 键
vbKeyLeft 0x25 LEFT ARROW 键
vbKeyUp 0x26 UP ARROW 键
vbKeyRight 0x27 RIGHT ARROW 键
vbKeyDown 0x28 DOW ARROW 键
vbKeySelect 0x29 SELECT 键
vbKeyPrint 0x2A PRIT SCREE 键
vbKeyExecute 0x2B EXECUTE 键
vbKeySnapshot 0x2C SAPSHOT 键
vbKeyInsert 0x2D ISERT 键
vbKeyDelete 0x2E DELETE 键
vbKeyHelp 0x2F HELP 键
vbKeyumlock 0x90 UM 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 7 I 键
vbKeyJ 74 J 键
vbKeyK 75 K 键
vbKeyL 76 L 键
vbKeyM 77 M 键
vbKey 78 键
vbKeyO 79 O 键
vbKeyP 80 P 键
vbKeyQ 81 Q 键
vbKeyR 82 R 键
vbKeyS 8 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 键
vbKey 51 键
vbKey4 52 4 键
vbKey5 5 5 键
vbKey6 54 6 键
vbKey7 55 7 键
vbKey8 56 8 键
vbKey9 57 9 键
下列常数代表数字键盘上的键:
常数 值 描述
vbKeyumpad0 0x60 0 键
vbKeyumpad1 0x61 1 键
vbKeyumpad2 0x62 2 键
vbKeyumpad 0x6 键
vbKeyumpad4 0x64 4 键
vbKeyumpad5 0x65 5 键
vbKeyumpad6 0x66 6 键
vbKeyumpad7 0x67 7 键
vbKeyumpad8 0x68 8 键
vbKeyumpad9 0x69 9 键
vbKeyMultiply 0x6A MULTIPLICATIO SIG (*) 键
vbKeyAdd 0x6B PLUS SIG () 键
vbKeySeparator 0x6C ETER 键
vbKeySubtract 0x6D MIUS SIG (–) 键
vbKeyDecimal 0x6E DECIMAL POIT (.) 键
vbKeyDivide 0x6F DIVISIO SIG (/) 键
下列常数代表功能键:
常数 值 描述
vbKeyF1 0x70 F1 键
vbKeyF2 0x71 F2 键
vbKeyF 0x72 F 键
vbKeyF4 0x7 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 键
vbKeyF1 0x7C F1 键
vbKeyF14 0x7D F14 键
vbKeyF15 0x7E F15 键
vbKeyF16 0x7F F16 键
本回答被提问者采纳

VB全局热键(快捷键)

VisualBasic编程源码

窗体代码:
Private Declare Function GetActiveWindow Lib “user2” () As Long
Private Declare Function GetAsyncKeyState Lib “user2” (ByVal vKey As Long) As Integer

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
如果窗体失去焦点,热键无效
If GetActiveWindow <> Me.hwnd Then Exit Sub
Esc退出程序
If GetAsyncKeyState(vbKeyEscape) Then KeyCode = 0: End
F12最大化窗口
If GetAsyncKeyState(vbKeyF12) Then KeyCode = 0: Me.WindowState = 2
F1窗口最小化
If GetAsyncKeyState(vbKeyF1) Then KeyCode = 0: Me.WindowState = 1
End Sub
-------------------------------------------------------------------------------------------------------------------------
相应的VB键码
常数------------------------------值-------------描述
vbKeyLButton-----------------[1]-------------鼠标左键
vbKeyRButton-----------------[2]-------------鼠标右键
vbKeyCancel-------------------[]-------------CACEL 键
vbKeyMButton-----------------[4]-------------鼠标中键
vbKeyBack---------------------[8]--------------BACKSPACE 键
vbKeyTab-----------------------[9]--------------TAB 键
vbKeyClear--------------------[12]-------------CLEAR 键
vbKeyReturn------------------[1]-------------ETER 键
vbKeyShift---------------------[16]-------------SHIFT 键
vbKeyControl-----------------[17]-------------CTRL 键
vbKeyMenu-------------------[18]-------------Alt 菜单键
vbKeyPause------------------[19]-------------PAUSE 键
vbKeyCapital-----------------[20]-------------CAPS LOCK 键
vbKeyEscape-----------------[27]-------------ESC 键
vbKeySpace------------------[2]-------------SPACEBAR 键
vbKeyPageUp----------------[]-------------PAGEUP 键
vbKeyPageDown------------[4]-------------PAGEDOW 键
vbKeyEnd---------------------[5]-------------ED 键
vbKeyHome------------------[6]-------------HOME 键
vbKeyLeft---------------------[7]-------------LEFT ARROW 键
vbKeyUp----------------------[8]-------------UP ARROW 键
vbKeyRight-------------------[9]-------------RIGHT ARROW 键
vbKeyDown------------------[40]-------------DOW ARROW 键
vbKeySelect-----------------[41]-------------SELECT 键
vbKeyPrint-------------------[42]-------------PRIT SCREE 键
vbKeyExecute--------------[4]--------------EXECUTE 键
vbKeySnapshot------------[44]--------------SAP SHOT 键
vbKeyInser------------------[45]--------------IS 键
vbKeyDelete----------------[46]--------------DEL 键
vbKeyHelp------------------[47]---------------HELP 键
vbKeyumlock------------[144]-------------UM 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-----------------------[7]---------------------I 键
vbKeyJ----------------------[74]---------------------J 键
vbKeyK----------------------[75]---------------------K 键
vbKeyL----------------------[76]---------------------L 键
vbKeyM---------------------[77]---------------------M 键
vbKey---------------------[78]--------------------- 键
vbKeyO---------------------[79]---------------------O 键
vbKeyP---------------------[80]---------------------P 键
vbKeyQ---------------------[81]---------------------Q 键
vbKeyR---------------------[82]---------------------R 键
vbKeyS---------------------[8]---------------------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 键
vbKey-------------[51]----- 键
vbKey4-------------[52]-----4 键
vbKey5-------------[5]-----5 键
vbKey6-------------[54]-----6 键
vbKey7-------------[55]-----7 键
vbKey8-------------[56]-----8 键
vbKey9-------------[57]-----9 键

数字小键盘上的键
常数------------------------值------------描述
vbKeyumpad0--------[96]----------0 键
vbKeyumpad1--------[97]----------1 键
vbKeyumpad2--------[98]----------2 键
vbKeyumpad--------[99]---------- 键
vbKeyumpad4--------[100]--------4 键
vbKeyumpad5--------[101]--------5 键
vbKeyumpad6--------[102]--------6 键
vbKeyumpad7--------[10]--------7 键
vbKeyumpad8--------[104]--------8 键
vbKeyumpad9--------[105]--------9 键
vbKeyMultiply-----------[106]-------乘号 (*) 键
vbKeyAdd----------------[107]-------加号 () 键
vbKeySeparator--------[108]-------ETER 键(在数字小键盘上)
vbKeySubtract----------[109]-------减号 (-) 键
vbKeyDecimal----------[110]-------小数点 (.) 键
vbKeyDivide------------[111]--------除号 (/) 键

功能键
常数---------------值--------------描述
vbKeyF1--------[112]------------F1 键
vbKeyF2--------[11]------------F2 键
vbKeyF--------[114]------------F 键
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------[12]------------F12 键
vbKeyF1------[124]------------F1 键
vbKeyF14------[125]------------F14 键
vbKeyF15------[126]------------F15 键
vbKeyF16------[127]------------F16 键

a是tab切换焦点和切换控件,

b是enter换行或进入或确定,
c是 空格,
d是Esc是取消或停止或关闭,
e是CTRLA即^A是全选,
f是CTRLC即^C是复制,
g是CTRLV即^V是粘贴,

h是Alttab即%{tab}是切换窗口,
Alttab即%{tab}是切换上一个窗口,

i是alt空格是最小化窗口,
j是alt空格X是最大化窗口,
k是F1是显示帮助,
l是F2是重命名文件,
m是F是查或搜索,
n是F4是另存为或“地址”栏列表,
o是F5是刷新,
p是F6是在窗口或桌面上循环切换子菜单,
q是F7是DoS下专用功能,
r是F8是Windows 启动选项,
s是F9是Excel 中计算公式,
t是F10是激活菜单栏,
u是F11是切换全屏,
v是F12是Word 里另存文档,
w是BackSpace是删除左侧一个字符或返回上一页,
x是Home是移至行首,
y是End是移至行尾,
z是win是打开开始菜单,
A是DELETE是删除右侧一个字符,
B是CTRLX即^X是剪切,
C是CTRLD即^D是删除,
D是CTRL即^是新建,
E是CTRLO即^O是打开,
F是CTRL空格是中英文输入切换
G是winD是显示桌面,
H是winE是打开资源管理器,
I是winM是最小化所有窗口,
J是winR是运行,

wini是设置.

K是Shifttab是在选项之间向后移动,
L是Ctrl  Tab是切换到下一选项卡,
M是CTRLShift即CTRLShift是输入法切换,
是ALTF4是关闭当前文件或者关闭计算机,
O是ALTEnter是打开文件属性,
P是CTRLEsc即^{Esc}是开始菜单,
Q是CTRLALTDELETE是打开任务管理器,
R是SHIFTDELETE是永久删除所选项,
S是CTRLS即^S是保存文档,
T是SHIFTF10是选中文件的右菜单或显示所选项的快捷菜单,
U是CTRLF4即^{F4}是关闭当前窗口,
V是ALT空格键是显示程序控制菜单,
W是CtrlW是关闭文档,
X是CTRLZ即^Z是撤销,
Y是CTRLY即^Y是恢复,
Z是CTRLF11即^{F11}是隐藏或显示菜单栏。

Declare Sub keybd_event Lib “user2” Alias “keybd_event” (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)

Public Ct KEYEVETF_KEYUP As Integer = &H2
Public Ct VK_COTROL As Byte = &H11
Public Ct VK_A As Byte = &H41
Public Ct VK_DELETE As Byte = &H2E
Public Ct VK_V As Byte = &H56

Imports System.IO
Imports System.Runtime.InteropServices

Public Class Form1

Declare Sub keybd_event Lib “user2” Alias “keybd_event” (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)

Public Ct KEYEVETF_KEYUP As Integer = &H2
Public Ct VK_COTROL As Byte = &H11
Public Ct VK_A As Byte = &H41
Public Ct VK_DELETE As Byte = &H2E
Public Ct VK_V As Byte = &H56






Private filePath As String 	 文本文件路径
Private lines As List(Of String) 	 读取的文本文件内容
Private currentIndex As Integer 	 当前选定的行数



Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

    	 设置文本文件路径
    filePath = C:\Users\Administrator\Desktop\按键密码恢复程序源代码ZQ202-11-16-11-21\

End Sub


Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click


    Dim a

   

    	使用ALTTAB进行窗口切换
    Call keybd_event(18, 0, 0, 0) 	模拟按下 	vbKeyCapital=18
    	 按下Tab切换控件
    Call keybd_event(9, 0, 0, 0) 	模拟按下 	vbKeyCapital=9
    Call keybd_event(9, 0, &H2, 0) 	模拟弹起键
    Call keybd_event(18, 0, &H2, 0) 	模拟弹起键

    	等待一段时间,确保程序已经成功打开
    Threading.Thread.Sleep(500)



    	 按下Tab切换控件
    Call keybd_event(9, 0, 0, 0) 	模拟按下 	vbKeyCapital=9
    Call keybd_event(9, 0, &H2, 0) 	模拟弹起键

    	 按下Tab切换控件
    Call keybd_event(9, 0, 0, 0) 	模拟按下 	vbKeyCapital=9
    Call keybd_event(9, 0, &H2, 0) 	模拟弹起键
    	等待一段时间,确保程序已经成功打开
    Threading.Thread.Sleep(500)




    Button4.PerformClick() 	复制按钮



    	按下CtrlV粘贴
    Call keybd_event(17, 0, 0, 0) 	模拟按下 	ctrl
    Call keybd_event(86, 0, 0, 0) 	模拟按下 	ctrl
    Call keybd_event(86, 0, &H2, 0) 	模拟弹起键
    Call keybd_event(17, 0, &H2, 0) 	模拟弹起键
    	等待一段时间,确保程序已经成功打开
    Threading.Thread.Sleep(500)




    	 按下Tab切换控件
    Call keybd_event(9, 0, 0, 0) 	模拟按下 	vbKeyCapital=9
    Call keybd_event(9, 0, &H2, 0) 	模拟弹起键
    	等待一段时间,确保程序已经成功打开
    Threading.Thread.Sleep(500)




    Call keybd_event(1, 0, 0, 0) 	模拟按下 	vbKeyCapital=1
    Call keybd_event(1, 0, &H2, 0) 	模拟弹起键
    	等待一段时间,确保程序已经成功打开
    Threading.Thread.Sleep(500)


    Call keybd_event(1, 0, 0, 0) 	模拟按下 	vbKeyCapital=1
    Call keybd_event(1, 0, &H2, 0) 	模拟弹起键
    	等待一段时间,确保程序已经成功打开
    Threading.Thread.Sleep(500)


    For a = 0 To 4


        	 按下Tab切换控件
        Call keybd_event(9, 0, 0, 0) 	模拟按下 	vbKeyCapital=9
        Call keybd_event(9, 0, &H2, 0) 	模拟弹起键

        	 按下Tab切换控件
        Call keybd_event(9, 0, 0, 0) 	模拟按下 	vbKeyCapital=9
        Call keybd_event(9, 0, &H2, 0) 	模拟弹起键
        	等待一段时间,确保程序已经成功打开
        Threading.Thread.Sleep(500)



        Button4.PerformClick() 	复制按钮





        	 按下BACKSPACE 键5次
        Call keybd_event(8, 0, 0, 0) 	模拟按下 	vbKeyCapital=8
        Call keybd_event(8, 0, &H2, 0) 	模拟弹起键

        Call keybd_event(8, 0, 0, 0) 	模拟按下 	vbKeyCapital=8
        Call keybd_event(8, 0, &H2, 0) 	模拟弹起键

        Call keybd_event(8, 0, 0, 0) 	模拟按下 	vbKeyCapital=8
        Call keybd_event(8, 0, &H2, 0) 	模拟弹起键

        Call keybd_event(8, 0, 0, 0) 	模拟按下 	vbKeyCapital=8
        Call keybd_event(8, 0, &H2, 0) 	模拟弹起键

        Call keybd_event(8, 0, 0, 0) 	模拟按下 	vbKeyCapital=8
        Call keybd_event(8, 0, &H2, 0) 	模拟弹起键

        	等待一段时间,确保程序已经成功打开
        Threading.Thread.Sleep(500)



        	按下CtrlV粘贴
        Call keybd_event(17, 0, 0, 0) 	模拟按下 	ctrl
        Call keybd_event(86, 0, 0, 0) 	模拟按下 	V
        Call keybd_event(86, 0, &H2, 0) 	模拟弹起键
        Call keybd_event(17, 0, &H2, 0) 	模拟弹起键
        	等待一段时间,确保程序已经成功打开
        Threading.Thread.Sleep(500)




        	 按下Tab切换控件
        Call keybd_event(9, 0, 0, 0) 	模拟按下 	vbKeyCapital=9
        Call keybd_event(9, 0, &H2, 0) 	模拟弹起键
        	等待一段时间,确保程序已经成功打开
        Threading.Thread.Sleep(500)



        Call keybd_event(1, 0, 0, 0) 	模拟按下 	vbKeyCapital=1
        Call keybd_event(1, 0, &H2, 0) 	模拟弹起键
        	等待一段时间,确保程序已经成功打开
        Threading.Thread.Sleep(500)


        Call keybd_event(1, 0, 0, 0) 	模拟按下 	vbKeyCapital=1
        Call keybd_event(1, 0, &H2, 0) 	模拟弹起键
        	等待一段时间,确保程序已经成功打开
        Threading.Thread.Sleep(500)

    ext
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    	 如果是第一次点击按钮,读取文本文件内容并初始化 currentIndex 为 0
    If currentIndex = 0 Then
        	 读取文本文件内容
        lines = ReadLinesFromFile(filePath)

        currentIndex = 1
    End If

    	 检查 lines 列表是否为空
    If lines Isot othing AndAlso lines.Count > 0 Then
        	 将 lines(currentIndexa - 1) 对应的一行内容复制到剪贴板,并选定该行
        Clipboard.SetText(lines(currentIndex - 1))

        	 将 currentIndex 加 1,如果越界则重置为 1
        currentIndex = 1
        If currentIndex > lines.Count Then
            currentIndex = 1
        End If
    End If
End Sub

Private Function ReadLinesFromFile(ByVal filePath As String) As List(Of String)
    Dim lines As ew List(Of String)

    Using reader As ew StreamReader(filePath)
        While ot reader.EndOfStream
            	 读取一行内容并删除换行符
            Dim line As String = reader.ReadLine().Replace(vbCrLf, )
            lines.Add(line)
        End While
    End Using

    Return lines
End Function

Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button.Click
    Dim strings() As String = {0, a, b, 5, 红, 绿} 	 定义字符串数组,可根据实际情况修改数组内容

    Using writer As StreamWriter = ew StreamWriter()
        For i As Integer = 0 To strings.Length - 1 	 循环遍历字符串数组的每个元素
            For j As Integer = 0 To strings.Length - 1 	 循环遍历字符串数组的每个元素
                writer.WriteLine(strings(i) & strings(j)) 	 将排列结果写入到文本文件中
            ext
        ext
    End Using

    MessageBox.Show(排列组合结果已输出到文件。)
End Sub

End Class

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

’ 按下Tab切换控件
Call keybd_event(9, 0, 0, 0) 模拟按下 vbKeyCapital=9
Call keybd_event(9, 0, &H2, 0) 模拟弹起键
等待一段时间,确保程序已经成功打开
Threading.Thread.Sleep(500)

’ 按下BACKSPACE 键
Call keybd_event(8, 0, 0, 0) 模拟按下 vbKeyCapital=8
Call keybd_event(8, 0, &H2, 0) 模拟弹起键
等待一段时间,确保程序已经成功打开
Threading.Thread.Sleep(500)

’ 按下BACKSPACE 键5次
Call keybd_event(8, 0, 0, 0) 模拟按下 vbKeyCapital=8
Call keybd_event(8, 0, &H2, 0) 模拟弹起键

    Call keybd_event(8, 0, 0, 0) 	模拟按下 	vbKeyCapital=8
    Call keybd_event(8, 0, &H2, 0) 	模拟弹起键

    Call keybd_event(8, 0, 0, 0) 	模拟按下 	vbKeyCapital=8
    Call keybd_event(8, 0, &H2, 0) 	模拟弹起键

    Call keybd_event(8, 0, 0, 0) 	模拟按下 	vbKeyCapital=8
    Call keybd_event(8, 0, &H2, 0) 	模拟弹起键

    Call keybd_event(8, 0, 0, 0) 	模拟按下 	vbKeyCapital=8
    Call keybd_event(8, 0, &H2, 0) 	模拟弹起键

            	等待一段时间,确保程序已经成功打开
    Threading.Thread.Sleep(500)

’ 按下CtrlC复制
Call keybd_event(17, 0, 0, 0) 模拟按下 ctrl
Call keybd_event(67, 0, 0, 0) 模拟按下 ctrl
Call keybd_event(67, 0, &H2, 0) 模拟弹起键
Call keybd_event(17, 0, &H2, 0) 模拟弹起键
等待一段时间,确保程序已经成功打开
Threading.Thread.Sleep(500)

按下CtrlV粘贴
Call keybd_event(17, 0, 0, 0) 模拟按下 ctrl
Call keybd_event(86, 0, 0, 0) 模拟按下 ctrl
Call keybd_event(86, 0, &H2, 0) 模拟弹起键
Call keybd_event(17, 0, &H2, 0) 模拟弹起键
等待一段时间,确保程序已经成功打开
Threading.Thread.Sleep(500)

    Call keybd_event(16, 0, 0, 0) 	模拟按下 	vbKeyCapital=16
    Call keybd_event(16, 0, &H2, 0) 	模拟弹起键
            	等待一段时间,确保程序已经成功打开
    Threading.Thread.Sleep(500)



    Call keybd_event(1, 0, 0, 0) 	模拟按下 	vbKeyCapital=1
    Call keybd_event(1, 0, &H2, 0) 	模拟弹起键
            	等待一段时间,确保程序已经成功打开
    Threading.Thread.Sleep(500)


End Sub

End Class

#感谢您对电脑配置推荐网 - 最新i3 i5 i7组装电脑配置单推荐报价格的认可,转载请说明来源于"电脑配置推荐网 - 最新i3 i5 i7组装电脑配置单推荐报价格

本文地址:http://www.dnpztj.cn/biancheng/1100855.html

相关标签:无
上传时间: 2025-07-15 14:37:02
留言与评论(共有 18 条评论)
本站网友 链接查询
24分钟前 发表
0
本站网友 爱必妥
29分钟前 发表
0) 模拟弹起键 Call keybd_event(8
本站网友 20分钟的叫床录音
10分钟前 发表
0) 模拟弹起键 等待一段时间,确保程序已经成功打开 Threading.Thread.Sleep(500) 按下Tab切换控件 Call keybd_event(9
本站网友 北京婚庆公司排行榜
15分钟前 发表
0
本站网友 郑州娱乐网
12分钟前 发表
&H2
本站网友 旅游文化
15分钟前 发表
&H2
本站网友 儿童预防接种证
7分钟前 发表
红
本站网友 青年年龄范围
6分钟前 发表
0
本站网友 点与线
26分钟前 发表
0) 模拟按下 vbKeyCapital=8 Call keybd_event(8
本站网友 敞口费
3分钟前 发表
0
本站网友 数字小区
12分钟前 发表
0
本站网友 总是梦见前女友
1分钟前 发表
0
本站网友 邯郸买房
1分钟前 发表
0
本站网友 红糖姜茶的作用
13分钟前 发表
0
本站网友 女性标准三围
4分钟前 发表
0
本站网友 中国男子冰壶
17分钟前 发表
0
本站网友 集团管理
25分钟前 发表
&H2