VBS模拟键盘输入

合集下载

VBS语言基础教程

2020/7/1
一、概述
• 优点： • 编写简单 • 功能强大
2020/7/1
二、变量
• 盛放数据的容器。占用一定的内存空间。 • a=12 • b=“你好！” • 可事先定义变量，如： • dim c
2020/7/1
三、对话框
• 1、输入框 • a=inputbox(“请输入第一条边的边长”,”第一条边”) • 2、输出框 • Msgbox(“输入错误！”)
练习5
• 1、现有字符串“10\12\34\23\45\35\45”，根据字符“\”分割字符，计算各字符的总和。
• 提示： • split函数 • 传回数组 = Split(原始字串, 要找的字串, 拆成几个
数组) • t= “10\12\34\23\45\35\45” • a=split(t,”\”) • 相当于a(0)=10 a(1)=12 ***
2020/7/1
六、循环语句
• 从上面的程序总结如下： • 1、大小写无所谓（有语言不行，如C、C#、java
等） • 2、变量第一次使用时值为空 • 3、变量赋值多次时，其值为最后一次赋的值。 • 4、s=s+a表示，s在原值的基础上加上a的值。
2020/7/1
六、循环语句
• For i=1 to 5 • a=int(inputbox(“请输入数据”)) • s=s+a • next • (分析程序运行过程及最后i的值) • 注意问题： • 死循环
2020/7/1
八、VBS对文件的读写操作
• 1、打开文件 • 使用opentextfile方法 • set fs =createobject(“scripting.filesystemobject”) • set ts=fs.opentextfile(“c:\1.txt”,1,true) • 注意这里需要填入文件的完整路径，后面一个参

模拟键盘按键自动输入文字

