51Testing软件测试论坛

标题: QTP中如何利用其他语言在脚本之前画个界面? [打印本页]

作者: gyjtest    时间: 2012-6-24 17:23
标题: QTP中如何利用其他语言在脚本之前画个界面?
QTP中,我想在每次回放前增加一个界面,用来选择回放的内容,通过选择的内容回放不同的脚本,不知道如何利用其他语言在脚本之前画个界面?
作者: davy_chen    时间: 2012-6-25 09:35
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
作者: 黑羽祭    时间: 2012-6-25 10:30
回复 1# gyjtest 我的做法是,使用Excel进行控制,根据Excel中选择的测试方法1或是2,来决定运行脚本时用的时候方案1还是2
而且,对于测试过程中,某个细小的设置,也可用通过Excel来进行控制。
作者: woddebbmm    时间: 2012-6-25 10:56
真心觉得实用  




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2