03/07/26 20:56 .net
// 失敗
MessageString("→接続失敗 : " + Inet_GetResponseString(ret) + "\r\n")
pageReturn = -1
goto Error
endif
Inet_CloseConnection()
Inet_CloseSession()
// return(pageReturn)
hloop:
// ファイルリストの取得
ret = FindString(pageHtml,"/up/")
if ret == -1 then
goto maaEnd
endif
pageHtml = RightString(pageHtml,ret)
ret = FindString(pageHtml,"target") - 2
CurrentUrl = "URLﾘﾝｸ(up.isp.2ch.net)" + LeftString(pageHtml,ret)
ret = FindString(pageHtml,"</form>")
pageHtml = RightString(pageHtml,ret)
MessageString(CurrentUrl + "\r\n")
CurrentName = GetConfigString("SAVE_PATH","d:\data\") + RightString(CurrentUrl,25)
// d:\folder\xxxxxxx.ext