自动化测试（四）：VBScript脚本语言

VBS基于对象，只能利用现成的对象，不能封装、继承等，意味着不是真正的面向对象

语言的学习：

1.数据定义，变量定义，表达式

2.程序控制结构

3.函数，方法，类

4.异常处理

VBScript的数据类型

VBScript只用一种数据类型，称为Variant，Variant是一种特殊的数据类型，根据使用的方式，它可以包含不同类别的信息，因为Variant是VBS中唯一的数据类型，所以它也是VBS中所有函数的返回值的数据类型，包括Empty，Null和Error三种特殊类型。

最简单的Variant可以包含数字或字符串信息，Variant用于数字上下文中时作为数字处理，用于字符串上下文中时作为字符串处理，这就是说，如果看起来像是数字的数据，则VBS会假定其为数字并以使用于数字的方式处理，与此类似，如果使用的数据只可能是字符串，则VBS将按字符串处理，也可以将数字包含在引号（“”）中使其成为字符串。

Variant数据子类型

Empty：未初始化的Variant，对于数值变量，值为0,；对于字符串变量，值为零长度字符串（“”）

Null：不包含任何有效数据的Variant

Boolean：包含True或False

Byte：包含0到255之间的整数

Integer：包含-32768到32767之间的整数

Currency：货币类型

Long：包含-2147483648到2147483647之间的整数

Single：单精度浮点数

Double：双精度浮点数

Data（Time）：包含表示日期的数字，日期范围从公元前100年1月1日到公元9999年12月31日

String：包含变长字符串，最大长度可为20亿个字符

Object：包含对象

Error：包含错误号

除简单的数字字符串以外，Variant可以进一步区分数值信息的特定含义。例如使用数值信息表示日期或时间。此类数据在与其他日期或时间数据一起使用时，结果也总是表示为日期或时间。从boolean值到浮点数，数值信息是多种多样的。Variant包含的数值信息类型称为子类型。大多数情况下，可将所需的数据放进Variant中，而Variant也会按照最适用与其包含的数据的方式进行操作。

可以使用转换数函数来转换数据的子类型，另外，可以使用vartype的函数返回数据的Variant子类型。

VBScript变量

声明变量

使用dim语句、public语句和private语句在脚本中显示声明变量，例如：dim username

声明多个变量时，使用逗号分隔变量，例如：dim top , bottom , left , right

如在同一行内给多个变量赋值，则不同变量之间用:分隔，如 a = 0 : b = 0

另一种方式是通过直接在脚本中使用变量名这一简单方式隐式声明变量。这通常不是一个好习惯，因为这样有时会由于变量名被拼错而导致在运行脚本时出现意外的结果。因此，最好使用opinion explicit语句显示声明所有变量，并将其作为脚本的第一句。

命名规则

第一个字符必须是字母

不能包含嵌入的句点

长度不能超过255个字符

在被声明的作用域内必须唯一

Example1：

msgbox “Hello World!”

Example2：

a = “Hello World!”

msgbox varitype(a)

Example3：

a = “Hello World!”

b=1

msgbox a+b（提示错误，类型不匹配！ msgbox a & b）

Example3：

opinion explicit ’(强制申明，如需使用，必须放在首行)

dim hellomsg

hellomsg=”hello world!”

msgbox hellomsg

标量变量和数组变量

标量：只包含一个值的变量称为标量变量，如：a = 0

数组变量：创建可以包含一系列值得变量，称为数组变量。声明数组变量时变量名后面有括号()，如dim A(10)。在VBScript中所有数组变量都是基于0，在基于0的数组中，数组元素的数目总是括号中显示的数目加1。这种数组称为固定大小的数组。

要使用动态数组，必须随后使用redim确定维数和每一维的大小，使用preserve关键字在重新调整大小时保留数组的内容。重新调整动态数组大小的次数是没有任何限制的，尽管将数组的大小调小时，将会对视被删除元素的数据。

 

Example3：数组的使用

1.用for each表达式获取数组的每一个值

dim a

a = array(10.20.30)

for each i in a

msgbox i

next

2.用for循环构造数组

dim arr(10)

for i = 0 to ubound(arr)

arr(i)=i

msgbox arr(i)

next

