|
楼上的只是其中的一处错误
但是 if .......then
...............
elseif then
..................
elseif then
else
............
end if
的用法还是有点问题
你缺少了两个 else
改下
这样就没错了
Browser("*****").Page("****2").Check CheckPoint("***管理系统")
Browser("***管理系统").Page("***管理系统").Frame("left").Link("系统通知").Click
Browser("***通管理系统").Page("***管理系统_2").Frame("content").WebTable("发送系统通知").Output CheckPoint("发送系统通知_3")
Browser("***管理系统").Page("***管理系统_2").Frame("content").WebTable("发送系统通知").Check CheckPoint("发送系统通知")
Browser("***管理系统").Page("***管理系统").Frame("content").Link("464").Click '此处直接参数化Link对象,随机获取一个通知
Browser("查看通知").Page("查看通知_2").Check CheckPoint("查看通知_2")
Browser("查看通知").Page("查看通知_2").Output CheckPoint("查看通知_3")
Browser("查看通知").Page("查看通知").WebButton("关 闭").Click
Browser("***管理系统").Page("***管理系统").Frame("content_2").WebButton("发送系统通知").Click
Dim title,content
title=DataTable("title", dtGlobalSheet) '获取预设的几种标题
content=DataTable("content",dtGlobalSheet) '获预设的几种内容
Browser("***管理系统").Page("***管理系统").Frame("content_3").WebEdit("title").Set title
Dim a
Dim b
a=randomnumber.Value(3,4)
b=randomnumber.Value(0,1)
Browser("***管理系统").Page("***管理系统").Frame("content_3").WebRadioGroup("type").Select a
If a=4 Then
Browser("***管理系统").Page("***管理系统").Frame("content_3").WebEdit("content").Set content
Browser("***管理系统").Page("***管理系统").Frame("content_3").WebButton("发 送").Click '选择所有软件端
else if a=3 Then
Browser("***管理系统").Page("***管理系统").Frame("content_3").WebRadioGroup("usertype").Select b
If b=0 Then
Browser("***管理系统").Page("***管理系统").Frame("content_3").WebEdit("content").Set content
Browser("***管理系统").Page("***管理系统").Frame("content_3").WebButton("发 送").Click '选择企业管理员,全部站长
else if a=1 Then
Browser("***管理系统").Page("***管理系统").Frame("content_3").WebEdit ("loginid").Set "www.ckl123.com"
Browser("***管理系统").Page("***管理系统").Frame("content_3").WebEdit("content").Set content
Browser("***管理系统").Page("***管理系统").Frame("content_3").WebButton("发 送").Click '选择企业管理员,自定义站长账号
else
Browser("***管理系统").Page("***管理系统").Frame("content_3").WebButton("发 送").Click '选择企业管理员,自定义站长账号
End If
else
Browser("***管理系统").Page("***管理系统").Frame("content_3").WebButton("发 送").Click '选择企业管理员,自定义站长账号
End If
Dim outputvalue,istatus
outputvalue=DataTable("outputmsg",dtGlobalSheet) '获取系统实际的提示内容
istatus=DataTable("istatus",dtGlobalSheet) '获取预设的提示内容
If title = "" Or content = ""Then
Browser("***管理系统").Dialog("Microsoft Internet Explorer").Static("以下原因导致提交失败: 1:请输入通知的标题 2:请输入通知的内容").Output CheckPoint("以下原因导致提交失败: 1:请输入通知的标题 2:请输入通知的内容")
Browser("***管理系统").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
If istatus<>outputvalue Then
reporter.ReportEvent 1,"预期值为"+istatus+",实际值为"+outputvalue
End If
End If |
|