《VBS脚本宝典教程.doc》由会员分享，可在线阅读，更多相关《VBS脚本宝典教程.doc（33页珍藏版）》请在金锄头文库上搜索。
1、VBS脚本宝典教程我们先来看一个简单的vbs脚本实例Const aa=Hello World! bb=MsgBox例子 cc=MsgBox(aa,vbOKOnly,bb)语法介绍VBScript常数什么是常数？常数是具有一定含义的名称，用于代替数字或字符串，其值从不改变。VBScript定义了许多固有常数。详细信息，请参阅VBScript语言参考。创建常数的方法：您可以使用Const语句在VBScript中创建用户自定义常数。使用Const语句可以创建名称具有一定含义的字符串型或数值型常数，并给它们赋原义值。例如：Const MyString = 这是一个字符串。 Const MyAge =
2、49请注意字符串文字包含在两个引号( )之间。这是区分字符串型常数和数值型常数的最明显的方法。日期文字和时间文字包含在两个井号(#)之间。例如： Const CutoffDate = #6-1-97#最好采用一个命名方案以区分常数和变量。这样可以避免在运行Script时对常数重新赋值。例如，可以使用“vb”或“con”作常数名的前缀，或将常数名的所有字母大写。将常数和变量区分开可以在开发复杂的Script时避免混乱。 VBScript变量什么是变量？变量相当于一个容器，我们可以给这个容器起名叫做A，那么我们可以向A杯子内放入任何的数。那么容器A就可以看作是一个变量。声明变量：声明变量的一种方式
3、是使用Dim语句、Public语句和Private语句在Script中显式声明变量。例如： Dim aa声明多个变量时，使用逗号分隔变量。例如： Dim Top, Bottom, Left, Right数据类型描述 Null不包含任何有效数据的变量。Boolean包含True或False。Integer包含-32,768到32,767之间的整数。Long包含-2,147,483,648到2,147,483,647之间的整数。Single包含单精度浮点数，负数范围从-3.402823E38到-1.401298E-45，正数范围从1.401298E-45到3.402823E38。Double包含双
4、精度浮点数，负数范围从-1.79769313486232E308到-4.94065645841247E-324，正数范围从4.94065645841247E-324到1.79769313486232E308。String包含变长字符串，最大长度可为20亿个字符。 弹出对话框的函数 MSGBOX(剑思庭VBS教程)WScript.Echo(剑思庭VBS教程)Set WshShell = WScript.CreateObject(WScript.Shell) WshShell.Popup 剑思庭VBS教程MsgBox函数描述在对话框中显示消息，等待用户单击按钮，并返回一个值指示用户单击的按钮。语法
5、 MsgBox(prompt, buttons, title, helpfile, context) MsgBox函数的语法有以下参数：参数描述prompt作为消息显示在对话框中的字符串表达式。prompt的最大长度大约是1024个字符，这取决于所使用的字符的宽度。如果prompt中包含多个行，则可在各行之间用回车符(Chr(13)、换行符(Chr(10)或回车换行符的组合(Chr(13) & Chr(10)分隔各行。buttons数值表达式，是表示指定显示按钮的数目和类型、使用的图标样式，默认按钮的标识以及消息框样式的数值的总和。有关数值，请参阅“设置”部分。如果省略，则buttons的默认
6、值为 0。title显示在对话框标题栏中的字符串表达式。如果省略title，则将应用程序的名称显示在标题栏中。helpfile字符串表达式，用于标识为对话框提供上下文相关帮助的帮助文件。如果已提供helpfile，则必须提供context。在16位系统平台上不可用。context数值表达式，用于标识由帮助文件的作者指定给某个帮助主题的上下文编号。如果已提供context，则必须提供helpfile。在16位系统平台上不可用。 设置buttons参数可以有以下值：常数值描述vbOKOnly 0只显示确定按钮。vbOKCancel 1显示确定和取消按钮。vbAbortRetryIgnore 2显示
7、放弃、重试和忽略按钮。vbYesNoCancel 3显示是、否和取消按钮。vbYesNo 4显示是和否按钮。vbRetryCancel 5显示重试和取消按钮。vbCritical 16显示临界信息图标。vbQuestion 32显示警告查询图标。vbExclamation 48显示警告消息图标。vbInformation 64显示信息消息图标。vbDefaultButton1 0第一个按钮为默认按钮。vbDefaultButton2 256第二个按钮为默认按钮。vbDefaultButton3 512第三个按钮为默认按钮。vbDefaultButton4 768第四个按钮为默认按钮。第一组值(
8、0 -5)用于描述对话框中显示的按钮类型与数目；第二组值(16, 32, 48, 64)用于描述图标的样式；第三组值(0, 256, 512)用于确定默认按钮；而第四组值(0, 4096)则决定消息框的样式。在将这些数字相加以生成buttons参数值时，只能从每组值中取用一个数字。返回值MsgBox函数有以下返回值：常数值按钮vbOK 1确定vbCancel 2取消vbAbort 3放弃vbRetry 4重试vbIgnore 5忽略vbYes 6是vbNo 7否说明如果同时提供了helpfile和context，则用户可以按F1键以查看与上下文相对应的帮助主题。如果对话框显示取消按钮，则按ES
9、C键与单击取消的效果相同。如果对话框包含帮助按钮，则有为对话框提供的上下文相关帮助。但是在单击其它按钮之前，不会返回任何值。下面的示例利用MsgBox函数显示一信息框并且返回值说明了按下的是那一个按钮:Dim MyVar MyVar = MsgBox (Hello World!, 65, MsgBox例子) MyVar包含either 1 or 2， 依赖于 被按下的按钮。一个VBS的加法运算的例子: dim a,b,c声明变量a,b,c a=4变量付值。把变量a付值为4 b=6变量付值。把变量b付值为6 c=a+b把变量a的内容和变量b内的内容进行相加，存放到变量c中msgbox(c)用ms
10、gbox函数显示出变量c中的内容。 dim a,b,c a=4 b=6 c=a+b msgbox(c)=VBS中的运算符运算符付值=加+减乘*除/=小于负号-等于=小于等于=不等于=求余Mod逻辑与And逻辑或Or逻辑非Not逻辑异或Xor字符串连接&Chr(34)为符号 =实例： Dim a,b,c,d,e a= InputBox(输入一个加数) b= InputBox(输入一个被加数)c=CInt(a) d=CInt(b) e=c+d msgbox(e)Cint函数作用：把一个其它类型的数转化为正数型。使用格式CINT(表达式)InputBox函数显示一对话框来做为提示，等使用者输入文字或
11、按下按钮，则传回文字方块的内容。 InputBox(prompt, title, default, xpos, ypos, helpfile, context)自变量 prompt字符串表达式。用来做为对话框讯息的字符串表达式。prompt的最大长度大约是1024个字符，由使用字符的宽度来决定。如果prompt超过一行，您可以在各行之间用复位字符(Chr(13)、换行字符(Chr(10)、或是复位字符与换行字符的组合(Chr(13) & Chr(10)来做区隔。 title显示在对话框标题列的字符串表达式。如果没有title，则以应用程序的名称做为标题。 default显示在文字方块中的字符串
12、表达式，在没有提供其它输入时做为默认值。如果没有default，则文字方块就是空白的。 xpos数值表达式。成对指定的数值表达式，用来指定对话框的左缘与屏幕左缘的水平距离。如果没有xpos，则对话框会出现在水平方向的中间。 ypos成对指定的数值表达式，用来指定对话框的上缘与屏幕的上缘的距离。如果没有ypos，对话框会放置于屏幕垂直方向三分之一的位置。 helpfile字符串表达式，用来指定对话框文字感应说明的说明档案。如果指定了helpfile，则您也必须指定context。 context数值表达式，由说明档案的作者指定给某个说明主题的说明主题代码。如果指定了context，则也必须指定h
13、elpfile。附注如果同时提供helpfile与context，对话框中会自动加上一个Help按钮。如果使用者按了一下 确定或是按了ENTER，则InputBox函数会传回文字方块中的内容；如果使用者按了一下 取消，则此函数会传回一个长度为零的字符串()。下面范例即使用InputBox函数显示输入方块并指定字符串给Input变量： Dim Input Input = InputBox(Enter your name) MsgBox (You entered: & Input)=VBS例子讲解-1:用run运行文件set shl=createobject(WScript.Shell) shl.
14、runregedit.exe set shl=nothingVBS例子讲解-2:用FSO复制文件Set shl = CreateObject(Scripting.FileSystemObject) shl.CopyFile c:1.txt,d: set shl = nothing=CreateObject描述创建并返回对象的引用。语法 CreateObject(class)class参数使用语法servername.typename，有以下部分：部分描述servername提供对象的应用程序名称。typename要创建的对象类型或类。说明Automation服务器至少提供一种对象类型。例如，字
15、处理应用程序可以提供应用程序对象、文档对象和工具条对象。要创建Automation对象，将CreateObject函数返回的对象赋值给某对象变量： Dim ExcelSheet Set ExcelSheet = CreateObject(Excel.Sheet) 使Excel在整个Application对象中都可见。ExcelSheet.Application.Visible = True将一些文本放入工作表的第一个单元格中。 ExcelSheet.ActiveSheet.Cells(1,1).Value = This is column A, row 1 保存工作表。ExcelSheet.SaveAs C:TEST.XLS 关闭Excel，使Quit方法处于Applicatio
