vb 输入文本
发布网友
发布时间:2022-05-13 15:16
我来回答
共2个回答
热心网友
时间:2023-10-14 00:23
sendkeys 函数即可!
百度一下:" vb 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}
PRINT 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
也无法将 PRINT SCREEN 按键 {PRTSC}
发送到任何应用程序。
祝您好运!~
热心网友
时间:2023-10-14 00:23
这样的问题实际上是VB做一个应用程序,可以向目标系统(如QQ,计算期,(或记事本等)发送指定的字符,或命令...
如果这样的话,可以利用VB中的AppActive 命令来激活目标程序并获得焦点,然后利用SendKeys命令发送指定的字符及命令:
以Windows中的“计算器”为例,首先要保证“计算器”已经在Windows中启动
在计算器中计算:1001+2002=3003的过程.
在Command_Click()事件中增加以下代码
AppActive "计算器"
SendKeys "1001"
Sleep(10)
SendKeys"{+}"
Sleep(10)
SendKeys "2002"
Sleep(10)
SendKeys"{=}"
这样你能看到“计算器”上依次显示"1001+2002=3003"的过程
这里Sleep是Windows的延时函数,目的是给每次接收一个缓冲过程,Sleep() 函数的定义如下:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
参数单位选择毫秒,如上面的Sleep(10)指10毫秒
如果你想在QQ聊天窗等其它的目标程序上实现相似的功能,那就不是VB能实现的了的.这些程序的主动权不在你手里!追问
1、AppActive和Sleep有问题啊,见图(生成exe时我已经打开了计算器)
在删除AppActive那一行以后还是报同样的错,选中的是Sleep。
难道需要自己定义AppActive和Sleep吗?
2、怎样实现组合键?百度上说+代表shift,^代表crtl,%代表alt,但是到底怎样组合?
追答实在不好意思!写错了,应该是:
AppActivate "计算器"
还有Sleep()函数要在程序中定义,可以在Form 的通用过程中定义如下:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
也可以在你应用程序的模块中定义如下:
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
有关组合键请看下面摘自VB帮助的内容:
为了说明在按下其它按键时应同时按下 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 键。
键 代码
SHIFT +
CTRL ^
ALT %
希望这次成功!