vbscript 脚本学习笔记不断更新<一…
来源:互联网 发布:Python rpc 编辑:程序博客网 时间:2024/06/06 06:31
vbscript脚本学习笔记不断更新
1.一个 1~4随机返回值的例子
functionrand(k,n)
end function
Dim n
msgboxn
-------------------------------------------------------------------
2.Reporter用法
Argument
Type
Description
Reporter.ReportEvent 1,"Custom Step", "The user-defined step failed."
or
Reporter.ReportEventmicFail, "Custom Step", "The user-defined step failed."
---------------------------------------------------------------------------------
3.
Datatable.ImportSheet"D:\test\USER_INFO.xls",1,"Action1"
Dim i,RowCount,a,b '定义两个变量
i=0
RowCount=datatable.GetSheet("Action1").GetRowCount
Do while i
Datatable.ImportSheet"D:\test\USER_INFO.xls",1,"Action1"
Dim i,RowCount,a,b '定义两个变量
i=0
RowCount=datatable.GetSheet("Action1").GetRowCount
Do while i<rowcount
Browser("Welcome: Mercury Tours").Page("Welcome: MercuryTours").WebEdit("userName").Set a
Browser("Welcome: Mercury Tours").Page("Welcome: MercuryTours").WebEdit("password").Set
Browser("Welcome: Mercury Tours").Page("Welcome: MercuryTours").Image("Sign-In").Click
If
End If
Browser("Welcome:Mercury Tours").Page("Sign-on: MercuryTours").Link("Home").Click
loop
5.获取磁盘大可用可用空间和剩余空间的vbscript脚本
Dim fso,drv,s
Setfso=createobject("scripting.filesystemobject")
Set drv=fso.getdrive(fso.getdrivename("c:\")) '用get方法获取磁盘对象
s=s&drv.volumename '取磁盘卷标名
s=s&"total space:" &formatnumber(drv.totalsize / 1024,0)&"kb"'获取磁盘总空间大小
s=s& "freespace:"&formatnumber(drv.freespace / 1024,0)&"kb" '获取磁盘剩余空间大小
msgbox s
6.一个iputbox的应用
Dim Input
Input = InputBox(
"Enter yourname")
MsgBox ("You entered: " & Input)
7.一个iputbox、if条件语句、数据类型转化的综合应用
Dim i
i=inputbox("输入数字")
if(cint(i)=0) then
msgbox "0"
elseif (cint(i)=1) then
msgbox "1"
elseif (cint(i)=2) then
msgbox "2"
else
msgbox "数据在不可接受的范围内"
end if
8. selectcase
Dim a
a=inputbox("输入数值:")
Select Case
Case "0"
Case "1"
Case "2"
msgbox "2"
Case else
End Select
Dim counter,num
counter=0
num=10
Do until num=0
Loop
msgbox "循环了"&counter&"次"
9.1 for循环
连续10次messagebox输出i的值
Dim i
for i=1 to 10
msgbox i
next
Sub和Function都是过程,但是Sub不能返回值,而Function可以返回值。
'定义addmethod
Function addmethod(num)
End Function
'调用addmethod函数并获取返回值
msgbox addmethod(100)
------------------------------------
'定义addmethod 子过程
Sub addmethod(num)
End Sub
'调用名为addmethod的子过程
Call addmethod(100)
一、简单实例
Dim a(10)
a(0)="nihao"
a(1)="henhao"
msgbox a(1)
二、不能确定数组时,redim语句动态创建数组
Dim a()
Dim num
num=inputbox("输入数组的大小:")
ReDim a(num)
a(0)="10"
a(1)="11"
msgbox ubound(a)'获取数组的范围
一、Built_In 内建环境变量
'获取操作系统的名称
OS=Environment.Value("OS")
'获取操作系统的版本
OSVersion=Environment.Value("OSVersion")
TestName=Environment.Value("TestName")
Reporter.ReportEvent micdone,"Environment","运行测试脚本"&TestName& "的操作系统为:"& OS & "版本为:"&OSVersion
二、User_define 类型环境变量
'设置环境变量的值myVariable的值为10
Environment.Value("myVariable")=10
myvalue=Environment.Value("myVariable")
msgbox
- vbscript 脚本学习笔记不断更新<一…
- vbscript 脚本学习笔记不断更新<二…
- LoadRunner脚本编写<一>-- 检查点…
- qtp 问题汇总(不断更新)<一>
- qtp 问题汇总(不断更新)<…
- loadrunner 脚本实例《不断更新》
- C++学习笔记<一>
- LoadRunner脚本编写<二>-- 数据类…
- QTP VBScript脚本学习
- 数据结构学习笔记(一)不断更新
- qtp 问题汇总(不断更新)<二>
- <?php $sql = <<<E…
- C++ 学习积累-不断更新
- VBScript学习笔记
- VBScript学习笔记
- vbscript 学习笔记
- VBScript学习笔记
- HTML <a></a&…
- BUGZILLA在windows下的安装
- Selenium 自动化验收测试及下载
- 修改Xitami WebServer HTTP/FTP端…
- JBoss4安装配置
- QTP录制时报错: unable to launch …
- vbscript 脚本学习笔记不断更新<一…
- tomcat中的几点配置说明
- http 状态码解释
- HDU 4730 We Love MOE Girls 解题报告
- Loadrunner中 C 语言编程 简单例子
- 软件测试结束的标准(仅供参考)
- loadrunner 脚本实例《不断更新》
- [转帖] web_custom_request应用示…
- [转帖] web_custom_request应用示…