2011-05-26 15:29 1830人阅读 评论(0) 收藏 举报

版权声明:本文为博主原创文章,未经博主允许不得转载。

什么是VBscript 呢?

VBscrīpt 的全称是:Microsoft Visual Basic scrīpt Editon.(微软公司可视化BASIC 脚本
版). VBS(VBscrīpt 的进一步简写)是基于Visual Basic 的脚本语言,其不编译成二进制文件, 而是直接由
宿主(host)解释源代码并执行, 简单点说就是你写的程序不需要编译成.exe, 而是直接给用户发送.vbs 的
源程序, 用户就能执行了.
SendKeys 方法
模拟键盘操作,将一个或多个按键指令发送到指定Windows 窗口来控制应用程序运行,
其使用格式为:object.SendKeys(string)
“object”:表示WshShell 对象
“string”:表示要发送的按键指令字符串,需要放在英文双引号中。
-----------------------------------
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 "{+}"”
另外对于一些不会生成字符的控制功能按键,也同样需要使用大括号括起来按键的名称。
例如要发送回车键,需要用“ WshShell.SendKeys "{ENTER}" ”表示;
发送向下的方向键用“ Wshell.SendKeys "{DOWN}" ”表示。
Space---------WshShell.SendKeys " "
Enter---------WshShell.SendKeys "{ENTER}"
←---------WshShell.SendKeys "{RIGHT}"
↑---------WshShell.SendKeys "{UP}"
F1---------WshShell.SendKeys "{F1}"
 
 
 
按键代码
BACKSPACE {BACKSPACE}, {BS}, 或{BKSP}
BREAK {BREAK}
CAPS LOCK {CAPSLOCK}
DEL or Delete {Delete} 或{DEL}
DOWN ARROW {DOWN}
END {END}
ENTER {ENTER}或~
ESC {ESC}
HELP {HELP}
HOME {HOME}
INS or Insert {Insert} 或{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}
 
Tips:如果需要发送多个重复的单字母按键,不必重复输入该字母,SendKeys 允许使用简化格式进行描述,
使用格式为“{按键数字}”。例如要发送10 个字母“x”,则输入“WshShell.SendKeys "{x 10}"”即
可。
-----------------------------------
按下F5 刷新桌面
 
Dim WshShell,Path,i
Set WshShell = Wscrīpt.CreateObject("Wscrīpt.Shell")
WshShell.SendKeys "{F5}"
----------------------------------------------------
 
电脑的自动重启
set WshShell = CreateObject("Wscrīpt.Shell")
WshShell.SendKeys "^{ESC}u"
WshShell.SendKeys "R"
 
----------------------------------------------------
启动任务管理器
set WshShell = CreateObject("Wscrīpt.Shell")
WshShell.SendKeys "^+{ESC}"
----------------------------------------------------
QQ 消息连发
Dim WshShell
Set WshShell= Wscrīpt.createObject("Wscrīpt.Shell")
WshShell.AppActivate "bomb"
for i=1 to 60
Wscrīpt.Sleep 800
WshShell.SendKeys "What do you say"
WshShell.SendKeys i
WshShell.SendKeys "%s"
next
----------------------------------------------------
自动到百度搜索歌曲:white flag
Dim WshShell,Path,i
Set WshShell = Wscrīpt.CreateObject("Wscrīpt.Shell")
WshShell.Run("IEXPLORE.EXE")
Wscrīpt.Sleep 2000
WshShell.AppActivate "about:blank-Microsoft Internet Explorer"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "http://mp3.baidu.com"
Wscrīpt.Sleep 800
WshShell.SendKeys "{ENTER}"
Wscrīpt.Sleep 3000
WshShell.SendKeys "white flag"
Wscrīpt.Sleep 800
WshShell.SendKeys "{ENTER}"
----------------------------------------------------
自动关机
Dim WshShell
Set WshShell=Wscrīpt.CreateObject("Wscrīpt.Shell")
Wscrīpt.Sleep 2000
WshShell.Run "shutdown -r -t 120"
wscrīpt.sleep 6000
WshShell.Run "shutdown -a"
----------------------------------------------------
在记事本中输入Happy Birthday!并保存为birth.txt
 
Dim WshShell
Set WshShell=Wscrīpt.CreateObject("Wscrīpt.Shell")
WshShell.Run "notepad"
 
