脚本制作

一、操作说明

object.SendKeys string

\"object\"：表示WshShell对象。

\"string\"：表示要发送的按键指令字符串,需要放在英文双引号中。 1、基本键

一般来说，要发送的按键指令都可以直接用该按键字符本身来表示，例如要发送字母\"x\"，使用 WshShell.SendKeys \"x\" 即可。也可直接发送多个按键指令，只需要将按键字符按顺序排列在一起即可。例如，要发送按键\"cfan\可以使用 WshShell.SendKeys \"cfan\"

2、特殊功能键

对于需要与Shift、Ctrl、Alt三个控制键组合的按键SendKeys使用特殊字符来表示: 特殊控制键 特殊字符 Shift + Ctrl ^ Alt %

如要发送的组合按键是同时按下Ctrl+E,需要用\" WshShell.SendKeys \"^e\" \"表示，如果要发送的组合按键是按住Ctrl键的同时按下E与C两个键，这时应使用小括号把字母括起来，书写格式为\" WshShell.SendKeys \"^(ec)\" \"。

这里要注意它与\" WshShell.SendKeys \"^ec\" \"的区别,后者表示组合按键是同时按住Ctrl和E键,然后松开Ctrl键,单独按下\"C\"字母键。 例如：

WshShell.SendKeys \"^{ESC}u\"

代码的含义为：按下Ctrl＋Esc组合键（相当于按Win键）打开“开始”菜单，接着按U键打开“关机”菜单。

由于\"+\"、\"^\"这些字符用来表示特殊的控制按键了，如何表示这些按键呢？只要用大括号括住这些字符即可。例如，要发送加号\"+\"，可使用\" WshShell.SendKeys \"{+}\" \"。另外对于一些不会生成字符的控制功能按键，也同样需要使用大括号括起来按键号名称。例如要发送回车键，需要用WshShell.SendKeys \"{ENTER}\" 表示，发送向下的方向键用 WshShell.SendKeys \"{DOWN}\" 表示。

小提示

如果需要发送多个重复的单字母按键，不必重复输入该字母，SendKdys允许使用简化格式进行描述，使用格式为\"{按键 数字}\"。例如要发送10个字母\"x\"，则输入 WshShell.SendKeys \"{x 10}\" 即可。

二、使用VBS脚本让QQ自动登陆

以下是QQ自动登陆的代码，但是还未能完全让QQ登陆，请尝试补充完整。 set ws=wscript.createobject(\"wscript.shell\")

ws.run \"C:\\Progra~1\\Tencent\\QQ\\Bin\\QQ.exe\wscript.Sleep 2000

ws.SendKeys \"************\"

wscript.Sleep 2000 ws.SendKeys \"{TAB}\" wscript.Sleep 2000

ws.SendKeys \"{ENTER}\" wscript.Sleep 2000 ws.SendKeys \"{Up}\" wscript.Sleep 2000

ws.SendKeys \"{ENTER}\" wscript.Sleep 1000 ws.SendKeys \"{TAB}\"

三、让VBS脚本自动在记事本中输入一行文字“hello, welcome to cfan”。 Dim WshShell

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

//本行的含义为是脚本暂停2秒，给notepad一个打开的时间，有时时间太短可能导致后面的字符无法进入编辑区

WshShell.AppActivate \"无标题 - 记事本\" //AppActivate为寻找可执行程序的标题框，”无标题－记事本”内容你的自己打开看一下 WshShell.SendKeys \"hello, welcome to net security course\"

练习1：让脚本自动输入下面两段小短句 This is the most wonderful day of my life because I'm here with you now

练习2：让脚本在输入短句后自动关闭记事本，并保存文件名为“test”，注意关闭记事本可以直接使用组合按键Alt＋F4来实现

四、制作能自动定时存盘的记事本

我们最常用的记事本没有Word、WPS那样的自动定时存盘功能，其实利用VBS脚本再加上SendKeys命令，就能弥补这个遗憾。打开记事本，输入以下内容（为容易描述和分析，把代码分为四个部分）： '第一部分：定义变量和对象

Dim WshShell, AutoSaveTime, TXTFileName AutoSaveTime=300000

Set WshShell=WScript.CreateObject(\"WScript.Shell\")

TXTFileName=InputBox(\"请输入你要创建的文件名(不能用中文和纯数字)：\") '第二部分：打开并激活记事本 WshShell.Run \"notepad\" WScript.Sleep 200

WshShell.AppActivate \"无标题 - 记事本\" '第三部分：用输入的文件名存盘 WshShell.SendKeys \"^s\"

WScript.Sleep 300

WshShell.SendKeys TXTFileName WScript.Sleep 300

WshShell.SendKeys \"%s\" WScript.Sleep AutoSaveTime '第四部分：自动定时存盘

While WshShell.AppActivate (TXTFileName)=True WshShell.SendKeys \"^s\" WScript.Sleep AutoSaveTime Wend

WScript.Quit

VBS中Sendkey键盘对应的码表 Key Code

------------------------------ Shift + Ctrl ^ Alt %

BACKSPACE {BACKSPACE}, {BS}, or {BKSP} BREAK {BREAK}

CAPS LOCK {CAPSLOCK}

DEL or DELETE {DELETE} or {DEL} DOWN ARROW {DOWN} END {END}

ENTER {ENTER}or ~ ESC {ESC} HELP {HELP} HOME {HOME}

INS or INSERT {INSERT} or {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}