vbs课堂笔记
描述性编程:
1.针对一个浏览器的,browser("micclass:=browser").page("micclass:=page").webedit("name:=登录").set"admin"
2.针对多个浏览器的.browser("name:=协同管理-协同办公系统－系统管理员").page("tittle:=协同管理-协同办公系统－系统管理员").webedit("name:=longid").set "admin"
创建对象编程
set j =desciption.create()
j("micclass").value="brower"
Option explicit '下面的脚本中必须声明变量才能使用
'msgbox "欢迎来到" ------- 弹框
'msgbox "欢迎",vbyesno
'msgbox "欢迎",vbyesno,"标题"
'隐式声明变量
'' a=1
'' b=2
'' msgbox a+b 值的加法
''
''a="11"
''b="22"
''msgbox a+b 字符串的拼接
'显式声明变量
Dim c '声明变量,不能声明变量的时候给变量赋值
c=5
'msgbox c
Dim response '普通变量
response =124
'msgbox response
'创建对象的方式,对于对象级别的变量必须使用set关键字
Dim objBrowser
Set objBrowser = description.Create()
'标量和数组
'标量指的是只包含一个值的变量
'数组是包含多个同类型的变量叫做数组,其他语言数组的下标从0开始，0到数组长度-1，vbs也是从0开始，但是数组长度是0到定义的长度
Dim d(3)
d(0)=1
d(1)=2
d(2)=3
d(3)=4
'd(4)=5 这里数组下标越界
'msgbox d(3)
'常数（常量）,语法要求常量必须在声明就赋值，一般要求常量命名全部大写
'常量是不变的值
Const PI=3.1415926 , USERNAME="admin"
'msgbox PI
'msgbox USERNAME
'条件语句
'Dim a1,b1
'a1=inputbox("请输入第一个数：") '返回的是一个字符串
'b1=inputbox("请输入第二个数：") '返回的是一个字符串
'a1=int(a1) '类型转换，转换成int型
'b1=int(b1) '类型转换，转换成int型
'If a1>b1 Then
' msgbox "第一个数大于第二个数"
'elseif a1<b1 then
'msgbox "第一个数小于第二个数"
'else
' msgbox "两个数相等"
'End If
'select case
'Dim i
'i=inputbox("请输入一个成绩:")
'If trim(i)="" Then 'trim是去掉字符串中的空格函数
' msgbox "输入有误,请重新输入"
' else
' If isnumeric(i) then '判断i是一个number的时候
' If i>=0 and i<=100 Then
' Select Case int(i/10)
' Case 10:
' msgbox "满分"
' Case 9:
' msgbox "优秀"
' Case 8:
' msgbox "良好"
' Case 7:
' msgbox "一般"
' Case 6:
' msgbox "及格"
' Case else:
' msgbox "不及格"
' End Select
' else
' msgbox "请输入0到100之间的成绩"
' End If
' else
' msgbox "请输入数字"
' end if
'End If
'do while循环
Dim i
i=0
Do while i<5 '满足条件开始循环
msgbox i
i=i+1
If i=3 Then
Exit do '用exit do 退出循环
End If
Loop
i=0
Do '先不判断条件是否满足
msgbox i
i=i+1 '循环体至少执行一次
loop while i<5
i=0
While i<5
i=i+1
If i=3 Then
'Exit do '这种循环不支持退出
End If
Wend
for each
Dim a,c
a=array(1,2,3,4,5,6,7,8) 'array相当于数组,有多少个值就循环几次
For each c in a '每次循环将a中的值赋给c
If c=3 Then
msgbox("找到了耶！")
End If
msgbox c
Next
'for循环 用于已知循环次数
Dim sum
sum=0
'1+2+3+100
For i=1 to 10 step 2 'step表示的是步长,为1的时候.i=i+1
sum=sum+i
Next
msgbox sum
on error resume next '不弹出报错窗口,执行下一行语句,用于在脚本正式运行的阶段,它能够让脚本不受错误的影响
单选框的处理
Select "#0"'选择第一个
Select "#1"'选择第一个
练习题
'需要加入检查点，用两种方式来做（Exist和 GetRO的方式）
'1.登录成功后
'2.发布公告成功之后，在主页的管理公告区域检查公告标题。
'3.删除公告之后验证是否删除
browser("micclass:=browser").page("micclass:=page").webedit("name:=loginid").set"admin"
browser("micclass:=browser").page("micclass:=page").webedit("name:=password").set "sys123456"
browser("micclass:=browser").page("micclass:=page").webbutton("name:=登录").Click
Dim a,b
a="公共信息"
b=browser("micclass:=browser").page("micclass:=page").link("name:=公共信息").GetROProperty ("text")
If a=b Then
browser("micclass:=browser").page("micclass:=page").link("name:=公共信息").Click
browser("micclass:=browser").page("micclass:=page").link("name:=发布公告").Click
browser("micclass:=browser").page("micclass:=page").webedit("name:=subject").Set "今天"
browser("micclass:=browser").page("micclass:=page").webedit("name:=trackInput").Click
browser("micclass:=browser").page("micclass:=page").webbutton("name:=全部员工").Click
browser("micclass:=browser").page("micclass:=page").webbutton("name:=发布").Click
browser("micclass:=browser").page("micclass:=page").webbutton("name:=确定").Click
browser("micclass:=browser").page("micclass:=page").link("innertext:=\[管理\]").click
Dim c,d
c="今天"
d=browser("micclass:=browser").page("micclass:=page").link("name:=今天").GetROProperty("text")
If c=d Then
browser("micclass:=browser").page("micclass:=page").WebElement("abs_x:=1276","abs_y:=196").Click
browser("micclass:=browser").page("micclass:=page").webbutton("name:=确定").Click
browser("micclass:=browser").page("micclass:=page").webbutton("name:=确定").Click
Dim n,m
n="0"
m=browser("micclass:=browser").page("micclass:=page").webelement("html id:=totalCount").GetROProperty ("outertext")
If n=m Then
browser("micclass:=browser").page("micclass:=page").link("name:=退出登录").Click
print "删除成功"
reporter.ReportEvent micPass ,"验证删除", "删除成功"
else
print "删除失败"
reporter.ReportEvent micfail ,"验证删除", "删除失败"
End If
print "发布成功"
reporter.ReportEvent micPass ,"验证发布", "发布成功"
else
print "发布失败"
reporter.ReportEvent micfail ,"验证发布", "发布失败"
End If
print "登录成功"
reporter.ReportEvent micPass ,"验证登录", "登录成功"
else
print "登录失败"
reporter.ReportEvent micfail ,"验证登录", "登录失败"
End If
browser("micclass:=browser").close