msgbox “数组的上边界是：” & ubound(arr)

msgbox “数组的上边界是：” & lbound(arr)

3.VBS动态数组使用

i = 0:nstr = ….

dim myarray()

do

a = inputbox(“循环直到输入4为止”)

‘redim preserve myarray(i)

redim myarray(i)

myarray(i) = a

i = i + 1

loop untial a = “4”

for i = 0 to ubound(myarray)

nstr = nstr & myarray(i) & “,”

next

msgbox nstr

 

VBScript常数

常数是具有一定含义的名称，用于代替数字或字符串，其值被创建后就不允许再被改变。VBScript定义了许多内部函数。例如：msgbox “提示信息：” & vbcrlf & “操作成功” , vbinformation , “title”

创建常数

使用const语句在VBScript中创建用户自定义常数。使用const语句可以创建名称具有一定含义的字符串型或整数型常数，并给他们赋原义值，例如：

const  conusername = “frank”

const  pi = 3.14159

const  conolympicdata = #08/08/08#

最好采用一个命名方案一区分常量和变量，这样可以避免运行脚本时常数重新赋值。例如，可以用”vb”或”con”作常数名前缀，或将常数名的所有字母大写。将常量和变量区分开来可以在开发复杂的脚本时避免混乱。

 

常用的常数

vbcr 回车符    vblf 换行符    vbcrlf 回车符与换行符    vbnewline 新行字符

VBScript运算符

算数运算符		比较运算符		逻辑运算符
求幂	^	等于	=	逻辑非	not
负号	-	不等于	<>	逻辑与	and
乘	*	小于	<	逻辑或	or
除	/	大于	>	逻辑异或	xor
整除	\	大于等于	>=	逻辑等价	eqv
求余	mod	小于等于	<=	逻辑隐含	imp
加	+	对象引用比较	is
减	-
字符串连接	&

VBScript条件语句

使用条件语句和循环语句可以控制脚本的流程。使用条件语句可以编写进行判断和重复操作的VBScript代码。在VBScript中使用以下条件语句：

if … then … else 语句，条件为true和false时分别运行某些语句

条件为true时运行语句，例如：ifmydata < now  then  mydata = now  ‘单行不用加end if

select case语句，对多个条件进行判断，例如：

select case value

case 1

msgbox “hello world!”

case 2

msgbox “hello software testing! ”

case 3

msgbox “hello 51testing!”

end select

VBScript循环语句

循环用于重复执行一组语句。循环可分为三类：①在条件变为false之前重复执行语句；②条件变为true前重复执行语句；③按照指定的次数重复执行语句。

在VBScript中可以使用下列循环语句：

do…loop：当（或直到）条件为true是循环，退出循环用exit do

while…wend：当条件为true时循环，while循环没有退出语句

for…next：指定循环次数，使计数器重复运行语句，退出for语句用exit for。默认计数器每次加1，但可以用step关键字指定每次循环计数器增加的值。

for each…next：对于集合中的每项或数组中的每个元素，重复执行一组语句。

 

Example4：

for i = 0 to 10 step 3

msgbox i

next

VBScript中的with语句

对一个对象执行一系列的语句。

语法：

with object

statement

end with

 

Example5：

with window(“计算器”)

.einbutton(“7”.click)

.einbutton(“+”.click)

.einbutton(“6”.click)

.einbutton(“=”.click)

end with

当程序一旦进入with块，object就不能改变。因此不能用一个with语句来设置多个不同的对象。with语句可以嵌套。

VBScript过程

在VBScript中，过程被分为两类：sub过程和function过程。

sub过程

sub过程是包含在sub和end sub语句之间的一组VBScript语句，执行操作但不返回值，sub过程可以使用参数（由调用过程传递的常数、变量或表达式）

声明sub过程的名称、参数以及构成其主体的代码：

[public [default] | private] sub name [(arglist)]

[statement]

[exit sub]

[statement]

end sub

function过程

function过程是包含在function和end function语句之间的一组VBScript语句。function过程与sun过程类似，但是function过程可以返回值。function过程可以使用参数（由调用过程传递的常数、变量或表达式）。function过程通过函数名返回一个值，这个值是在过程的语句中赋给函数的。function返回值的数据类型总是variant。