Wscrīpt.Sleep 1500
WshShell.AppActivate "无标题- 记事本"
WshShell.SendKeys "H"
Wscrīpt.Sleep 500
WshShell.SendKeys "a"
Wscrīpt.Sleep 500
WshShell.SendKeys "p"
Wscrīpt.Sleep 500
WshShell.SendKeys "p"
Wscrīpt.Sleep 500
WshShell.SendKeys "y"
Wscrīpt.Sleep 500
WshShell.SendKeys " "
Wscrīpt.Sleep 500
WshShell.SendKeys "B"
Wscrīpt.Sleep 500
WshShell.SendKeys "i"
Wscrīpt.Sleep 500
WshShell.SendKeys "r"
Wscrīpt.Sleep 500
WshShell.SendKeys "t"
Wscrīpt.Sleep 500
WshShell.SendKeys "h"
Wscrīpt.Sleep 500
WshShell.SendKeys "d"
Wscrīpt.Sleep 500
WshShell.SendKeys "a"
Wscrīpt.Sleep 500
WshShell.SendKeys "y"
Wscrīpt.Sleep 500
WshShell.SendKeys "!"
Wscrīpt.Sleep 500
WshShell.SendKeys "%FS"
Wscrīpt.Sleep 500
WshShell.SendKeys "b"
Wscrīpt.Sleep 500
WshShell.SendKeys "i"
Wscrīpt.Sleep 500
WshShell.SendKeys "r"
Wscrīpt.Sleep 500
WshShell.SendKeys "t"
Wscrīpt.Sleep 500
WshShell.SendKeys "h"
Wscrīpt.Sleep 500
WshShell.SendKeys "%S"
Wscrīpt.Sleep 500
WshShell.SendKeys "%FX"
----------------------------------------------------
制作能自动定时存盘的记事本
 
第一部分:定义变量和对象
Dim WshShell, AutoSaveTime, TXTFileName
AutoSaveTime=300000
Set WshShell=Wscrīpt.CreateObject("Wscrīpt.Shell")
TXTFileName=InputBox("请输入你要创建的文件名(不能用中文和纯数字):")
 
第二部分:打开并激活记事本
WshShell.Run "notepad"
Wscrīpt.Sleep 200
WshShell.AppActivate "无标题- 记事本"
 
'第三部分:用输入的文件名存盘
WshShell.SendKeys "^s"
Wscrīpt.Sleep 300
WshShell.SendKeys TXTFileName
Wscrīpt.Sleep 300
WshShell.SendKeys "%s"
Wscrīpt.Sleep AutoSaveTime
 
'第四部分:自动定时存盘
While WshShell.AppActivate (TXTFileName)=True
WshShell.SendKeys "^s"
Wscrīpt.Sleep AutoSaveTime
Wend
Wscrīpt.Quit
----------------------------------------------------
DIM WSHSHELL
SET WSHSHELL=Wscrīpt.CreateOBJECT("Wscrīpt.SHELL")
'WSHSHELL.RUN " "
'Wscrīpt.SLEEP 1000
WSHSHELL.SENDKEYS "{ENTER}"
'Wscrīpt.SLEEP 1000
WSHSHELL.SENDKEYS "{ENTER}"
'Wscrīpt.SLEEP 1000
WSHSHELL.SENDKEYS "{ENTER}"
'Wscrīpt.SLEEP 1000
WSHSHELL.SENDKEYS "{ENTER}"
'Wscrīpt.SLEEP 1000
WSHSHELL.SENDKEYS "{ENTER}"
 

