下载

1下载券

加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 VBS基础教程

VBS基础教程.doc

VBS基础教程

chjjy
2011-04-24 0人阅读 举报 0 0 暂无简介

简介:本文档为《VBS基础教程doc》,可适用于其他资料领域

VBS基础教程VBS基础教程  Vbs脚本编程简明教程之一为什么要使用Vbs? 在Windows中学习计算机操作也许很简单但是很多计算机工作是重复性劳动例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除也许你每天启动计算机第一件事情就是打开WORD切换到你喜爱的输入法进行文本编辑同时还要播放优美的音乐给工作创造一个舒心的环境当然也有可能你经常需要对文本中的某些数据进行整理把各式各样的数据按照某种规则排列起来……。这些事情重复、琐碎使人容易疲劳。第三方软件也许可以强化计算机的某些功能但是解决这些重复劳动往往事倍功半我也尝试过使用计算机语言编写程序来解决这些问题但是随之而来的命令、语法、算法、系统框架和类库常常让我觉得这样是否有必要难道就是因为猪毛比较难拔所以我就要去学习机械为自己设计一个拔猪毛机()吗?Vbs是一种Windows脚本它的全称是:MicrosoftVisualBasicScriptEditon(微软公司可视化BASIC脚本版)VBS是VisualBasic的的一个抽象子集是系统内置的用它编写的脚本代码不能编译成二进制文件直接由Windows系统执行(实际是一个叫做宿主host的解释源代码并执行)高效、易学但是大部分高级语言能干的事情它基本上都具备它可以使各种各样的任务自动化可以使你从重复琐碎的工作中解脱出来极大的提高工作效率。我个人认为Vbs脚本其实就是一种计算机编程语言但是由于缺少计算机程序设计语言中的部分要素对于事件的描述能力较弱所以称为脚本它最方便的地方就是提供了对COM对象的简便支持。那么什么是COM对象呢?我这样理解COM对象就是一些具有特定函数功能项程序模块他们一般以ocx或者dll作为扩展名你只要找到包含有你需要的功能的模块文件并在脚本中规范的引用就可以实现特定的功能也就是说Vbs脚本就是调用现成的“控件”作为对象用对象的属性和方法实现目的完全免去了编写代码、设计算法等等麻烦。说白了我不是觉得拔猪毛麻烦么?我发觉xx机(比如真空离心器)有一个功能可以实现脱毛ok我把它拿来给猪脱毛。什么?大材小用?太浪费资源了?天哪那是计算机芯片的事情死道友不死贫道反正我的事情是方便快速的解决了这就行了。最方便的是它甚至不需要专门的开发环境在你的计算机中只要有notepad就可以编写Vbs脚本了并且可以直接执行。◎Vbs脚本编程简明教程之二如何开始第一个Vbs脚本?就像多数计算机教程一样我们从“Hello World!”程序开始我们的练习。什么?不知道是什么意思?就是说大部分的计算机程序设计教程开篇入门都是编写一个小程序执行这个程序的结果就是在计算机的屏幕上或者dos窗口中显示一行文字:Hello World!好了我们开始吧。打开你的“记事本”程序在编辑窗口填写:msgbox"HelloWorld!"然后用鼠标单击“文件”菜单单击“保存”把“保存在”一栏设为桌面在“文件名”一栏中填写kkvbs单击“保存”就可以了。然后最小化“记事本”窗口在桌面上寻找你刚刚保存的kkvbs然后双击。看到弹出的对话框了没有单击“确定”对话框消失了。难看了点不过确实是你编写的第一个脚本程序。说明之一:上面的操作中保存位置放在桌面仅仅是为了执行方便你保存到其他的地方完全没有问题只要你知道你保存在什么地方就可以了什么?是废话自己保存的当然知道保存在那里了。不自己保存的文件自己找不到的人我见的多了去了。文件名你可以随意填写不一定非要写kk只要符合Windows的文件命名规则就可以了但是扩展名必须是vbs什么不知道什么是扩展名?就是文件名中“”后的那部分简单说就是vbs脚本文件命名时必须是:xxxvbs其中xxx你随意。说明之二:在记事本编辑窗口中写的这行是什么意思?Msgbox是VBS内建的函数每一个函数都可以完成一定的功能你只需要按照语法要求在函数的相应部分填写相应的内容就可以了这部分内容我们称为参数当然函数执行的结果我们称为返回值一个函数可以有返回值也可以没有可以有参数也可以没有。你不用了解函数是怎么运作的只要了解这个函数能干什么就行了。Msgbox语法:msgbox "对话框内容",,"对话框的标题"你不妨用记事本打开刚才的文件在编辑窗口中输入:msgbox"HelloWorld!",,"系统提示"执行一下看看效果和位置。说明之三:如果执行失败看看你的标点符号所有的标点符号必须是在英文状态下输入的。当然这个脚本实在是太简单了甚至连最简单的交互都没有所以你可以把脚本这样修改一下:Dimnamename=Inputbox("请输入你的名字:","名称")Msgbox name,,"您的名字是"保存执行一下看到弹出的对话框了么?填入你的名字点确定看到结果了吗?说明之一:第一句是定义变量dim是定义变量的语句其格式为:dim变量,变量……Vbs只有一种变量类型所以不用声明变量类型。系统会自动分辨变量类型。说明之二:inputbox是VBS内建的函数可以接受输入的内容其语法格式为:Inputbox("对话框内容","对话框标题")第二句的意思是接受用户的输入并把输入结果传递给变量name。好了到此脚本基本的输入输出函数都有了已经可以完成一些比较简单的功能了你可以编写一个简单的脚本然后拷贝的“程序”>“启动”中然后重新启动计算机看看结果。 ◎Vbs脚本编程简明教程之三Vbs的基本语法(牢记)VBScript基础知识一、变量、所有单引号后面的内容都被解释为注释。、在VBScript中变量的命名规则遵循标准的命名规则需要注意的是:在VBScript中对变量、方法、函数和对象的引用是不区分大小写的。在申明变量时要显式地申明一个变量需要使用关键字DIm来告诉VBScript你要创建一个变量并将变量名称跟在其后。申明多个同类型变量可以用逗号分隔。注意:VBScript中不允许在申明变量的时候同时给变量赋值。但是允许在一行代码内同时对两个变量进行赋值中间用冒号分隔。、你可以使用OptionExplicit来告诉宿主变量必须先声明后使用。、VBScript在定义时只有一种变量类型在实际使用中需要使用类型转换函数来将变量转换成相应的变量类型。Cbool函数将变量转换成布尔值Cbyte函数将变量转换为到之间的整数。Ccur函数、Cdbl函数和Csng函数将变量转换为浮点数值前者只精确到小数点后四位后两者要更加精确数值的范围也要大的多。Cdate函数将变量转换为日期值。Cint函数和Clng函数将变量转换为整数后者的范围比前者要大的多。Cstr函数将变量转换为字符串。二、数组数组的定义与变量非常类似只需要在变量后描述这个数组的个数和维数。需要注意的是:数组的下标总是从开始而以数组定义中数值减一结束。也就是说你以要定义一个有十个数据的数组将这样书写代码:dImarray()同样当你要访问第五个元素时实际的代码是array()。当然你可以通过不指定数组的个数和维数来申明动态数组。等到数组的个数和维数固定后使用关键字redim来改变数组。注意在改变数组的大小时数组的数据会被破坏使用关键字preserve来保护数据。例如:RedIm空格preserve空格array括号个数逗号维数括号三、操作符在VBScript运算符中加减乘除都是我们常用的符号乘方使用的是^取模使用的Mod。在比较操作符中等于、小于、大于、小于等于、大于等于都与我们常用的符号是一致的而不等于是小于和大于连用。逻辑运算符为:和操作>AND    非操作>NOT    或操作>OR你可以使用操作符和操作符来连接字符串一般使用操作符另外还有一个比较特殊的操作符Is用来比较对象例如按钮对象如果对象是同一类型结果就是真如果对象不是同一类型结果就是假。四、条件语句主要有if……then语句和selectcase语句两种形式在if……then语句中其基本形式为:If 条件 then处理条件的语句……Endif基本形式只能对单个条件进行验证如果有两个条件则需要在基本形式中添加单行语句else如果还有更多的条件需要验证则需要添加语句Elseif条件 then处理条件语句在selectcase语句中其基本形式为:Select case 变量Case 条件值处理条件语句并对上两句进行重复最后一句应为case else处理语句当然不要忘记将条件结束语句End select放在最后一行注意:在执行字符串比较时需要特别注意大小写一般情况下我们在比较前使用lcase函数将字符串转换成小写使用ucase函数将字符串转换成大写大写。五、循环控制语句循环控制语句有for……next循环、for……each循环、do……while循环、do……until循环、while循环五种形式。在使用循环控制语句前首先要对循环条件进行判断如果循环次数是有固定次数的那么使用For……next循环其结构为:For  计数器变量=开始计数值 to 最后计数值执行循环体Next如果是需要对数组或对象集合中的每一个元素进行判断则需要使用for……each循环其结构为:For each 循环计数变量 in 要查看的对象或数组执行处理语句Next注意:在上述两种循环中随时可以使用exit for来退出循环如果你希望在条件满足时执行一段代码则使用do……while语句结构为:Do while 条件执行循环体Loop如果你希望在条件不满足时执行代码则使用do……until语句结构为:Do until 条件执行循环体Loop当然在这两种循环语句中你可以使用exit do来退出循环最后一种循环语句是条件满足时一直执行循环While 条件执行循环体Wend六、使用过程常用的过程有两种一种为函数给调用者返回值一种为子程序无返回值还有一种叫事件的特殊子程序用的比较少。函数的基本定义方法为:Function 函数名称(参数列表)函数代码函数名称=某值‘用来返回值end function子程序一些都类似不过没有返回值注意:尽管在定义子程序的时候参数列表要加括号但在调用子程序的时候参数列表不加括号括号只在函数中使用。另外子程序不能在表达式中使用。而函数只能出现在赋值语句的右边或者表达式中函数不能直接使用如果必须直接使用函数则必须使用call语句调用并取消返回值。 ◎Vbs脚本编程简明教程之四如何利用Vbs运行外部程序?Vbs只提供了编程的一个基本框架用户可以使用Vbs来定义变量、过程和函数vbs也提供了一些内部函数和对象但是Vbs没有提供任何命令来访问Windows系统内部的部件但是值得庆幸的是Vbs虽然不能自己完成这些任务但是它提供了一条极为方便、功能也相当强的命令CreateObject这条命令可以访问windows系统内安装的所有com对象并且可以调用这些部件中存放的命令。于是问题解决了比如说我手头有个小文本我首先要对每一个文本的语法进行查错和修改然后按照预先定义好的规则对这些文本进行排序最后将这些文本合并成为一个文件。正常情况下我们需要把打开第一个小文本然后把它复制到WORD中然后利用里面的除错功能进行除错和修改然后再导入到EXCEL中进行排序将这个过程重复遍然后再将所有得到的文本复制到一个大文本中。实在是太枯燥、工作量太大了。有了Vbs和CreateObject问题得到解决我只需要找到相应的模块调用相应的功能就可以了作为脚本把一个枯燥的过程重复次本就是它的拿手好戏。好了我们走入正题从最简单的只启动一个程序开始。WSH也就是用来解析Vbs的宿主本身包含了几个个常用对象:、ScriptingFileSystemObject > 提供一整套文件系统操作函数、ScriptingDictionary > 用来返回存放键值对的字典对象、WscriptShell > 提供一套读取系统信息的函数如读写注册表、查找指定文件的路径、读取DOS环境变量读取链接中的设置、WscriptNetWork > 提供网络连接和远程打印机管理的函数。(其中所有Scripting对象都存放在SCRRUNDLL文件中所有的Wscript对象都存放在WSHOMocx文件中。)现在我们需要的是第三个对象好了让我们先连接一下对象看看在记事本的编辑窗口中输入:SetobjShell=CreateObject(“WscriptShell”)objShellRun“notepad”同样保存执行。那么看到了一个什么样的结果呢?在桌面上又打开了一个记事本。说明之一:Set是Vbs指令凡是将一对象引用赋给变量就需要使用set关键字。那么什么是对象引用呢?凡是字符串、数值、布尔值之外的变量都是对象引用。Objshell是变量名可以随意修改。说明之二:反是正确引用的对象其本身内置有函数和变量其引用方法为在变量后加“”后紧跟其实现功能的函数就可以了。Objshellrun的意思就是调用Wscriptshell中的运行外部程序的函数runnotepad是记事本程序的文件名。当然你也可以改成“calc”这是计算器的文件名winword是word的文件名等等吧所有可执行文件的文件名都可以。但是需要注意的是如果你要执行的可执行文件存放的地方不是程序安装的常用路径一般情况下需要提供合法的路径名但是run在运行解析时遇到空格会停止解决的方法是使用双引号例如:在我的机器上运行qq代码为:objshellrun"""C:ProgramFilesQQQQexe""" ‘注:三个引号好我们再进一步启动两个程序会如何呢?输入如下代码:SetobjShell=CreateObject(“WscriptShell”)objShellRun“notepad”objShellRun“calc”执行会如何呢?两个程序基本上同时启动了。如果我们需要先启动notepad再启动calc将如何呢?很简单在需要顺序执行的代码后加,,True参数就可以了。好了输入代码:SetobjShell=CreateObject(“WscriptShell”)objShellRun“notepad”,,trueobjShellRun“calc”看看执行的结果怎么样吧!总结:run函数有三个参数第一个参数是你要执行的程序的路径第二个程序是窗口的形式是在后台运行表示正常运行表示激活程序并且显示为最小化表示激活程序并且显示为最大化一共有个这样的参数我只列出了个最常用的。第三个参数是表示这个脚本是等待还是继续执行如果设为了true,脚本就会等待调用的程序退出后再向后执行。其实run做为函数前面还有一个接受返回值的变量一般来说如果返回为表示成功执行如果不为则这个返回值就是错误代码可以通过这个代码找出相应的错误。 ◎Vbs脚本编程简明教程之五错误处理引发错误的原因有很多例如用户输入了错误类型的值或者脚本找不到必需的文件、目录或者驱动器我们可以使用循环技术来处理错误但是VBS本身也提供了一些基本技术来进行错误的检测和处理。、最常见的错误是运行时错误也就是说错误在脚本正在运行的时候发生是脚本试图进行非法操作的结果。例如零被作为除数。在vbs中任何运行时错误都是致命的此时脚本将停止运行并在屏幕上显示一个错误消息。你可以在脚本的开头添加On ErrorResume Next 这行语句可以告诉vbs在运行时跳过发生错误的语句紧接着执行跟在它后面的语句。发生错误时该语句将会把相关的错误号、错误描述和相关源代码压入错误堆栈。、虽然OnErrorResumeNext语句可以防止vbs脚本在发生错误时停止运行但是它并不能真正处理错误要处理错误你需要在脚本中增加一些语句用来检查错误条件并在错误发生时处理它。vbscript提供了一个对象err对象他有两个方法clearraise个属性:descriptionhelpcontexthelpfilenumbersourceerr对象不用引用实例可以直接使用例如:onerrorresumenexta=b=c=abiferrnumber<>thenwscriptechoerrnumbererrdescription errsourceendif  ◎Vbs脚本编程简明教程之六修改注册表Vbs中修改注册表的语句主要有:、读注册表的关键词和值:可以通过把关键词的完整路径传递给wshshell对象的regread方法。例如:setws=wscriptcreateobject("wscriptshell")v=wsregread("HKEYLOCALMACHINESOFTWAREMicrosoftWindowsCurrentVersionRunnwiz") wscriptechov、写注册表使用wshshell对象的regwrite方法。例子:path="HKEYLOCALMACHINESOFTWAREMicrosoftWindowsCurrentVersionRun"setws=wscriptcreateobject("wscriptshell")t=wsregwrite(path"jj","hello")这样就把HKEYLOCALMACHINESOFTWAREMicrosoftWindowsCurrentVersionRunjj这个键值改成了hello不过要注意:这个键值一定要预先存在。 如果要创建一个新的关键词同样也是用这个方法。path="HKEYLOCALMACHINESOFTWAREMicrosoftWindowsCurrentVersionrunsssalove" setws=wscriptcreateobject("wscriptshell")val=wsregwrite(path,"nenboy")val=wsregread(path)wscriptechoval 删除关键字和值使用regdelete方法把完整的路径传递给regdelete就可以了例如val=wsregdel(path)注意如果要删除关键词的值的话一定要在路径最后加上“”如果不加斜线就会删除整个关键词。当然从现在的角度看还是使用WMI的注册表处理功能也许更好些。 ◎windows的常用自动启动项Windows启动时通常会有一大堆程序自动启动。不要以为管好了“开始→程序→启动”菜单就万事大吉实际上在WindowsXPK中常见的两个文件夹和八个注册键都可以使程序实现自动启动。一、当前用户专有的启动文件夹:这是许多应用软件自动启动的常用位置Windows自动启动放入该文件夹的所有快捷方式。用户启动文件夹一般在:DocumentsandSettings<用户名字>“开始”菜单程序启动其中“<用户名字>”是当前登录的用户帐户名称。二、对所有用户有效的启动文件夹:这是寻找自动启动程序的第二个重要位置不管用户用什么身份登录系统放入该文件夹的快捷方式总是自动启动这是它与用户专有的启动文件夹的区别所在。该文件夹一般在:DocumentsandSettingsAllUsers“开始”菜单程序启动。三、Load注册键:也能够自动启动程序。位置:HKEYCURRENTUSERSoftwareMicrosoftWindowsNTCurrentVersionWindowsload。四、Userinit注册键:位置:HKEYLOCALMACHINESOFTWAREMicrosoftWindowsNTCurrentVersionWinlogonUserinit。这里也能够使系统启动时自动初始化程序。通常该注册键下面有一个userinitexe这个键允许指定用逗号分隔的多个程序例如“userinitexe,OSAexe”(不含引号)。五、ExplorerRun注册键:和load、Userinit不同ExplorerRun键在HKEYCURRENTUSER和HKEYLOCALMACHINE下都有具体位置是:HKEYCURRENTUSERSoftwareMicrosoftWindowsCurrentVersionPolicie***plorerRun和HKEYLOCALMACHINESOFTWAREMicrosoftWindowsCurrentVersionPolicie***plorerRun。六、RunServicesOnce注册键:RunServicesOnce注册键用来启动服务程序启动时间在用户登录之前而且先于其他通过注册键启动的程序。RunServicesOnce注册键的位置是:HKEYCURRENTUSERSoftwareMicrosoftWindowsCurrentVersionRunServicesOnce和HKEYLOCALMACHINESOFTWAREMicrosoftWindowsCurrentVersionRunServicesOnce。七、RunServices注册键:RunServices注册键指定的程序紧接RunServicesOnce指定的程序之后运行但两者都在用户登录之前。RunServices的位置是:HKEYCURRENTUSERSoftwareMicrosoftWindowsCurrentVersionRunServices和HKEYLOCALMACHINESOFTWAREMicrosoftWindowsCurrentVersionRunServices。八、RunOnceSetup注册键:RunOnceSetup指定了用户登录之后运行的程序它的位置是:HKEYCURRENTUSERSoftwareMicrosoftWindowsCurrentVersionRunOnceSetup和HKEYLOCALMACHINESOFTWAREMicrosoftWindowsCurrentVersionRunOnceSetup。九、RunOnce注册键:安装程序通常用RunOnce键自动运行程序它的位置在HKEYLOCALMACHINESOFTWAREMicrosoftWindowsCurrentVersionRunOnce和HKEYCURRENTUSERSoftwareMicrosoftWindowsCurrentVersionRunOnce。HKEYLOCALMACHINE下面的RunOnce键会在用户登录之后立即运行程序运行时机在其他Run键指定的程序之前。HKEYCURRENTUSER下面的RunOnce键在操作系统处理其他Run键以及“启动”文件夹的内容之后运行。如果是XP你还需要检查一下HKEYLOCALMACHINESOFTWAREMicrosoftWindowsCurrentVersionRunOnceEx。十、Run注册键:Run是自动运行程序最常用的注册键位置在:HKEYCURRENTUSERSoftwareMicrosoftWindowsCurrentVersionRun和HKEYLOCALMACHINESOFTWAREMicrosoftWindowsCurrentVersionRun。HKEYCURRENTUSER下面的Run键紧接HKEYLOCALMACHINE下 ◎Vbs脚本编程简明教程之七FSO的常见对象和方法文件系统是所有操作系统最重要的部分之一脚本经常会需要对文件及文件夹进行访问和管理在Vbs中对桌面和文件系统进行访问的顶级对象是FileSystemObject(FSO)这个对象特别复杂是vbs进行文件操作的核心。此节内容应了如指掌。FSO包含的常见对象有:Drive对象:包含储存设备的信息包括硬盘、光驱、ram盘、网络驱动器Drives集合:提供一个物理和逻辑驱动器的列表File 对象:检查和处理文件Files集合:提供一个文件夹中的文件列表Folder对象:检查和处理文件夹Folders集合:提供文件夹中子文件夹的列表Textstream对象:读写文本文件FSO的常见方法有:BulidPath:把文件路径信息添加到现有的文件路径上CopyFile:复制文件CopyFolder:复制文件夹CreateFolder:创建文件夹CreateTextFile:创建文本并返回一个TextStream对象DeleteFile:删除文件DeleteFolder:删除文件夹及其中所有内容DriveExits:确定驱动器是否存在FileExits:确定一个文件是否存在FolderExists:确定某文件夹是否存在GetAbsolutePathName:返回一个文件夹或文件的绝对路径GetBaseName:返回一个文件或文件夹的基本路径GetDrive:返回一个dreve对象GetDriveName:返回一个驱动器的名字GetExtensionName:返回扩展名GetFile:返回一个file对象GetFileName:返回文件夹中文件名称GetFolder:返回一个文件夹对象GetParentFolderName:返回一个文件夹的父文件夹GetSpecialFolder:返回指向一个特殊文件夹的对象指针GetTempName:返回一个可以被createtextfile使用的随机产生的文件或文件夹的名称MoveFile:移动文件MoveFolder:移动文件夹OpenTextFile:打开一个存在的文件并返回一个TextStream对象 ◎Vbs脚本编程简明教程之八FSO中文件夹的基本操作、使用fso由于fso不是wsh的一部分所以我们需要建立他的模型例如setfs=wscriptcreateobject(“scriptingfilesystemobject”)样就建立了fso的模型。如果要释放的话也很简单setfs=nothing、使用文件夹在创建前我们一般需要检查该文件夹是否存在例如:dimfs,s定义fs、s两个变量setfs=wscriptcreateobject(“scriptingfilesystemobject”)fs为FSO实例if(fsfolderexists(“c:temp”))then判断c:temp文件夹是否存在s=”isavailable”elses=”notexist”setfoldr=fscreatefolder(“c:temp”)不存在则建立endif   拷贝:注意:如果c:data和d:data都存在脚本会出错复制也就会停止如果要强制覆盖使用fscopyfolder“c:data”“d:data”true 移动:setfs=wscriptcreateobject(“scriptingfilesystemobject”)fsmovefolder“c:data”“d:data” 我们可以使用统配符来方便操作:例如fsmovefolder:c:datate*”,“d:working”注意:在目的路径最后没有使用“”也就是说我没有这样写:fsmovefolderc:datate*”,“d:working”这样写的话如果d:working目录不存在windows就不会为我们自动创建这个目录。 注意:上面我们所举的例子都是在利用fso提供的方法如果使用folder对象也完全是可以的:setfs=wscriptcreateobject(“scriptingfilesystemobject”)setf=fsgetfolder(“c:data”)fdelete 删除文件夹c:data。如果有子目录也会被删除fcopy“d:working”,true   拷贝到d:workingfmove“d:temp”   移动到d:temp 一般指的就是系统文件夹:windowssystem临时文件夹windows文件夹在前几篇的时候我们提过一下:例如setfs=wscriptcreateobject(“scriptingfilesystemobject”)setwshshell=wscriptcreateobject(“wscriptshell”)osdir=wshshellexpandenvironmentstrings(“systemroot”)setf=fsgetfolder(osdir)wscriptechof 这个方法使用种值: 表示windows文件夹相关常量是windowsfolder 系统文件夹相关常量是systemfolder 临时目录相关常量temporaryfolder例如:setfs=wscriptcreateobject(“scriptingfilesystemobject”)setwfolder=fsgetspecialfolder()‘返回windows目录setwfolder=fsgetspecialfolder()‘返回systemsetwfolder=fsgetspecialfolder()´返回临时目录 当然还有简单的方法那就是使用getspecialfolder()、特殊文件夹setfs=wscriptcreateobject(“scriptingfilesystemobject”)fscopyfolder“c:data”“d:data”setfs=wscriptcreateobject(“scriptingfilesystemobject”)fsdeletefolder(“c:windows”)删除:  ◎Vbs脚本编程简明教程之九妙用SendKeys简化重复操作每次开机的时候你想自动登陆你的QQ或者博客吗?巧妙使用VBS中的SendKeys命令(这个命令的作用就是模拟键盘操作将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行)可以极大的方便我们的常用操作。其使用格式为:ObjectSendKeysstring其中:Object:为WshShell对象即脚本的第一行为:SetWshShell=WScriptCreateObject("WScriptShell") 将Object替换为WshShell“string”:表示要发送的按键指令字符串需要放在英文双引号中。它包含如下内容:.基本键:一般来说要发送的按键指令都可以直接用该按键字符本身来表示例如要发送字母“x”使用“WshShellSendKeys"x"”即可。当然也可直接发送多个按键指令只需要将按键字符按顺序排列在一起即可例如要发送按键“cfan”可以使用“WshShellSendKeys"cfan"”。.特殊功能键:对于需要与Shift、Ctrl、Alt三个控制键组合的按键SendKeys使用特殊字符来表示:ShiftCtrl    ^Alt 如要发送的组合按键是同时按下Ctrl+E需要用WshShellSendKeys"^e"”表示如果要发送的组合按键是按住Ctrl键的同时按下E与C两个键这时应使用小括号把字母键括起来书写格式为“WshShellSendKeys"^(ec)"”这里要注意它与“WshShellSendKeys"^ec"”的区别后者表示组合按键是同时按住Ctrl和E键然后松开Ctrl键单独按下“C”字母键。由于“”、“^”这些字符用来表示特殊的控制按键了如何表示这些按键呢?只要用大括号括住这些字符即可。例如要发送加号“”可使用“WshShellSendKeys"{}"”。另外对于一些不会生成字符的控制功能按键也同样需要使用大括号括起来按键的名称例如要发送回车键需要用“WshShellSendKeys"{ENTER}"”表示发送向下的方向键用“WshShellSendKeys"{DOWN}"”表示。如果需要发送多个重复的单字母按键不必重复输入该字母SendKeys允许使用简化格式进行描述使用格式为“{按键数字}”。例如要发送个字母“x”则输入“WshShellSendKeys"{x}"”即可。例一:WshShellSendKeys"^{ESC}u"代码的含义为:按下Ctrl+Esc组合键(相当于按Win键)打开“开始”菜单接着按U键打开“关机”菜单。例二:让VBS脚本自动在记事本中输入一行文字“hello,welcometocfan”。DimWshShellSetWshShell=WScriptCreateObject("WScriptShell")WshShellRun"notepad"WScriptSleep  本行的含义为是脚本暂停秒给notepad一个打开的时间有时时间太短可能导致后面的字符无法进入编辑区WshShellAppActivate"无标题记事本"AppActivate为寻找可执行程序的标题框”无标题-记事本”内容你的自己打开看一下WshShellSendKeys"hello,welcometocfan"作业:让脚本自动输入下面两段小短句ThisisthemostwonderfuldayofmylifebecauseI´mherewithyounow作业:让脚本在输入短句后自动关闭记事本并保存文件名为“test”注意关闭记事本可以直接使用组合按键Alt+F来实现。例三:制作能自动定时存盘的记事本我们最常用的记事本没有Word、WPS那样的自动定时存盘功能其实利用VBS脚本再加上SendKeys命令就能弥补这个遗憾。打开记事本输入以下内容(为容易描述和分析把代码分为四个部分):´第一部分:定义变量和对象DimWshShell,AutoSaveTime,TXTFileNameAutoSaveTime=SetWshShell=WScriptCreateObject("WScriptShell")TXTFileName=InputBox("请输入你要创建的文件名(不能用中文和纯数字):")´第二部分:打开并激活记事本WshShellRun"notepad"WScriptSleepWshShellAppActivate"无标题记事本"´第三部分:用输入的文件名存盘WshShellSendKeys"^s"WScriptSleepWshShellSendKeysTXTFileNameWScriptSleepWshShellSendKeys"s"WScriptSleepAutoSaveTime´第四部分:自动定时存盘WhileWshShellAppActivate(TXTFileName)=TrueWshShellSendKeys"^s"WScriptSleepAutoSaveTimeWendWScriptQuit将其保存为记事本vbs以后要使用记事本时都通过双击这个脚本文件来打开。程序说明:这个脚本的基本思路是定时向记事本发送Ctrl+S这个存盘组合键。第一部分:定义了脚本中需要用到的变量和对象。“AutoSaveTime”变量用来设置自动存盘间隔单位为毫秒这里设置为分钟。“TXTFileName”变量通过输入框取得你要创建的文本文件名称。第二部分:运行记事本对于Windows本身提供的程序比如计算器等可直接在“WshShellRun”后输入程序名称如"calc"对于非系统程序则可输入完全路径但要注意使用格式输入比如“"D:Progra~TencentQQexe"”。第三部分:这里用SendKeys命令执行了这样的操作流程(请注意每个操作之间延时命令的使用):在记事本中按Ctrl+S组合键→弹出保存文件的窗口→输入文件名→按Alt+S组合键进行保存(默认保存在“我的文档”目录)。第四部分:定时存盘的关键通过“While……Wend”这个当条件为“真”时循环命令实现自动存盘代码“WshShellSendKeys"^s"”和定时代码“WScriptSleepAutoSaveTime”的重复执行。因为不能让这个定时存盘循环一直执行退出记事本后必须自动退出脚本并结束循环所以设计了一个循环判断条件“WshShellAppActivateTXTFileName=True”当记事本运行中时可以激活记事本窗口这个条件运行结果为“True”定时存盘循环一直执行退出记事本后脚本无法激活记事本窗口就会跳出循环执行“Wend”后面的“WScriptQuit”退出脚本。例四:关机菜单立刻显身打开记事本输入以下命令并将其保存为vbs:setWshShell=CreateObject("WScriptShell")WshShellSendKeys"^{ESC}u"双击运行它你会发现关机菜单立刻出现了。将“WshShellSendKeys"^{ESC}u"”改为“WshShellSendKeys"^{ESC}"”运行一下看看是否打开了任务管理器。让我们举个例子利用SendKeys自动上网并登陆博客将下面的脚本复制到一个文本文件中并将其文件名命名为:自动登陆vbs然后将拨号软件及本脚本一起复制到程序启动项中就可以实现自动拨号上网并登陆到博客上。代码如下:Setwshshell=CreateObject("wscriptshell")wshshellAppActivate"连接MAEU拨号连接"wscriptSleepwshshellSendKeys"{enter}"wshshellRun"iexplore"WScriptSleepwshshellAppActivate"hao网址之家实用网址,搜索大全,尽在wwwhaocomMicrosoftInternetExplorer"´引号中的内容修改为你的浏览器打开后标题栏中的内容wshshellSendKeys"d"wshshellSendKeys"http:passportbaiducomlogin"wshshellSendKeys"{enter}"WScriptSleepwshshellSendKeys"此处修改为博客帐号"wshshellSendKeys"{tab}"wshshellSendKeys"此处修改为博客密码"wshshellSendKeys"{enter}" ◎沉痛悼念FORTRAN之父逝世一位越挫越勇的回头浪子FORTRAN是我大学课程里唯一的一门计算机课程也是有老师教的唯一的一门语言当时还不觉得后来接触的计算机语言多了才感觉到FORTRAN语言对计算精确的描述相对于现在计算机语言对于过程的精确描述实在有些不可思议。Backus年生于美国费城家庭富裕。他的父亲曾供职于一家火药公司因为善于分析问题找到了公司常常发生爆炸事故的原因(原来是德国进口的温度计惹的祸)从普通员工升为公司首席化学家。一战期间军火业火爆他的父亲因此致富。战后他成为证券经纪人也非常成功。因为家庭条件优越小Backus无忧无虑在人生的最初岁月大有玩世不恭的意思成了一个纨绔子弟。在宾夕法尼亚州著名的Hill中学他经常考试不及格而且常常旷课。据他自己回忆:“那时我讨厌学习功课老不及格只是晃来晃去地消耗时间。一心想着暑假去新罕布什尔州的夏令营划船玩耍。”“学校里有趣的地方就是有那么多规矩你可以去违反。直到岁时(年)才进入弗吉尼亚大学。化学家出身的父亲让他子承父业他喜欢化学理论但对摆弄瓶瓶罐罐做试验可不感冒因此到第二学期的时候每周就只上一堂课(据说还是音乐欣赏课)了最终被学校开除结束了短暂的第一次大学生涯。很快Backus就参军入伍在佐治亚州Stewart军事基地担任防空任务。但在能力测试中他表现出色被美国军方送到匹兹堡大学学习工程预科在另一次能力测试中他显示出医学才能于是又被送到了哈弗福德学院(HaverfordCollege)医学预科学医。期间他被诊断出脑瘤(一说骨瘤)手术植入了一块金属板。年他进入纽约一家医学院但是他发现学校里“不鼓励思考只是死记硬背”个月后就退学了。在又一次脑部手术之后年Backus退伍了。他自己住在纽约不知前途何在。他后来回忆说:“我真不知道自己这一辈子到底该干什么。我想弄一套好的高保真音响可那时候这种东西还不存在。于是我进入了一家无线电技师学校。在那里我遇到了一位好老师这可是我人生的第一次他让我和他一起为一个杂志计算某些电路的特性。计算很繁琐但是它让我对数学发生了兴趣。我发现原来数学是有实际用途的。”他从头再来进入哥伦比亚大学学习数学。在年毕业前他偶然地参观了IBM公司麦迪逊大街计算机中心被宏伟的SSEC大型电子管计算机迷住了。其间他告诉讲解员自己在找工作这位女讲解员建议他去找主管谈谈。Backus觉得自己蓬头垢面邋邋遢遢的不想去但架不住讲解员一个劲儿的鼓励。没想到只是被不那么正式地口头提问了一些数学题他就当场通过这样进入了IBM。年他成为IBM的程序员。他的工作除了编程(使用打孔带)之外就是维护那台年建成、由一万多个真空管和两万多个继电器组成、还为年阿波罗登月计划立下汗马功劳的SSEC。三年中除了一个复杂的计算月亮位置的程序外他还开发了一个名为Speedcoding的程序第一次实现了用诺伊曼提出的比例因子存储和计算浮点数。二进制层次编程的艰辛和困难使Backus意识到高级语言的必要性。年他向IBM高层提交了一份备忘录提出为新型的计算机开发一种高级编程语言降低开发成本。他论证说当时程序员的薪水已经赶上硬件成本。负责应用科学部的CuthbertHurd很快就批准了这一计划。Backus后来称赞:“他真的很懂行。”这其中还有一个小插曲当时冯诺伊曼正在担任IBM公司顾问每周一次“升堂”审查公司的各种新科研计划。他当时看到了FORTRAN的想法丝毫没有兴奋之感反而这样问Backus:“为什么除了机器语言之外你还想弄点别的呢?”当时也在场的FrankBeckman回忆到冯诺伊曼将这一计划斥为“图灵shortcode概念的一种应用”。有趣的是冯诺伊曼此后还一直坚持这种观点他在普林斯顿的学生DonaldGillies回忆说为了不像大家那样手工将程序汇编为二进制代码他曾经开发了一个汇编程序冯诺伊曼发现后非常生气说:“这是在浪费宝贵的科学计算设备来干琐碎的杂事!”年Backus很快招募到了IrvingZiller和HarlanHerrick开始了项目的开发。项目小组最后有个人都是二三十岁的年轻人背景出处各不相同Backus注重的只有一点:解决问题的能力。Backus的管理非常灵活没有太正式的工作时间虽然可能会很长冬天工作后大家都出去打雪仗对于公司一套严格的考评制度Backus认为不适合程序员将其束之高阁。设计一种语言并不难描述FORTRAN语言草案的论文于当年年中发表。难的是编译器的设计Backus本来希望在六个月内完成最后却花了两年多。年语言手册完成年月有行代码存储在磁带上的第一个FORTRAN编译器发布。一个新的时代开始了。受FORTRAN影响ACM和德国应用数学与力学学会(GaMM)共同提议开发一种标准化的高级语言。年月于苏黎世举行的国际性会议群贤毕集有Backus、Bauer、Perlis等等大师。这个国际协作的结果就是ALGOL语言。开发FORTRAN之后Backus开始思考计算机程序设计的其他基础方面年他提出了BNF。后经年图灵奖得主PeterNaur改进又经年图灵奖得主NWirth扩充为EBNF(ExtendedBNF)。此后Backus在反思FORTRAN设计得失的基础上全力从事函数级程序设计语言的研究和开发成果包括FP语言和FL语言。此外他还提出了非冯诺伊曼结构的规约机。Backus的一生值得我们思考的地方很多:他不断进取的精神。在功成名就之后他仍然耗尽心力开发未必能够成功的函数级语言。对后来者的引导极为重要无论你身处什么位置请用自己的心去引导那些年青人。看看Backus一生中的两个关键人物:无线电技校老师和IBM的讲解员。Backus显然是个天才但是为什么那么长时间没有找到方向?为什么他又能在多岁进入正轨?权威审查不可全信。各人都有自己的局限。冯诺伊曼这样的大师也不能免。他之所以会对高级语言如此敌视与他主要从事理论缺乏程序设计实践的背景密不可分。《纽约时报》的讣告是这样结尾的:“创新”Backus先生说“就是不断地尝试和出错的过程。”“你需要勇于失败”他说“你不得不想出许多想法然后努力工作只是为了证明这些想法不可行。如此不断反复最

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

文档小程序码

使用微信“扫一扫”扫码寻找文档

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/35

VBS基础教程

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利