#include "hspinet.as" netinit if stat : dialog "ネット接続できません。" : end neturl "http://kuwasa.dip.jp/hsp/ipcheck/" netrequest_get "ipget.shtml" mes "DOWNLOAD 開始" *main netexec res if res > 0 : goto *comp if res < 0 : goto *bad await 50 goto *main *bad ; エラー neterror estr mes "IPアドレスの取得に失敗しました。"+estr stop *comp ; 完了 mes "IPアドレスの取得に成功しました。" netgetv buf notesel buf b=instr(buf, , "</")-5 myip=strmid(buf, 5, b) mes myip stop
自分の鯖が落ちない限りはいけるんじゃないかと思う。
スクリプトは、もっといい方法があるのかもしれないけどこれしかワカラナイ。