vbs use的更多相关文章

  1. C#调用vbs脚本实现Windows版Siri

    最近新加入,把自己一些有意思的小东西分享给大家,我是一个学生,代码写得少,哪里不规范,希望大家见谅. 这事我封装好的一个类,可以直接实例化对象之后,调用"对象.Talk()"方法, ...

  2. 在WinCC中通过VBS操作SQL Server2005

    在项目中需要在一定条件满足时,保存一些数据到数据库中,并可根据条件查询.考虑到WinCC6.2以后采用的就是SQL Server2005数据库,所以直接利用该数据库即可,通过SQL Server Ma ...

  3. 使用vbs脚本进行批量编码转换

    使用vbs脚本进行批量编码转换 最近需要使用SourceInsight查看分析在Linux系统下开发的项目代码,我们知道Linux系统中文本文件默认编码格式是UTF-8,而Windows中文系统中的默 ...

  4. vbs让电脑发音说话

    Dim vbs1 'set vbs1 = WScript.CreateObject("WScript.Shell") set vbs1 = WScript.CreateObject ...

  5. WSF脚本详解:组合JS和VBS代码

    1.概述 Windows Script Host除了提供一个对象模型之外,还提供了一种脚本框架,这就是WSF脚本.通过WSF约定的标记元素,可以将多种脚本语言写的代码块组合起来,完成任务.除此之外,还 ...

  6. HTA全解析:给VBS和JS一个强大的交互界面

    1.概述 HTA全称Html Application,在Windows中由mshta.exe加载执行,是一种本地程序.可使用html元素来构建界面,用JS或VBS来构建执行逻辑,从而强化Windows ...

  7. vbs 中文字符串

    vbs 字符串包含中文字符,文件以UTF-8无BOM格式保存,就会出现“编译器错误: 未结束的字符串常量”错误,改以ANSI保存就没有这个问题

  8. 使用bat/vbs/ahk对Windows下进行自动化操作

    回想90年代,我们在DOS下使用各种命令链对操作进行简化和自动化,如DOS 5.0添加的DosKey,利用管道和重定向对多组命令进行链式操作.后来使用了Ubuntu和其它Linux发型版后,bash下 ...

  9. vbs 的二个解释程序区别与切换及与BAT互调用。

    WScript.exe : 窗口中运行CScript.exe :命令行中运行 用法:<CScript|WScript> scriptname.extension [option...] [ ...

  10. 用VBS实现公司自动打卡

    公司每天要求早晚打卡,方式是登录某一个页面,然后点击上面的圈圈,如下图: 每天都要打开书签,登录这个页面,然后打卡...这么重复性的工作,怎么能是程序员天天干的事情呢(其实是我太懒了),那么就尝试让程 ...

随机推荐

  1. UNIX环境高级编程--9. 进程控制

    进程关系    当子进程终止时,父进程得到通知并能取得子进程的退出状态. 终端登录:    早起UNIX系统通过哑终端登录,本地的终端 or 远程的终端 .主机上链接的终端设备是固定的,所以同时登录数 ...

  2. NHibernate学习(零)-本次学习遇到的错误汇总

    问题一: "System.TypeInitializationException"类型的未经处理的异常在 KimismeDemo.exe 中发生 其他信息: "NHibe ...

  3. sql 列集合转换成逗号分隔的字符类型

    CREATE function [dbo].[getGroupPath](@groupId int) returns nvarchar(2000) as begin declare @path nva ...

  4. Android项目实战_手机安全卫士手机防盗界面

    #安全卫士手机防盗# ###1.Activity的任务栈 1.类似一个木桶,每层只能放一个木块,我们放入木块和取出木块的时候只能从最上面开始操作 ###2.Android中的坐标系![](http:/ ...

  5. JS——事件冒泡与捕获

    事件冒泡与事件捕获 1.冒泡:addEventListener("click",fn,false)或者addEventListener("click",fn): ...

  6. DOS批处理命令-字符串操作

    1.字符串替换 语法结构:%变量名:替换前=替换后% @set str=teh cat in teh hat @echo %str% @set str=%str:teh=the% @echo %str ...

  7. 扩增子图表解读5火山图:差异OTU的数量及变化规律

    火山图 Volcano plot 在统计学上,火山图是一种类型的散点图,被用于在大数据中快速鉴定变化.由于它的形成像火山喷发的样子,所以被称为火山图.和上文讲的曼哈顿图类似.   火山图基本元素 火山 ...

  8. CDR软件-CorelDRAW软件下载,618活动

    618我有诚意,你呢? 不花钱的618,是残缺的618 给自己一个放肆shopping的机遇 活动力度不够大? 继续升级,终极体验 618疯狂倒计时! 同志们,如果你错过了之前的抢先购和升级活动 那么 ...

  9. CAD把一个命令当着一个函数调用,不执行(com接口VB语言)

    主要用到函数说明: MxDrawXCustomFunction::Mx_SendStringToExecuteFun 把一个命令当着一个函数调用,不执行,详细说明如下: 参数 说明 CString s ...

  10. vue和iview中native点击事件修饰

    在父组件中给子组件绑定一个原生的事件,就将子组件变成了普通的HTML标签,不加'. native'事件是无法触 在vue中使用iview的dropdownMenu 上单纯的@click也不生效,要写成 ...