vbs键盘代码
vbs经典回顾之键盘输入方法
[键盘输入方法]wshShell.SendKeys 方法探析(2010-09-30 14:35:11)模拟键盘操作，将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行，其使用格式为：object.SendKeys(string)“object”：表示WshShell对象“string”：表示要发送的按键指令字符串，需要放在英文双引号中。
Dim wshShellSet wshShell = CreateObject("Wscript.Shell")wshShell.SendKeys "{ENTER}" '模拟键盘操作回车－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－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"{+}"”另外对于一些不会生成字符的控制功能按键，也同样需要使用大括号括起来按键的名称。
VBS模拟键盘输入
脚本实现自动按键盘的某个键过程是：按下F5间隔50毫秒松开F5间隔3000毫秒按下F5间隔50毫秒松开F5回到第一步批处理是不行的用VBS 很简单例子如下Set objShell = CreateObject("Wscript.Shell")doWScript.Sleep 3000objShell.SendKeys "{F5}"WScript.Sleep 3000objShell.SendKeys "{F5}"loop使用 SendKeys 方法可以将键击发送到无自动化界面的应用程序中。
多数键盘字符都可用一个键击表示。
某些键盘字符由多个键击组合而成（例如，CTRL+SHIFT+HOME）。
要发送单个键盘字符，请将字符本身作为 string 参数发送。
例如，要发送字母 x，则请发送 string 参数 "x"。
可使用 SendKeys 同时发送多个键击。
为此，可将每个键击按顺序排列在一起，以此来创建表示一系列键击的复合字符串参数。
例如，要发送键击 a、b 和 c，则需要发送字符串参数 "abc" 。
SendKeys 方法将某些字符用作字符的修饰符（而不使用其本身的含义）。
这组特殊的字符可包括圆括号、中括号、大括号，以及：加号"+"插入记号"^"百分号"%"和“非”符号"~"用大括号 "{}" 括起这些字符可以发送它们。
例如，要发送加号，请使用字符串参数 "{+}"。
SendKeys中使用的中括号 "[ ]" 无任何特殊含义，但是必须把它们括在大括号中，以便容纳确实要赋予其特殊含义的应用程序（例如，对于动态数据交换(DDE) 就是这样）。
要发送左中括号字符，请发送字符串参数 "{[}"；要发送右中括号字符，请发送字符串参数 "{]}"。
好玩的vbs代码
好玩的VBScript代码VBScript（Visual Basic Scripting Edition）是一种基于VB语言的脚本语言，它可以用来创建简单的Windows应用程序、网页脚本和系统管理脚本等。
VBScript 是一种通用的脚本语言，可以用来实现各种有趣的功能。
在本文中，我们将介绍一些好玩的VBScript代码，展示其强大的功能和娱乐价值。
1. 电脑妖怪第一个VBScript代码是创建一个电脑妖怪。
该代码将在电脑屏幕上创建一个随机移动的图形，并发出奇怪的声音。
Set wshShell = CreateObject("WScript.Shell")Set objShell = CreateObject("Shell.Application")Set objWMI = GetObject("winmgmts:\\.\root\cimv2")DowshShell.Run "mshta vbscript:CreateObject(""SAPI.SpVoice"").Speak(""Boo!"") (Close)"objShell.MinimizeAllobjShell.UndoMinimizeAllFor Each objDesktop in objWMI.InstancesOf("Win32_Desktop")objDesktop.SetWallpaper "C:\path\to\your\image.jpg"Nextwscript.sleep 100Loop通过运行该代码，将在桌面上创建一个随机移动的图形，并且屏幕上会突然发出吓人的声音。
这个代码可以用作恶作剧或者给你的朋友带来一些惊喜。
2. 无限弹窗第二个VBScript代码是创建一个无限弹窗的例子。
VBS基础篇 vbscript Sendkeys模拟键盘操作
VBS基础篇vbscript Sendkeys模拟键盘操作vbscript中我们可以使用object.SendKeys模拟键盘操作，将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行。
其使用格式为：object.SendKeys(string)object：表示WshShell对象string：表示要发送的按键指令字符串，需要放在英文双引号中。
WshShel l.SendKeys “string”1、基本键一般来说，要发送的按键指令都可以直接用该按键字符本身来表示，例如要发送字母"x"，使用WshShell.SendKeys "x" 即可。
也可直接发送多个按键指令，只需要将按键字符按顺序排列在一起即可。
例如，要发送按键"cfan"，可以使用WshShell.SendKeys "cfan"2、特殊功能键对于需要与Shift、Ctrl、Alt三个控制键组合的按键SendKeys使用特殊字符来表示:Shift +Ctrl ^Alt %具体如下：Shift ---------WshShell.SendKeys "+"Ctrl---------WshShell.SendKeys "^"Alt---------WshShell.SendKeys "%"由于“+”、“^”这些字符用来表示特殊的控制按键了，如何表示这些按键呢？只要用大括号括住这些字符即可。
例如: 要发送加号“+”，可使用“WshSh ell.SendKeys "{+}"”另外对于一些不会生成字符的控制功能按键，也同样需要使用大括号括起来按键的名称。
例如要发送回车键，需要用“WshShell.SendKeys "{ENTER}" ”表示；发送向下的方向键用“Wshell.SendKeys "{DOWN}" ”表示Space---------WshShell.SendKeys " "Enter---------WshShell.SendKeys "{ENTER}"←---------WshShell.SendKeys "{RIGHT}"↑---------WshShell.SendKeys "{UP}"F1---------WshShell.SendKeys "{F1}"常见按键代码：如果需要发送多个重复的单字母按键，不必重复输入该字母，SendKeys允许使用简化格式进行描述，使用格式为“{按键数字}”。
VBS经典代码大全
Wscript.Echo "Number of .txt files found: " & colFiles.Count
for each aa in colFiles
NL=NL & vbcrlf &
next
Wscript.Echo NL
作者：60.13.134.* 2005-4-21 19:39回复此发言
Wscript.Echo "Hot Fix ID: " & objQuickFix.HotFixID
Next
--------------------------------------------------------------------------------
6检查本地管理员数目
Set objNetwork = CreateObject("work")
Set colFiles = objWMIService.ExecQuery("SELECT * FROM CIM_DataFile WHERE Path =
'\\Documents and Settings\\Administrator\\桌面\\' AND Drive = 'E:' AND Extension =
Next
--------------------------------------------------------------------------------
5检查Hot Fix
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2")
vbs实现自动按键（VBSAutoKey）
vbs实现自动按键（VBS Auto Key）The script implements a key that is automatically pressed by the keyboard:Press F5Interval 50 millisecondsLoosen F5Interval 3000 millisecondsPress F5Interval 50 millisecondsLoosen F5Back to the first stepBatch processing doesn't work. Using VBS is a simple exampleSet objShell = CreateObject ("Wscript.Shell")DoWScript.Sleep 3000ObjShell.SendKeys "{F5}""WScript.Sleep 3000ObjShell.SendKeys "{F5}""LoopUse the SendKeys method to send keystrokes to the application of automation interface. Most keyboard characters are available a keystroke said. Some characters on the keyboard is composed of a plurality of keystrokes assembled (e.g., CTRL+SHIFT+HOME). To send a single keyboard character, send the character itself as the string parameter. For example, if you want to send the letter X, send the string parameter "x"".SendKeys can be used to simultaneously transmit multiple keystrokes. To this end, can be arranged together each keystroke in order to create a series of string parameters representing the complex keystrokes. For example, to send keystrokes to a, B and C, you need to send a string parameter "abc". The SendKeys method uses some characters as modifiers of characters without using their own meanings. This special set of characters can include parentheses, brackets, braces, and so on:Plus "+""Insert mark "^""Sign "%"And "non" symbol "~""With a brace "{}" these characters can send them. For example, to send a plus, please use the string parameter "{+}". The use of SendKeys in the brackets "[]" without any special meaning, but they must be enclosed in braces, to accommodate the application is to give it a special meaning (for example, for the dynamic data exchange (DDE) is such).To send the left bracket characters, please send a string parameter "{[}"; to send the right bracket characters, please send a string parameter "{]}".To send a left brace character, please send a string parameter "{{}"; to send altmode characters, please send a string parameter "{}}".Some keystrokes do not generate characters (such as ENTER and TAB). Some keystrokes said operation (such as BACKSPACE and BREAK). To send these types of keystrokes, please send the parameters listed in the table below:Space key""Backspace key {BACKSPACE} or {BS} or {BKSP}BREAK {BREAK}DELETE {DELETE} or {DEL}Down key {DOWN}Up arrow {UP}Left key {LEFT}Right key {RIGHT}END {END}ENTER {ENTER} or ~!ESC {ESC}TAB {TAB}CAPS LOCK {CAPSLOCK} HELP {HELP}HOME {HOME}INSERT {INSERT} or {INS} NUM LOCK {NUMLOCK} PAGE DOWN {PGDN}PAGE UP {PGUP}PRINT SCREEN {PRTSC} SCROLL LOCK {SCROLLLOCK}F1 {F1}F2 {F2}f3 f3} {{} f4 f4f5, f5 {}.f6 f6} {f7 f7} {f8 {d8}f9} {f9f10 f10} {f11 f11} {f12 f12} {要发送由常规键击和 shift、ctrl 或 alt 组合而成的键盘字符, 请创建表示该键击组合的复合字符串参数.可通过在常规键击之前添加一个或多个以下特殊字符来完成上述操作:shift +ctrl ^alt%注意: 这样使用时, 不用大括号括起这些特殊字符.要指定在按下多个其他键时, 按下 shift、ctrl 和 alt 的组合, 请创建复合字符串参数, 用括号括起其中的组合键.例如, 要发送的组合键指定:this 和如果在按 c 的同时按 shift 键, 则发送字符串参数 "+ (ec)".this 时只按如果在按 c (而不按 shift), 则发送字符串参数 "+ ec".可使用 sendkeys 方法发送一种在一行内重复按键的键击.为此, 要创建复合字符串参数, 以指定要重复的键击, 并在其后指定重复次数.可使用数字} {键击形式的复合字符串参数来完成上述操作.例如, 如果要发送次 10 "x", "x 则需要发送字符串参数 {10}".请确保在键击和数字之间有一个空格.注意: 只可以发送重复按一个键的键击.例如, 可以发送 10 "x 10", 次但不可发送次 "ctrl + x".注意: 不能向应用程序发送 print screen prtsc 键 {}.例子1: 关机脚本 (模拟按键为: ctrl + esc、u、u)把以下代码复制至记事本, 另存为 off.vbsset wshshell = createobject ("wscript.shell")wshshell.sendkeys "^ {esc} ("例子2: 重启脚本 (模拟按键为: ctrl + esc、u、r)把以下代码复制至记事本, 另存为 reboot.vbsset wshshell = createobject ("wscript.shell") wshshell.sendkeys "^ {esc}."例子3: 切换输入法 (模拟同时按下 shift ctrl)set wshshell = createobject ("wscript.shell") wshshell.sendkeys "+ (^)"例子4: 输入 . 至记事本并保存为 cndos.txt dim wshshellset wshshell = wscript.createobject ("wscript.shell") wshshell run "notepad".wscript sleep 1500.wshshell.appactivate "无标题 - 记事本"wshshell.sendkeys "c"wscript. 200. wshshell.sendkeys "n" wscript. 200. wshshell.sendkeys "-" wscript. 200. wshshell.sendkeys "d" wscript. 200. wshshell.sendkeys "o" wscript. 200. wshshell.sendkeys "s" wscript. 200. wshshell.sendkeys "." wscript. 200. wshshell.sendkeys "n" wscript. 200. wshshell.sendkeys "e"wscript. 200.wshshell.sendkeys "t" wscript. 200.wshshell. SendKeys”！”睡200名。
vbs整人代码大集合
未知驱动探索，专注成就专业
vbs整人代码大集合
1. 简介
本文档将介绍一些有趣的VBScript (VBS)代码，这些代码可以用于整人、恶作剧或者娱乐。
VBScript是一种微软开发的脚本语言，可以通过各种操作系统上的微软系列产品（如Windows）来使用。
请注意，这些代码仅用于娱乐目的，不应用于恶意活动或任何非法行为。
使用这些代码时，请确保你已经获得了授权。
2. 鼠标移动逃避
这段代码将在屏幕上显示一个小的色块，并在用户试图移动鼠标指针靠近色块时，自动将色块移动到一个随机位置。
```vbs Set objShell = CreateObject(
1。
VBS实现自动按键
脚本实现自动按键盘的某个键过程是：按下F5间隔50毫秒松开F5间隔3000毫秒按下F5间隔50毫秒松开F5回到第一步批处理是不行的用VB S 很简单例子如下Set objS hell= Cre ateOb ject("Wscr ipt.S hell")doWScr ipt.S leep3000objSh ell.S endKe ys "{F5}"WScri pt.Sl eep 3000o bjShe ll.Se ndKey s "{F5}" loop使用SendK eys 方法可以将键击发送到无自动化界面的应用程序中。
多数键盘字符都可用一个键击表示。
某些键盘字符由多个键击组合而成（例如，CTR L+SHI FT+HO ME）。
要发送单个键盘字符，请将字符本身作为 st ring参数发送。
例如，要发送字母x，则请发送 stri ng 参数 "x"。
可使用 Sen dKeys同时发送多个键击。
为此，可将每个键击按顺序排列在一起，以此来创建表示一系列键击的复合字符串参数。
例如，要发送键击 a、b和c，则需要发送字符串参数 "ab c" 。
S endKe ys 方法将某些字符用作字符的修饰符（而不使用其本身的含义）。
这组特殊的字符可包括圆括号、中括号、大括号，以及：加号 "+"插入记号 "^"百分号"%"和“非”符号 "~"用大括号 "{}" 括起这些字符可以发送它们。
代码大全VBS格式
verybat=split("dear ,friends ,~, nice ,to ,meet ,you ,i ,am ,so ,sorry ,that ,i ,controled ,your ,computer, without ,you ,allowing,~,please ,excuse ,me ,i ,want ,to ,say ,to ,you ,today,~,my ,friends ,so ,even ,through ,we ,face ,the ,difficulties ,of ,today ,and ,tomorrow,~,still ,have ,a ,dream ,it ,is ,a ,dream ,deeply ,rooted ,in ,our ,common ,dreams ,~,Maybe ,it's ,true ,that ,we ,do ,not ,know ,what ,we ,have ,got ,until ,we ,lose ,it,~,but ,it ,is ,also ,true ,that ,we ,do ,not ,know ,what ,we ,have ,been ,missing ,until ,it ,arrives ,.see ,you ,later ,~,with ,the ,best ,wishes,~, yours,~, lhj",",")
msgbox "你SB啊!"
else
msgbox "还不承认!! 作为惩罚，蓝屏一下，你马上挂了#￥！@#￥%@……#……?",64,"严重警告!!!!!!!!!"
vbsSendKey用法Sendkey键盘对应的码表
vbsSendKey用法Sendkey键盘对应的码表其使用格式为:object.SendKeys string'object':表示WshShell对象'string':表示要发送的按键指令字符串,需要放在英文双引号中.1.基本键一般来说,要发送的按键指令都可以直接用该按键字符本身来表示,例如要发送字母'x',使用WshShell.SendKeys 'x' 即可.也可直接发送多个按键指令,只需要将按键字符按顺序排列在一起即可.例如,要发送按键'cfan',可以使用' WshShell.SendKeys 'cfan' '.2.特殊功能键对于需要与Shift、Ctrl、Alt三个控制键组合的按键SendKeys使用特殊字符来表示:特殊控制键特殊字符ShiftCtrl ^Alt %如要发送的组合按键是同时按下Ctrl E,需要用' WshShell.SendKeys '^e' '表示,如果要发送的组合按键是按住Ctrl键的同时按下E与C两个键,这时应使用小括号把字母括起来,书写格式为' WshShell.SendKeys '^(ec)' '.这里要注意它与' WshShell.SendKeys '^ec' '的区别,后者表示组合按键是同时按住Ctrl和E键,然后松开Ctrl键,单独按下'C'字母键由于' '、'^'这些字符用来表示特殊的控制按键了,如何表示这些按键呢?只要用大括号括住这些字符即可.例如,要发送加号' ',可使用' WshShell.SendKeys '{ }' '.另外对于一些不会生成字符的控制功能按键,也同样需要使用大括号括起来按键号名称,例如要发送回车键,需要用' WshShell.SendKeys '{ENTER}' '表示,发送向下的方向键用'WshShell.SendKeys '{DOWN}' '表示.小提示如果需要发送多个重复的单字母按键,不必重复输入该字母,SendKdys允许使用简化格式进行描述,使用格式为'{按键数字}'.例如要发送10个字母'x',则输入' WshShell.SendKeys '{x 10}' '即可.3.翻译上手实例' WshShell.SendKeys '^{ESC}u' '这句翻译为:按下Ctrl Esc组合键(相当于按Win键)打开'开始'菜单,按着按U键打开'关机'菜单.---Just Do It---------------------------------让VBS脚本自动在词本中输入一行文字'Hello, welcome to cfan'.Dim WshShellSet WshShell=WScript.CreateObject('WScript.Shell')WshShell.Run 'notepad'WScript.Sleep 200WshShell.AppActivate ' 无标题 - 记事本 'WshShell.SendKeys 'hello, welcome to cfan'我们最常用的记事本没有Word、WPS那样的自动定时存盘功能,其实利用VBS脚本再加上SendKeys命令,就能弥补这个遗憾.打开记事本,输入以下内容(以容易描述和分析,把代码分为四个部分): '第一部分：定义变量和对象Dim WshShell, AutoSaveTime, TXTFileNameAutoSaveTime=300000Set WshShell=WScript.CreateObject('WScript.Shell')TXTFileName=InputBox('请输入你要创建的文件名(不能用中文和纯数字)：')'第二部分：打开并激活记事本WshShell.Run 'notepad'WScript.Sleep 200WshShell.AppActivate '无标题 - 记事本''第三部分：用输入的文件名存盘WshShell.SendKeys '^s'WScript.Sleep 300WshShell.SendKeys TXTFileNameWScript.Sleep 300WshShell.SendKeys '%s'WScript.Sleep AutoSaveTime'第四部分：自动定时存盘While WshShell.AppActivate (TXTFileName)=TrueWshShell.SendKeys '^s'WScript.Sleep AutoSaveTimeWendWScript.Quit将其保存为记事本.vbs,以后要使用记事本时,都通过双击这个脚本文件来打开.程序翻译这个脚本的基本思路是定时向记事本发送Ctrl S这个存盘组合键.第一部分:定义了脚本中需要用到的变量和对象.'AutoSaveTime'变量用来设置自动存盘间隔,单位为毫秒,这里设置为5分钟.'TXTFileName'变量通过输入框取得你要创建的文本文件名称.第二部分:运行记事本,对于Windows本身提供的程序,比如计算器等,可直接在'WshShell.Run'后输入程序名称,如'calc'对于非系统程序,则可输入完全路径,但要注意使用8.3格式输入,比如' 'D:\Progra~1\Tencent\QQ.exe' '第三部分:这里用SendKeys命令执行了这样的操作流程(请注意每个操作之间延时命令的使用):在记事本中按Ctrl S组合键→弹出保存文件的窗口→输入文件名→按Alt S组合键进行保存(默认保存在'我的文档'目录).第四部分:定时存盘的关键,通过'While......Wend'这个当条件为'真'时循环命令,实现自动存盘代码' WshShell.SendKeys '^s' '和定时代码' WScript.Sleep AutoSaveTime '的重复执行.因为不能让这个定时存盘循环一直执行,退出记事本后,必须自动退出脚本并结束循环,所以设计了一个循环判断条件' WshShell.AppActivate TXTFileName=True ',当记事本运行中时,可以激活记事本窗口,这个条件运行结果为'True',定时存盘循环一直执行,退出记事本后,脚本无法激活记事本窗口,就会路出循环,执行'Wend'后面的'WScript.Quit'退出脚本.VBS中Sendkey键盘对应的码表Key Code------------------------------ShiftCtrl ^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}。
VBS实现自动按键
'第二部分：打开并激活记事本
WshShell.Run "notepad"
WScript.Sleep 200
WshShell.AppActivate "无标题 - 记事本"
'第三部分：用输入的文件名存盘
WshShell.SendKeys "^s"
ESC {ESC}
TAB {TAB}
CAPS LOCK {CAPSLOCK}
HELP {HELP}
HOME {HOME}
WScript.Sleep 200
WshShell.SendKeys "%FS"
WScript.Sleep 500
WshShell.SendKeys "C"
WScript.Sleep 200
WshShell.SendKeys "n"
WScript.Sleep 200
WshShell.SendKeys "D"
objShell.Run(strCommandLine)
set WshShell = CreateObject("WScript.Shell")
WScript.Sleep 2000 '延时3秒
WshShell.SendKeys "{ENTER}" '模拟按下回车键执行下一步
空格键 " "
退格键 {BACKSPACE} 或 {BS} 或 {BKSP}
vbs SendKey 用法 Sendkey 键盘对应的码表
其使用格式为: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 "{+}" ".另外对于一些不会生成字符的控制功能按键,也同样需要使用大括号括起来按键号名称,例如要发送回车键,需要用" WshShell.SendKeys "{ENTER}" "表示,发送向下的方向键用" WshShell.SendKeys "{DOWN}" "表示.小提示如果需要发送多个重复的单字母按键,不必重复输入该字母,SendKdys允许使用简化格式进行描述,使用格式为"{按键数字}".例如要发送10个字母"x",则输入" WshShell.SendKeys "{x 10}" "即可.3.翻译上手实例" WshShell.SendKeys "^{ESC}u" "这句翻译为:按下Ctrl+Esc组合键(相当于按Win键)打开"开始"菜单,按着按U键打开"关机"菜单.---Just Do It---------------------------------让VBS脚本自动在词本中输入一行文字"Hello, welcome to cfan".Dim WshShellSet WshShell=WScript.CreateObject("WScript.Shell")WshShell.Run "notepad"WScript.Sleep 200WshShell.AppActivate " 无标题- 记事本"WshShell.SendKeys "hello, welcome to cfan"我们最常用的记事本没有Word、WPS那样的自动定时存盘功能,其实利用VBS脚本再加上SendKeys命令,就能弥补这个遗憾.打开记事本,输入以下内容(以容易描述和分析,把代码分为四个部分):'第一部分：定义变量和对象Dim WshShell, AutoSaveTime, TXTFileNameAutoSaveTime=300000Set WshShell=WScript.CreateObject("WScript.Shell")TXTFileName=InputBox("请输入你要创建的文件名(不能用中文和纯数字)：")'第二部分：打开并激活记事本WshShell.Run "notepad"WScript.Sleep 200WshShell.AppActivate "无标题- 记事本"'第三部分：用输入的文件名存盘WshShell.SendKeys "^s"WScript.Sleep 300WshShell.SendKeys TXTFileNameWScript.Sleep 300WshShell.SendKeys "%s"WScript.Sleep AutoSaveTime'第四部分：自动定时存盘While WshShell.AppActivate (TXTFileName)=TrueWshShell.SendKeys "^s"WScript.Sleep AutoSaveTimeWendWScript.Quit将其保存为记事本.vbs,以后要使用记事本时,都通过双击这个脚本文件来打开.程序翻译这个脚本的基本思路是定时向记事本发送Ctrl+S这个存盘组合键.第一部分:定义了脚本中需要用到的变量和对象."AutoSaveTime"变量用来设置自动存盘间隔,单位为毫秒,这里设置为5分钟."TXTFileName"变量通过输入框取得你要创建的文本文件名称.第二部分:运行记事本,对于Windows本身提供的程序,比如计算器等,可直接在"WshShell.Run"后输入程序名称,如"calc"对于非系统程序,则可输入完全路径,但要注意使用8.3格式输入,比如" "D:\Progra~1\Tencent\QQ.exe" "第三部分:这里用SendKeys命令执行了这样的操作流程(请注意每个操作之间延时命令的使用):在记事本中按Ctrl+S组合键→弹出保存文件的窗口→输入文件名→按Alt+S组合键进行保存(默认保存在"我的文档"目录).第四部分:定时存盘的关键,通过"While......Wend"这个当条件为"真"时循环命令,实现自动存盘代码" WshShell.SendKeys "^s" "和定时代码" WScript.Sleep AutoSaveTime "的重复执行.因为不能让这个定时存盘循环一直执行,退出记事本后,必须自动退出脚本并结束循环,所以设计了一个循环判断条件" WshShell.AppActivate TXTFileName=True ",当记事本运行中时,可以激活记事本窗口,这个条件运行结果为"True",定时存盘循环一直执行,退出记事本后,脚本无法激活记事本窗口,就会路出循环,执行"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}。
VBS模拟按键
VBS模拟按键下面是VBS模拟按键的Set objShell = CreateObject("Wscript.Shell")strCommandLine = "ttpsetup.exe" '启动安装程序objShell.Run(strCommandLine)set WshShell = CreateObject("WScript.Shell")WScript.Sleep 3000 '延时3秒WshShell.SendKeys "s" '模拟按下 S 键开始安装WScript.Sleep 300 '延时0.3秒WshShell.SendKeys "a" '模拟按下 A 键同意协议WScript.Sleep 300WshShell.SendKeys "{ENTER}" '模拟按下回车键执行下一步WScript.Sleep 300WshShell.SendKeys "{ENTER}" '模拟按下回车键执行下一步WScript.Sleep 300WshShell.SendKeys "{ENTER}" '模拟按下回车键执行下一步WScript.Sleep 2000WshShell.SendKeys "{TAB}" '模拟按下 Tab 键选择安装项目WScript.Sleep 300WshShell.SendKeys "{TAB}"WScript.Sleep 300WshShell.SendKeys " " '模拟按下空格键去除安装百度超级搜霸一行前的√号WScript.Sleep 300WshShell.SendKeys "{ENTER}" '模拟按下回车键完成最后一步把以上代码复制到记事本中（右边的文字是说明，一起复制也不影响），再另存为 AutoSetup.vbs ，把此文件存放在千千静听安装执行程序（ttpsetup.exe）同一目录下，双击 AutoSetup.vbs 即可自动完成千千静听的安装。
vbs代码大全
wsh.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoClose",1,"REG_DWORD"
wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoViewSource",1,"REG_DWORD"
wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Infodelivery\Restrictions\NoAddingSubScriptions",1,"REG_DWORD"
wsh.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRecentDocsHistory",1,"REG_DWORD"
wsh.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools","1","REG_DWORD"
常用VBS代码
常用VBS代码1.VBS获取路径集合1.1.VBS获取系统安装路径程序代码set WshShell = WScript.CreateObject("WScript.Shell")strWinDir = WshShell.ExpandEnvironmentStrings("%WinDir%")上面的代码意思是先定义这个变量是获取系统安装路径的，然后我们用"&strWinDir&"调用这个变量。
1.2.C:\Program Files路径程序代码msgbox CreateObject("WScript.Shell").ExpandEnvironmentStrings("%ProgramFiles%")1.3.C:\Program Files\Common Files路径程序代码msgboxCreateObject("WScript.Shell").ExpandEnvironmentStrings("%CommonProgramFiles%")2.给桌面添加网址快捷方式程序代码set gangzi = WScript.CreateObject("WScript.Shell")strDesktop = gangzi.SpecialFolders("Desktop")set oShellLink = gangzi.CreateShortcut(strDesktop & "\Internet Explorer.lnk") oShellLink.TargetPath = ""oShellLink.Description = "Internet Explorer"oShellLink.IconLocation = "%ProgramFiles%\Internet Explorer\iexplore.exe, 0" oShellLink.Save3.给收藏夹添加网址程序代码Const ADMINISTRATIVE_TOOLS = 6Set objShell = CreateObject("Shell.Application")Set objFolder = space(ADMINISTRATIVE_TOOLS)Set objFolderItem = objFolder.SelfSet objShell = WScript.CreateObject("WScript.Shell")strDesktopFld = objFolderItem.PathSet objURLShortcut = objShell.CreateShortcut(strDesktopFld & "\小游戏网站.url") objURLShortcut.TargetPath = "/?ie"objURLShortcut.Save4.删除指定目录指定后缀文件程序代码On Error Resume NextSet fso = CreateObject("Scripting.FileSystemObject")fso.DeleteFile "C:\*.vbs", TrueSet fso = Nothing上面代码为删除C盘根目录下后缀为vbs的文件5.VBS改主页程序代码Set oShell = CreateObject("WScript.Shell")oShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page",""6.VBS加启动项程序代码Set oShell=CreateObject("Wscript.Shell")oShell.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\cmd","cmd.exe"7.VBS复制自己程序代码set copy1=createobject("scripting.filesystemobject")copy1.getfile(wscript.scriptfullname).copy("c:\huan.vbs")复制自己到C盘的huan.vbs程序代码set copy1=createobject("scripting.filesystemobject")copy1.getfile("game.exe").copy("c:\gangzi.exe")复制本vbs目录下的game.exe文件到c盘的gangzi.exe8.VBS获取系统临时目录程序代码Dim fsoSet fso = CreateObject("Scripting.FileSystemObject")Dim tempfolderConst TemporaryFolder = 2Set tempfolder = fso.GetSpecialFolder(TemporaryFolder)Wscript.Echo tempfolder9.就算代码出错依然继续执行程序代码On Error Resume Next10.VBS打开网址程序代码Set objShell = CreateObject("Wscript.Shell")objShell.Run("/")11.VBS发送邮件程序代码NameSpace = "/cdo/configuration/"Set Email = CreateObject("CDO.Message")Email.From = "发件@"Email.To = "收件@"Email.Subject = "Test sendmail.vbs"Email.Textbody = "OK!"Email.AddAttachment "C:\1.txt"With Email.Configuration.Fields.Item(NameSpace&"sendusing") = 2.Item(NameSpace&"smtpserver") = "smtp.邮件服务器.com".Item(NameSpace&"smtpserverport") = 25.Item(NameSpace&"smtpauthenticate") = 1.Item(NameSpace&"sendusername") = "发件人用户名".Item(NameSpace&"sendpassword") = "发件人密码".UpdateEnd WithEmail.Send12.VBS结束进程程序代码strComputer = "."Set objWMIService = GetObject _("winmgmts:\\" & strComputer & "\root\cimv2")Set colProcessList = objWMIService.ExecQuery _("Select * from Win32_Process Where Name = 'Rar.exe'")For Each objProcess in colProcessListobjProcess.Terminate()Next13.VBS隐藏打开网址13.1.部分浏览器无法隐藏打开，而是直接打开，适合主流用户使用程序代码createObject("wscript.shell").run "iexplore /",013.2.兼容所有浏览器，使用IE的绝对路径+参数打开，无法用函数得到IE安装路径，只用函数得到了Program Files路径，应该比上面的方法好，但是两种方法都不是绝对的。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
2.特殊功能键
对于需要与Shift、Ctrl、Alt三个控制键组合的按键SendKeys使用特殊字符来表示:
特殊控制键 特殊字符
由于"+"、"^"这些字符用来表示特殊的控制按键了,如何表示这些按键呢?只要用大括号括住这些字符即可.例如,要发送加号"+",可使用" WshShell.SendKeys "{+}" ".另外对于一些不会生成字符的控制功能按键,也同样需要使用大括号括起来按键号名称,例如要发送回车键,需要用" WshShell.SendKeys "{ENTER}" "表示,发送向下的方向键用" WshShell.SendKeys "{DOWN}" "表示.
F14 {F14}
F15 {F15}
F16 {F16}
TAB {TAB}
UP ARROW {UP}
F1 {F1}
F2 {F2}
F3 {F3}
F4 {F4}
F5 {F5}
F6 {F9}
F10 {F10}
F11 {F11}
F12 {F12}
F13 {F13}
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}
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}
其使用格式为:
object.SendKeys string
"object":表示WshShell对象
"string":表示要发送的按键指令字符串,需要放在英文双引号中.
1.基本键
一般来说,要发送的按键指令都可以直接用该按键字符本身来表示,例如要发送字母"x",使用
WshShell.SendKeys "x" 即可.
Shift +
Ctrl ^
Alt %
如要发送的组合按键是同时按下Ctrl+E,需要用" WshShell.SendKeys "^e" "表示,
如果要发送的组合按键是按住Ctrl键的同时按下E与C两个键,这时应使用小括号把字母括起来,书写格式为" WshShell.SendKeys "^(ec)" ".这里要注意它与" WshShell.SendKeys "^ec" "的区别,后者表示组合按键是同时按住Ctrl和E键,然后松开Ctrl键,单独按下"C"字母键
小提示
如果需要发送多个重复的单字母按键,不必重复输入该字母,SendKdys允许使用简化格式进行描述,使用格式为"{按键 数字}".例如要发送10个字母"x",则输入" WshShell.SendKeys "{x 10}" "即可.
Shift +
Ctrl ^
Alt %
BACKSPACE {BACKSPACE}, {BS}, or {BKSP}