利用 VB 模拟手机键盘输入

将 label1 和 label2、command1 和 timer1 添加到窗体中

dim wei as integer

private sub command1_click()if zen = false then z = : wei = 0: = "打字"

zen = true

j = 0if wei < 3 then

wei = wei + 1

elsewei = 1

end if

s = tt("abc", wei)

z & send sub

private sub form_load()= 1

true true

输入："做"end sub

private sub timer1_timer()if zen = true then

j = j + 1

if j = 100 then

z & ss = ""

zen = false

做"end if

end if

end sub

private function tt(text as string, zhi as integer) as string

tt = mid("abc", zhi, 1)end function

这个程序是做什么用的？

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 sub command1_click()

dim hwnd as long, thwnd as long

shell "", 2 '打开记事本并将其最小化。

hwnd = findwindow("notepad", "无题 - 记事本") '获取记事本句柄。

thwnd = findwindowex(hwnd, 0, "edit", vbnullstring) '获取记事本句柄（我们写的地方）。

sendmessage thwnd, wm_settext, 0, byval "好吧，给我加分" '将文本写入记事本。

end sub

set ws=createobject("")

r"VBS 中 SendKeys 的基本应用程序模拟键盘操作，将一个或多个键盘命令发送到指定的 Windows 窗口以控制应用程序的运行。

它的格式为：字符串

object：表示 wshshell 对象。

string“：表示要发送的按键命令字符串，需要用双引号括起来。

1.基本键。

一般来说，要发送的按键命令可以直接用按键字符本身来表示，例如，要发送字母“x”，就用“来表示。"x"就是这样。 当然，也可以直接发送多个按键命令，只需将按顺序排列键字符即可，例如，要发送按键“happy”，可以使用“即可。"happy"”。

2.特殊功能键。

对于需要与shift、ctrl、alt三个控制键组合使用的按键，sendkeys使用特殊字符表示：

"^"既然字符“+”是用来表示特殊控制键的，那么如何表示这些键呢？

只需将字符括在大括号中即可。 例如：

发送加号“+”，使着装风格便携”。""

此外，对于一些不生成字符的控制功能键，还需要将键名括在大括号内，如“ 发送返回键""表示向下发送的箭头键与“.""表示。

"""""""提示：如果您需要发送多个重复的单字母击键，则不必重复输入字母，sendkeys 允许您使用简化格式进行描述，使用格式“”。 例如，如果要发送 10 个字母“x”，请输入“.""就是这样。

示例：按 F5 刷新桌面。

dim wshshell,path,i

set wshshell = "")

计算机自动重新启动。

set wshshell = createobject("")

u"r"启动任务管理器。

set wshshell = createobject("")"^

**下面：

private sub form_keydown(keycode as integer, shift as integer)

select case keycode

case vbkeynumpad0

command1_click '这是按钮 1 次点击，相当于您单击表单上的按钮并将其更改为您设置的代表"0"按钮。

case vbkeynumpad1

command2_click '将其更改为您设置的那个"1"按钮大小写 vbkeynumpad2

case vbkeynumpad3

end select

end sub

在同一目录中，有一个数字（hscroll1 值范围）。jpg 文件私有子 hscroll1 change（）end sub

首先，在窗体上画一个文本框，按F5运行项目，然后在文本中点击鼠标，然后按键盘！

我之前同意我的朋友的观点 - 考虑不要将接受焦点的控件放在界面上（或将其设置为不接受焦点）以实现键盘事件提取。 例如，您可以使用窗体按键事件来获取用户按下的键的代码，然后根据该代码更改文本（当然还有其他控件）的内容。 如：

private sub form_keypress(keyascii as integer)

chr(keyascii)

end sub

如果是计算器，你做一个计时器，让焦点始终在text1，+— ，使用二楼的方法，很简单。

vbkeyreturn 是一个回车符，可以改为：

1 键：vbkey1

2 键：vbkey2

f1：vbkeyf1

f2：vbkeyf2

使用 sendkeys 函数。

sendkeys "a"'按

sendkeys "+a"'按 shift+asend键"^a"'ctrl+a

sendkeys "%a"'alt+a

sendkeys ""'进入。

sendkeys "abcdef"'按顺序输入。

vbkeyf1 112 f1 键。

vbkeyf2 113 f2 键。

vbkeyf3 114 F3 键。

VBKEYF4 115 F4 键。

VBKEYF5 116 F5 键。

VBKEYF6 117 F6 键。

vbkeyf7 118 f7 键。

VBKEYF8 119 F8 键。

VBKEYF9 120 F9 键。

vbkeyf10 121 f10 密钥。

vbkeyf11 122 f11 密钥。

vbkeyf12 123 f12 密钥。

vbkeyf13 124 f13 键。

vbkeyf14 125 f14 键。

vbkeyf15 126 f15 键。

vbkeyf16 127 f16 键。

你不应该写“true”，百科全书上的发送键说明可以通过仔细阅读来解决。

private sub command1_click()sendkeys "^c", true '复制发送密钥"%", true '切换窗口发送键"^v", true '粘贴发送键"", true '输入 sendkeys"%", true '切换窗口发送键"", true '请放心，末端潜艇是向下的

它是通过一些 api 函数完成的。

为什么不使用密钥向导来执行此操作？