使用易语言编写一个多线程多任务下载器

.版本 2 .DLL命令 InternetGetConnectedStateHTTP, , "Wininet.dll", "InternetGetConnectedState", 公开 .参数 lpdwFlags, 整数型, 传址 .参数 dwReserved, 整数型 .DLL命令 InternetOpenAHTTP, 整数型, "Wininet.dll", "InternetOpenA", 公开 .参数 lpszAgent, 文本型 .参数 dwAccessType, 整数型 .参数 lpszProxyName, 整数型 .参数 lpszProxyBypass, 整数型 .参数 dwFlags, 整数型 .DLL命令 InternetOpenUrlAHTTP, 整数型, "Wininet.dll", "InternetOpenUrlA", 公开 .参数 hInternet, 整数型 .参数 lpszUrl, 文本型 .参数 lpszHeaders, 文本型 .参数 dwHeadersLength, 整数型 .参数 dwFlags, 整数型 .参数 dwContext, 整数型 .DLL命令 InternetCloseHandleHTTP, , "Wininet.dll", "InternetCloseHandle", 公开 .参数 handle, 整数型 .DLL命令 HttpQueryInfoAHTTP, 整数型, "Wininet.dll", "HttpQueryInfoA", 公开 .参数 hRequest, 整数型 .参数 dwInfoLevel, 整数型 .参数 lpvBuffer, 整数型, 传址 .参数 lpdwBufferLength, 整数型, 传址 .参数 lpdwIndex, 整数型, 传址 .DLL命令创建文件, 整数型, "kernel32.dll", "CreateFileA", 公开 .参数文件名, 文本型 .参数打开方式, 整数型, , -2147483648表示读，1073741824表示写，0可取属性 .参数共享方式, 整数型, , 1共享读，2共享写，0不共享 .参数安全性, 整数型, , 为空即可 .参数打开方式2, 整数型, , 1创建文件（文件存在出错），2创建文件（改写），3文件必须存在，4如果文件不存在则创建，5将现有文件缩短为0 .参数文件属性, 整数型, , 128默认属性，268435456随机访问优化，134217728连续访问优化，67108864临时文件 .参数文件句柄, 整数型, , 一般为0 .DLL命令创建映射, 整数型, "kernel32.dll", "CreateFileMappingA", 公开 .参数文件句柄, 整数型 .参数安全对象, 整数型, , 0表示默认属性 .参数映射方式, 整数型, , 2表示只读，4表示可读写 .参数高32位, 整数型, , 文件映射的最大长度（高32位） .参数低32位, 整数型, , 文件映射的最小长度（低32位） .参数对象名字, 整数型, , 可以更改为文件型 .DLL命令映射装载, 整数型, "kernel32.dll", "MapViewOfFile", 公开 .参数映射句柄, 整数型 .参数映射方式, 整数型, , 2可读可写,4只读, .参数高32位, 整数型, , 文件中映射起点的高32位地址，64k的整数倍 .参数低32位, 整数型, , 文件中映射起点的低32位地址，64k的整数倍 .参数字节数, 整数型, , 文件中要映射的字节数，根据实际长度指定 .DLL命令映射卸载, 整数型, "kernel32.dll", "UnmapViewOfFile", 公开 .参数映射地址, 整数型, , 用映射装载函数获得的 .DLL命令 CloseHandleHTTP, 整数型, "kernel32.dll", "CloseHandle", 公开 .参数 hObject, 整数型 .DLL命令 HeapCreate, 整数型, "kernel32.dll", "HeapCreate", 公开 .参数 flOptions, 整数型 .参数 dwInitialSize, 整数型 .参数 dwMaximumSize, 整数型 .DLL命令 HeapAllocHTTP, 整数型, "kernel32.dll", "HeapAlloc", 公开 .参数 hHeap, 整数型 .参数 dwFlags, 整数型 .参数 dwBytes, 整数型 .DLL命令 HeapDestroy, 逻辑型, "kernel32.dll", "HeapDestroy", 公开 .参数 hHeap, 整数型 .DLL命令 RtlMoveMemory_读整数, , "kernel32.dll", "RtlMoveMemory", 公开 .参数 Destination, 整数型, 传址 .参数 Source, 整数型 .参数 Length, 整数型 .DLL命令 RtlMoveMemory_写整数, , "kernel32.dll", "RtlMoveMemory", 公开 .参数 Destination, 整数型 .参数 Source, 整数型, 传址 .参数 Length, 整数型 .DLL命令 RtlMoveMemory_写文本, , "kernel32.dll", "RtlMoveMemory", 公开 .参数 Destination, 整数型 .参数 Source, 文本型, 传址 .参数 Length, 整数型 .DLL命令 InitializeCriticalSectionHTTP, , "kernel32.dll", "InitializeCriticalSection", 公开 .参数 lpCriticalSection, 整数型 .DLL命令 CreateThreadHTTP, 整数型, "kernel32.dll", "CreateThread", 公开 .参数 lpThreadAttributes, 整数型 .参数 dwStackSize, 整数型 .参数 lpStartAddress, 子程序指针 .参数 lpParameter, 整数型 .参数 dwCreationFlags, 整数型 .参数 lpThreadId, 整数型, 传址 .DLL命令 DeleteCriticalSectionHTTP, , "kernel32.dll", "DeleteCriticalSection", 公开 .参数 lpCriticalSection, 整数型 .DLL命令 EnterCriticalSectionHTTP, , "kernel32.dll", "EnterCriticalSection", 公开 .参数 lpCriticalSection, 整数型 .DLL命令 LeaveCriticalSectionHTTP, , "kernel32.dll", "LeaveCriticalSection", 公开 .参数 lpCriticalSection, 整数型 .DLL命令 WaitForSingleObjectHTTP, 整数型, "kernel32.dll", "WaitForSingleObject", 公开 .参数 hHandle, 整数型 .参数 dwMilliseconds, 整数型 .DLL命令 InternetReadFileHTTP, 整数型, "Wininet.dll", "InternetReadFile", 公开 .参数 hFile, 整数型 .参数 lpBuffer, 整数型 .参数 dwNumberOfBytesToRead, 整数型 .参数 lpdwNumberOfBytesRead, 整数型, 传址 .DLL命令写入映射, , "kernel32.dll", "RtlMoveMemory", 公开 .参数起始位置, 整数型, , 用映射装载命令得到的 .参数待写入数据, 整数型, , 要写入的数据，可以更改为其他类型 .参数数据长度, 整数型, , 要写入的数据长度，不大于实际数据长度 .DLL命令 HeapFree, 逻辑型, "kernel32.dll", "HeapFree", 公开 .参数 hHeap, 整数型 .参数 dwFlags, 整数型 .参数 lpMem, 整数型 .DLL命令 PathFindExtensionAjtw, 文本型, "shlwapi.dll", "PathFindExtensionA", 公开 .参数文件路径, 文本型 .DLL命令 InternetGetConnectedState, 逻辑型, "Wininet.dll", "InternetGetConnectedState", 公开, 本来是无返回值 .参数 lpdwFlags, 整数型, 传址 .参数 dwReserved, 整数型 .DLL命令 HttpQueryInfohx, 整数型, "wininet.dll", "HttpQueryInfoA", 公开 .参数 Internet请求句柄, 整数型 .参数待查信息, 整数型 .参数返回容器, 文本型, 传址 .参数返回容器长度, 整数型, 传址 .参数 lpdwIndex, 整数型, 传址

