[问题求助] VBS怎样判断迅雷下载任务是否进行中？

普大喜奔

有个**.td的文件从开始就是目标文件大小，没法用文件体积变化判断，于是通过**.td.cfg或**.td的修改时间判断，代码：

set args=wscript.arguments  
arg=args(0)
set fso=createobject("scripting.filesystemobject")
set f=fso.getfile(arg)
d=f.datelastmodified
if datediff("n",cdate(d),now())>5 then '超过5分钟未修改判定下载停滞
  wscript.echo "下载停滞，尝试重启迅雷..." 
  set ws=CreateObject("WScript.Shell")
  ws.run "taskkill /F /IM Thunder.exe /T",0
  wscript.sleep 6000
  ws.run "迅雷极速版"
else
  wscript.echo "正在下载，3分钟后重新检测..."
end if 
复制代码

有时候运行正常，有时候下载正酣畅着呢，就给重启了，难道下载进度与这两个文件的更新不同步？求指教

yu2n

在这3分钟或更长的时间内，迅雷可能暂停了下载动作（没资源、网络拥塞），或者下载的内容没填满缓冲区（在内存中并没有写入硬盘）。

建议：
1. 加长时间检测
2. 对多个文件检测

或者

判断网络流量，如 30 分钟内流量一直小于 10Kb 则……

普大喜奔

回复 2# yu2n
检测流量做不到 最简单就是加长时间 改成了20分钟判定停滞 应该是你说的缓冲区的问题 想用批处理判断分区剩余空间 结果显示数字超过32位没法处理 有什么简便办法吗？vbs或python都可以
PS:明天给分，今天完了

CrLf

皈依迅雷网盘+idm 的组合很久了，没装迅雷，但有点想法，检测端口可以吗？

普大喜奔

回复 4# CrLf
建议装迅雷极速版 可以设置不弹出那个烦人的新建任务窗口 VBS+python搞个自动下载机很好玩哈
端口检测有点高端 可否详解？

523066680

回复 5# 普大喜奔


    你以为我们这种光纤迅雷铂金会员+QQ旋风+打了鸡血的电驴有判断迅雷下载的问题吗？
都是秒下！CrLf 继续

CrLf

回复 5# 普大喜奔


当我没说，误解题意了，端口检测好像无法做到判断某一个文件是否在下载
原来的想法大概是检查这两个命令的输出：

netstat -o

netstat -e
复制代码

CrLf

回复 6# 523066680


    卧槽，白金会员，冰天雪地裸体360度跪求土豪保养

普大喜奔

回复 4# CrLf
我这小区宽带必须考虑下不动的问题 写代码最烦就是考虑例外

普大喜奔

回复 6# 523066680

回错人了 我这小区宽带必须考虑下不动的问题 写代码最烦就是考虑例外

普大喜奔

回复 2# yu2n
剩余空间的问题找了段代码经测好用 已解决

Dim Fso,MyDriver

Dim AvailableSpace

Set Fso = CreateObject("Scripting.FileSystemObject")

Set MyDriver = Fso.GetDrive("c:\")

'AvailableSpace属性获取当前磁盘驱动器的可用大小

AvailableSpace = MyDriver.AvailableSpace/1024/1024/1024

'FormatNumber格式化大小，精确到小数点后一位

AvailableSpace = FormatNumber(AvailableSpace,1)

MsgBox AvailableSpace&"GB" '输出当前磁盘驱动器可用大小，单位为GB
复制代码

CrLf

回复 5# 普大喜奔


之前也有装迅雷，但在局域网内被墙，原因你懂得，而且点击迅雷离线空间的下载按钮时就会自动弹出，还得手动搬运到 idm 新建任务，再加上吸血驴的恶名...
反正离线空间已经无所不能，idm 又快得变态（仅有的槽点是同时下多个文件会卡 cpu），所以一怒之下把迅雷拖出去剁了

普大喜奔

回复 12# CrLf
好东西 空了看看。。。

yu2n

回复 3# 普大喜奔

VBS统计网络流量
http://www.bathome.net/thread-3198-1-1.html

CrLf

回复 3# 普大喜奔


仔细想了一下，这和剩余空间好像没关系吧？
.td 文件从一开始就是固定大小，而 .td.cfg 文件如果修改时间没变的话，体积不是也不应该发生改变吗？