51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1407|回复: 2
打印 上一主题 下一主题

[求助] 请问各位大大这个脚本写的什么。。。

[复制链接]
  • TA的每日心情
    开心
    2017-10-12 13:54
  • 签到天数: 3 天

    连续签到: 1 天

    [LV.2]测试排长

    跳转到指定楼层
    1#
    发表于 2016-1-9 22:46:16 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
    'SystemUtil.Run "http://bbs.51testing.com/forum-69-1.html"
    Browser("【新提醒】[QuickTest Professional]").Page("【新提醒】[QuickTest Professional]").Image("发新帖").Click
    Browser("【新提醒】[QuickTest Professional]").Page("【新提醒】[QuickTest Professional]").Link("高级模式").Click
    With Browser("【新提醒】[QuickTest Professional]").Page("【新提醒】发表帖子 - [QuickTest")
    .WebElement("附加选项").Click
    'step 1------------------------------------------------------------------------------------------------------->
    '在获取一些属性的时候往往会多返回一个空格字符串,所以,在此
    '建议有这样的意识保持这样的习惯,多加Trim,它的作用是去空格
    '通过自身属性获取htmlon checkBox控件的自身接口属性disabled,返回True或者False
    disabled1=trim(.WebCheckBox("htmlon").Object.disabled)
    '获取自身接口属性checked,返回True或False
    check1 = trim(.WebCheckBox("htmlon").Object.checked)
    '通过GetROProperty方法来获取htmlon checkBox控件的自身接口属性disabled,返回True或者False
    disabled2 = trim(.WebCheckBox("WebCheckBox").GetROProperty("disabled"))
    check2 = trim(.WebCheckBox("WebCheckBox").GetROProperty("checked"))
    ' msgbox disabled1
    ' msgbox check1
    ' msgbox disabled2
    ' msgbox check2
        'check point start
    '请注意业务逻辑
    If disabled1="True" and disabled2="1" and check1="False" and check2="1"  Then
       Reporter.ReportEvent micPass,"step 1","通过"
    else
       Reporter.ReportEvent micFail,"step 1","失败"
    End If
    End With
    'step 2---------------------------------------------------------------------------------------------->
    '预先设置一个值以作后用
    Dim vTrue,vFalse
    vTrue = "True"
    vFalse ="False"
    '使用自身接口去修改值,即修改webCheckBox的属性
    '在这里只要基于checked这个属性做文章就能做到选择或者不选择
    '设置为False代表不选择webCheckBox,即使已选择也会被反选
    With Browser("【新提醒】[QuickTest Professional]").Page("【新提醒】发表帖子 - [QuickTest")
    .WebCheckBox("allownoticeauthor").Object.checked=vFalse
       '获取自身接口属性checked用于验证,不再重复阐述
    checkVal1 = trim(.WebCheckBox("allownoticeauthor").Object.checked)
    .WebCheckBox("usesig").Set "OFF"
    '获取自身接口属性checked用于验证,不再重复阐述
    checkVal2 = trim(.WebCheckBox("usesig").Object.checked)
    .WebCheckBox("WebCheckBox_2").Set "OFF"
    '获取自身接口属性checked用于验证,不再重复阐述
    checkVal3= trim(.WebCheckBox("WebCheckBox_2").Object.checked)
    'check point start
    ' msgbox checkVal1 :msgbox checkVal2:msgbox checkVal3
    If checkVal1=vFalse and checkVal2=vFalse and  checkVal3 = vFalse Then
      Reporter.ReportEvent micPass,"step 2","通过"
    else
      Reporter.ReportEvent micFail,"step 2","失败"
    End If

    'step 3--------------------------------------------------------------------------------------------->
    '属性设置为True,代表选择WebCheckBox
    .WebCheckBox("allownoticeauthor").Object.checked = vTrue
    checkVal4= trim(.WebCheckBox("allownoticeauthor").Object.checked)
    '在前面使用的参数是OFF代表反选,那么ON代表勾选,
    '另外这里的参数是不区分大小写
    .WebCheckBox("usesig").Set "on"
    checkVal5 = trim(.WebCheckBox("usesig").Object.checked)
    msgBox checkVal4:msgBox checkVal5
    ' check point start
    If checkVal4= vTrue and checkVal5= vTrue Then
      Reporter.ReportEvent micPass,"step 3","通过"
      else
      Reporter.ReportEvent micFail,"step 3","失败"
    End If
    End with



    请问一下各位上面这段写的啥?有什么用?
    分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
    收藏收藏
    回复

    使用道具 举报

  • TA的每日心情
    奋斗
    2016-1-10 19:47
  • 签到天数: 3 天

    连续签到: 1 天

    [LV.2]测试排长

    2#
    发表于 2016-1-10 20:49:10 | 只看该作者
    打开页面:http://bbs.51testing.com/forum-69-1.html
    在页面上找到“新发帖”的图像并点击
    在页面上找到“高级模式”的链接并点击
    在新弹出页面“发表帖子”里找到页面元素“附加选项”并点击。。。
    ‘ step1
    获取webcheckbox :htmlon disabled属性, 赋值给disable1变量
    获取webcheckbox :htmlon checked属性, 赋值给check变量
    获取webcheckbox: checkbox disabled属性, 赋值给disabled2变量
    获取webcheckbox: checkbox checked属性, 赋值给check2变量
    判断: 若 所有变量值为1, 打印 step1通过,否则step失败
    ‘step 2
    修改page.webcheckbox (allownoticeauthor). checked 属性=false
    获取allnoticeauthor.check 的属性, 赋值给checkVal1,此处值为false
    设置page. usesig.checked = off, 即 false
    获取usesig.checked 属性,赋值给checkval2,值为false
    同理,获取webcheckbox2.checked的值为false,赋给checkval3
    判断: 若 checkval1,checkval2,checkval3 = false,step2通过,反之,失败
    ‘step3
    checkbox:allownoticeauthor 设置成on,获取check值并赋予checkval4
    checkbox: usesig 设置成on, 获取check值并赋予checkval5
    msgbox弹出 checkval4值,弹出checkval5值
    判断: 若checkval4,5 = true, step3通过,反之失败

    评分

    参与人数 1测试积点 +10 收起 理由
    lsekfe + 10 恭喜您获得测试积点10

    查看全部评分

    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    开心
    2018-4-22 12:50
  • 签到天数: 393 天

    连续签到: 1 天

    [LV.9]测试副司令

    3#
    发表于 2016-1-11 08:48:51 | 只看该作者
    其实这段脚本的注释已经写的很清楚了,你看不懂,可能是对QTP的函数不了解
    可以参考下这个:http://www.51testing.com/index.p ... space-itemid-877413
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-8 21:35 , Processed in 0.064039 second(s), 23 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表