找回密码
 加入
搜索
查看: 2708|回复: 5

[效率算法] 求一个可用的调用迅雷SDK加速的例子,及SDK模块。非常感谢。

[复制链接]
发表于 2015-7-6 19:10:05 | 显示全部楼层 |阅读模式
坛子里提供的都已经失效。
 楼主| 发表于 2015-7-8 22:28:15 | 显示全部楼层
真心求帮助。谢谢了。
发表于 2015-7-9 09:15:27 | 显示全部楼层
尊敬的开发者:
您好,因公司业务调整暂时停止迅雷加速SDK申请。
感谢您的支持和理解,如有疑问请随时联系我们。
发表于 2015-7-9 10:44:00 | 显示全部楼层
本帖最后由 wq1282 于 2015-7-9 10:52 编辑
FileChangeDir(@ScriptDir)
;~ Sleep(10000)
Local $XL_SUCCESS=0
Local $lTaskId = -1
Local $Inited = False
Local $strOpen = "http://down.360safe.com/setup.exe"
Local $strSave = "C:\\360Setup.exe"
Local $strRefr = "http://down.360safe.com/"

$sSave = DllStructCreate("wchar[260]")
$sOpen = DllStructCreate("wchar[260]")
$sRefr = DllStructCreate("wchar[260]")
$lTask = DllStructCreate("long")
DllStructSetData($sSave, 1, $strSave)
DllStructSetData($sOpen, 1, $strOpen)
DllStructSetData($sRefr, 1, $strRefr)
DllStructSetData($lTask, 1, $lTaskId)


If DllCall("XLDownload.dll","long","XLInitDownloadEngine") = 0 Then
        MsgBox(16,@ScriptName, "初始化引擎失败.")
        Exit
Else
        $Inited=True
EndIf

Local $strSaveTD=$strSave&'.td'
If FileExists($strSaveTD) Then
;~         If DllCall("XLDownload.dll","long","XLContinueTaskFromTdFile","ptr",$strSaveTD,"ptr" lTaskId) <> $XL_SUCCESS Then
;~                 MsgBox(16,@ScriptName, "继续失败")
;~                 Exit
;~         Else
;~                 ;继续下载
;~                 ;这里While展示进度
;~                 
;~                 
;~         EndIf
Else
;~         $result = DllCall("user32.dll", "int", "MessageBox", "hwnd", 0, "str", "若干文字", "str", "若干标题", "int", 64)
;~         Sleep(10000)
        Local $result = DllCall("XLDownload.dll","int","XLURLDownloadToFile","ptr",DllStructGetPtr($sSave), "ptr",DllStructGetPtr($sOpen),"ptr",DllStructGetPtr($sRefr),"ptr", DllStructGetPtr($lTask))
        Sleep(1000)
        MsgBox(16,@ScriptName, $result)
        Sleep(100000)
;~         If DllCall("XLDownload.dll","long","XLURLDownloadToFile","str",$strSave, "str",$strOpen,"str","", lTaskId) <> $XL_SUCCESS Then
;~                 MsgBox(16,@ScriptName, "添加任务失败")
;~         Else
;~                 ;添加成功,已经正在下载,查询下载进度
;~                 dwRet = XLQueryTaskInfo(lTaskId, lStatus, ullFileSize, ullRecvSize)
;~                 If XL_SUCCESS = dwRet Then
;~                    ;'// 输出进度信息
;~                    Label1.Caption = "正在下载 " & ullRecvSize & "/" & ullFileSize
;~                 Else
;~                         Label1.Caption = "查询状态失败"
;~                 End If
                
                
;~         EndIf
        
        
EndIf
只能帮你到这了,我也是AU3新手,不知道怎么传址调用API。。所以上面代码也测试失败下载不了,不过初始化正常了。

前提是你要先下载 http://download.csdn.net/download/elvisleon/6705105
可能还要 msvcp71.dll 、msvcr71.dll
http://open.xunlei.com/wiki/sdk_down.html
发表于 2015-7-11 18:19:01 | 显示全部楼层
楼上的很是热心啊
发表于 2015-7-13 12:35:45 | 显示全部楼层
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-22 06:54 , Processed in 0.077695 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表