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

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

普大喜奔

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

普大喜奔

回复 15# CrLf

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

CrLf

回复 18# 523066680


    被你点醒了，一搜还真有，见此链接：查看指定进程的网络连接状态（tcpvcon.exe）

523066680

回复 17# CrLf


    有没有第三方命令？ 我还在解析那个蠕虫呢，不操这个心了=_=

CrLf

回复 16# 523066680


    那也判断不了某个进程的流量呀，更别说具体到某个文件了

523066680

回复 15# CrLf


    所以只能通过进程流量判断吧，fastslz不是发了一个监测流量的vbs吗？
http://bbs.bathome.net/viewthrea ... ighlight=%2Bfastslz

CrLf

回复 3# 普大喜奔


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

yu2n

回复 3# 普大喜奔

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

普大喜奔

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

CrLf

回复 5# 普大喜奔


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

普大喜奔

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

普大喜奔

回复 6# 523066680

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

普大喜奔

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

CrLf

回复 6# 523066680


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