zoukankan      html  css  js  c++  java
  • vbs脚本

    巧用Vbs SendKeys 可以做的事
    发布: 2014-04-06 10:00:20 | 作者: | 来源: 按键精灵资源站
    巧妙使用VBS中的SendKeys命令(这个命令的作用就是模拟键盘操作,将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行),可以极大的方便我们的常用操作。其使用格式为:

    Object.SendKeys string其中:

    Object:为WshShell对象,即脚本的第一行为:

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

    Object替换为WshShell

    string”:表示要发送的按键指令字符串,需要放在英文双引号中。它包含如下内容:

    1.基本键:一般来说,要发送的按键指令都可以直接用该按键字符本身来表示,例如要发送字母“x”,使用“WshShell.SendKeys

    "x"”即可。当然,也可直接发送多个按键指令,只需要将按键字符按顺序排列在一起即可,例如,要发送按键“cfan”,可以使用

    WshShell.SendKeys "cfan"”。

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

    如要发送的组合按键是同时按下CtrlE,需要用WshShell.SendKeys

    "^e"”表示,如果要发送的组合按键是按住Ctrl键的同时按下EC两个键,这时应使用小括号把字母键括起来,书写格式为“WshShell.SendKeys

    "^(ec)"”,这里要注意它与“WshShell.SendKeys

    "^ec"”的区别,后者表示组合按键是同时按住CtrlE键,然后松开Ctrl键,单独按下“C”字母键。

    由于“+”、“^”这些字符用来表示特殊的控制按键了,如何表示这些按键呢?只要用大括号括住这些字符即可。例如,要发送加号“+”,可使用“WshShell.SendKeys

    "{+}"”。另外对于一些不会生成字符的控制功能按键,也同样需要使用大括号括起来按键的名称,例如要发送回车键,需要用“WshShell.SendKeys

    "{ENTER}"”表示,发送向下的方向键用

    WshShell.SendKeys "{DOWN}"”表示。

    如果需要发送多个重复的单字母按键,不必重复输入该字母,SendKeys允许使用简化格式进行描述,使用格式为“{按键

    数字}”。例如要发送10个字母“x”,则输入“WshShell.SendKeys "{x 10}"”即可。

    例一:WshShell.SendKeys "^{ESC}u"

    代码的含义为:按下CtrlEsc组合键(相当于按Win键)打开“开始”菜单,接着按U键打开“关机”菜单。

    例二:让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 cfan"

    作业1:让脚本自动输入下面两段小短句

    This is the most wonderful day of my life

    because I'm here with you now

    作业2:让脚本在输入短句后自动关闭记事本,并保存文件名为“test”,注意关闭记事本可以直接使用组合按键AltF4来实现。

    例三:制作能自动定时存盘的记事本

    我们最常用的记事本没有WordWPS那样的自动定时存盘功能,其实利用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,以后要使用记事本时,都通过双击这个脚本文件来打开。

    程序说明:这个脚本的基本思路是定时向记事本发送CtrlS这个存盘组合键。

    第一部分:定义了脚本中需要用到的变量和对象。“AutoSaveTime”变量用来设置自动存盘间隔,单位为毫秒,这里设置为5分钟。“TXTFileName”变量通过输入框取得你要创建的文本文件名称。

    第二部分:运行记事本,对于Windows本身提供的程序,比如计算器等,可直接在“WshShell.Run”后输入程序名称,如"calc",对于非系统程序,则可输入完全路径,但要注意使用8.3格式输入,比如“"D:Progra~1TencentQQ.exe"”。

    第三部分:这里用SendKeys命令执行了这样的操作流程(请注意每个操作之间延时命令的使用):在记事本中按CtrlS组合键→弹出保存文件的窗口→输入文件名→按AltS组合键进行保存(默认保存在“我的文档”目录)。

    第四部分:定时存盘的关键,通过“While……Wend”这个当条件为“真”时循环命令,实现自动存盘代码“WshShell.SendKeys

    "^s"”和定时代码“WScript.Sleep

    AutoSaveTime”的重复执行。因为不能让这个定时存盘循环一直执行,退出记事本后,必须自动退出脚本并结束循环,所以设计了一个循环判断条件“WshShell.AppActivate

    TXTFileName=True”,当记事本运行中时,可以激活记事本窗口,这个条件运行结果为“True”,定时存盘循环一直执行,退出记事本后,脚本无法激活记事本窗口,就会跳出循环,执行“Wend”后面的“WScript.Quit”退出脚本。

    例四:关机菜单立刻显身

    打开记事本,输入以下命令,并将其保存为1.vbs

    set WshShell = CreateObject("WScript.Shell")

    WshShell.SendKeys "^{ESC}u"

    双击运行它,你会发现关机菜单立刻出现了。

    将“WshShell.SendKeys "^{ESC}u"”改为“WshShell.SendKeys "^+{ESC}"”,运行一下看看是否打开了任务管理器。

    让我们举个例子利用SendKeys自动上网并登陆博客

    将下面的脚本复制到一个文本文件中,并将其文件名命名为:自动登陆.vbs,然后将拨号软件及本脚本一起复制到程序——启动项中,就可以实现自动拨号上网,并登陆到博客上。

    代码如下:

    Set wshshell=CreateObject("wscript.shell")

    wshshell.AppActivate "连接 MAE-301U 拨号连接"

    wscript.Sleep 20000

    wshshell.SendKeys "{enter}"

    wshshell.Run "iexplore"

    WScript.Sleep 2000

    wshshell.AppActivate "hao123网址之家---实用网址,搜索大全,尽在www.hao123.com - Microsoft

    Internet Explorer" '引号中的内容修改为你的浏览器打开后标题栏中的内容

    wshshell.SendKeys "%d"

    wshshell.SendKeys "http://passport.baidu.com/?login"

    wshshell.SendKeys "{enter}"

    WScript.Sleep 2000

    wshshell.SendKeys "此处修改为博客帐号"

    wshshell.SendKeys "{tab}"

    wshshell.SendKeys "此处修改为博客密码"

    wshshell.SendKeys "{enter}"

     

  • 相关阅读:
    1101. Quick Sort (25)
    1100. Mars Numbers (20)
    1099. Build A Binary Search Tree (30)
    TCP四次挥手为何需要TIME_WAIT以及为何是2MSL?
    关于priority_queue运算符重载的问题
    leetcode151.翻转字符串里的单词
    华为笔试题--最长公共子串
    华为笔试题--表达式求值
    华为笔试题--字符串合并处理
    华为笔试题--删除字符串中出现次数最少的字符
  • 原文地址:https://www.cnblogs.com/developer-ios/p/5360426.html
Copyright © 2011-2022 走看看