■
タイトルは、「IPo」
ウィンドウ1の表示
拡張オブジェクト1をチャットとして作る
チャットのプログラムを「TTSExtra.TCPIP」に変える
チャットを初期化
表示1
待機
手順は 表示1
ラベル1を作れ
その位置と大きさを80,10,100,12へ変えろ
ラベル2を作れ
その位置と大きさを10,10,100,12へ変えろ
その内容を「IPアドレス」へ変えろ
アドレスは [チャットのローカルホストアドレス]
’ラベル1の内容を「IPアドレス:」アドレスへ変えろ
ラベル1の内容をアドレスへ変えろ
アドレス1は、[左(アドレス、5)]
もし アドレス1は、「127.0」 なら
ラベル1の内容を「現在オフラインです。」へ変えろ
ラベル2の内容を「」へ変えろ
もし終わり
もし アドレス1は 「192.1」 なら
ラベル1の内容を「現在の環境は、ルータ越しのネット接続です。」へ変えろ
ラベル2の内容を「」へ変えろ
もし終わり
終わり
手順は ウィンドウ1の表示
ウィンドウ1を使う
ウィンドウ1の中の大きさを200,100へ変えろ
その名前を「IPo」へ変えろ
その背景を&h8000000Fへ変えろ
’ウィンドウ1のメニュー
メニュー 「ファイル」を作れ
サブメニュー 「終了」を作れ
ウィンドウ1を表示
終わり
手順は ウィンドウ1のファイルの終了をクリック
閉じる
終わり
’--ウィンドウ関連---------------------------------------------
手順は ウィンドウ1を閉じる
終了
終わり