API后台更新脚本自动下载 - 精易论坛

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)

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