—为何要使用Vbs？ 在Windows中，学习计算机操做也许很简单，可是不少计算机工做是重复性劳动，例如你每周也许须要对一些计算机文件进行复制、粘贴、更名、删除，也许你天天启动计算机第一件事情就是打开WORD，切换到你喜好的输入法进行文本编辑，同时还要播放优美的音乐给工做创造一个舒心的环境，固然也有可能你常常须要对文本中的某些数据进行整理，把各式各样的数据按照某种规则排列起来……。这些事情重复、琐碎，令人容易疲劳。 第三方软件也许能够强化计算机的某些功能，可是解决这些重复劳动每每事倍功半，我也尝试过使用计算机语言编写程序来解决这些问题，可是随之而来的命令、语法、算法、系统框架和类库经常让我以为这样是否有必要，难道就是由于猪毛比较难拔，因此我就要去学习机械，为本身设计一个拔猪毛机（？）吗？ Vbs是一种Windows脚本，它的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版)，VBS是Visual Basic的的一个抽象子集，是系统内置的，用它编写的脚本代码不能编译成二进制文件，直接由Windows系统执行（实际是一个叫作宿主host的解释源代码并执行），高效、易学，可是大部分高级语言能干的事情，它基本上都具有，它可使各类各样的任务自动化，可使你从重复琐碎的工做中解脱出来，极大的提升工做效率。 我我的认为Vbs脚本其实就是一种计算机编程语言，可是因为缺乏计算机程序设计语言中的部分要素，对于事件的描述能力较弱，因此称为脚本，它最方便的地方就是提供了对COM对象的简便支持。那么什么是COM对象呢？ 我这样理解，COM对象就是一些具备特定函数功能项程序模块，他们通常以ocx或者dll做为扩展名，你只要找到包含有你须要的功能的模块文件，并在脚本中规范的引用，就能够实现特定的功能，也就是说Vbs脚本就是调用现成的“控件”做为对象，用对象的属性和方法实现目的，彻底免去了编写代码、设计算法等等麻烦。说白了，我不是以为拔猪毛麻烦么？我发觉xx机（好比真空离心器）有一个功能能够实现脱毛，ok，我把它拿来给猪脱毛。什么？大材小用？太浪费资源了？天哪，那是计算机芯片的事情，死道友不死贫道，反正个人事情是方便快速的解决了，这就好了。 最方便的是它甚至不须要专门的开发环境，在你的计算机中，只要有notepad，就能够编写Vbs脚本了，而且能够直接执行。 就像多数计算机教程同样 ，咱们从“Hello World！”程序开始咱们的练习。什么？不知道是什么意思？就是说大部分的计算机程序设计教程开篇入门都是编写一个小程序，执行这个程序的结果就是在计算机的屏幕上或者dos窗口中显示一行文字：Hello World！好了，咱们开始吧。 打开你的“记事本”程序，在编辑窗口填写： msgbox "Hello World!" 而后用鼠标单击“文件”菜单，单击“保存”，把“保存在”一栏设为桌面，在“文件名”一栏中填写kk.vbs，单击“保存”就能够了。而后最小化“记事本”窗口，在桌面上寻找你刚刚保存的kk.vbs，而后双击。看到弹出的对话框了没有，单击“肯定”，对话框消失了。难看了点，不过确实是你编写的第一个脚本程序。 说明之一：上面的操做中，保存位置放在桌面，仅仅是为了执行方便，你保存到其余的地方彻底没有问题，只要你知道你保存在什么地方就能够了，什么？是废话，本身保存的固然知道保存在那里了。不，本身保存的文件本身找不到的人我见的多了去了。文件名你能够随意填写，不必定非要写kk，只要符合Windows的文件命名规则就能够了，可是扩展名必须是vbs，什么?不知道什么是扩展名？就是文件名中“.”后的那部分，简单说，就是vbs脚本文件命名时必须是：xxx.vbs，其中xxx你随意。 说明之二：在记事本编辑窗口中写的这行是什么意思？ Msgbox是VBS内建的函数，每个函数均可以完成必定的功能，你只须要按照语法要求，在函数的相应部分填写相应的内容就能够了，这部份内容咱们称为参数，固然函数执行的结果咱们称为返回值，一个函数能够有返回值也能够没有，能够有参数也能够没有。你不用了解函数是怎么运做的，只要了解这个函数能干什么就好了。 Msgbox语法：msgbox "对话框内容", , "对话框的标题" 你不妨用记事本打开刚才的文件在编辑窗口中输入： msgbox "Hello World!" , , "系统提示" 执行一下，看看效果和位置。 说明之三：若是执行失败，看看你的标点符号，全部的标点符号必须是在英文状态下输入的。 固然，这个脚本实在是太简单了，甚至连最简单的交互都没有，因此你能够把脚本这样修改一下： Dim name name=Inputbox("请输入你的名字:","名称") Msgbox name, , "您的名字是" 保存执行一下，看到弹出的对话框了么？填入你的名字，点肯定，看到结果了吗？ 说明之一：第一句是定义变量，dim是定义变量的语句 其格式为：dim 变量1,变量2……， Vbs只有一种变量类型，因此不用声明变量类型。系统会自动分辨变量类型。 说明之二：inputbox是VBS内建的函数，能够接受输入的内容，其语法格式为： Inputbox("对话框内容","对话框标题") 第二句的意思是接受用户的输入，并把输入结果传递给变量name。 好了，到此脚本基本的输入输出函数都有了，已经能够完成一些比较简单的功能了，你能够编写一个简单的脚本，而后拷贝的“程序”—>“启动”中，而后从新启动计算机看看结果。[做者：临汾市外事旅游局薛靖澜，转载请注明出处 VBScript基础知识 1、变量 一、全部单引号后面的内容都被解释为注释。 二、在VBScript中，变量的命名规则遵循标准的命名规则，须要注意的是：在VBScript中对变量、方法、函数和对象的引用是不区分大小写的。在申明变量时，要显式地申明一个变量，须要使用关键字DIm来告诉VBScript你要建立一个变量，并将变量名称跟在其后。申明多个同类型变量，能够用逗号分隔。注意：VBScript中不容许在申明变量的时候同时给变量赋值。可是容许在一行代码内同时对两个变量进行赋值，中间用冒号分隔。 三、你可使用OptionExplicit来告诉宿主变量必须先声明后使用。 四、VBScript在定义时只有一种变量类型，在实际使用中须要使用类型转换函数来将变量转换成相应的变量类型。 Cbool函数将变量转换成布尔值； Cbyte函数将变量转换为0到255之间的整数。 Ccur函数、Cdbl函数和Csng函数将变量转换为浮点数值，前者只精确到小数点后四位，后二者要更加精确，数值的范围也要大的多。 Cdate函数将变量转换为日期值。 Cint函数和Clng函数将变量转换为整数，后者的范围比前者要大的多。 Cstr函数将变量转换为字符串。 2、数组 数组的定义与变量很是相似，只须要在变量后描述这个数组的个数和维数。须要注意的是：数组的下标老是从0开始，而以数组定义中数值减一结束。也就是说你以要定义一个有十个数据的数组，将这样书写代码：dImarray（9），一样，当你要访问第五个元素时，实际的代码是array(4)。固然，你能够经过不指定数组的个数和维数来申明动态数组。等到数组的个数和维数固定后，使用关键字redim来改变数组。注意，在改变数组的大小时，数组的数据会被破坏，使用关键字preserve来保护数据。例如： RedIm空格preserve空格array括号个数逗号维数括号 3、操做符 在VBScript运算符中，加减乘除都是咱们经常使用的符号，乘方使用的是 ^ ，取模使用的Mod。 在比较操做符中，等于、小于、大于、小于等于、大于等于都与咱们经常使用的符号是一致的，而不等因而小于和大于连用。 逻辑运算符为：和操做—>AND 非操做—>NOT 或操做—>OR； 你可使用操做符 + 和操做符 & 来链接字符串，通常使用&操做符； 另外还有一个比较特殊的操做符Is用来比较对象，例如按钮对象，若是对象是同一类型，结果就是真，若是对象不是同一类型，结果就是假。 4、条件语句主要有if……then语句和selectcase语句两种形式 在if……then语句中，其基本形式为： If 条件 then 处理条件的语句； …… Endif 基本形式只能对单个条件进行验证，若是有两个条件，则须要在基本形式中添加单行语句else，若是还有更多的条件须要验证，则须要添加语句 Elseif 条件 then 处理条件语句 在selectcase语句中，其基本形式为： Select case 变量 Case 条件值 处理条件语句 并对上两句进行重复 最后一句应为 case else 处理语句 固然不要忘记将条件结束语句End select放在最后一行 注意：在执行字符串比较时，须要特别注意大小写，通常状况下，咱们在比较前，使用lcase函数将字符串转换成小写，使用ucase函数将字符串转换成大写大写。 5、循环控制语句 循环控制语句有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 6、使用过程 经常使用的过程有两种，一种为函数，给调用者返回值，一种为子程序，无返回值，还有一种叫事件的特殊子程序，用的比较少。 函数的基本定义方法为： Function 函数名称（参数列表） 函数代码 函数名称＝某值 ‘用来返回值 end function 子程序一些都相似，不过没有返回值 注意：尽管在定义子程序的时候，参数列表要加括号，但在调用子程序的时候，参数列表不加括号，括号只在函数中使用。另外，子程序不能在表达式中使用。 而函数只能出如今赋值语句的右边，或者表达式中，函数不能直接使用，若是必须直接使用函数，则必须使用call语句调用，并取消返回值 Vbs只提供了编程的一个基本框架，用户可使用Vbs来定义变量、过程和函数，vbs也提供了一些内部函数和对象，可是Vbs没有提供任何命令来访问Windows系统内部的部件，可是值得庆幸的是，Vbs虽然不能本身完成这些任务，可是它提供了一条极为方便、功能也至关强的命令——CreateObject，这条命令能够访问windows系统内安装的全部com对象，而且能够调用这些部件中存放的命令。 因而问题解决了，好比说，我手头有1000个小文本，我首先要对每个文本的语法进行查错和修改，而后按照预先定义好的规则对这些文本进行排序，最后将这些文本合并成为一个文件。正常状况下，咱们须要把打开第一个小文本，而后把它复制到WORD中，而后利用里面的除错功能进行除错和修改，而后再导入到EXCEL中进行排序，将这个过程重复1000遍，而后再将全部获得的文本复制到一个大文本中。实在是太枯燥、工做量太大了。有了Vbs和CreateObject，问题获得解决，我只须要找到相应的模块，调用相应的功能就能够了，做为脚本，把一个枯燥的过程重复1000次，本就是它的拿手好戏。 好了，咱们走入正题，从最简单的——只启动一个程序开始。 WSH也就是用来解析Vbs的宿主，自己包含了几个个经常使用对象： 一、Scripting.FileSystemObject —> 提供一整套文件系统操做函数 二、Scripting.Dictionary —> 用来返回存放键值对的字典对象 三、Wscript.Shell —> 提供一套读取系统信息的函数，如读写注册表、查找指定文件的路径、读取DOS环境变量，读取连接中的设置 四、Wscript.NetWork —> 提供网络链接和远程打印机管理的函数。（其中，全部Scripting对象都存放在SCRRUN.DLL文件中，全部的Wscript对象都存放在WSHOM.ocx文件中。） 如今咱们须要的是第三个对象，好了，让咱们先链接一下对象看看，在记事本的编辑窗口中输入： Set objShell = CreateObject(“Wscript.Shell”) objShell.Run “notepad” 一样，保存执行。那么看到了一个什么样的结果呢？在桌面上又打开了一个记事本。 说明之一：Set是Vbs指令，凡是将一对象引用赋给变量，就须要使用set关键字。那么什么是对象引用呢？凡是字符串、数值、布尔值以外的变量都是对象引用。Objshell是变量名，能够随意修改。 说明之二：反是正确引用的对象，其自己内置有函数和变量，其引用方法为在变量后加“. ”，后紧跟其实现功能的函数就能够了。Objshell.run 的意思就是调用Wscript.shell中的运行外部程序的函数——run，notepad是记事本程序的文件名。固然你也能够改为“calc”，这是计算器的文件名，winword是word的文件名，等等吧，全部可执行文件的文件名均可以。可是须要注意的是，若是你要执行的可执行文件存放的地方不是程序安装的经常使用路径，通常状况下，须要提供合法的路径名，可是run在运行解析时，遇到空格会中止，解决的方法是使用双引号，例如：在个人机器上运行qq，代码为： objshell.run """C:\Program Files\QQ2006\QQ.exe""" ‘注：三个引号 好， 咱们再进一步，启动两个程序会如何呢？ 输入以下代码： Set objShell = CreateObject(“Wscript.Shell”) objShell.Run “notepad” objShell.Run “calc” 执行会如何呢？两个程序基本上同时启动了。若是咱们须要先启动notepad再启动calc将如何呢？很简单在须要顺序执行的代码后加 , , True参数就能够了。 好了输入代码： Set objShell = CreateObject(“Wscript.Shell”) objShell.Run “notepad” ,,true objShell.Run “calc” 看看执行的结果怎么样吧！ 总结：run函数有三个参数，第一个参数是你要执行的程序的路径，第二个程序是窗口的形式，0是在后台运行；1表示正常运行；2表示激活程序而且显示为最小化；3表示激活程序而且显示为最大化；一共有10个这样的参数我只列出了4个最经常使用的。 第三个参数是表示这个脚本是等待仍是继续执行，若是设为了true,脚本就会等待调用的程序退出后再向后执行。 其实，run作为函数，前面还有一个接受返回值的变量，通常来讲若是返回为0，表示成功执行，若是不为0，则这个返回值就是错误代码，能够经过这个代码找出相应的错误 ◎Vbs脚本编程简明教程之五 —错误处理 引起错误的缘由有不少，例如用户输入了错误类型的值，或者脚本找不到必需的文件、目录或者驱动器，咱们可使用循环技术来处理错误，可是VBS自己也提供了一些基本技术来进行错误的检测和处理。 一、最多见的错误是运行时错误，也就是说错误在脚本正在运行的时候发生，是脚本试图进行非法操做的结果。例如零被做为除数。在vbs中，任何运行时错误都是致命的，此时，脚本将中止运行，并在屏幕上显示一个错误消息。你能够在脚本的开头添加 On Error Resume Next 这行语句能够告诉vbs在运行时跳过发生错误的语句，紧接着执行跟在它后面的语句。 发生错误时，该语句将会把相关的错误号、错误描述和相关源代码压入错误堆栈。 二、虽然On Error Resume Next语句能够防止vbs脚本在发生错误时中止运行，可是它并不能真正处理错误，要处理错误，你须要在脚本中增长一些语句，用来检查错误条件并在错误发生时处理它。 vbscript提供了一个对象err对象，他有两个方法clear，raise，5个属性：description，helpcontext，helpfile，number，source err对象不用引用实例，能够直接使用，例如： on error resume next a=11 b=0 c=a/b if err.number<>0 then wscript.echo err.number & err.description & err.source end if ◎Vbs脚本编程简明教程之六 —修改注册表 Vbs中修改注册表的语句主要有： 一、读注册表的关键词和值： 能够经过把关键词的完整路径传递给wshshell对象的regread方法。例如： set ws=wscript.createobject("wscript.shell") v=ws.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\nwiz") wscript.echo v 二、写注册表 使用wshshell对象的regwrite方法。例子： path="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" set ws=wscript.createobject("wscript.shell") t=ws.regwrite(path & "jj","hello") 这样就把 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\jj这个键值改为了hello.不过要注意：这个键值必定要预先存在。 若是要建立一个新的关键词，一样也是用这个方法。 path="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\run\sssa2000\love\" set ws=wscript.createobject("wscript.shell") val=ws.regwrite(path,"nenboy") val=ws.regread(path) wscript.echo val 删除关键字和值 使用regdelete方法，把完整的路径传递给regdelete就能够了 例如 val=ws.regdel(path) 注意，若是要删除关键词的值的话 必定要在路径最后加上“\”，若是不加斜线，就会删除整个关键词。 ◎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的一部分，因此咱们须要创建他的模型 例如set fs=wscript.createobject(“scripting.filesystemobject”) 这样就创建了fso的模型。若是要释放的话也很简单，set fs=nothing 二、使用文件夹 在建立前，咱们通常须要检查该文件夹是否存在例如： dim fs,s //定义fs、s两个变量 set fs=wscript.createobject(“scripting.filesystemobject”) //fs为FSO实例 if (fs.folderexists(“c:\temp”)) then //判断c:\temp文件夹是否存在 s=”is available” else s=”not exist” set foldr=fs.createfolder(“c:\temp”) //不存在则创建 end if 删除： set fs=wscript.createobject(“scripting.filesystemobject”) fs.deletefolder(“c:\windows”) 拷贝： set fs=wscript.createobject(“scripting.filesystemobject”) fs.copyfolder “c:\data” “d:\data” 注意：若是c:\data 和d:\data都存在，脚本会出错，复制也就会中止，若是要强制覆盖，使用fs.copyfolder “c:\data” “d:\data”，true 移动： set fs=wscript.createobject(“scripting.filesystemobject”) fs.movefolder “c:\data” “d:\data” 咱们可使用统配符，来方便操做： 例如， fs.movefolder :c:\data\te*” , “d:\working” 注意：在目的路径最后没有使用“\” 也就是说我没有这样写： fs.movefolder c:\data\te*” , “d:\working\” 这样写的话，若是d:\working 目录不存在，windows就不会为咱们自动建立这个目录。 注意：上面咱们所举的例子都是在利用fso提供的方法，若是使用folder对象也彻底是能够的： set fs= wscript.createobject(“scripting.filesystemobject”) set f=fs.getfolder(“c:\data”) f.delete //删除文件夹c:\data。若是有子目录，也会被删除 f.copy “d:\working”,true //拷贝到d:\working f.move “d:\temp” //移动到d:\temp 三、特殊文件夹 通常指的就是系统文件夹：\windows\system32， 临时文件夹，windows文件夹，在前几篇的时候，咱们提过一下：例如 set fs=wscript.createobject(“scripting.filesystemobject”) set wshshell=wscript.createobject(“wscript.shell”) osdir=wshshell.expandenvironmentstrings(“%systemroot%”) set f =fs.getfolder(osdir) wscript.echo f 固然，还有简单的方法 那就是使用getspecialfolder() 这个方法使用3种值： 0 表示windows文件夹，相关常量是windowsfolder 1 系统文件夹，相关常量是systemfolder 2 临时目录，相关常量temporaryfolder 例如： set fs=wscript.createobject(“scripting.filesystemobject”) set wfolder=fs.getspecialfolder(0) ‘返回windows目录 set wfolder=fs.getspecialfolder(1) ‘返回system32\ set wfolder=fs.getspecialfolder(2)'返回临时目录 ◎Vbs脚本编程简明教程之九 —妙用SendKeys简化重复操做 每次开机的时候，你想自动登录你的QQ或者网志吗？巧妙使用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．特殊功能键：对于须要与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}"”表示。 若是须要发送多个重复的单字母按键，没必要重复输入该字母，SendKeys容许使用简化格式进行描述，使用格式为“{按键 数字}”。例如要发送10个字母“x”，则输入“WshShell.SendKeys "{x 10}"”便可。 例一：WshShell.SendKeys "^{ESC}u" 代码的含义为：按下Ctrl＋Esc组合键（至关于按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”，注意关闭记事本能够直接使用组合按键Alt＋F4来实现 例三：制做能自动定时存盘的记事本 咱们最经常使用的记事本没有Word、WPS那样的自动定时存盘功能，其实利用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，之后要使用记事本时，都经过双击这个脚本文件来打开。 程序说明：这个脚本的基本思路是定时向记事本发送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”退出脚本。 例四：快速登录QQ软件。假设QQ号码是：10001，密码是：123456，隐身登录： set ws=wscript.createobject("wscript.shell") ws.run "C:\Progra~1\Tencent\QQ\QQ.exe",0 wscript.Sleep 2000 ws.AppActivate "QQ用户登陆" ws.SendKeys "7015247" wscript.Sleep 200 ws.SendKeys "{TAB}" ws.SendKeys "*********" wscript.Sleep 200 ws.SendKeys "{ENTER}" 例五：关机菜单马上显身 打开记事本，输入如下命令，并将其保存为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}" 'wshshell.SendKeys "%d" ◎Vbs脚本编程简明教程之十一 ——FSO中文件的基本操做 1、文件属性： 在windows中，文件的属性通常用数字来表示： 0表明normal，即普通文件未设置任何属性。 1表明只读文件。 2表明隐藏文件。 4表明系统文件。 16表明文件夹或目录。 32表明存档文件。 1024表明连接或快捷方式。例如： set fs=wscript.createobject(“scripting.filesystemobject”) set f=fs.getfile(“d:\index.txt”) msgbox f.Attributes ‘attributes函数的做用是显示文件属性 须要说明的是：msgbox显示的结果每每不是上面说明的数字，而是有关属性表明数字的和。 2、建立文件：object.createtextfile方法，注意建立前通常须要检查文件是否存在。 例如：set fso=wscript.createobject(“scripting.filesystemobject”) if fso.fileexists(“c:\kk.txt”) then msgbox “文件已存在” else set f=fso.createtextfile(“c:\kk.txt”) end if 如须要强制覆盖已存在的文件，则在文件名后加true参数。 3、复制、移动、删除文件：使用copyfile方法、movefile方法、deletefile方法。例如： set fso=wscript.createobject(“scripting.filesystemobject”) fso.copyfile “c:\kk.txt”,”d:\1\kk.txt”,true //如上文说述，true表明强制覆盖 fso.movefile “c:\kk.txt”, “d:\” //移动文件 fso.deletefile “c:\kk.txt” //删除文件 4、文件的读写： 一、打开文件：使用opentextfile方法 如：set ts=fso.opentextfile(“c:\kk.txt”,1,true) 说明：第二个参数为访问模式1为只读、2写入、8为追加 第三个参数指定如文件不存在则建立。 二、读取文件：read(x)读x个字符；readline读一行；readall所有读取 如：set ffile=fso.opentextfile(“c:\kk.txt”,1,true) value=ffile.read(20) line=ffile.readline contents=ffile.readall 三、常见的指针变量： atendofstream属性：当处于文件结尾的时候这个属性返回true。通常用循环检测是否到达文件末尾。例如： do while ffile.atendofstream<>true ffile.read(10) loop atendofline属性：若是已经到了行末尾，这个属性返回true。 Column属性(当前字符位置的列号)和line属性(文件当前行号)：在打开一个文件后，行和列指针都被设置为1。 四、在文件中跳行：skip(x) 跳过x个字符；skipline 跳过一行 五、在文件中写入字符：能够用2－写入和8－追加的方式来写入 其方法有：write(x)写入x字符串；writeline(x)写入x表明的一行 writeblanklines(n) 写入n个空行 注意：最后必定要使用close方法关闭文件。读文件后必定要关闭，才能以写的方式打开。 ◎Vbs脚本编程简明教程之十二 —使用系统对话框 在VBS脚本设计中，若是能使用windows提供的系统对话框，能够简化脚本的使用难度，使脚本人性化许多，不多有人使用，但VBS并不是不能实现这样的功能，方法固然仍是利用COM对象。 一、SAFRCFileDlg.FileSave对象：属性有：FileName — 指定默认文件名；FileType — 指定文件扩展名；OpenFileSaveDlg — 显示文件保存框体方法。 二、SAFRCFileDlg.FileOpen 对象：FileName — 默认文件名属性；OpenFileOpenDlg — 显示打开文件框体方法。 三、UserAccounts.CommonDialog对象：Filter — 扩展名属性（"vbs File|*.vbs|All Files|*.*"）； FilterIndex — 指定 InitialDir — 指定默认的文件夹 FileName — 指定的文件名 Flags — 对话框的类型 Showopen方法： 很简单，ok，让咱们来举两个简单的例子： 例一：保存文件 Set objDialog = CreateObject("SAFRCFileDlg.FileSave") Set objFSO = CreateObject("Scripting.FileSystemObject") objDialog.FileName = "test" objDialog.FileType = ".txt" intReturn = objDialog.OpenFileSaveDlg If intReturn Then objFSO.CreateTextFile(objDialog.FileName & objdialog.filetype) Else Wscript.Quit End If 注意：一、SAFRCFileDlg.FileSave对象仅仅是提供了一个方便用户选择的界面，自己并无保存文件的功能，保存文件还须要使用FSO对象来完成。二、用FileType属性来指定默认的文件类型。三、在调用OpenFileSaveDlg方法时，最好把返回值保存到一变量中，用它能够判断用户按下的是肯定仍是取消。 例二：.打开文件 set objFile = CreateObject("SAFRCFileDlg.FileOpen") intRet = objFile.OpenFileOpenDlg if intret then msgbox “文件打开成功！文件名为：” & objFile.filename else wscript.quit end if 例三：比较复杂的打开文件对话框 Set objDialog = CreateObject("UserAccounts.CommonDialog") objDialog.Filter = "vbs File|*.vbs" objDialog.InitialDir = "c:\" tfile=objDialog.ShowOpen if tfile then strLoadFile = objDialog.FileName msgbox strLoadFile else wscript.quit end if 说明：在脚本中加入 objDialog.Flags = &H020 看看会出现什么结果。 ◎Vbs脚本编程简明教程之十三 —WMI基础 WMI即Windows 管理规范，是用户管理本地和远程计算机的一种模型。经过它能够访问、配置、管理和监视几乎全部的 Windows 资源。WMI的语法十分简单，基本上常见的命名空间、对象等用几乎如出一辙。它对应的是Windows里的WMI服务（winmgmt）。 1、WMI的起源 几年前，几家资深的计算机公司因为系统管理领域缺乏标准，委托DMTF启动了CIM（通用信息模型）项目，理想的CIM是一种不受限制于任何特定实现环境的管理工具。WMI是CIM的微软实现，它有不少类是从CIM中派生出来的。 2、WMI的命名空间 那么命名空间是作什么做用的呢？我简单这样说，在同一段代码中，若是有两个变量或函数的名字彻底相同，就会出现冲突。命名空间就是为解决变量、函数的命名冲突而服务的。解决的办法就是将你的变量定义在一个不一样名字的命名空间中。就好像财政局有个张三，公安局也有个张三，但咱们清楚，就是由于他们分属不一样的单位。有些地方可能不太准确，但大体意思就是这样了。 WMI的命名空间建立了一个层次结构，有点相似于咱们的目录文件结构。 一、 root-做为全部其余名字的占位符； 二、 root\default-与注册表操做有关的类； 三、 root\security-与系统安全有关的类； 四、 root\cimv2-从CIM派生的类，表明咱们最经常使用的工做环境。 3、WMI的对象路径 WMI的对象路径用来在CIM库中定位类和它的事例，对象路径用两个反斜杠\\开头，第一个元素是目标计算机的名字，第二个元素是相应的WMI命名空间，第三个元素是相应的类名，并用 ： 将它与命名空间分隔开来。例如：\\..\root\cimv2:win32_service 其中那个 . 表明是本地系统。 4、WMI的查询语言——WQL仅仅是ANSI SQL的一个子集，只能用于数据的提取。 数据、事件查询的基本语法为： Select pro1 , pro2 , pro3 from myclass（myclassevent） 例如：Select name , path from Win32_share 说明：列出全部共享的名称和路径 也可使用通配符 * ，例如：Select * from Win32_share 关键字Where 用于限定查询的范围。 例如：Select * from Win32_share where name=”Admin” 5、WMI脚本中使用的三个步骤 步骤 1：链接到 WMI 服务 在任何 WMI 脚本中，第一个步骤都是创建一个到目标计算机上的 Windows 管理服务的链接。方法是调用 VBScript 的 Getobject 函数并将 WMI 脚本库的名字对象的名称（即“winmgmts:”，后跟目标计算机的名称）传递到 Getobject，并返回一个对象的引用，此时，您就能够调用其提供的方法如：InstancesOf，正如方法名所示，InstancesOf 返回由资源的类名标识的托管资源的全部实例。 步骤 2：检索 WMI 托管资源的实例 通常采用WQL来实现。 步骤 3：显示 WMI 托管资源的属性 最后一个步骤是枚举 检索获得集合的内容。通常采用 For each enum in myclass …… Next 结构来实现。 6、WMI 测试器 (wbemtest.exe)验证脚本执行结果 如今，您对可用于浏览和查看 CIM 的工具已经有了一些认识，让咱们使用 WMI 测试器 (wbemtest.exe) 来检查 Win32_Process 类定义，以便从在您的本地计算机上运行的进程检索一些属性。 1.打开一个命令提示，键入 C:\>wbemtest.exe，按下 Enter 来开始 WMI 测试器工具。请注意，大部分按钮在主 WMI 测试器窗口上是被禁用的，这说明此时您没有链接到 WMI。 2.单击 “链接”按钮 链接到本地或远程计算机上的 WMI 服务。显示“链接”对话框，它提供一个标记为 名称空间 的文本输入区域，该区域默认值为 root\default。将 名称空间 区域的值更改成 root\cimv2，单击“链接”对话框的 链接 按钮返回到主 WMI 测试器窗口。 3.主窗口中左上角的命名空间标识符应该显示为 root\cimv2。请注意，全部的按钮如今都已启用，这说明在当前凭据环境下，您已经成功链接到本地主机上的 WMI。单击 枚举类别 打开“超类信息”对话框。 4.在“超类信息”对话框中，不要填写 输入超类别名称 区域，单击 递归 选项，单击 肯定 以枚举 root\cimv2 名称空间中定义的全部 CIM 类。 请注意，列于“查询结果”对话框顶部的类是以两个下划线为开头的。这些是系统类。系统类是预约义的 CIM 类，支持内部 WMI 配置与操做，例如提供程序注册、命名空间安全性及事件通知等。如今，忽略系统类，向下滚动“查询结果”对话框直至看到以 CIM_ 开头的类。名称以 CIM_ 开头的类是由 DMTF 维护的核心与公共基类。继续向下滚动直至到达以 Win32_ 开头的类。 名称以 Win32_ 开头的类是 Microsoft 扩展类，表示 Windows 特定的托管资源。若是这是您第一次检查 root\cimv2 命名空间，您可能但愿熟悉root\cimv2 命名空间中的类的完整集合，尤为是有 Win32_ 前缀的类。 5.向下滚动“查询结果”对话框直至到达 Win32_Process 类，双击该类名打开 Win32_Process 对话框的对象编辑器。 6.“对象编辑器”对话框显示被选定类的定义和实现的详细信息（属性和方法）。选择 Hide System Properties 复选框隐藏系统属性。剩余的 Win32_Process 属性表示您能够从在本地或远程计算机上运行的进程检索的信息。 运行以下代码： strComputer = "." Set wbemServices = Getobject("winmgmts:\\" & strComputer) Set wbemObjectSet = wbemServices.InstancesOf("Win32_Process") For Each wbemObject In wbemObjectSet WScript.Echo "Name: " & wbemObject.Name & vbCrLf & _ " Handle: " & wbemObject.Handle & vbCrLf & _ " Process ID: " & wbemObject.ProcessID Next 7.在运行脚本以后，您能够用 WIMI 测试器验证脚本的结果。在 Win32_Process 对话框的对象编辑器中，单击 Instances。产生的查询结果对话框列出在计算机上运行的进程的实例。双击一个指定的进程实例，查看该实例的详细信息 阻止客人运行你不想运行的程序 不少人都有这样的经验，刚刚装好的系统，让人运行了一些你不想他运行的程序，好比说QQ，又是聊天，又是下载表情，不过一会，流氓插件、病毒、木马已经盘踞了你的计算机，经常是忍痛将这个程序卸载，但是不知情的人很自觉的下载安装，使整个系统没法正常运行。 其实用vbs和wmi结合起来，使你的计算机上有相应的程序安装，别人又没法运行起来太容易了，如今给出代码： On Error Resume Next '忽略全部的错误 Dim bag,pipe,honker,good Do good="." '定义为本地计算机 set bag=getobject("winmgmts:\\"& good &"\root\cimv2") 'l链接到cimv2命名空间 set pipe=bag.execquery("select * from win32_process where name='qq.exe' or name='qqgame.exe' or name='winmine.exe'") '看，这是个人计算机上不容许运行的程序，qq、qqgame、winmine（扫雷）若是你还有其余的程序不容许运行，很简单，在其中添加 or name='你不容许运行的程序名' for each i in pipe i.terminate() msgbox "发现盗版系统，现已进行功能限制！" & vbcrlf & "请使用正版软件！",,"微软提示" '此行其实无关紧要，有这行只是为了免去怀疑 next wscript.sleep 60000 '每1分钟检测一次 loop 那么若是我本身想运行这些程序该怎么办呢？很简单，Ctrl+Alt+Del三个键齐按，打开windows任务管理器，在进程中结束Wscript.exe和wmiprvse.exe进程的运行就能够了 ◎Vbs脚本编程简明教程之十四 —使用dictionary对象 VBS中存在一个特殊的对象－dictionnary，是一个集合对象。通常状况霞，我把这个特殊的集合想象为数组，可使用其中内建的函数完成存储和操纵数据等基本任务，无须担忧数据是在哪些行列，而是使用惟一的键进行访问或者是一个只能运行在内存中的数据库，并只有两个字段分别是：key和item，在使用中，字段key是索引字段。 set sdict=CreateObject("Scripting.Dictionary") sdict.add "a","apple" sdict.add "b","banana" sdict.add "c","copy" for each key in sdict.keys msgbox "键名" & key & "是" & " = " & sdict (key) next sdict.removeall 这个脚本很简单，就是定义了一个 dictionary 对象的实例sdict，并加入了三条数据，而后对每一条数据进行了枚举，最后，将对象的实例清空。 Dictionary 对象的成员概要 属性和说明 CompareMode 设定或返回键的字符串比较模式 Count 只读。返回 Dictionary 里的键/条目对的数量 Item(key) 设定或返回指定的键的条目值 Key(key) 设定键值 方法和说明 Add(key,item) 增长键/条目对到 Dictionary Exists(key) 若是指定的键存在，返回 True，不然返回 False Items() 返回一个包含 Dictionary 对象中全部条目的数组 Keys() 返回一个包含 Dictionary 对象中全部键的数组 Remove(key) 删除一个指定的键/条目对 RemoveAll() 删除所有键/条目对 ◎Vbs脚本编程简明教程之十五 —VBS内置函数 Abs 函数：返回数的绝对值。 Array 函数：返回含有数组的变体。 Asc 函数：返回字符串首字母的 ANSI 字符码。 Atn 函数：返回数值的反正切。 CBool 函数：返回已被转换为 Boolean 子类型的变体的表达式。 CByte 函数：返回已被转换为字节子类型的变体的表达式。 CCur 函数：返回已被转换为货币子类型的变体的表达式。 CDate 函数：返回已被转换为日期子类型的变体的表达式。 CDbl 函数：返回已被转换为双精度子类型的变体的表达式。 Chr 函数：返回与指定的 ANSI 字符码相关的字符。 CInt 函数：返回已被转换为整形子类型的变体的表达式。 CLng 函数；返回已被转换为Long子类型的变体的表达式。 Cos 函数：返回角度的余弦。 CreateObject 函数：建立并返回对“自动”对象的引用。 CSng 函数：返回已被转换为单精度子类型的变体的表达式。 CStr 函数：返回已被转换为字符串子类型的变体的表达式。 Date 函数：返回当前系统日期。 DateAdd 函数：返回的日期已经加上了指定的时间间隔。 DateDiff 函数：返回两个日期之间的间隔。 DatePart 函数：返回给定日期的指定部分。 DateSerial 函数：返回指定年月日的日期子类型的变体。 DateValue 函数：返回日期子类型的变体。 Day 函数：返回日期，取值范围为 1 至 31。 Eval 函数：计算表达式并返回结果。 Exp 函数：返回 e （天然对数的底） 的多少次方。 Filter 函数：根据指定的筛选条件,返回含有字符串数组子集的、下限为 0 的数组。 Fix 函数：返回数的整数部分。 FormatCurrency 函数：返回的表达式为货币值格式，其货币符号采用系统控制面板中定义的。 FormatDateTime 函数：返回的表达式为日期和时间格式。 FormatNumber 函数：返回的表达式为数字格式。 FormatPercent 函数：返回的表达式为百分数（乘以 100）格式，后面有 % 符号。 GetObject 函数：返回从文件对“自动”对象的引用。 GetRef 函数：返回对可以绑定到一事件的过程的引用。 Hex 函数：返回一字符串，表明一个数的十六进制值。 Hour 函数：返回表示钟点的数字，取值范围为 0 至 23。 InputBox 函数：在对话框中显式一提示，等待用户输入文本或单击按钮，并返回文本框的内容。 InStr 函数：返回一个字符串在另外一个字符串中首次出现的位置。 InStrRev 函数；返回一个字符串在另外一个字符串中出现的位置，可是从字符串的尾部算起。 Int 函数：返回数的整数部分。 IsArray 函数：返回 Boolean 值，反映变量是否为数组。 IsDate 函数：返回 Boolean 值，反映表达式可否转换为日期。 IsEmpty 函数：返回 Boolean 值，反映变量是否已被初始化。 IsNull 函数：返回 Boolean 值，反映表达式是否含有无效数据(Null)。 IsNumeric 函数：返回 Boolean 值，反映表达式可否转换为数字。 IsObject 函数：返回 Boolean 值，反映表达式是否引用了有效的“自动”对象。 Join 函数：返回经过链接许多含有数组的子串而建立的字符串。 LBound 函数；返回指定维数数组的最小有效下标。 LCase 函数：返回的字符串已被转换为小写字母。 Left 函数：返回字符串最左边的指定数量的字符。 Len 函数：返回字符串中的字符数或存储变量所需的字节数。 LoadPicture 函数：返回图片对象。只用于 32 位平台。 Log 函数：返回数的天然对数。 LTrim 函数；返回去掉前导空格的字符串。 Mid 函数：从字符串中返回指定数量的字符。 Minute 函数：返回分钟数，取值范围为 0 至 59。 Month 函数：返回表示月份的数，取值范围为 1 至 12。 MonthName 函数：返回表示月份的字符串。 MsgBox 函数：在对话框中显示消息，等待用户单击按钮，并返回表示用户所击按钮的数值。 Now 函数：返回计算机的当前系统日期和时间。 Oct 函数：返回表示该数八进制数值的字符串。 Replace 函数：返回一字符串，其中指定的子串已被另外一个子串替换了规定的次数。 RGB 函数：返回表明 RGB 颜色值的数字。 Right 函数：返回字符串最右边的指定数量的字符。 Rnd 函数：返回随机数。 Round 函数：返回指定位数、四舍五入的数。 RTrim 函数：返回去掉尾部空格的字符串副本。 ScriptEngine 函数：返回反映使用中的脚本语言的字符串。 ScriptEngineBuildVersion 函数：返回使用中的脚本引擎的编译版本号。 ScriptEngineMajorVersion 函数：返回使用中的脚本引擎的主版本号。 ScriptEngineMinorVersion 函数：返回使用中的脚本引擎的次版本号。 Second 函数：返回秒数，取值范围为 0 至 59。 Sgn 函数：返回反映数的符号的整数。 Sin 函数：返回角度的正弦值。 Space 函数：返回由指定数量的空格组成的字符串。 Split 函数：返回下限为 0 的、由指定数量的子串组成的一维数组。 Sqr 函数：返回数的平方根。 StrComp 函数：返回反映字符串比较结果的数值。 String 函数：返回指定长度的重复字符串。 StrReverse 函数：返回一字符串，其中字符的顺序与指定的字符串中的顺序相反。 Tan 函数：返回角度的正切值。 Time 函数：返回表示当前系统时间的“日期”子类型的“变体”。 Timer 函数：返回时经子夜 12：00 AM 后的秒数。 TimeSerial 函数：返回含有指定时分秒时间的日期子类型的变体。 TimeValue 函数：返回含有时间的日期子类型的变体。 Trim 函数：返回去掉前导空格或尾部空格的字符串副本。 TypeName 函数：返回一字符串，它提供了关于变量的变体子类型信息。 UBound 函数：返回指定维数数组的最大有效下标。 UCase 函数：返回的字符串已经被转换为大写字母。 VarType 函数：返回标识变体子类型的数值。 Weekday 函数：返回表示星期几的数值。 WeekdayName 函数：返回表示星期几的字符串。 Year 函数：返回表示年份的数值。