51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1730|回复: 3
打印 上一主题 下一主题

[原创] QTP中如何利用其他语言在脚本之前画个界面?

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2012-6-24 17:23:34 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
QTP中,我想在每次回放前增加一个界面,用来选择回放的内容,通过选择的内容回放不同的脚本,不知道如何利用其他语言在脚本之前画个界面?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

4#
发表于 2012-6-25 10:56:57 | 只看该作者
真心觉得实用  
回复 支持 反对

使用道具 举报

  • TA的每日心情
    无聊
    2018-9-27 10:05
  • 签到天数: 36 天

    连续签到: 1 天

    [LV.5]测试团长

    3#
    发表于 2012-6-25 10:30:50 | 只看该作者
    回复 1# gyjtest 我的做法是,使用Excel进行控制,根据Excel中选择的测试方法1或是2,来决定运行脚本时用的时候方案1还是2
    而且,对于测试过程中,某个细小的设置,也可用通过Excel来进行控制。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    2#
    发表于 2012-6-25 09:35:39 | 只看该作者
    Set check_input=New RegExp
    check_input.Pattern="^((\d{1,2}-\d{1,2},)|(\d{1,2},))*((\d{1,2}-\d{1,2})|(\d{1,2}))$"
    Do
            input=InputBox("请输入回归关卡的编号或范围。例如,1,3,5-12","推箱子自动回归")
            If input = "" Then WScript.quit
            If check_input.Test(input) Then Exit do
            MsgBox "输入的关卡编号或者范围格式不正确,请重新输入",48,"提示"
    loop

    Dim level(99)

    levels=Split(input,",")
    count=Len(input)-Len(Replace(input,",",""))
    For i=0 To count
            If InStr(levels(i),"-")=0 Then
                    level(CInt(levels(i)))=True
            Else
                    Range=Split(levels(i),"-")
                    Range(0)=CInt(Range(0))
                    Range(1)=CInt(Range(1))
                    If Range(0)>Range(1) Then
                            num_ls=Range(0)
                            Range(0)=Range(1)
                            Range(1)=num_ls
                    End If
                    For j=Range(0) To Range(1)
                            level(j)=True
                    Next
            End If                       
    Next

    For i=0 To 99
            If level(i)=True Then
               level_select=i
                    RunAction "Selectlevel", oneIteration,level_select
                    RunAction "level"&i, oneIteration
        End If       
    Next
    MsgBox "所选 " & input & vbcrlf & "范围全部回归结束"
    RunAction "Close_Box", oneIteration
    exitrun
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

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

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

    GMT+8, 2024-11-13 14:26 , Processed in 0.067465 second(s), 26 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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