.版本 2 .程序集程序集2 .子程序文件_取网络文件名1, 文本型, 公开 .参数地址, 文本型 .局部变量 Onlined, 逻辑型 .局部变量 dwFlags, 整数型 .局部变量 strAgent, 文本型 .局部变量 hConnect, 整数型 .局部变量 hOpen, 整数型 .局部变量 szTemp, 文本型 .局部变量 dwSizeOfRq, 整数型 Onlined ＝ InternetGetConnectedState (dwFlags, 0) .如果真 (Onlined ＝假) 返回 (取文件名11 (地址)) .如果真结束 strAgent ＝ “我的下载” ＋到文本 (取启动时间 ()) .如果 (位与 (dwFlags, 4) ＝ 0) hOpen ＝ InternetOpenAHTTP (strAgent, 4, 0, 0, 0) .否则 hOpen ＝ InternetOpenAHTTP (strAgent, 0, 0, 0, 0) .如果结束 .如果真 (hOpen ＝ 0) 返回 (取文件名11 (地址)) .如果真结束 hConnect ＝ InternetOpenUrlAHTTP (hOpen, 地址, “”, 0, 2097152 ＋ 2147483648 ＋ 67108864 ＋ 256, 0) .如果真 (hConnect ＝ 0) InternetCloseHandleHTTP (hOpen) 返回 (取文件名11 (地址)) .如果真结束 szTemp ＝取空白文本 (255) dwSizeOfRq ＝ 255 .如果真 (HttpQueryInfohx (hConnect, 51, szTemp, dwSizeOfRq, 0) ＝ 0) InternetCloseHandleHTTP (hOpen) 返回 (取文件名11 (地址)) .如果真结束 InternetCloseHandleHTTP (hOpen) 返回 (取文件名11 (szTemp)) .子程序取文件名11, 文本型 .参数地址, 文本型 .局部变量 i, 整数型 .局部变量 szTemp, 文本型 szTemp ＝子文本替换 (地址, “\”, “/”, , , 真) i ＝倒找文本 (szTemp, “/”, , 假) .如果真 (i ≠ -1) szTemp ＝取文本右边 (szTemp, 取文本长度 (szTemp) － i) .如果真结束 i ＝寻找文本 (szTemp, “?”, , 假) .如果真 (i ＝ -1) 返回 (szTemp) .如果真结束返回 (取文本左边 (szTemp, i － 1)) .子程序文件_取扩展名, 文本型, 公开, 返回一个文件的后缀名,如：.jpg 如果没有后缀,返回空 .参数文件名, 文本型, , 需要处理的原始文件名返回 (PathFindExtensionAjtw (文件名)) .子程序多线程_HTTP下载_开始_多任务, 整数型 .参数参数_下载地址, 文本型 .参数参数_保存路径, 文本型, , 可以只填写下载路径，程序将会以下载地址的文件名来保存，如果自己添加路径加文件名，则程序会将以自己添加的文件名来命名，注意：路径中不能有 . ，除非是添加路径加文件名 .参数参数_线程数, 整数型 .参数参数_回调函数地址, 整数型 .局部变量变量_dwFlags, 整数型 .局部变量变量_hOpen, 整数型 .局部变量变量_szHead, 文本型 .局部变量变量_hConnect, 整数型 .局部变量变量_dwByteToRead, 整数型 .局部变量变量_dwSizeOfRq, 整数型 .局部变量变量_文件句柄, 整数型 .局部变量变量_映射句柄, 整数型 .局部变量变量_块, 整数型 .局部变量变量_次数, 整数型 .局部变量变量_hHeap, 整数型 .局部变量变量_msg, 整数型 .局部变量变量_地址, 整数型 .局部变量变量_许可证, 整数型 .局部变量变量_当前线程数, 整数型 .局部变量变量_进程句柄, 整数型 .局部变量 c, 文本型, , "0" .局部变量 a, 文本型 .局部变量 cc, 文本型 a ＝文件_取扩展名 (参数_保存路径) .如果真 (a ＝ “”) .如果 (取文本右边 (参数_保存路径, 1) ＝ “\”) cc ＝文件_取网络文件名1 (参数_下载地址) 参数_保存路径＝参数_保存路径＋ cc .否则 cc ＝文件_取网络文件名1 (参数_下载地址) 参数_保存路径＝参数_保存路径＋ “\” ＋ cc .如果结束 .如果真结束 .如果 (倒找文本 (参数_保存路径, “.”, , 假) ＝ -1) ' 那么就是路径 ,没有文件名 c ＝分割文本 (参数_保存路径, “\”, ) .如果真 (取文本右边 (参数_保存路径, 1) ≠ “\”) 参数_保存路径＝参数_保存路径＋ “\” .如果真结束参数_保存路径＝参数_保存路径＋ c [取数组成员数 (c)] .否则 .如果结束 ' 取文件大小 InternetGetConnectedStateHTTP (变量_dwFlags, 0) .如果 (位与 (变量_dwFlags, 4) ＝ 0) 变量_hOpen ＝ InternetOpenAHTTP (字符 (0), 4, 0, 0, 0) .否则变量_hOpen ＝ InternetOpenAHTTP (字符 (0), 0, 0, 0, 0) .如果结束 .如果真 (变量_hOpen ＝ 0) ' Internet连接错误返回 (-1) .如果真结束变量_szHead ＝ “Accept: */*” ＋ #换行符＋ “Accept-Language: zh-cn” ＋ #换行符＋ “Accept-Encoding: gzip, deflate” ＋ #换行符＋ “User-Agent: Mozilla/4.0(compatible; MSIE 6.0; Windows NT 5.0; MyIE2; .NET CLR 1.1.4322)” 变量_hConnect ＝ InternetOpenUrlAHTTP (变量_hOpen, 参数_下载地址, 变量_szHead, 取文本长度 (变量_szHead), 2214592768, 0) .如果真 (变量_hConnect ＝ 0) ' 不能打开该URL! InternetCloseHandleHTTP (变量_hOpen) 返回 (-1) .如果真结束变量_dwByteToRead ＝ 0 变量_dwSizeOfRq ＝ 4 .如果真 (HttpQueryInfoAHTTP (变量_hConnect, 536870917, 变量_dwByteToRead, 变量_dwSizeOfRq, 0) ＝ 0) 变量_dwByteToRead ＝ 0 .如果真结束 InternetCloseHandleHTTP (变量_hConnect) InternetCloseHandleHTTP (变量_hOpen) ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' 创建文件变量_文件句柄＝创建文件 (参数_保存路径, 位或 (-2147483648, 1073741824), 位或 (1, 2), 0, 2, 0, 0) .如果真 (变量_文件句柄＝ -1) 返回 (-1) .如果真结束变量_映射句柄＝创建映射 (变量_文件句柄, 0, 4, 0, 变量_dwByteToRead, 0) .如果真 (变量_映射句柄＝ 0) CloseHandleHTTP (变量_文件句柄) 返回 (-1) .如果真结束 .如果真 (变量_dwByteToRead ＝ 0) CloseHandleHTTP (变量_映射句柄) CloseHandleHTTP (变量_文件句柄) 返回 (0) .如果真结束 ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' 计算分段变量_块＝ 1024 × 1024 变量_次数＝变量_dwByteToRead ÷ 变量_块 .如果真 (变量_dwByteToRead ％变量_块 ≠ 0) 变量_次数＝变量_次数＋ 1 .如果真结束 .如果真 (参数_线程数＞变量_次数) 参数_线程数＝变量_次数 .如果真结束 ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' 传递信息结构变量_hHeap ＝ HeapCreate (4, 0, 0) .如果真 (变量_hHeap ＝ 0) CloseHandleHTTP (变量_映射句柄) CloseHandleHTTP (变量_文件句柄) 返回 (-1) .如果真结束 ' 下载地址指针，回调函数地址+4，文件句柄+8，映射句柄+12，堆+16，许可证指针+20，线程数+24，当前线程数+28，任务状态+32，块+36，当前次数+40，总次数+44，完成大小+48，文件大小+52，传递完毕+56 变量_msg ＝ HeapAllocHTTP (变量_hHeap, 8, 15 × 4) .如果真 (变量_msg ＝ 0) HeapDestroy (变量_hHeap) CloseHandleHTTP (变量_映射句柄) CloseHandleHTTP (变量_文件句柄) 返回 (-1) .如果真结束变量_地址＝ HeapAllocHTTP (变量_hHeap, 8, 取文本长度 (参数_下载地址) ＋ 1) .如果真 (变量_地址＝ 0) HeapDestroy (变量_hHeap) CloseHandleHTTP (变量_映射句柄) CloseHandleHTTP (变量_文件句柄) 返回 (-1) .如果真结束 RtlMoveMemory_写文本 (变量_地址, 参数_下载地址, 取文本长度 (参数_下载地址) ＋ 1) 变量_许可证＝ HeapAllocHTTP (变量_hHeap, 8, 24) .如果真 (变量_许可证＝ 0) HeapDestroy (变量_hHeap) CloseHandleHTTP (变量_映射句柄) CloseHandleHTTP (变量_文件句柄) 返回 (-1) .如果真结束 InitializeCriticalSectionHTTP (变量_许可证) RtlMoveMemory_写整数 (变量_msg, 变量_地址, 4) RtlMoveMemory_写整数 (变量_msg ＋ 4, 参数_回调函数地址, 4) RtlMoveMemory_写整数 (变量_msg ＋ 8, 变量_文件句柄, 4) RtlMoveMemory_写整数 (变量_msg ＋ 12, 变量_映射句柄, 4) RtlMoveMemory_写整数 (变量_msg ＋ 16, 变量_hHeap, 4) RtlMoveMemory_写整数 (变量_msg ＋ 20, 变量_许可证, 4) RtlMoveMemory_写整数 (变量_msg ＋ 24, 参数_线程数, 4) RtlMoveMemory_写整数 (变量_msg ＋ 28, 变量_当前线程数, 4) RtlMoveMemory_写整数 (变量_msg ＋ 32, 0, 4) ' -1错误 0开始 1停止 2暂停 RtlMoveMemory_写整数 (变量_msg ＋ 36, 变量_块, 4) RtlMoveMemory_写整数 (变量_msg ＋ 40, 0, 4) RtlMoveMemory_写整数 (变量_msg ＋ 44, 变量_次数, 4) RtlMoveMemory_写整数 (变量_msg ＋ 48, 0, 4) RtlMoveMemory_写整数 (变量_msg ＋ 52, 变量_dwByteToRead, 4) ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' 创建线程变量_进程句柄＝ CreateThreadHTTP (0, 0, &HTTP下载处理_1_多任务, 变量_msg, 0, 0) .如果真 (变量_进程句柄＝ 0) DeleteCriticalSectionHTTP (变量_许可证) HeapDestroy (变量_hHeap) CloseHandleHTTP (变量_映射句柄) CloseHandleHTTP (变量_文件句柄) 返回 (-1) .如果真结束 CloseHandleHTTP (变量_进程句柄) 返回 (变量_msg) .子程序多线程_HTTP下载_停止, , 公开 .参数参数_句柄, 整数型 .局部变量变量_许可证, 整数型 RtlMoveMemory_读整数 (变量_许可证, 参数_句柄＋ 20, 4) EnterCriticalSectionHTTP (变量_许可证) RtlMoveMemory_写整数 (参数_句柄＋ 32, 1, 4) ' -1错误 0开始 1停止 2暂停 LeaveCriticalSectionHTTP (变量_许可证) .子程序多线程_HTTP下载_暂停, , 公开 .参数参数_句柄, 整数型 .局部变量变量_许可证, 整数型 RtlMoveMemory_读整数 (变量_许可证, 参数_句柄＋ 20, 4) EnterCriticalSectionHTTP (变量_许可证) RtlMoveMemory_写整数 (参数_句柄＋ 32, 2, 4) ' -1错误 0开始 1停止 2暂停 LeaveCriticalSectionHTTP (变量_许可证) .子程序多线程_HTTP下载_继续, , 公开 .参数参数_句柄, 整数型 .局部变量变量_许可证, 整数型 RtlMoveMemory_读整数 (变量_许可证, 参数_句柄＋ 20, 4) EnterCriticalSectionHTTP (变量_许可证) RtlMoveMemory_写整数 (参数_句柄＋ 32, 0, 4) ' -1错误 0开始 1停止 2暂停 LeaveCriticalSectionHTTP (变量_许可证) .子程序 HTTP下载处理_1_多任务 .参数参数_信息指针, 整数型 .局部变量变量_回调函数地址, 整数型 .局部变量变量_文件句柄, 整数型 .局部变量变量_映射句柄, 整数型 .局部变量变量_堆, 整数型 .局部变量变量_许可证, 整数型 .局部变量变量_线程数, 整数型 .局部变量变量_总次数, 整数型 .局部变量变量_文件大小, 整数型 .局部变量变量_当前次数, 整数型 .局部变量变量_当前线程数, 整数型 .局部变量变量_任务状态, 整数型 .局部变量变量_进程句柄, 整数型 .局部变量变量_传递完毕, 整数型 .局部变量变量_完成大小, 整数型 .局部变量 i, 整数型 .局部变量 a, 文本型 .局部变量传递ID, 整数型 ' 下载地址指针，回调函数地址+4，文件句柄+8，映射句柄+12，堆+16，许可证指针+20，线程数+24，当前线程数+28，任务状态+32，块+36，当前次数+40，总次数+44，完成大小+48，文件大小+52，传递完毕+56 RtlMoveMemory_读整数 (变量_回调函数地址, 参数_信息指针＋ 4, 4) RtlMoveMemory_读整数 (变量_文件句柄, 参数_信息指针＋ 8, 4) RtlMoveMemory_读整数 (变量_映射句柄, 参数_信息指针＋ 12, 4) RtlMoveMemory_读整数 (变量_堆, 参数_信息指针＋ 16, 4) RtlMoveMemory_读整数 (变量_许可证, 参数_信息指针＋ 20, 4) RtlMoveMemory_读整数 (变量_线程数, 参数_信息指针＋ 24, 4) RtlMoveMemory_读整数 (变量_总次数, 参数_信息指针＋ 44, 4) RtlMoveMemory_读整数 (变量_文件大小, 参数_信息指针＋ 52, 4) 变量_当前次数＝ 0 .判断循环首 (变量_当前次数＜变量_总次数) EnterCriticalSectionHTTP (变量_许可证) RtlMoveMemory_读整数 (变量_当前线程数, 参数_信息指针＋ 28, 4) LeaveCriticalSectionHTTP (变量_许可证) .如果真 (变量_当前线程数＜变量_线程数) EnterCriticalSectionHTTP (变量_许可证) RtlMoveMemory_读整数 (变量_任务状态, 参数_信息指针＋ 32, 4) LeaveCriticalSectionHTTP (变量_许可证) .如果真 (变量_任务状态＝ -1 或变量_任务状态＝ 1) 跳出循环 () .如果真结束 .如果真 (变量_任务状态＝ 2) WaitForSingleObjectHTTP (-1, 100) 到循环尾 () .如果真结束变量_当前次数＝变量_当前次数＋ 1 RtlMoveMemory_写整数 (参数_信息指针＋ 40, 变量_当前次数, 4) 变量_进程句柄＝ CreateThreadHTTP (0, 0, &HTTP下载处理_2_多任务, 参数_信息指针, 0, 0) .如果真 (变量_进程句柄＝ 0) EnterCriticalSectionHTTP (变量_许可证) RtlMoveMemory_写整数 (参数_信息指针＋ 32, -1, 4) LeaveCriticalSectionHTTP (变量_许可证) 跳出循环 () .如果真结束 CloseHandleHTTP (变量_进程句柄) .循环判断首 () EnterCriticalSectionHTTP (变量_许可证) RtlMoveMemory_读整数 (变量_传递完毕, 参数_信息指针＋ 56, 4) LeaveCriticalSectionHTTP (变量_许可证) WaitForSingleObjectHTTP (-1, 100) .循环判断尾 (变量_传递完毕＝ 0) .如果真结束 WaitForSingleObjectHTTP (-1, 100) .判断循环尾 () .循环判断首 () EnterCriticalSectionHTTP (变量_许可证) RtlMoveMemory_读整数 (变量_当前线程数, 参数_信息指针＋ 28, 4) LeaveCriticalSectionHTTP (变量_许可证) WaitForSingleObjectHTTP (-1, 100) .循环判断尾 (变量_当前线程数 ≠ 0) RtlMoveMemory_读整数 (变量_任务状态, 参数_信息指针＋ 32, 4) .判断开始 (变量_任务状态＝ -1) .计次循环首 (取数组成员数 (多任务句柄), i) .如果真 (参数_信息指针＝多任务句柄 [i]) 传递ID ＝ i .如果真结束 .计次循环尾 () .如果真 (传递ID ≠ 0) 程序_Call (变量_回调函数地址, 传递ID, -1, 0, 0) ' 调用子程序 (变量_回调函数地址, , , 传递ID, -1, 0, 0) .如果真结束 .判断 (变量_任务状态＝ 0) RtlMoveMemory_读整数 (变量_完成大小, 参数_信息指针＋ 48, 4) .计次循环首 (取数组成员数 (多任务句柄), i) .如果真 (参数_信息指针＝多任务句柄 [i]) 传递ID ＝ i .如果真结束 .计次循环尾 () .如果真 (传递ID ≠ 0) 程序_Call (变量_回调函数地址, 传递ID, 0, 变量_文件大小, 变量_完成大小) ' 调用子程序 (变量_回调函数地址, , , 传递ID, 0, 变量_文件大小, 变量_完成大小) .如果真结束 .默认 .判断结束 DeleteCriticalSectionHTTP (变量_许可证) HeapDestroy (变量_堆) CloseHandleHTTP (变量_映射句柄) CloseHandleHTTP (变量_文件句柄) .子程序 HTTP下载处理_2_多任务 .参数参数_信息指针, 整数型 .局部变量变量_下载地址指针, 整数型 .局部变量变量_回调函数地址, 整数型 .局部变量变量_映射句柄, 整数型 .局部变量变量_许可证, 整数型 .局部变量变量_堆, 整数型 .局部变量变量_当前线程数, 整数型 .局部变量变量_块_1, 整数型 .局部变量变量_当前次数, 整数型 .局部变量变量_总次数, 整数型 .局部变量变量_文件大小, 整数型 .局部变量变量_dwFlags, 整数型 .局部变量变量_hOpen, 整数型 .局部变量变量_szHead, 文本型 .局部变量变量_开始, 整数型 .局部变量变量_结尾, 整数型 .局部变量变量_hConnect, 整数型 .局部变量变量_块_2, 整数型 .局部变量变量_http块, 整数型 .局部变量变量_当前大小, 整数型 .局部变量变量_szTemp, 整数型 .局部变量变量_dwSize, 整数型 .局部变量变量_写入位置, 整数型 .局部变量变量_块位置, 整数型 .局部变量变量_视图句柄, 整数型 .局部变量变量_完成大小, 整数型 .局部变量变量_任务状态, 整数型 .局部变量 i, 整数型 .局部变量 a, 文本型 .局部变量传递ID, 整数型 ' 下载地址指针，回调函数地址+4，文件句柄+8，映射句柄+12，堆+16，许可证指针+20，线程数+24，当前线程数+28，任务状态+32，块+36，当前次数+40，总次数+44，完成大小+48，文件大小+52，传递完毕+56 RtlMoveMemory_读整数 (变量_下载地址指针, 参数_信息指针, 4) RtlMoveMemory_读整数 (变量_回调函数地址, 参数_信息指针＋ 4, 4) RtlMoveMemory_读整数 (变量_映射句柄, 参数_信息指针＋ 12, 4) RtlMoveMemory_读整数 (变量_堆, 参数_信息指针＋ 16, 4) RtlMoveMemory_读整数 (变量_许可证, 参数_信息指针＋ 20, 4) RtlMoveMemory_读整数 (变量_当前线程数, 参数_信息指针＋ 28, 4) RtlMoveMemory_读整数 (变量_块_1, 参数_信息指针＋ 36, 4) RtlMoveMemory_读整数 (变量_当前次数, 参数_信息指针＋ 40, 4) RtlMoveMemory_读整数 (变量_文件大小, 参数_信息指针＋ 52, 4) EnterCriticalSectionHTTP (变量_许可证) RtlMoveMemory_读整数 (变量_当前线程数, 参数_信息指针＋ 28, 4) RtlMoveMemory_写整数 (参数_信息指针＋ 28, 变量_当前线程数＋ 1, 4) RtlMoveMemory_写整数 (参数_信息指针＋ 56, 1, 4) LeaveCriticalSectionHTTP (变量_许可证) InternetGetConnectedStateHTTP (变量_dwFlags, 0) .如果 (位与 (变量_dwFlags, 4) ＝ 0) 变量_hOpen ＝ InternetOpenAHTTP (字符 (0), 4, 0, 0, 0) .否则变量_hOpen ＝ InternetOpenAHTTP (字符 (0), 0, 0, 0, 0) .如果结束 .如果真 (变量_hOpen ＝ 0) ' Internet连接错误 EnterCriticalSectionHTTP (变量_许可证) RtlMoveMemory_写整数 (参数_信息指针＋ 32, -1, 4) RtlMoveMemory_读整数 (变量_当前线程数, 参数_信息指针＋ 28, 4) RtlMoveMemory_写整数 (参数_信息指针＋ 28, 变量_当前线程数－ 1, 4) LeaveCriticalSectionHTTP (变量_许可证) 返回 () .如果真结束 .如果 (变量_当前次数＝变量_总次数) 变量_开始＝变量_块_1 × (变量_当前次数－ 1) 变量_结尾＝变量_文件大小 .否则变量_开始＝变量_块_1 × (变量_当前次数－ 1) 变量_结尾＝变量_块_1 × 变量_当前次数－ 1 .如果结束变量_szHead ＝ “Accept: */*” ＋ #换行符＋ “Accept-Language: zh-cn” ＋ #换行符＋ “Accept-Encoding: gzip, deflate” ＋ #换行符＋ “User-Agent: Mozilla/4.0(compatible; MSIE 6.0; Windows NT 5.0; MyIE2; .NET CLR 1.1.4322)” 变量_szHead ＝变量_szHead ＋ #换行符＋ “Range:bytes=” ＋到文本 (变量_开始) ＋ “-” ＋到文本 (变量_结尾) 变量_hConnect ＝ InternetOpenUrlAHTTP (变量_hOpen, 指针到文本 (变量_下载地址指针), 变量_szHead, 取文本长度 (变量_szHead), 2214592768, 0) .如果真 (变量_hConnect ＝ 0) ' 不能打开该URL! InternetCloseHandleHTTP (变量_hOpen) EnterCriticalSectionHTTP (变量_许可证) RtlMoveMemory_写整数 (参数_信息指针＋ 32, -1, 4) RtlMoveMemory_读整数 (变量_当前线程数, 参数_信息指针＋ 28, 4) RtlMoveMemory_写整数 (参数_信息指针＋ 28, 变量_当前线程数－ 1, 4) LeaveCriticalSectionHTTP (变量_许可证) 返回 () .如果真结束变量_块_2 ＝ 65536 变量_http块＝ 20480 变量_当前大小＝ 0 变量_szTemp ＝ HeapAllocHTTP (变量_堆, 8, 变量_http块) .如果真 (变量_szTemp ＝ 0) InternetCloseHandleHTTP (变量_hConnect) InternetCloseHandleHTTP (变量_hOpen) EnterCriticalSectionHTTP (变量_许可证) RtlMoveMemory_写整数 (参数_信息指针＋ 32, -1, 4) RtlMoveMemory_读整数 (变量_当前线程数, 参数_信息指针＋ 28, 4) RtlMoveMemory_写整数 (参数_信息指针＋ 28, 变量_当前线程数－ 1, 4) LeaveCriticalSectionHTTP (变量_许可证) 返回 () .如果真结束 .循环判断首 () .如果真 (InternetReadFileHTTP (变量_hConnect, 变量_szTemp, 变量_http块, 变量_dwSize) ＝ 0) ' 读文件失败 EnterCriticalSectionHTTP (变量_许可证) RtlMoveMemory_写整数 (参数_信息指针＋ 32, -1, 4) LeaveCriticalSectionHTTP (变量_许可证) 跳出循环 () .如果真结束 .如果真 (变量_dwSize ＝ 0) 跳出循环 () .如果真结束变量_写入位置＝变量_开始＋变量_当前大小变量_块位置＝变量_写入位置 ÷ 变量_块_2 变量_块位置＝变量_块位置 × 变量_块_2 变量_视图句柄＝映射装载 (变量_映射句柄, 2, 0, 变量_块位置, 变量_写入位置－变量_块位置＋变量_dwSize) .如果真 (变量_视图句柄＝ 0) ' 映射装载失败 EnterCriticalSectionHTTP (变量_许可证) RtlMoveMemory_写整数 (参数_信息指针＋ 32, -1, 4) LeaveCriticalSectionHTTP (变量_许可证) 跳出循环 () .如果真结束写入映射 (变量_视图句柄＋变量_写入位置－变量_块位置, 变量_szTemp, 变量_dwSize) 映射卸载 (变量_视图句柄) 变量_当前大小＝变量_当前大小＋变量_dwSize EnterCriticalSectionHTTP (变量_许可证) RtlMoveMemory_读整数 (变量_完成大小, 参数_信息指针＋ 48, 4) 变量_完成大小＝变量_完成大小＋变量_dwSize RtlMoveMemory_写整数 (参数_信息指针＋ 48, 变量_完成大小, 4) ' 输出调试文本 (参数_信息指针) .计次循环首 (取数组成员数 (多任务句柄), i) .如果真 (参数_信息指针＝多任务句柄 [i]) 传递ID ＝ i .如果真结束 .计次循环尾 () .如果真 (传递ID ≠ 0) 程序_Call (变量_回调函数地址, 传递ID, 1, 变量_文件大小, 变量_完成大小) ' 调用子程序 (变量_回调函数地址, , , 传递ID, 1, 变量_文件大小, 变量_完成大小) .如果真结束 RtlMoveMemory_读整数 (变量_任务状态, 参数_信息指针＋ 32, 4) LeaveCriticalSectionHTTP (变量_许可证) .判断循环首 (变量_任务状态＝ 2) EnterCriticalSectionHTTP (变量_许可证) RtlMoveMemory_读整数 (变量_任务状态, 参数_信息指针＋ 32, 4) LeaveCriticalSectionHTTP (变量_许可证) .如果真 (变量_任务状态＝ -1 或变量_任务状态＝ 1) 跳出循环 () .如果真结束 WaitForSingleObjectHTTP (-1, 100) .判断循环尾 () .循环判断尾 (变量_任务状态 ≠ -1 且变量_任务状态 ≠ 1) HeapFree (变量_堆, 0, 变量_szTemp) InternetCloseHandleHTTP (变量_hConnect) InternetCloseHandleHTTP (变量_hOpen) EnterCriticalSectionHTTP (变量_许可证) RtlMoveMemory_读整数 (变量_当前线程数, 参数_信息指针＋ 28, 4) RtlMoveMemory_写整数 (参数_信息指针＋ 28, 变量_当前线程数－ 1, 4) LeaveCriticalSectionHTTP (变量_许可证) .子程序 Call, 整数型, 公开 .参数参数_地址, 整数型 .参数参数_一, 整数型 .参数参数_二, 整数型 .参数参数_三, 整数型置入代码 ({ 201, 88, 135, 4, 36, 255, 224 }) 返回 (0) .子程序程序_Call, 整数型 .参数子程序地址, 整数型 .参数参数1, 整数型, 可空 .参数参数2, 整数型, 可空 .参数参数3, 整数型, 可空 .参数参数4, 整数型, 可空 .参数参数5, 整数型, 可空 .参数参数6, 整数型, 可空 .参数参数7, 整数型, 可空 .参数参数8, 整数型, 可空 .参数参数9, 整数型, 可空 .参数参数10, 整数型, 可空 .参数参数11, 整数型, 可空 .参数参数12, 整数型, 可空 .参数参数13, 整数型, 可空 .参数参数14, 整数型, 可空 .参数参数15, 整数型, 可空置入代码 ({ 86, 190, 15, 0, 0, 0, 141, 77, 8, 141, 76, 241, 252, 139, 65, 4, 133, 192, 116, 2, 255, 49, 78, 131, 233, 8, 133, 246, 117, 239, 255, 85, 8, 94, 201, 194, 124, 0 }) 返回 (0)

.版本 2 .程序集下载_多任务, , 公开 .程序集变量总计次, 整数型 .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用总计次＝ 0 .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用 .子程序下载_多任务, , 公开 .参数下载地址, 文本型 .参数保存路径, 文本型 .参数线程数, 整数型 .参数回调函数地址, 整数型, 可空, 无返回值，传递ID=整数型，信息=整数型，文件大小=整数型，完成大小=整数型 .局部变量 a, 整数型总计次＝总计次＋ 1 加入成员 (配备文本变量, 到文本 (总计次)) a ＝多线程_HTTP下载_开始_多任务 (下载地址, 保存路径, 线程数, 回调函数地址) 加入成员 (多任务句柄, a) .子程序暂停下载, , 公开 .参数暂停ID, 整数型多线程_HTTP下载_暂停 (多任务句柄 [暂停ID]) .子程序全部暂停, , 公开 .局部变量 i, 整数型 .计次循环首 (取数组成员数 (多任务句柄), i) 多线程_HTTP下载_暂停 (多任务句柄 [i]) .计次循环尾 () .子程序停止下载 .参数停止ID, 整数型多线程_HTTP下载_停止 (多任务句柄 [停止ID]) .子程序全部停止, , 公开 .局部变量 i, 整数型 .计次循环首 (取数组成员数 (多任务句柄), i) 多线程_HTTP下载_停止 (多任务句柄 [i]) .计次循环尾 () .子程序继续下载, , 公开 .参数继续ID, 整数型多线程_HTTP下载_继续 (多任务句柄 [继续ID]) .子程序全部继续, , 公开 .局部变量 i, 整数型 .计次循环首 (取数组成员数 (多任务句柄), i) 多线程_HTTP下载_继续 (多任务句柄 [i]) .计次循环尾 () .子程序重试下载, , 公开 .参数重试ID, 整数型多线程_HTTP下载_停止 (多任务句柄 [重试ID]) 多线程_HTTP下载_继续 (多任务句柄 [重试ID]) .子程序全部重试, , 公开 .局部变量 i, 整数型 .计次循环首 (取数组成员数 (多任务句柄), i) 多线程_HTTP下载_停止 (多任务句柄 [i]) 多线程_HTTP下载_继续 (多任务句柄 [i]) .计次循环尾 ()

.版本 2 .支持库 iext .程序集窗口程序集1 .程序集变量计次, 整数型 .程序集变量下载, 下载_多任务 .程序集变量速度1, 整数型 .程序集变量速度2, 整数型 .子程序内部回调, , 公开 .参数传递ID, 整数型 .参数信息 .参数文件大小 .参数完成大小 .局部变量索引, 整数型 .局部变量显示完成大小, 文本型 .局部变量显示文件大小, 文本型 .如果真 (传递ID ＞ 3 或传递ID ＜ 0) 返回 () .如果真结束 .如果真 (传递ID ＝ 1) 索引＝ 0 .如果真结束 .如果真 (传递ID ＝ 2) 索引＝ 1 .如果真结束 .如果真 (传递ID ＝ 3) 索引＝ 2 .如果真结束 .如果真 (四舍五入 (完成大小, 1) ＜ 1024) 显示文件大小＝到文本 (四舍五入 (文件大小, 1)) ＋ “ Byte” .如果真结束 .如果真 (四舍五入 (完成大小, 1) ＞ 1024) 显示文件大小＝到文本 (四舍五入 (文件大小 ÷ 1024, 1)) ＋ “ KB” .如果真结束 .如果真 (四舍五入 (完成大小 ÷ 1024, 1) ＞ 1024) 显示文件大小＝到文本 (四舍五入 (文件大小 ÷ 1024 ÷ 1024, 1)) ＋ “ MB” .如果真结束 .如果真 (四舍五入 (文件大小 ÷ 1024 ÷ 1024, 1) ＞ 1024) 显示文件大小＝到文本 (四舍五入 (文件大小 ÷ 1024 ÷ 1024 ÷ 1024, 1)) ＋ “ GB” .如果真结束 .如果真 (四舍五入 (完成大小, 1) ＜ 1024) 显示完成大小＝到文本 (四舍五入 (完成大小, 1)) ＋ “ Byte” .如果真结束 .如果真 (四舍五入 (完成大小, 1) ＞ 1024) 显示完成大小＝到文本 (四舍五入 (完成大小 ÷ 1024, 1)) ＋ “ KB” .如果真结束 .如果真 (四舍五入 (完成大小 ÷ 1024, 1) ＞ 1024) 显示完成大小＝到文本 (四舍五入 (完成大小 ÷ 1024 ÷ 1024, 1)) ＋ “ MB” .如果真结束 .如果真 (四舍五入 (完成大小 ÷ 1024 ÷ 1024, 1) ＞ 1024) 显示完成大小＝到文本 (四舍五入 (完成大小 ÷ 1024 ÷ 1024 ÷ 1024, 1)) ＋ “ GB” .如果真结束超级列表框1.置标题 (索引, 2, 显示完成大小) 超级列表框1.置标题 (索引, 3, 显示文件大小) 超级列表框1.置标题 (索引, 4, 到文本 (到整数 (完成大小 ÷ 文件大小 × 100)) ＋ “%”) 超级列表框1.置标题 (索引, 5, “下载中”) .子程序 _下载按钮_被单击 .局部变量索引, 整数型 .如果真 (输入编辑框.内容＝ “”) 返回 () .如果真结束下载.下载_多任务 (输入编辑框.内容, “C:\Users\Administrator\Desktop\” ＋取网络文件名称 (输入编辑框.内容), 10, 到整数 (&内部回调)) 计次＝计次＋ 1 索引＝超级列表框1.插入表项 (, , , , , ) 超级列表框1.置标题 (索引, 0, 到文本 (计次)) 超级列表框1.置标题 (索引, 1, 取网络文件名称 (输入编辑框.内容)) .子程序程序_Call, 整数型 .参数子程序地址, 整数型 .参数参数1, 整数型, 可空 .参数参数2, 整数型, 可空 .参数参数3, 整数型, 可空 .参数参数4, 整数型, 可空 .参数参数5, 整数型, 可空 .参数参数6, 整数型, 可空 .参数参数7, 整数型, 可空 .参数参数8, 整数型, 可空 .参数参数9, 整数型, 可空 .参数参数10, 整数型, 可空 .参数参数11, 整数型, 可空 .参数参数12, 整数型, 可空 .参数参数13, 整数型, 可空 .参数参数14, 整数型, 可空 .参数参数15, 整数型, 可空置入代码 ({ 86, 190, 15, 0, 0, 0, 141, 77, 8, 141, 76, 241, 252, 139, 65, 4, 133, 192, 116, 2, 255, 49, 78, 131, 233, 8, 133, 246, 117, 239, 255, 85, 8, 94, 201, 194, 124, 0 }) 返回 (0) .子程序取网络文件名称, 文本型 .参数路径, 文本型 .局部变量 a, 文本型, , "0" a ＝分割文本 (路径, “/”, ) 返回 (a [取数组成员数 (a)]) .子程序 _标签1_鼠标左键被放开, 逻辑型 .参数横向位置, 整数型 .参数纵向位置, 整数型 .参数功能键状态, 整数型置剪辑板文本 (标签1.标题) 输入编辑框.内容＝标签1.标题 .子程序 _标签2_鼠标左键被放开, 逻辑型 .参数横向位置, 整数型 .参数纵向位置, 整数型 .参数功能键状态, 整数型置剪辑板文本 (标签2.标题) 输入编辑框.内容＝标签2.标题 .子程序 _标签3_鼠标左键被放开, 逻辑型 .参数横向位置, 整数型 .参数纵向位置, 整数型 .参数功能键状态, 整数型置剪辑板文本 (标签3.标题) 输入编辑框.内容＝标签3.标题 .子程序 _暂停按钮_被单击下载.全部暂停 () .子程序 _继续下载按钮_被单击下载.全部继续 () .子程序 _停止按钮_被单击下载.全部停止 ()

相关阅读