怎样用VB模拟键盘输入
请问如何用VB程序来模拟键盘操作 -
1.基本键一般来说，要发送的按键指令都可以直接用该按键字符本身来表示，例如要发送字母“x”，使用“WshShell.SendKeys "x"”即可。当然，也可直接发送多个按键指令，只需要将按键字符按顺序排列在一起即可，例如，要发送按键“happy”，可以使用“WshShell.SendKeys "happy"”。2.特殊功能键对于需要到此结束了？。
tab是"{TAB}".===SendKeys 语句 将一个或多个按键消息发送到活动窗口，就如同在键盘上进行输入一样。语法SendKeys string[, wait]SendKeys 语句的语法具有以下几个命名参数：部分描述string 必需的。字符串表达式，指定要发送的按键消息。Wait 可选的。指定等待方式的BooleandefBooleanDataTyp等我继续说。
1.基本键一般来说，要发送的按键指令都可以直接用该按键字符本身来表示，例如要发送字母“x”，使用“WshShell.SendKeys "x"”即可。当然，也可直接发送多个按键指令，只需要将按键字符按顺序排列在一起即可，例如，要发送按键“happy”，可以使用“WshShell.SendKeys "happy"”。2.特殊功能键对于需要到此结束了？。
tab是"{TAB}".===SendKeys 语句 将一个或多个按键消息发送到活动窗口，就如同在键盘上进行输入一样。语法SendKeys string[, wait]SendKeys 语句的语法具有以下几个命名参数：部分描述string 必需的。字符串表达式，指定要发送的按键消息。Wait 可选的。指定等待方式的BooleandefBooleanDataTyp等我继续说。
1、Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 9 Then Text1.Text = "abcdefg" 'Tab键的Ascii码=9 End Sub 2、利用API函数：#39;使用GetAsyncKeyState函数可以获得键盘的动作。#39;GetAsyncKeyState函数根据虚拟键表判断按键的类型，返回值为一个16位的二进制数，如果被按下则最高位为1说完了。
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里有一说完了。
VB调用API模拟键盘输入 -
简单点的可以用sendkeys，要模拟按键可以keybd_event，高级点的可以用sendmessage或者postmessage，我做了个自动喊话的，用的是sendkeys，下面是代码：Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 'Priva还有呢？
【VB声明】Private Declare Sub keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)【说明】这个函数模拟了键盘行动【返回值】【备注】这个函数支持屏幕捕获（截图）。在win95和nt4.0下这个函数的到此结束了？。
请问如何在VB下实现定时键盘模拟输入 -
Private Sub Form_Load()Timer1.Interval = 60000 'Timer1.Interval = 1000 等于1S End Sub Private Sub Timer1_Timer()SendKeys "{F5}"End Sub 'F5刷新键效果不怎么明显 你改成F2 在把上面的时间调个几秒看下效果 运行了点个文件就行看时间到文件是不是重命名状态。
SetPortVal KBC_KEY_CMD, &HD2, 1 '发送键盘写入命令KBCWait4IBE SetPortVal KBC_KEY_DATA, (btScancode Or &H80), 1 '写入按键信息，释放键End Sub 定义了上面的过程后，就可以用它来模拟键盘输入了。在窗体模块中添加一个定时器控件，然后加入以下代码：Private Sub Form_Load()If 说完了。
vb模拟屏幕键盘输入 -
按如下操作：建一个Command1,在属性窗口中，把Index属性（一开始是空的）设置为0。然后建一个Text1. 然后添加如下代码，运行察看效果。＝＝＝ Option Explicit Private Const W As Integer = 500 Private Sub Command1_Click(Index As Integer)If Index = 10 Then If Len(Text1.Text) = 0 Then后面会介绍。
Private Sub Command1_Click()Dim hwnd As Long, Thwnd As Long Shell "notepad.exe", 2 '打开一个记事本，将它最小化hwnd = FindWindow("Notepad", "无标题- 记事本") '得到记事本句柄Thwnd = FindWindowEx(hwnd, 0, "Edit", vbNullString) '得到记事本句柄(就是我们写字的那里)Sen说完了。