vbs模拟键盘ctrl+a的代码是什么？

请问如何用vbs实现模拟键盘动作，例如ctrl+c，alt+f4~

给你点详细的资料

Windows 脚本宿主

SendKeys 方法
请参阅
WshShell 对象 | Run 方法
将一个或多个键击发送到活动窗口（仿佛是在键盘上击键一样）。

object.SendKeys(string)
参数
object
WshShell 对象。
string
表示要发送的键击（一个或多个）的字符串值。
说明
使用 SendKeys 方法可以将键击发送到无自动化界面的应用程序中。多数键盘字符都可用一个键击表示。某些键盘字符由多个键击组合而成（例如，CTRL+SHIFT+HOME）。要发送单个键盘字符，请将字符本身作为 string 参数发送。例如，要发送字母 x，则请发送 string 参数 "x"。

注意 要发送空格，则请发送字符串 " "。
可使用 SendKeys 同时发送多个键击。为此，可将每个键击按顺序排列在一起，以此来创建表示一系列键击的复合字符串参数。例如，要发送键击 a、b 和 c，则需要发送字符串参数 "abc"。SendKeys 方法将某些字符用作字符的修饰符（而不使用其本身的含义）。这组特殊的字符可包括圆括号、中括号、大括号，以及：

加号 "+"、
插入记号 "^"、
百分号 "%"、
和“非”符号 "~"。
用大括号 "{}" 括起这些字符可以发送它们。例如，要发送加号，请使用字符串参数 "{+}"。SendKeys中使用的中括号 "[ ]" 无任何特殊含义，但是必须把它们括在大括号中，以便容纳确实要赋予其特殊含义的应用程序（例如，对于动态数据交换 (DDE) 就是这样）。

要发送左中括号字符，请发送字符串参数 "{[]"；要发送右中括号字符，请发送字符串参数 "{]}"。
要发送左大括号字符，请发送字符串参数 "{{}"；要发送右大括号字符，请发送字符串参数 "{}}"。
某些键击不生成字符（如 ENTER 和 TAB）。某些键击表示操作（如 BACKSPACE 和 BREAK）。要发送这些类型的键击，请发送下表中列出的参数：