声明function过程的名称、参数以及构成其主体的代码：

[public [default] | private] function name [(arglist)]

[statement]

[name = expression]

[exit function]

[statement]

[name = expression]

end function

Example5：

function getname(name)

getname = name

end function

msgbox getname(“张三”)

 

过程中的arglist参数：

[byval | byref] varname[()]

byval表示该参数按值传递

byref表示该参数按引用传递，系统默认使用这种传值方式

varname表示参数的变量名称，遵循标准标量命名规则

过程的声明：

没有显示地指定使用public或private，则sub/function过程默认为公用，即它们对于脚本的所有其他过程都是可见的。sub/function过程中局部变量的值在调用过程中不被保留。

过程的调用：

使用call语句调用（函数返回值将别丢失）

直接输入过程名调用

支持递归调用

 

Example6：byval和byref的区别

opinion explicit

dim msg

msg = “nice to meet you”

changebyval msg

msgbox msg

changebyrefl msg

msgbox msg

function changebyrefl(byref  sentense)

sentence = sentence & “,too”

end function

function changebyvall(byval  sentense)

sentence = sentence & “,too”

end function

VBScript的编码规范

编码约定

1.对象、变量和过程的命名规范

匈牙利命名法：变量名=类型名+类型+对象描述

骆驼命名法：除首单词外其他首字母大写

帕斯卡命名法：所有单词首字母大写

2.注释约定

不要在代码行的结尾处使用注释，要将注释放在单独的行

注释文本以大写字母开头

注释以句点结束

在注释分隔符(‘)和注释之间插入一个空格

请勿创建已设置格式的将注释包含在内的星号块

3.文本格式和缩进指南

关键字空一格，运算符两边不加空格，括号内侧空一格

缩进四个空格为单位

函数之间空两行

语句块的配对对齐

VBScript变量的命名规则

类型	前缀	示例
Variant	var	varArray
Boolean	bln	blnFound
Byte	byt	bytRasterData
Date(Time)	dtm	dtmStart
Double	dbl	dblTolerance
Error	err	errOrdeNum
Integer	int	intQuantity
Long	lng	lngDistance
Object	obj	objCurrent
Single	sng	sngAverage
String	str	strFirstName

Example7:

‘**************************************

‘目的：在UserList数组中

‘定位指定用户的首次出现。

‘输入：strUserList()：要搜索的用户列表

‘strTargetUser：要搜索的用户名。

‘返回：索引strUserList数组中

‘strTargetUser的首次出现。

‘如果找不到目标用户，则返回-1。

‘**************************************

Function intFindUser(strUserList(), strTargetUser)

Dim i  ‘loop counter

Dim blnFound  ‘找到目标标志

intFindUser = -1

i = 0  ‘初始化循环计数器

do while i < ubound(strUserList) and not blnfound

if strUserList(i) = strTargetUser then

blnfound = true  ‘将标志设置为true

intFindUser = i  ‘将返回值设置成循环计数

end if

i = i + 1  ‘递增循环计数器

loop

end function

VBScript的常用函数

字符串函数：

len函数

left函数

mid函数

right函数

instr函数

instrrev函数

ltrim、rtrim和trim函数

lcase函数

ucase函数

replace函数

strcomp函数

split函数

join函数

转换函数：

asc函数

chr函数

str函数

val函数

cbool函数

cbyte函数

ccur函数

cdte函数

cdbl函数

cint函数

clng函数

csng函数

cstr函数

判断函数：

isarray函数

isdata函数

isempty函数

isnumeric函数

isnull函数

isobject函数

varitype函数

typename函数

时间函数：

date函数

day函数

hour函数

minute函数

mounth函数

now函数

second函数

time函数

weekday函数

weekdayname函数

year函数

其它函数：

rnd函数和randomize语句

公式：int((upperbound – lowerbound + 1) * rnd + lowerbound)

例子：生成指定范围的10个随机数

creatobject函数（注意使用set来给对象赋值）

set myobj = creatobject(“wscript.shell”)

set myobj = creatobject(“excel.application”)

set myobj = creatobject(“scripting.filesystemobject”)

set myobj = creatobject(“scripting.dictionary”)

set myobj = creatobject(“adodb.connection”)

