$down = "thunder://QUFodHRwOi8vNS5kb3duLnk4MHMuY29tOjkyMC8wOTA0L7K7x+vX1MC0L7K7x+vX1MC0XzEuM2dwWlo="
_Thunder($down,"","d:")
Func _Thunder($Url, $Filename = "", $Path = "", $comment = "", $ReferUrl = "", $startmode = True, $Orgin = False, $OrginThread = 10)
Local $obj = ObjCreate('ThunderAgent.Agent.1')
If IsObj($obj) = 0 Then Return 0
$obj.AddTask5($Url, $Filename, $Path, $comment, $ReferUrl, $startmode, $Orgin, $OrginThread);添加下载任务
;$obj.AddTask("", "", $Path, $comment, $ReferUrl, $startmode, $Orgin, $OrginThread);添加下载任务
$obj.CommitTasks() ;提交任务.
Return 1
EndFunc ;==>_Thunder
原来这样的代码已经不能用了...不生效...卡在选择下载路径那里了... |