03/07/26 20:52 .net
///////////////////////////////////////////////////////////////////////////////
// メイン
///////////////////////////////////////////////////////////////////////////////
BeginFunction Main()
// 初期起動
Init()
MessageString("◆初期化します。\r\n")
Restart:
TimeOuthttp= 30
// 30 sec
Inet_SetTimeOut(TimeOuthttp)
if Inet_InitSession("","",0) then
goto Error
endif
pageMethod = "GET"
pageUrl = "URLﾘﾝｸ(up.isp.2ch.net)"
pageReferer = ""
if Inet_MakeHttpConnection(pageMethod,pageUrl,pageReferer) then
goto Error
endif
MessageString("→")
MessageString(Inet_UrlToServer(pageUrl))
MessageString("へ接続中...\r\n")