使用VBScript开发自动化测试脚本2

使用VBScript开发自动化测试脚本2

作者: aken   来源: Test8848.net

3、InputBox函数

描述

在对话框中显示提示，等待用户输入文本或单击按钮，并返回文本框内容。

语法

InputBox(prompt[, title][, default][, xpos][, ypos][, helpfile, context])

 

示例：

这个函数主要用于捕获用户输入的信息，在自动化测试开发中可用于脚本分类执行。

比如：

Dim a   a=InputBox("请输入登记的号码：" & Chr(13) &  Chr(13)  & "（注意：一定要使用注册时使用的登记号码，否则不允许进入系统！）","登录系统","请输入登记的号码")   Select Case a     Case "123"         MsgBox "进入A系统"     Case "456"         MsgBox "进入B系统"     Case Else         MsgBox "输入的登记号码错误" End Select

 

4、MsgBox函数

描述

在对话框中显示消息，等待用户单击按钮，并返回一个值指示用户单击的按钮。

语法

MsgBox(prompt[, buttons][, title][, helpfile, context])  

 

示例：

这个函数主要用于输出信息，在自动化测试开发中可作为提示和警告，还可以通过人工判断输出测试结果等。

比如：

Dim a   a=MsgBox("页面预期显示的内容为：欢迎admin登录到论坛" & Chr(13) & Chr(13) & "页面实际显示的内容与预期结果相同吗？",308,"测试结果判断")   If a=6 Then     MsgBox "输出正确" Else     MsgBox "输出错误" End If

 

5、UBound函数

描述

返回指定数组维数的最大可用下标。

语法

UBound(arrayname[, dimension])

 

示例：

这个函数主要用于捕获数组中的数据个数，在自动化测试开发中可用于获得测试数据。

比如：

Dim a(5)   a(0)="123" a(1)="456" a(2)="789" a(3)="101112" a(4)="131415"   For i=0 To UBound(a)-1     MsgBox a(i) Next

 

6、Left、Right和Mid函数

描述

返回指定数目的从字符串的左边算起的字符。

语法

Left(string, length)

 

描述

从字符串右边返回指定数目的字符。

语法

Right(string, length)

 

描述

从字符串中返回指定数目的字符。

语法

Mid(string, start[, length])

 

示例：

这个函数主要用于截取字符串，在自动化测试开发中可用于获取需要的字符串。

比如：

Dim a,b,i   a="abc" b="  kdk ieio splabckf kif  " i=InStr(b,a) MsgBox Mid(b,i+Len(a))