Question

怎样用VB模拟键盘输入

用VB怎样编程实现模拟键盘输入？例如：打开该程序后，对着记事本按某快捷键后，该程序能模拟键盘输入“C”“B”希望能有完整的，经过测试代码，能够点击“生成工程”后，能生成可用的程序的代码。高手帮帮忙啊

Answer 1

ivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SETTEXT = &HC

Private Sub Command1_Click()
Dim hwnd As Long, Thwnd As Long
Shell "notepad.exe", 2 '打开一个记事本,将它最小化
hwnd = FindWindow("Notepad", "无标题 - 记事本") '得到记事本句柄
Thwnd = FindWindowEx(hwnd, 0, "Edit", vbNullString) '得到记事本句柄(就是我们写字的那里)
SendMessage Thwnd, WM_SETTEXT, 0, ByVal "好了,快给我分" '向记事本写入文字
End Sub

Answer 2

set wshell=wscript.createobject("wscript.shell")
wscript.sleep 1000
wshell.sendkeys "C"
wscript.sleep 1000
wshell.sendkeys "B"