模拟键盘按键自动输入文字《模拟键盘按键自动输入文字》相关程序代码________________________________________________________________ __________________________BOOL AttachThreadInput(DWORD idAttach, // 需要附加的线程IDDWORD idAttachT o, // 附加到的线程IDBOOL fAttach // true 附加 false 取消);______函数使用的过程大致如下:__________________________________________________________HWND hWnd;hWnd = GetForegroundWindow(); // 得到当前窗口if (hWnd == Form1->Handle) return; // 排除程序本身的窗口DWORD FormThreadID = GetCurrentThreadId(); // 本程序的线程ID// 当前窗口的线程IDDWORD CWndThreadID = GetWindowThreadProcessId(hWnd, NULL);// 附加输入线程AttachThreadInput(CWndThreadID, FormThreadID, true);// 得到当前键盘光标所在的窗口hWnd = GetFocus();// 取消附加的输入线程AttachThreadInput(CWndThreadID, FormThreadID, false);________________________________________________________________ __________________________//--------------------------------------------#include#pragma hdrstop#include "Unit1.h"//--------------------------------------------#pragma package(smart_init)#pragma resource "*.dfm"int nT otalTimes, // 发送本文的总次数nTimes; // 已经发送的次数TForm1 *Form1;//--------------------------------------------__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner){}//--------------------------------------------void __fastcall TForm1::btnStartClick(TObject *Sender) // 开始刷屏{ if (SS_Text->Text.IsEmpty()){// 文本不能为空ShowMessage("请输入刷刷文本！");SS_Text->SetFocus();return;}__try{// Timer1->Interval取值为n秒（最小为50毫秒）int Interval = StrToInt(txtDelay->Text);Timer1->Interval = (Interval > 0) ? Interval * 1000 : 50; // nTotalTimes取值为n次（最小为0次）nTotalTimes = StrToInt(txtTimes->Text);if (nTotalTimes < 0)nTotalTimes = 0;nTimes = 0;Timer1->Enabled = true;}__except(EXCEPTION_EXECUTE_HANDLER){ShowMessage("请输入数值类型数据！");return;}btnStart->Enabled = false;btnStop->Enabled = true;Panel1->Enabled = false;Application->Minimize(); // 最小化刷刷窗口}//--------------------------------------------void __fastcall TForm1::btnStopClick(TObject *Sender)// 停止刷屏{Timer1->Enabled = false;btnStart->Enabled = true;btnStop->Enabled = false;Panel1->Enabled = true;}//--------------------------------------------void __fastcall TForm1::Timer1Timer(TObject *Sender){// 现刷屏nTimes次，到nTotalTimes次后完成。

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经典回忆之键盘输入方式

[键盘输入方式]wshShell.SendKeys 方式探析(2020-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"{+}"”另外关于一些可不能生成字符的操纵功能按键，也一样需要利用大括号括起来按键的名称。

Visualstudio之C#实现数字输入模拟键盘

Visualstudio之C#实现数字输⼊模拟键盘背景当前做的⼀个上位机需运⾏在⼯控机上，众所周知，⼯控机不可能配备键盘，只能是触屏，⽽我当前的上位机需要输⼊参数，于是之前的解决办法既是调⽤Windows⾃带的OSK.exe虚拟键盘，⽅法在我的另⼀外⼀篇博客中已详述，但这种做法有两个致命缺陷，⼀是由于调⽤了外部.exe程序，国产杀毒软件会将我的上位机判定为疑似病毒⽂件（⼿动微笑）；⼆是，若是该虚拟键盘被提前打开，我就没办法继续打开该软键盘使其在我的上位机界⾯之上，⽽该软键盘不是由我打开，我就获取不到它的Process，也就⽆法将其关闭重新打开，⼯控机的界⾯通常不会出现任务栏，因此虚拟键盘要是没有实体键盘就永远⽆法打开，头疼⾄极。

于是就想到⾃⼰实现软键盘。

便有此⽂，做个记录。

⾸先强调⼀下，本软键盘⾮真正意义的软键盘，只是⽤了很笨的⽅法在同⼀个界⾯上提供了⼀个数字输⼊的解决⽅案，实际效果如下：正⽂为了不让按键在点击的时候获取焦点，所以我采⽤了label控件，⼀共12个控件，分别是0,1...9,退格，清除，对应的name分别为,keyb0,keyb1,```keb9,keybback,keybclear，对应的Text就是相应的0,1,2...9,退格，清除，为了调整所有按键⼤⼩，属性Autosize应该设置为false。

在窗体Load事件中，添加所有label控件的单击事件mybutton_clicked，private void lazerctrl_Load(object sender, EventArgs e){// 注册键盘按键单击事件keyb1.Click += new EventHandler(mybutton_clicked);keyb2.Click += new EventHandler(mybutton_clicked);keyb3.Click += new EventHandler(mybutton_clicked);keyb4.Click += new EventHandler(mybutton_clicked);keyb5.Click += new EventHandler(mybutton_clicked);keyb6.Click += new EventHandler(mybutton_clicked);keyb7.Click += new EventHandler(mybutton_clicked);keyb8.Click += new EventHandler(mybutton_clicked);keyb9.Click += new EventHandler(mybutton_clicked);keyb0.Click += new EventHandler(mybutton_clicked);keybback.Click += new EventHandler(mybutton_clicked);keybclear.Click += new EventHandler(mybutton_clicked);}在⿏标按键事件中，将控件代表的数字值，填⼊到页⾯上最后⼀个获取到焦点的TextBox，内。

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实现自动按键（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实现自动按键

脚本实现自‎动按键盘的‎某个键过‎程是：按‎下F5间‎隔50毫秒‎松开F5‎间隔30‎00毫秒‎按下F5‎间隔50毫‎秒松开F‎5回到第‎一步批‎处理是不行‎的用V‎B S 很简‎单例子‎如下Se‎t obj‎S hell‎= Cr‎e ateO‎b ject‎("Wsc‎r ipt.‎S hell‎")d‎oWSc‎r ipt.‎S leep‎3000‎objS‎h ell.‎S endK‎e ys "‎{F5}"‎‎‎‎WScr‎i pt.S‎l eep ‎3000‎o bjSh‎e ll.S‎e ndKe‎y s "{‎F5}" ‎loo‎p‎‎使用‎Send‎K eys ‎方法可以将‎键击发送到‎无自动化界‎面的应用程‎序中。

多数‎键盘字符都‎可用一个键‎击表示。

某‎些键盘字符‎由多个键击‎组合而成（‎例如，CT‎R L+SH‎I FT+H‎O ME）。

‎要发送单个‎键盘字符，‎请将字符本‎身作为 s‎t ring‎参数发送‎。

例如，要‎发送字母‎x，则请发‎送 str‎i ng 参‎数 "x"‎。

‎可‎使用 Se‎n dKey‎s同时发‎送多个键击‎。

为此，可‎将每个键击‎按顺序排列‎在一起，以‎此来创建表‎示一系列键‎击的复合字‎符串参数。

‎例如，要发‎送键击 a‎、b和‎c，则需要‎发送字符串‎参数 "a‎b c" 。

‎S endK‎e ys 方‎法将某些字‎符用作字符‎的修饰符（‎而不使用其‎本身的含义‎）。

这组特‎殊的字符可‎包括圆括号‎、中括号、‎大括号，以‎及：‎‎‎加‎号‎‎ "‎+"‎插‎入记号‎‎ "^"‎‎百分号‎‎‎"%"‎‎和“非”‎符号‎ "~"‎‎用大‎括号 "{‎}" 括起‎这些字符可‎以发送它们‎。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

多数键盘字符都可用一个键击表示。

某些键盘字符由多个键击组合而成（例如，CTRL+SHIFT+HOME）。

要发送单个键盘字符，请将字符本身作为 string 参数发送。

例如，要发送字母 x，则请发送 string 参数 "x"。

可使用 SendKeys 同时发送多个键击。

为此，可将每个键击按顺序排列在一起，以此来创建表示一系列键击的复合字符串参数。

例如，要发送键击 a、b 和 c，则需要发送字符串参数 "abc" 。

SendKeys 方法将某些字符用作字符的修饰符（而不使用其本身的含义）。

这组特殊的字符可包括圆括号、中括号、大括号，以及：加号"+"插入记号"^"百分号"%"和“非”符号"~"用大括号 "{}" 括起这些字符可以发送它们。

例如，要发送加号，请使用字符串参数 "{+}"。

要发送左中括号字符，请发送字符串参数 "{[}"；要发送右中括号字符，请发送字符串参数 "{]}"。

要发送左大括号字符，请发送字符串参数 "{{}"；要发送右大括号字符，请发送字符串参数 "{}}"。

某些键击不生成字符（如 ENTER 和 TAB）。

某些键击表示操作（如 BACKSPACE 和 BREAK）。

要发送这些类型的键击，请发送下表中列出的参数：空格键" "退格键{BACKSPACE} 或 {BS} 或 {BKSP}BREAK {BREAK}DELETE {DELETE} 或{DEL}向下键{DOWN}向上键{UP}向左键{LEFT}向右键{RIGHT}END {END}ENTER {ENTER} 或~ESC {ESC}TAB {TAB}CAPS LOCK {CAPSLOCK}HELP {HELP}HOME {HOME}INSERT {INSERT} 或{INS}NUM LOCK {NUMLOCK}PAGE DOWN {PGDN}PAGE UP {PGUP}PRINT SCREEN {PRTSC}SCROLL LOCK {SCROLLLOCK}F1 {F1}F2 {F2}F3 {F3}F4 {F4}F5 {F5}F6 {F6}F7 {F7}F8 {F8}F9 {F9}F10 {F10}F11 {F11}F12 {F12}要发送由常规键击和 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}。

例子1：关机脚本（模拟按键为：Ctrl + Esc、u、u ）把以下代码复制至记事本，另存为 off.vbsset WshShell = CreateObject("WScript.Shell")WshShell.SendKeys "^{ESC}uu"例子2：重启脚本（模拟按键为：Ctrl + Esc、u、r ）把以下代码复制至记事本，另存为 reboot.vbsset WshShell = CreateObject("WScript.Shell")WshShell.SendKeys "^{ESC}ur"例子3：切换输入法（模拟同时按下：Shift Ctrl ）set WshShell = CreateObject("WScript.Shell")WshShell.SendKeys "+(^)"例子4：输入 ! 至记事本并保存为 CnDos.txtDim WshShellSet WshShell=WScript.CreateObject("WScript.Shell")WshShell.Run "notepad"WScript.Sleep 1500WshShell.AppActivate "无标题 - 记事本"WshShell.SendKeys "c"WScript.Sleep 200WshShell.SendKeys "n"WScript.Sleep 200WshShell.SendKeys "-"WScript.Sleep 200WshShell.SendKeys "d"WScript.Sleep 200WshShell.SendKeys "o"WScript.Sleep 200WshShell.SendKeys "s"WScript.Sleep 200WshShell.SendKeys "."WScript.Sleep 200WshShell.SendKeys "n"WScript.Sleep 200WshShell.SendKeys "e"WScript.Sleep 200WshShell.SendKeys "t"WScript.Sleep 200WshShell.SendKeys "!"WScript.Sleep 200WshShell.SendKeys "%FS"WScript.Sleep 500WshShell.SendKeys "C"WScript.Sleep 200WshShell.SendKeys "n"WScript.Sleep 200WshShell.SendKeys "D"WScript.Sleep 200WshShell.SendKeys "o"WScript.Sleep 200WshShell.SendKeys "s"WScript.Sleep 200WshShell.SendKeys "%S"WScript.Sleep 500WshShell.SendKeys "%FX"例子5：自动定时存盘的记事本（此脚本来自网上）'第一部分：定义变量和对象Dim WshShell, AutoSaveTime, TXTFileNameAutoSaveTime=(1000*60*1) '自动存盘时间为1分钟Set 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例子：set objShell = CreateObject("Wscript.Shell")strCommandLine = "psetup755281.exe" '启动安装程序objShell.Run(strCommandLine)set WshShell = CreateObject("WScript.Shell")WScript.Sleep 2000 '延时3秒WshShell.SendKeys "{ENTER}" '模拟按下回车键执行下一步WScript.Sleep 300 '延时3秒WshShell.SendKeys "{ENTER}" '模拟按下回车键执行下一步WScript.Sleep 300 '延时3秒WshShell.SendKeys "{ENTER}" '模拟按下回车键执行下一步WScript.Sleep 5200 '延时3秒WshShell.SendKeys "{ENTER}" '模拟按下回车键执行下一步WScript.Sleep 300 '延时3秒WshShell.SendKeys "{ENTER}" '模拟按下回车键执行下一步WScript.Sleep 300 '延时3秒WshShell.SendKeys "{ENTER}" '模拟按下回车键执行下一步WScript.Sleep 200WshShell.SendKeys " " '模拟按下空格键去除安装百度超级搜霸一行前的√号WScript.Sleep 100WshShell.SendKeys "{TAB}" '模拟按下 Tab 键选择安装项目WScript.Sleep 200WshShell.SendKeys " " '模拟按下空格键去除安装百度超级搜霸一行前的√号WScript.Sleep 200 '延时0.3秒WshShell.SendKeys "f" '模拟按下 F键同意协议*************另外方式：<%dim endtimeendtime=timer()response.write "页面执行时间："&FormatNumber(endtime*1000,3)&"毫秒"%>对比下面是计算相差的日期<%sdate="2008-1-10"DiffADate=DateDiff("d",sdate,now)%>***************************************************************VBS中SendKeys方法将响应键盘的操作，并发送此值。