数字执行机器人待修正版源代码.zip

用VB自带的SENDKEY不好操作 直接用API最快,还可以控制按钮是按下状态还是放开状态 Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) '这个可以按下键盘上的第二个灯,要什么功能自己加吧 Private Sub Command1_Click() Call keybd_event(vbKeyCapital, 0, 0, 0) '模拟按下 'vbKeyCapital=20 Call keybd_event(20, 0, &H2, 0) '模拟弹起键 End Sub 键盘键与虚拟键码对照表 字母和数字键 数字小键盘的键 功能键 其它键 键 键码 键 键码 键 键码 键 键码 A 65 0 96 F1 112 Backspace 8 B 66 1 97 F2 113 Tab 9 C 67 2 98 F3 114 Clear 12 D 68 3 99 F4 115 Enter 13 E 69 4 100 F5 116 Shift 16 F 70 5 101 F6 117 Control 17 G 71 6 102 F7 118 Alt 18 H 72 7 103 F8 119 Caps Lock 20 I 73 8 104 F9 120 Esc 27 J 74 9 105 F10 121 Spacebar 32 K 75 * 106 F11 122 Page Up 33 L 76 + 107 F12 123 Page Down 34 M 77 Enter 108 -- -- End 35 N 78 - 109 -- -- Home 36 O 79 . 110 -- -- Left Arrow 37 P 80 / 111 -- -- Up Arrow 38 Q 81 -- -- -- -- Right Arrow 39 R 82 -- -- -- -- Down Arrow 40 S 83 -- -- -- -- Insert 45 T 84 -- -- -- -- Delete 46 U 85 -- -- -- -- Help 47 V 86 -- -- -- -- Num Lock 144 W 87 X 88 Y 89 Z 90 0 48 1 49 2 50 3 51 4 52 5 53 6 54 7 55 8 56 9 57 本回答被网友采纳 ‪ C:\Program Files (x86)\Windows Media Player\wmplayer.exe 正确例题 Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Sub Command1_Click() Call keybd_event(vbKeyCapital, 0, 0, 0) '模拟按下 'vbKeyCapital=20 Call keybd_event(20, 0, &H2, 0) '模拟弹起键 End Sub 正确例题 Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Command1_Click() Dim S As String S = Text1.Text Shell S, vbNormalFocus End Sub Private Sub Command2_Click() Dim S As String Dim i, j As Integer j = Val(Text2.Text) S = Text3.Text For i = 1 To Len(S) Select Case Mid(S, i, 1) Case "a" Call Command1_Click Sleep 500 Case "0" Call keybd_event(vbKeyTab, 0, 0, 0) '模拟按下 Sleep j Call keybd_event(9, 0, &H2, 0) '模拟弹起键 Case "1" Call keybd_event(vbKeyBackspace, 0, 0, 0) '模拟按下 Sleep j Call keybd_event(8, 0, &H2, 0) '模拟弹起键 Case "2" Call keybd_event(vbKeyEnter, 0, 0, 0) '模拟按下 Sleep j Call keybd_event(108, 0, &H2, 0) '模拟弹起键 Case "3" Call keybd_event(vbKeyCapital, 0, 0, 0) '模拟按下 Sleep j Call keybd_event(20, 0, &H2, 0) '模拟弹起键 End Select Next End Sub