タイトルは、「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を閉じる

終了
終わり