API后台更新脚本自动下载

易语言 2020-05-05 12:01:32

.循环判断首 ()
.如果真 (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 - 起始位置)
.循环判断尾 (真)