VB键盘模拟的小程序代码4

2022-05-20 18:52:13 文档大全网 [ 字体：小中大 ] [ 阅读： ]

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《VB键盘模拟的小程序代码4》，欢迎阅读！
键盘,模拟,代码,程序
模拟键盘按下按键(VB的函数,API函数为SendInput,但没详细资料待补充)2007-05-08 11:20 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}"”即可。

1

实例：

---------------------------------------------------- 按下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}"

---------------------------------------------------- QQ消息群发

Dim WshShell

Set WshShell= WScript.createObject("WScript.Shell") WshShell.AppActivate "bomb" for i=1 to 60

WScript.Sleep 800

WshShell.SendKeys "Number0" WshShell.SendKeys i WshShell.SendKeys "%s"

next

---------------------------------------------------- 自动到百度搜索歌曲：white flag

Dim WshShell,Path,i

Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run("IEXPLORE.EXE")

WScript.Sleep 2000

WshShell.AppActivate "about:blank-Microsoft Internet Explorer" WshShell.SendKeys "+{TAB}"

WshShell.SendKeys "http://mp3.baidu.com" WScript.Sleep 800

WshShell.SendKeys "{ENTER}" WScript.Sleep 3000

2

WshShell.SendKeys "white flag"

WScript.Sleep 800

WshShell.SendKeys "{ENTER}"

----------------------------------------------------

在记事本中输入Happy Birthday!并保存为birth.txt

Dim WshShell

Set WshShell=WScript.CreateObject("WScript.Shell") WshShell.Run "notepad"

WScript.Sleep 1500

WshShell.AppActivate "无标题 - 记事本" WshShell.SendKeys "H"

3