set myobj = creatobject(“adodb.recondset”)

set myobj = creatobject(“microsoft.xmldom”)

set myobj = creatobject(“internetexplorer.application”)

getobject函数

int、fix函数

lbound、ubound函数

msgbox、inputbox函数

Example8：

dim a(10)

min = inputbox(“请输入下边界：”)

min = inputbox(“请输入上边界：”)

randomize

for I = 0 to ubound(a) – 1

a(i) = int((max – min + 1)*rnd + min)

msgbox a(i)

next

小练习

1.数组练习

假设现在有一数组（”0”,”1”,”2”,”3”,”4”,”5”,”a”,”b”,”c”,”d”），用户可以输入一个值，程序判断用户输入的这个值是否在数组中。（使用两种方法实现）

Dim arr, i, str

arr = array("1", "2", "3", "4", "5", "a", "b", "c", "d")

str = inputbox("输入字符","")

if str <> ""  then

for i = 0 To UBound(arr)

If arr(i) = str Then

exit For

end if

Next

if i <= UBound(arr) then

msgbox  "数组中包含" & str

else

msgbox  "a数组中不包含" & str

end if

end if

2.随机数

用程序编写并生成4为随机验证码，验证码范围：大写字母、小写字母、数字。

msgbox getranstring(4)

function getranstring(byval ilen)

dim i

for i = 1 to ilen

getranstring = getranstring & generatevericode()

next

end function

function

generatevericode()

dim iget

iget = getrndnumber(1,3)

select case iget

case 1

generatevericode = chr(getrndnumber(48,57))

case 2

generatevericode = chr(getrndnumber(65,90))

case 3

generatevericode = chr(getrndnumber(97,122))

case else

generatevericode = “err_code”

end select

end function

function getrndnumber(byval lowerbound, byval upperbound)

randomize

getrndnumber = int((upperbound – lowerbound + 1) * rnd + lowerbound)

end function

VBScript中的文件读写

1.文本文件的读写

option explicit

constforreading = 1, forwriting = 2, forappending = 8

dim fso, file, msg

set fso = fso.createobject(“scripting.filesystemobject”)

set file = fso.opentextfile(“c:\calc.text”, forreading)

while (not file.atendofstream)

msg = msg & file.readline & chr(13) & chr(10)

wend

msgbox msg

file.close

set file = nothing

set fso = nothing

2.Excel文件的读写

dim xlapp, xlworkbook, xlsheet

dim irowcount, iloop, numadd

set xlapp = createobject(“excel.application”)

xlapp.visible = true

set xlworkbook = xlapp.workbooks.open(“c:\data.xls”)

set xlsheet = xlworkbook.sheets(“sheet1”)

irowcount = xlsheet.usedrang.rows.count

for iloop = 2 to irowcount

numadd = xlsheet.cells(iloop, 1)

next

xlworkbook.save

xlworkbook.close

xlapp.quit

set xlsheet = nothing

set xlworkbook = nothing

set xlapp = nothing

3.数据库文件的读写

dim cnn, rst, strcnn

strcnn = “provider = Microsoft.jet.oledb.4.0; data sourse = c:\calc.mdb; persist security info = false”

set cnn = creatobject(“adodb.connection”)

cnn.open strcnn

set rst = createobject(“adodb.recordset”)

rst.open “select * from calc”,cnn

rst.movefirst

do while not rst.eof

msgbox trim(rst.fields(“testresult”))

rst.movenext

loop

rst.close

cnn.close

set rst = nothing

set cnn = nothing

4.XML文件的读写

dim xmldoc, xmlroot, rootchildltem, msg

set xmldoc = createobject(“Microsoft.xmldom”)

xmldoc.async = false

xmldoc.load”c:\calc.xml”

if xmldoc.paeseerror.errorcode <> o then

msgbox “xml loaded failed. the reson is:” & xmldoc.parseerror.reason

exit sub

end if

set xmlroot = xmldoc.docunentelement

if not xmlroot.haschildnodes then exit sub

for each rootchildltem in xmlroot.childnodes

if rootchildltem.nodename = “testcase” then

msg = msg & rootchildltem.firstchild.nodevalue & vbnewline

end if

next

msgbox msg