测试脚本问题

kingylq

我用Delphi写了个程序功能是 点击 button1 实现  
(edit1.text + edit2.text = edit3.text)
我在用robot录制脚本的时候  value 老是 =100000， 这是为什么? 回放出错


请大虾们帮我看看，谢谢。

Sub Main
    Dim Result As Integer

    'Initially Recorded: 2006-4-20  10:40:10
    'Script Name: d_jfys
    StartApplication "F:\新建文件夹\TestProject.exe"
   
    Window SetContext, "Caption=QuizForm", ""
    InputKeys "1{TAB}1"
    PushButton Click, "Text=Button1"
   
    Result = EditBoxVP (CompareNumeric, "ObjectIndex=3", "VP=Alphanumeric;Value=100000")
   
    Window CloseWin, "", ""

End Sub

[ 本帖最后由 kingylq 于 2006-4-20 11:39 编辑 ]

kingylq

就没人帮帮忙吗？

ilovejolly

value 老是 =100000是什么意思,回放报什么错

kingylq

就是 不管我怎么改 检验点  都是显示value=10000 ，检验点，脚本都为 fail

[ 本帖最后由 kingylq 于 2006-4-22 09:04 编辑 ]

yangjingxiao

EditBoxVP Verification Point Command
语法
Result = EditBoxVP (action%, recMethod$, parameters$)
parameters$        Valid values:
Value=&
Used with the action CompareNumeric when a numeric equivalence comparison is being performed, as in Value=25 (test against the value 25).
试试检查这个value是否是你要验证的值，如果不是，应该要改成实际的值

kingylq

还是不行,我也有把value=20000,和value=2,都不行.不知道我的验证点有没弄错
我是这样录制脚本的
启动脚本GUI录制 -> start application(输入程序TestProject.exe路径)  ->  输入测试数据（1{TAB}1）点击确定
  ->  选择验证点 AlphaNumeric 选择 第3个 选择路径（Quizform -> EditBox3） 点击确定 —>    关闭程序（TestProject.exe）-> 录制结束

ilovejolly

Result = EditBoxVP (CompareNumeric, "ObjectIndex=3", "VP=Alphanumeric;Value=100000")
改成Result = sqagetproperty取第三个textbox的text值然后判断这个值是不是等于2