Set ThunderAgent = CreateObject("ThunderAgent.Agent") 
Call ThunderAgent.AddTask("http://mp3-1.60-8.com.cn/4/2/50.mp3","wb.mp3","","","",1,0,5) 
Call ThunderAgent.CommitTasks() 
Set ThunderAgent = Nothing 用vbs脚本调用迅雷自动下载
这段程序是没有问题的,可以下载。问题是不想让它弹出建立新的下载任务对话框,该怎么做? 
各位大侠们指点哈 谢谢 !

解决方案 »

  1.   


    呵呵,就这么强大。问题解决了:
    Set ThunderAgent = CreateObject("ThunderAgent.Agent.1")
    Call ThunderAgent.AddTask("http://www.dcedu.gov.cn/weboa/userupload/fodderdata/405/2102/阿杜-天黑.mp3","th.mp3","","","",1,0,5)
    Call ThunderAgent.CommitTasks2(1)
    Set ThunderAgent = Nothing注意:
    我开始开始用5.9的,然后改成7.1的依然不可以
    最后改为迅雷5.8的并且在 工具--》
    配置---》高级---》把通过IE右键菜单“使用迅雷下载”添加任务  左边的钩却掉。就ok了,有兴趣可以试一下。
      

  2.   

    我现在用的是win7,IE9的浏览器,我下载了迅雷5.8,如上设置,在使用C++,COM对象编程的时候,下载一个连接,还是会弹出新建任务的对话框,,,,