51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 3033|回复: 2
打印 上一主题 下一主题

[原创] qtp函数库中函数调用问题

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2012-9-20 17:14:17 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
在flight程序测试中,将测试脚本写入函数库中进行调用。
SystemUtil.Run Environment.Value("ProductDir") & "\samples\flight\app\flight4a.exe"
Dialog("Login").WinButton("Help").Click  
capture()                      '点击help按钮,截图
hint1 = Dialog("Login").Dialog("Flight Reservations").Static("outlook").GetROProperty("text")   ' hint1=提示框中的语句
If  hint1 = "The password is 'MERCURY'" Then         
f1.writeline("出现帮助界面!      " & hint1 & "     测试正确!     " &filename)

这里的截图函数能够截取桌面图片,但是定义的截图路径filename却取不出来。

If len(username)<7 Then
username=username&space(7-len(username))
end If
If len(password)<7 Then
password=password&space(7-len(password))
End If
If len(hintbook)<46 Then
hint_msg =hint_msg&space(46-len(hint_msg))
End If
f1.Writeline( username & "  ##  "&password &" ## " & hint_msg&" ##  "&expect&" ## "&explain&" ## "&filename)

如果把上面的控制字符串长度写成函数库中的函数调用,输出结果无法对齐。
但是将代码直接写在action中调用能够正常对齐写入。
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2012-9-23 21:41:06 | 只看该作者
1. 首先,这个代码是你自己写的吗?我想应该不是,不知道是从哪里抄来的。
里头的capture不是QTP提供的built-in函数,所以这个函数应该是放在某个地方,需要倒进来当前的运行环境。一个如果你要截取全屏的正确写法是Desktop.CaptureBitmap fileName, True这里的fileName你需要提供一个具体的值。

2.不能对齐的原因可能是你的输入的数据有空格。你可以在使用username和password的地方,都使用trim(username)。

3.编码风格真tm烂
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2012-9-24 17:57:45 | 只看该作者
截图函数式封装在函数库中的,现在是被同在函数库中的testhelp函数调用
整个action中只有:
dim filename
call testhelp()
这两句。

Public Function capture()
    Dim datestamp
    datestamp = Now()
    filename = Environment("TestName")&"_"&datestamp&".png"
    filename = Replace(filename,"/","")
    filename = Replace(filename,":","")
    filename = "e:\"&"picture\ "&filename
    Desktop.CaptureBitmap filename
End Function
能够正常的截取图片,但是不能将filename写入txt文件中。
如果在action(testhelp)中直接调用截图函数,可以得到filename。

PS:新手上路,编码风格确实烂,亟待提高!
但这个代码肯定是我写的,抄也抄不到这么差的代码。
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-14 17:11 , Processed in 0.069261 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表