用qtp测试迅雷下载速度,怎么样判断任务下载完成

chaoshui

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

xiaoyaoke

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

chaoshui

能否说的具体点,还是不知道怎么操作

chaoshui

急盼高手来指教,在线等

gavin.chen

下面的代码供你参考

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

多谢gavin.chen版主,太感谢了,我先研究下

microtester

microtester第一帖

zhumingwei

gavin.chen写的不错啊.有心人不仅能看出可以解决楼主的问题.还可以看出很多其他的东西啊.学习了

xiaoyaoke

果然写的很不错...佩服佩服