[问题求助] 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 
复制代码

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

普大喜奔

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

普大喜奔

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

普大喜奔

回复 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
复制代码

普大喜奔

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

普大喜奔

回复 15# CrLf

没关系 我是加一个清理磁盘的功能，硬盘塞满了就删掉最早下的那个

普大喜奔

回复 15# CrLf
已在闲置笔记本上运行了 BAT+VBS+PY 的脚本 每下到一部新电影给自己发个含简介的email 看到有人说PY能给自己发飞信 有点复杂就没弄
写脚本纯属娱乐 电影下了一堆都没怎么看~