利用VB如何模拟键盘 按键 Private Declare Sub keybd_event Lib\"user32\"(ByVal bVk As Byte，ByVal bScan As Byte，ByVal dwFlags As Long，ByVal dwExtraInfo As Long)'按下回车Call keybd_event(13，0，0，0)'抬起回车Call keybd_event(13，0，2，0)13是回车键的keycode，改成其他也一样在vb里有一套key常量，比如vbKeyA 就是A键keybd_event vbKeyA，0，0，0 就是按下A完整代码：在窗体上放一个Timer，interval设成1000Private Declare Sub keybd_event Lib\"user32\"(ByVal bVk As Byte，ByVal bScan As Byte，ByVal dwFlags As Long，ByVal dwExtraInfo As Long)dim delay as longprivate sub form_load()delay=600end subPrivate sub Timer1_Timer()if delay>；0 thendelay=delay-1elsekeybd_event vbkeycontrol，0，0，0keybd_event vbkeymenu，0，0，0keybd_event vbkeyV，0，0，0doeventsdoeventskeybd_event vbkeyV，0，2，0keybd_event vbkeymenu，0，2，0keybd_event vbkeycontrol，0，2，0delay=600end ifend sub
VB如何实现软键盘功能？ 思路：假设在软键盘上建立26个字母键；单击相应的键时模拟按键或直接输出到目标；模拟按键时可行的，直接输出必须获得句柄才行，具体分析；给你提供模拟按键代码：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 Timer1_Timer()Call keybd_event(82，0，0，0)'模拟按下\"R\"键End Sub码值对应表：A 至 Z 键与 A – Z 字母的 ASCII 码相同：值 描述65 A 键66 B 键67 C 键68 D 键69 E 键70 F 键71 G 键72 H 键73 I 键74 J 键75 K 键76 L 键77 M 键78 N 键79 O 键80 P 键81 Q 键82 R 键83 S 键84 T 键85 U 键86 V 键87 W 键88 X 键89 Y 键90 Z 键0 至 9 键与数字 0 – 9 的 ASCII 码相同：值 描述48 0 键49 1 键50 2 键51 3 键52 4 键53 5 键54 6 键55 7 键56 8 键57 9 键下列常数代表数字键盘上的键：值 描述0x60 0 键0x61 1 键0x62 2 键0x63 3 键0x64 4 键0x65 5 键0x66 6 键0x67 7 键0x68 8 键0x69 9 键0x6A MULTIPLICATION SIGN(*)键0x6B PLUS SIGN(+)键0x6C ENTER 键0x6D MINUS SIGN(–)键0x6E 。
VB实现模拟键盘及模拟鼠标 VB要后台实现这个功能，需要使用sendmessage函数（当然，根据自己的需要也可以选择PostMessage，具体差别请参考） 函数声明：Declare Function SendMessage Lib。
