13518219792
ASCII乃歪解，根本不能区分。
创新互联公司专注于企业营销型网站建设、网站重做改版、渝水网站定制设计、自适应品牌网站建设、html5、商城网站制作、集团公司官网建设、外贸网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为渝水等各大城市提供网站开发制作服务。
Sendkeys确实不能办到。
如果不愿意用keybd_event，有其他办法：
可以用SPY++监视Windows的“屏幕键盘”对其他程序发的消息
自己仿造其用SendMessage，理论上可行，不过我觉得，还是没有keybd_event方便。
这个问题上，没有更简单的方法了，你可以做一个Moudle，处理完这个问题，一劳永逸。
要知道，VC、Delphi等软件是没有Sendkeys的，别的程序员能办到的（如：按键精灵，金山游侠——一键必杀），我们也能办到。
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
set ws=createobject("wscript.shell")
ws.sendKeys "^{esc}r"VBS中SendKeys的基本应用模拟键盘操作，将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行，
其使用格式为：object.SendKeys string
“object”：表示WshShell对象
“string”：表示要发送的按键指令字符串，需要放在英文双引号中。
1.基本键
一般来说，要发送的按键指令都可以直接用该按键字符本身来表示，例如要发送字母“x”，使用“WshShell.SendKeys "x"”即可。当然，也可直接发送多个按键指令，只需要将按键字符按顺序排列在一起即可，例如，要发送按键“happy”，可以使用“WshShell.SendKeys "happy"”。
2.特殊功能键
对于需要与Shift、Ctrl、Alt三个控制键组合的按键，SendKeys使用特殊字符来表示：
Shift---------WshShell.SendKeys "+"
Ctrl---------WshShell.SendKeys "^"
Alt---------WshShell.SendKeys "%"
由于“+”、“^”这些字符用来表示特殊的控制按键了，如何表示这些按键呢？
只要用大括号括住这些字符即可。例如:
要发送加号“+”，可使用“WshShell.SendKeys "{+}"”
另外对于一些不会生成字符的控制功能按键，也同样需要使用大括号括起来按键的名称，例如要发送回车键，需要用“WshShell.SendKeys "{ENTER}"”表示，发送向下的方向键用“WshShell.SendKeys "{DOWN}"”表示。
Space---------WshShell.SendKeys " "
Enter---------WshShell.SendKeys "{ENTER}"
←---------WshShell.SendKeys "{RIGHT}"
↑---------WshShell.SendKeys "{UP}"
F1---------WshShell.SendKeys "{F1}"
Tips:如果需要发送多个重复的单字母按键，不必重复输入该字母，SendKeys允许使用简化格式进行描述，使用格式为“{按键 数字}”。例如要发送10个字母“x”，则输入“WshShell.SendKeys "{x 10}"”即可。
实例：
----------------------------------------------------
按下F5刷新桌面
Dim WshShell,Path,i
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "{F5}"
----------------------------------------------------
电脑的自动重启
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^{ESC}u"
WshShell.SendKeys "R"
----------------------------------------------------
启动任务管理器
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^+{ESC}"
游戏里用keybd_event一般都是无效的,游戏防御强
如果阁下不想用按键精灵,非要用vb,那也行,在vb里用插件,也方便
我有插件,不管什么游戏都能做操作,自动点击,喊话这些,都不是事儿
我现在没有现成的代码给你，不过可以给你一些建议。如果你想在同一进程内实现屏幕键盘，则你只需要再F2打开的时候，将F1的当前焦点控件对象作为参数，传递给F2窗体，在F2点击屏幕控件时，设置该“控件.Text = 键值” 即可，这种我称之为假屏幕键盘。如果你想跨进程实现屏幕键盘，就比较难些了（比如：你想用你的F2窗体上的按键，实现QQ聊天内容的输入、记事本内容的输入）。这个需要用到 “键盘钩子”技术，有关这方面的资料，你不妨自己找找。 另外，你提的F2焦点老处理不好，我认为F2根本不需要焦点控件（不要用按钮做控件，而实用Label或图片就可以了。）
tab是
"{TAB}".==========SendKeys
语句
将一个或多个按键消息发送到活动窗口，就如同在键盘上进行输入一样。语法SendKeys
string[,
wait]SendKeys
语句的语法具有以下几个命名参数：部分
描述
string
必需的。字符串表达式，指定要发送的按键消息。
Wait
可选的。指定等待方式的
BooleandefBooleanDataType@veendf98.chm
值。如果为
False（缺省值），则控件在按键发送出去之后立刻返回到过程。如果为
True，则按键消息必须在控件返回到过程之前加以处理。
说明每个按键由一个或多个字符表示。为了指定单一键盘字符，必须按字符本身的键。例如，为了表示字母
A，可以用
"A"
作为
string。为了表示多个字符，就必须在字符后面直接加上另一个字符。例如，要表示
A、B
及
C，可用
"ABC"
作为
string。对
SendKeys
来说，加号
(+)、插入符
(^)、百分比符号
(%)、上划线
(~)
及圆括号
(
)
都具有特殊意义。为了指定上述任何一个字符，要将它放在大括号
({})
当中。例如，要指定正号，可用
{+}
表示。方括号
([
])
对
SendKeys
来说并不具有特殊意义，但必须将它们放在大括号中。在其它应用程序中，方括号有特殊意义，在出现动态数据交换
(DDE)
的时候，它可能具有重要意义。为了指定大括号字符，请使用
{{}
及
{}}。为了在按下按键时指定那些不显示的字符，例如
ENTER
或
TAB
以及那些表示动作而非字符的按键，请使用下列代码：按键
代码
BACKSPACE
{BACKSPACE},
{BS},
或
{BKSP}
BREAK
{BREAK}
CAPS
LOCK
{CAPSLOCK}
DEL
or
DELETE
{DELETE}
或
{DEL}
DOWN
ARROW
{DOWN}
END
{END}
ENTER
{ENTER}或
~
ESC
{ESC}
HELP
{HELP}
HOME
{HOME}
INS
or
INSERT
{INSERT}
或
{INS}
LEFT
ARROW
{LEFT}
NUM
LOCK
{NUMLOCK}
PAGE
DOWN
{PGDN}
PAGE
UP
{PGUP}
SCREEN
{PRTSC}
RIGHT
ARROW
{RIGHT}
SCROLL
LOCK
{SCROLLLOCK}
TAB
{TAB}
UP
ARROW
{UP}
F1
{F1}
F2
{F2}
F3
{F3}
F4
{F4}
F5
{F5}
F6
{F6}
F7
{F7}
F8
{F8}
F9
{F9}
F10
{F10}
F11
{F11}
F12
{F12}
F13
{F13}
F14
{F14}
F15
{F15}
F16
{F16}
为了指定那些与
SHIFT、CTRL
及
ALT
等按键结合的组合键，可在这些按键码的前面放置一个或多个代码，这些代码列举如下：按键
代码
SHIFT
+
CTRL
^
ALT
%
为了说明在按下其它按键时应同时按下
SHIFT、CTRL、及
ALT
的任意组合键，请把那些按键的码放在括号当中。例如，为了说明按下
E
与
C
的时候同时按下
SHIFT
键，请使用
"+(EC)"。为了说明在按下
E
的时候同时按下
SHIFT
键，但接着按
C
而不按
SHIFT，则使用
"+EC"。为了指定重复键，使用
{key
number}
的形式。必须在
key
与
number
之间放置一个空格。例如，{LEFT
42}
意指
42
次按下
LEFT
ARROW
键；{h
10}
则是指
10
次按下
H
键。注意
不能用
SendKeys
将按键消息发送到这样一个应用程序，这个应用程序并没有被设计成在
Microsoft
Windows
中运行。Sendkeys
也无法将
SCREEN
按键
{PRTSC}
发送到任何应用程序。
参考资料：MSDN
