03/07/26 20:57 .net
MessageString(CurrentName + "\r\n")
ret = Inet_GetFileLength(CurrentName)
if ret > 0 then
goto maaEnd
endif
retrial:
MessageString("□" + CurrentUrl + "をダウンロードします。" + "\r\n")
Inet_SetTimeOut(30)
// 30 sec
if Inet_InitSession("","",0) then
goto Error
endif
// レジュームするわきゃない
startPoint = 0
if Inet_MakeHttpConnection("GET",Inet_EncodeUrl(CurrentUrl),"URLﾘﾝｸ(up.isp.2ch.net)") then
goto Error
endif
MessageString("→" + Inet_UrlToServer(CurrentUrl) + "へ接続中...\r\n")
// ヘッダー追加
Inet_AddRequestHeaders("Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/msword, */*")
Inet_AddRequestHeaders("Accept-Language: ja")
Inet_AddRequestHeaders("Accept-Encoding: gzip")
Inet_AddRequestHeaders("Accept-Charset: Shift_JIS,*,utf-8")
Inet_AddRequestHeaders("Accept-Encoding: gzip, deflate")