1.http下载文件方法
.子程序 WinHttpDown, 整数型 .参数 Url, 文本型, , 要下载的文件远程路径 .参数 Path, 文本型, , 要保存的位置 .参数 pointer, 子程序指针, 可空, 回调函数,参数一为目前下载字节数;参数二为总字节数;参数三为现行下载时间 .参数 wz, 整数型, 可空 .局部变量 dwFlags, 整数型 .局部变量 strAgent, 文本型 .局部变量 hOpen, 整数型 .局部变量 dwSize, 长整数型 .局部变量 szHead, 文本型 .局部变量 szTemp, 字节集 .局部变量 hConnect, 整数型 .局部变量 dwByteToRead, 整数型 .局部变量 dwSizeOfRq, 整数型 .局部变量 dwBytes, 长整数型 .局部变量 start, 整数型 .局部变量 end, 整数型 .局部变量 time, 整数型 .局部变量 FileNameId, 整数型 .局部变量 Length, 整数型 .局部变量 Str, 字节集 系统_处理事件 () InternetGetConnectedStateK (dwFlags, 0) strAgent = “Agent” + 到文本 (取启动时间 ()) .如果 (位与 (dwFlags, 4) = 0) hOpen = InternetOpenAK (strAgent, 4, 0, 0, 0) .否则 hOpen = InternetOpenAK (strAgent, 0, 0, 0, 0) .如果结束 .如果真 (hOpen = 0) 返回 (-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)” .如果真 (是否为空 (wz) = 假) szHead = szHead + #换行符 + “Range:bytes=” + 到文本 (wz) + “-” .如果真结束 szTemp = 取空白字节集 (10240) hConnect = InternetOpenUrlA (hOpen, Url, szHead, 取文本长度 (szHead), 2214592768, 0) .如果真 (hConnect = 0) 返回 (-1) .如果真结束 dwByteToRead = 0 dwSizeOfRq = 4 dwBytes = 0 FileNameId = 打开文件 (Path, #重写, ) .如果真 (FileNameId = 0) 返回 (-1) .如果真结束 .如果真 (HttpQueryInfoAK (hConnect, 536870917, dwByteToRead, dwSizeOfRq, 0) = 0) dwByteToRead = 0 .如果真结束 start = 取启动时间 () end = 0 ' 本源码来自三叶资源网(www.sanye.cx) time = 30 .循环判断首 () .如果真 (InternetReadFilek (hConnect, szTemp, 10240, dwSize) = 0) 关闭文件 (FileNameId) 返回 (-1) .如果真结束 .如果 (dwSize = 0) 跳出循环 () .否则 szTemp = 取字节集左边 (szTemp, dwSize) 写出字节集 (FileNameId, szTemp) Length = 取字节集长度 (szTemp) .循环判断首 () wz = 寻找字节集 (szTemp, Str, wz + 1) .如果真 (wz = -1) 跳出循环 () .如果真结束 ' 本源码来自三叶资源网(www.sanye.cx) .循环判断尾 (真) .如果结束 dwBytes = dwBytes + dwSize end = 取启动时间 () time = end - start .如果真 (time = 0) time = 30 .如果真结束 CallWindowProcAK (pointer, dwByteToRead, dwBytes, time, dwBytes - wz) .循环判断尾 (真) 关闭文件 (FileNameId) InternetCloseHandle (hOpen) 返回 (0)
2.取文件后缀名
.版本 2 .DLL命令 取路径文件名_, 整数型, "shlwapi.dll", "PathFindFileNameA", , , 成功返回路径文本指针地址 .参数 路径文本, 文本型, 传址, pszPath
本文为看恩吧原创文章,转载无需和我联系,但请注明来自knsay.com