键 参数
退格键 {BACKSPACE}、{BS} 或 {BKSP}
BREAK {BREAK}
CAPS LOCK {CAPSLOCK}
DEL 或 DELETE {DELETE} 或 {DEL}
向下键 {DOWN}
END {END}
ENTER {ENTER} 或 ~
ESC {ESC}
HELP {HELP}
HOME {HOME}
INS 或 INSERT {INSERT} 或 {INS}
向左键 {LEFT}
NUM LOCK {NUMLOCK}
PAGE DOWN {PGDN}
PAGE UP {PGUP}
PRINT SCREEN {PRTSC}
向右键 {RIGHT}
SCROLL LOCK {SCROLLLOCK}
TAB {TAB}
向上键 {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 时只按 c（而不按 SHIFT），则发送字符串参数 "+ec"。
可使用 SendKeys 方法发送一种在一行内重复按键的键击。为此，要创建复合字符串参数，以指定要重复的键击，并在其后指定重复次数。可使用 {键击 数字} 形式的复合字符串参数来完成上述操作。例如，如果要发送 10 次 "x"，则需要发送字符串参数 "{x 10}"。请确保在键击和数字之间有一个空格。

注意 只可以发送重复按一个键的键击。例如，可以发送 10 次 "x"，但不可发送 10 次 "Ctrl+x"。
注意 不能向应用程序发送 PRINT SCREEN 键 {PRTSC}。
示例
下面的示例演示如何将一个 .wsf 文件用于以不同脚本语言（VBScript 和 Jscript）写成的两个作业。每个作业都运行 Windows 计算器并将它发送给键击以执行简单的计算。




set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "calc"
WScript.Sleep 100
WshShell.AppActivate "Calculator"
WScript.Sleep 100
WshShell.SendKeys "1{+}"
WScript.Sleep 500
WshShell.SendKeys "2"
WScript.Sleep 500
WshShell.SendKeys "~"
WScript.Sleep 500
WshShell.SendKeys "*3"
WScript.Sleep 500
WshShell.SendKeys "~"
WScript.Sleep 2500





var WshShell = WScript.CreateObject("WScript.Shell");
WshShell.Run("calc");
WScript.Sleep(100);
WshShell.AppActivate("Calculator");
WScript.Sleep(100);
WshShell.SendKeys ("1{+}");
WScript.Sleep(500);
WshShell.SendKeys("2");
WScript.Sleep(500);
WshShell.SendKeys("~");
WScript.Sleep(500);
WshShell.SendKeys("*3");
WScript.Sleep(500);
WshShell.SendKeys("~");
WScript.Sleep(2500);



请参阅
WshShell 对象 | Run 方法



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

© 2001 Microsoft Corporation. 保留所有权利。

set WshShell = CreateObject("WScript.Shell") WshShell.SendKeys "^R"
对于需要与Shift、Ctrl、Alt三个控制键组合的按键，SendKeys使用特殊字符来表示 如图所示

set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys ("^a")

其中^ 是Ctrl键

---

巴州区18618221391： vbs模拟键盘ctrl+a的代码是什么? - ？
政邢医痫： set WshShell = WScript.CreateObject(＂WScript.Shell＂) WshShell.SendKeys (＂^a＂)其中^ 是Ctrl键

巴州区18618221391： 在VB中怎样模拟按Ctrl+A? - ？
政邢医痫： Call keybd_event(17, 0, 0, 0) Call keybd_event(65, 0, 0, 0) Call keybd_event(17, 0, KEYEVENTF_KEYUP, 0) Call keybd_event(65, 0, KEYEVENTF_KEYUP, 0)

巴州区18618221391： 用vbs脚本程序实现模拟鼠标右键的全选功能! - ？
政邢医痫： 使用鼠标右键,要使用第三方软件调用API函数,还要注册组件,VBS才能调用,很麻烦 实现全选功能,只用快捷键CTRL+a就可以了,代码如下: '保证你的文档已经打开 Set ws=WScript.CreateObject(＂wscript.shell＂) If ws.AppActivate(＂vbs教程.txt - 记事本＂)=True Then'双引号输入你的文档的标题名称 WScript.Sleep 1000 ws.SendKeys ＂^{a}＂ End if

巴州区18618221391： 如何写vb快捷键的代码,如Ctrl+A？
政邢医痫： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 65 And Shift = 2 Then Form2.Show 'Ctrl+A呼出form2 End Sub Private Sub Form_Load() Me.KeyPreview = True'设置form1窗体允许接受键盘按键 End Sub 方法2.建立一个不可见的子菜单项,并使用Ctrl+A的快捷键 方法3.使用API Hook键盘

巴州区18618221391： 键盘的按键在VB代码里怎么表示 - ？
政邢医痫： (1) 用API函数keybd_event,这个函数可以用来模拟一个键盘事件,它的VB声明为: Declare Sub keybd_event Lib ＂user32＂ (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) 参数bVk表示要模拟...

巴州区18618221391： 求高手给写个VBS脚本!!!! - ？
政邢医痫： '保存为vbs类型文件 set shell=createobject(＂wscript.shell＂) set open=createobject(＂scripting.filesystemobject＂) set word=createobject(＂Word.Application＂) set tasks=word.tasks file1=＂aaa.txt＂ '假设这是aaa,修改下路径即可 file2=＂bbb....

巴州区18618221391： 请问按什么键相当于鼠标右键的“全选”? - ？
政邢医痫： Ctrl + A (A是all的意思)

巴州区18618221391： 用vbs 在某个程序上 先后运行两组快捷键(先按ctrl+A进行全选,接着是按ctrl+R运行) - ？
政邢医痫： 除非你的电脑非常快,否则Run ＂D:\a.exe＂之后得加上延迟,Wscript.Sleep 3000之类的,不然程序还没完全打开,Sendkeys就运行了,按键消息就不能被程序接收.

巴州区18618221391： VB中运行程序等于按下键盘的组合键 - ？
政邢医痫： '按下面运行时按CTRL+A'控制按键是:'SHIFT = + 'CTRL = ^ 'ALT = % Private Sub Form_Load() sendkeys ＂^a＂ End Sub

巴州区18618221391： VB模拟键盘问题 - ？
政邢医痫： ElseIf (KeyCode = vbKeyF1) And (Shift = 2) Then Print ＂OK,你按的是Ctrl+F11&quotPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If (KeyCode = vbKeyNumpad0) And (Shift = 2) Then Print ＂OK,你按的是Ctrl+0&quot,你按的是Ctrl+F1＂ ElseIf (KeyCode = vbKeyF11) And (Shift = 2) Then Print ＂OK