测试脚本问题
我用Delphi写了个程序功能是 点击 button1 实现(edit1.text + edit2.text = edit3.text)
我在用robot录制脚本的时候value 老是 =100000, 这是为什么? 回放出错
请大虾们帮我看看,谢谢。
Sub Main
Dim Result As Integer
'Initially Recorded: 2006-4-2010: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 编辑 ] 就没人帮帮忙吗? value 老是 =100000是什么意思,回放报什么错 就是 不管我怎么改 检验点都是显示value=10000 ,检验点,脚本都为 fail
[ 本帖最后由 kingylq 于 2006-4-22 09:04 编辑 ] 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是否是你要验证的值,如果不是,应该要改成实际的值 还是不行,我也有把value=20000,和value=2,都不行.不知道我的验证点有没弄错
我是这样录制脚本的
启动脚本GUI录制 -> start application(输入程序TestProject.exe路径)->输入测试数据(1{TAB}1)点击确定
->选择验证点 AlphaNumeric 选择 第3个 选择路径(Quizform -> EditBox3) 点击确定 —> 关闭程序(TestProject.exe)-> 录制结束 Result = EditBoxVP (CompareNumeric, "ObjectIndex=3", "VP=Alphanumeric;Value=100000")
改成Result = sqagetproperty取第三个textbox的text值然后判断这个值是不是等于2
页:
[1]