TA的每日心情 | 难过 2015-4-23 14:35 |
---|
签到天数: 3 天 连续签到: 1 天 [LV.2]测试排长
|
如果是检查点的运行结果保存到txt文件,那好办
- Dim fso , Tfile
- Set fso=createobject("scripting.filesystemobject")
- set Tfile= fso.createtextfile("d:\test.txt",true)
- With Dialog("Login")
- .WinEdit("Agent Name:").Set "3123432"
- .WinButton("OK").Click
- val=Dialog("Login").Dialog("Flight Reservations").Check (CheckPoint("Flight Reservations"))
- .Dialog("Flight Reservations").WinButton("确定").Click
- .WinButton("Cancel").Click
- End With
- Tfile.writeline "信息为: "& val
- Tfile.close
- Set fso=nothing
复制代码
如果是其他属性的取值保存,那就不要用检查点这种方法,用getroproperty
[ 本帖最后由 yangkinki 于 2006-9-9 12:44 编辑 ] |
|