API后台更新脚本自动下载

fafafa17173

ssssssssssssssss

fafafa17173

22222222222222222

fafafa17173

InternetGetConnectedState (dwFlags, 0)
strAgent ＝ “Agent” ＋ 到文本 (取启动时间 ())
如果 (位与 (dwFlags, 4) ＝ 0)
hOpen ＝ InternetOpenA (strAgent, 4, 0, 0, 0)
hOpen ＝ InternetOpenA (strAgent, 0, 0, 0, 0)
如果真 (hOpen ＝ 0)
信息框 (“Internet连接错误!”, 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)”
如果真 (是否为空 (起始位置) ＝ 假)
szHead ＝ szHead ＋ #换行符 ＋ “Range:bytes=” ＋ 到文本 (起始位置) ＋ “-”
szTemp ＝ 取空白字节集 (10240)
hConnect ＝ InternetOpenUrlA (hOpen, 网址, szHead, 取文本长度 (szHead), 2214592768, 0)
如果真 (hConnect ＝ 0)
信息框 (“不能打开该URL!”, 0, )
返回 (-1)
dwByteToRead ＝ 0
dwSizeOfRq ＝ 4
dwBytes ＝ 0
如果 (是否为空 (起始位置))
文件号 ＝ 打开文件 (文件名, #重写, )
如果 (文件是否存在 (文件名))
文件号 ＝ 打开文件 (文件名, #改写, )
文件号 ＝ 打开文件 (文件名, #重写, )
移到文件尾 (文件号)
dwBytes ＝ 起始位置
如果真 (文件号 ＝ 0)
信息框 (“不能打开本地的文件!”, 0, )
返回 (-1)
如果真 (HttpQueryInfoA (hConnect, 536870917, dwByteToRead, dwSizeOfRq, 0) ＝ 0)
dwByteToRead ＝ 0
start ＝ 取启动时间 ()
end ＝ 0
time ＝ 10
循环判断首 ()
如果真 (InternetReadFile (hConnect, szTemp, 取字节集长度 (szTemp), dwSize) ＝ 0)
信息框 (“读文件出错!”, 0, )
关闭文件 (文件号)
返回 (-1)
如果 (dwSize ＝ 0)
跳出循环 ()
szTemp ＝ 取字节集左边 (szTemp, dwSize)
写出字节集 (文件号, szTemp)
dwBytes ＝ dwBytes ＋ dwSize
end ＝ 取启动时间 ()
time ＝ end － start
如果真 (time ＝ 0)
time ＝ 10
CallWindowProcA (进度显示, dwByteToRead, dwBytes, time, dwBytes － 起始位置)
循环判断尾 (真)
关闭文件 (文件号)
InternetCloseHandle (hOpen)
返回 (0)

网络注册会员

再顶你一下

网络注册会员

我来支持你

maxthon

这个可以有,学习一下先

a张志鹏

支持楼主,支持精益论坛。

dulang

好深奥  慢慢学习

wjswzj0

支持一下哦

网络注册会员

支持一下哦