51Testing软件测试论坛

标题: 用qtp测试迅雷下载速度,怎么样判断任务下载完成 [打印本页]

作者: chaoshui 时间: 2007-11-2 10:25
标题: 用qtp测试迅雷下载速度,怎么样判断任务下载完成
用qtp测试迅雷下载速度,怎么样判断任务已经下载完成,任务下载完成后才能继续后面的操作去取下载的时间以及平均速度
各位大侠能否帮帮忙,赐教下

作者: xiaoyaoke 时间: 2007-11-2 10:55
新建一个下载任务，任务判断任务列表中是否有这个下载任务
如果有，设置Wait（）
然后判断列表是否为空，为空，说明下载完成
（当然前提是只有一个任务，并且这个任务是可执行的，局限性很强）

作者: chaoshui 时间: 2007-11-2 11:18
能否说的具体点,还是不知道怎么操作

作者: chaoshui 时间: 2007-11-2 12:04
急盼高手来指教,在线等

作者: gavin.chen 时间: 2007-11-2 15:59
下面的代码供你参考

Option Explicit

Dim cntDoing, cntDone,cntLast,blnDone
cntDoing = 0
cntDone = 0
'取得下载列表中正在下载的文件数 = cntDoing
Sub DownLoading()
With Window("迅雷5")
.WinTreeView("SysTreeView32").Select "迅雷;正在下载"
cntDoing =.WinListView("<点击修改个人签名>").GetItemsCount
End With
End Sub

'取得已下载列表中已经下载的文件数 = cntDone
Sub DownLoadDone()

With Window("迅雷5")
.WinTreeView("SysTreeView32").Select "迅雷;已下载"
cntDone =.WinListView("<点击修改个人签名>").GetItemsCount
End With
End Sub

'此函数用来获取已下载列表中新增加的文件数，如果函数返回值大于0则说明有新的文件下载完成
Function GetLatestDone()

Call DownLoadDone()
GetLatestDone = (cntDone -cntLast)
cntLast = cntDone
End Function

'初始化
Call DownLoadDone()
cntLast = cntDone

blnDone=GetLatestDone()

'判断是否有新文件下载完成，如果没有等待5秒。如果有的话，就.....

Do
wait(5)
blnDone=GetLatestDone()
Loop While (0 = blnDone)

作者: chaoshui 时间: 2007-11-2 18:04
多谢gavin.chen版主,太感谢了,我先研究下

作者: microtester 时间: 2007-11-4 14:11

microtester第一帖

作者: zhumingwei 时间: 2007-11-4 20:57
gavin.chen写的不错啊.有心人不仅能看出可以解决楼主的问题.还可以看出很多其他的东西啊.学习了

作者: xiaoyaoke 时间: 2007-11-5 09:51
果然写的很不错...佩服佩服

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)