51Testing软件测试论坛

标题: 求助,无法回放脚本 [打印本页]

作者: dionysus    时间: 2005-4-18 12:40
标题: 求助,无法回放脚本
我录制了一段脚本后回放就报错,见附件
以前也出现过类似情况,但是不知道怎么的就好了,现在又出来了,但是搞不定了。谁能帮我解决一下,谢谢。对了,我试着删除了出错的rec文件,重新录制了还是不行
作者: dionysus    时间: 2005-4-18 12:43
还有,之后testmanager也会报错,不能打开log
作者: 司空公子    时间: 2005-4-18 13:15
脚本贴出来看看呢
作者: dionysus    时间: 2005-4-18 20:15
好的,等明天到单位了再贴,是在单位的机子上回放出的错。
还想问一个头文件的问题,我发现我在头文件里定义的变量无法引用到脚本里,而且脚本的开头已经'$include的了,是不是在头文件里sub的过程名要和头文件名一致啊?还有如果这样的话这个名称是不适不支持中文了?
谢谢
作者: dionysus    时间: 2005-4-19 12:11
declare sub newapp(biaodmc as string,biaodbh as string,jianzmj as string,zhaobr as string,danwgc01 as string,danwgc02 as string,danwgc03 as string)

Sub newapp(biaodmc as string,biaodbh as string,jianzmj as string,zhaobr as string,danwgc01 as string,danwgc02 as string,danwgc03 as string)
    Dim Result As Integer

    'Initially Recorded: 2005-4-18  16:07:08
    'Script Name: 新建招标文件
   
    Window SetContext, "Caption=(工具版);Class=TMainForm_T", ""
    GenericObject Click, "Text=tsTender", "Coords=435,175"
   
    Window SetTestContext, "Caption=确认", ""
    Result = LabelVP (CompareImage, "Text=标段已经新建,如果您再次新建,则原先的将被删除,是否继续?", "VP=重复新建提示;Wait=2,10")
    Window ResetTestContext, "", ""
   
    if result =1 then
   
    Window SetContext, "Caption=确认", ""
    PushButton Click, "Text=是(Y)"
   
    end if   
'=============================================================================================
'新建第一步
   
    Window SetContext, "Caption=新建招标文件", ""
    EditBox Left_Drag, "ObjectIndex=4", "Coords=71,6,-62,8"
    InputKeys biaodmc
'    ========================================================================
    EditBox Left_Drag, "ObjectIndex=3", "Coords=58,6,-85,9"
    InputKeys biaodbh
'    ========================================================================
    ComboBox Click, "ObjectIndex=1", "Coords=173,9"
    ComboListBox Click, "ObjectIndex=1", "Text=公共建筑"
'    =========================================================================
    EditBox Left_Drag, "ObjectIndex=2", "Coords=73,10,-66,11"
    InputKeys jianzmj
'    ==========================================================================
    EditBox Click, "ObjectIndex=1", "Coords=41,5"
    InputKeys zhaobr
    PushButton Click, "Text=下一步(N)"
'===============================================================================
   
    Window SetTestContext, "Caption=新建招标文件", ""
    Result = GenericObjectVP (CompareImage, "Text=TBXToolbar1", "VP=新建第二步;Wait=2,10")
    Window ResetTestContext, "", ""
   
   
    Window SetContext, "Caption=新建招标文件", ""
    GenericObject Click, "Text=TBXToolbar1", "Coords=49,14"
    InputKeys danwgc01
    inputkeys "{ENTER}"
    CheckBox Click, "Text=甲供材料表"
   
    GenericObject Click, "Text=TBXToolbar1", "Coords=41,12"
    InputKeys danwgc02
    inputkeys "{ENTER}"
    CheckBox Click, "Text=甲供材料表"
   
    GenericObject Click, "Text=TBXToolbar1", "Coords=40,14"
    InputKeys danwgc03
    inputkeys "{ENTER}"
    CheckBox Click, "Text=甲供材料表"
'    ============================================================================
   
    Window SetContext, "Caption=新建招标文件", ""
    PushButton Click, "Text=下一步(N)"
   
    Window SetTestContext, "Caption=新建招标文件", ""
    Result = GroupBoxVP (CompareImage, "ObjectIndex=3", "VP=新建第三步;Wait=2,10")
    Window ResetTestContext, "", ""
   
    Window SetContext, "Caption=新建招标文件", ""
    PushButton Click, "Text=完成"

End Su
中间有些步骤inputkeys后跟的是传递过来的参数,单独编译这个文件的时候就报错,不知道为什么




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