通信対戦プログラム

Size: px

Start display at page:

Download "通信対戦プログラム"

かねろうすわ
5 years ago
Views:

1 チャット VB5 プログラムの概要 Winsock コントロールを使用するとリモートコンピュータに接続しデータを交換出来る事を利用してチャット ( 通信雑談システム ) を作成するサーバークライアント共に背景色が黄色のテキストボックスに必要項目を入力し設定ボタンをクリックすると通信が確立しチャットを開始する事が出来る送信用テキストボックスに送信文を入力して送信ボタンをクリックするとテキストが送信される送信文受信文共に受信用テキストボックスに逐次表示される猶通信状況等は下部のステータスバーに其の時の状態が表示される今回の課題項目単純変数の宣言 (Dim) 標準コントロールの利用 (Label Option Command Text Frame) プロパティの値の取得と設定 (Standard: BackColor Text Value ) プロパティの値の取得と設定 (Winsock: State RemoteHost RemotePort LocalIP 等 ) イベントの利用 (Load Click ConnectionRequest DataArrival) メソッドの利用 (Close Listen Connect Accept SendData GetData SetFocus) ステートメントの利用 (Unload End Exit Sub) 組込関数の利用 (Val RGB DoEvents) 制御構造構文 ( 条件分岐 If ~ Then Else End If ループ処理 Do ~ Loop) 演算子 ( 代入演算子比較演算子結合演算子 ) ActiveX コントロールの利用 ( プロジェクトコンポーネントコントロール ) 今回の重点項目 StatusBar コンポーネントの利用 (Panels 等 ) Winsock コンポーネントの利用 (Protocol RemoteHost RemotePort Listen Connect 等 ) 今回の応用項目送受信文の画面表示を工夫する -1-

普段はツールボックス内に表示されて居ません標準コントロール以外のコントロールを使用出来る様にするにはコンポーネントを組み込む必要が有ります上記のコントロールは通常システムフォルダに下記のファイル名で保存されて居ます Microsoft Winsock

2 コンポーネント (ActiveX コントロール ) の組込 1. メニューバーよりプロジェクトコンポーネントと進む VB でソケット通信を行うには仲介役と成るコントロールが必要と成ります今回はソケット通信用に Winsock をステータス表示に StatusBar を使用します標準コントロールでは無いので普段はツールボックス内に表示されて居ません標準コントロール以外のコントロールを使用出来る様にするにはコンポーネントを組み込む必要が有ります上記のコントロールは通常システムフォルダに下記のファイル名で保存されて居ます Microsoft Winsock Control 6.0 mswinsck.ocx Microsoft Windows Common Control 6.0 mscomctl.ocx 孰れも ActiveX(OCX) コントロールで有る 2. コンポーネントダイアログボックスが表示されるので下記のコントロールを選択する Microsoft Winsock Control 6.0 と Microsoft Windows Common Control 上記の操作でツールボックス内に夫々れのアイコンが追加される -2-

オブジェクトプロパティ一覧フレーム 1 ラベル 3 ラベル 4 ラベル 5 Winsock ラベル 1 テキスト 1 テキスト 3 テキスト 5 ラベル 2 フレーム 2 フレーム 3 フレーム 4 テキスト 2 テキスト 4 テキスト 6 コマンドボタン 1 オプションボタン 1 オプションボタン 2 コマンドボタン 2 テキスト 8 テキスト 7 コマンドボタン 3 コマンドボタン 4

3 オブジェクトプロパティ一覧フレーム 1 ラベル 3 ラベル 4 ラベル 5 Winsock ラベル 1 テキスト 1 テキスト 3 テキスト 5 ラベル 2 フレーム 2 フレーム 3 フレーム 4 テキスト 2 テキスト 4 テキスト 6 コマンドボタン 1 オプションボタン 1 オプションボタン 2 コマンドボタン 2 テキスト 8 テキスト 7 コマンドボタン 3 コマンドボタン 4 ステータスバーコントロールの種類プロパティプロパティの設定値フォームオブジェクト名 Form1 チャットフレーム1 オブジェクト名 fraset Font 設定 (MS 明朝, 太字,9) フレーム2 オブジェクト名 fraselect 空白オプションボタン1 オブジェクト名 optserver サーバーオプションボタン2 オブジェクト名 optclient クライアント Value True ラベル1 オブジェクト名 lbllocal ローカル -3-

4 コントロールの種類プロパティプロパティの設定値ラベル2 オブジェクト名 lblremote リモートラベル3 オブジェクト名 lbladdress アドレスラベル4 オブジェクト名 lblport ポートラベル5 オブジェクト名 lblname 名前テキストボックス1 オブジェクト名 txtaddressl Text テキストボックス2 オブジェクト名 txtaddressr Text テキストボックス3 オブジェクト名 txtportl Text 1001 テキストボックス4 オブジェクト名 txtportr Text 1002 テキストボックス5 オブジェクト名 txtnamel Text 空白テキストボックス6 オブジェクト名 txtnamer Text 空白コマンドボタン1 オブジェクト名 cmdset 設定フレーム3 オブジェクト名 frasx 送信テキストボックス7 オブジェクト名 txtsx Text 空白コマンドボタン2 オブジェクト名 cmdsend 送信フレーム4 オブジェクト名 frarx 受信テキストボックス8 オブジェクト名 txtx Text 空白 MultiLine True ScrollBars 3- 両方ソケットオブジェクト名 sckcom Protocol 0 - scktcpprotocol ステータスバーオブジェクト名 stainfo 最小幅サイズ自動設定 1-sbrSpring 配置 - 1-sbrCenter 1-sbrCenter スタイル - 6-sbrDate 5-sbrTime コマンドボタン3 オブジェクト名 cmdclear 消去コマンドボタン4 オブジェクト名 cmdfinish caption 終了 -4-

5 フレーム他のコントロールをグループ化するコントロール通常チェックボックスやオプションボタンと共に使用しフレーム自体は特定のを持たないオプションボタン複数の選択肢の中から 1 個だけを選択するコントロールチェックボックスとは異なり 1 個のグループの中で選択出来るオプションボタンは 1 個だけで有るラベルテキストを表示するコントロール此のテキストはユーザーが直接入力したり変更したりする事は出来ないテキストボックステキストの入力や表示を行うコントロール此のテキストはユーザーが直接入力したり変更したりする事が出来るコマンドボタンユーザーが選択したコマンド ( 命令 ) や操作を実行するコントロール OK ボタンや実行ボタン等処理の開始や中断終了の合図に用いられ最も良く利用されるコントロールですソケット (Winsock) TCP ネットワークサービス及び UDP ネットワークサービスへアクセスするを提供する ActiveX コントロール此のコントロールを使用すると TCP 又は UDP を使用してリモートコンピュータに接続し送受信双方向のデータ交換を行う事が出来る孰れのプロトコルでもクライアント及びサーバーアプリケーションを作成出来る中央のサーバーに送るユーザー情報を集めるクライアントアプリケーションの作成複数のユーザーから集めたデータの中央コレクションポイントとしてするサーバーアプリケーションの作成チャットアプリケーションの作成等に利用されるステータスバー (StatusBar) 通常親フォームの下端に表示されるウィンドウでアプリケーションの各種ステータス情報の表示に使用される ActiveX コントロールステータスバーコントロールは文字列及びピクチャを含む Panel オブジェクト ( 最大 16 個 ) で構成され通常フォーム上のオブジェクトに関する情報オブジェクトの構成要素に関する情報オブジェクトの其の時に行える操作に関する情報等を表示するデザイン時にはパネルを作成しステータスバーコントロールのプロパティページダイアログボックスのパネルタブで各種値を設定して其の外観をカスタマイズする事が出来る TCP(Transmission Control Protocol) TCP プロトコルはコネクション型のプロトコルで有り電話に例える事が出来るユーザーは接続を確立してから処理を行う必要が有る亦一旦接続が確立すると TCP プロトコルでは接続が持続され非常に大きなファイル等でもデータの完全性が保証されるが多くのリソースが使用される UDP(User Datagram Protocol) UDP プロトコルはコネクションレス型のプロトコルで有りメモ伝言に例える事が出来る 1 台のコンピュータから別のコンピュータにメッセージが送られるが両者は明示的に接続されて居ない亦各送信データの最大サイズはネットワークに依り決まる -5-

6 プログラムリスト Option Explicit ' フォームが読み込まれた時の処理 Private Sub Form_Load( ) ' 自機の IP アドレス名前を取得する txtaddressl.text = sckcom.localip txtnamel.text = sckcom.localhostname ' 入力必須項目を指示する txtaddressr.backcolor = RGB(255, 255, 128) txtportr.backcolor = RGB(255, 255, 128) ' 接続状況を表示する stainfo.panels(1).text = " 未接続 " ' コマンドボタン ( 設定 ) がクリックされた時の処理 Private Sub cmdset_click( ) ' ソケットが閉じて居ない場合は一旦閉じる If sckcom.state <> sckclosed Then sckcom.close ' サーバーの場合 If optserver.value = True Then Form1. = " チャット :TCP サーバー " ' ローカルポート ( 自分 ) のポート番号を設定する sckcom.localport = Val(txtPortL.Text) ' ソケットを作成し接続要求受付モードに移行する sckcom.listen ' ステータスを表示する stainfo.panels(1).text = " 接続受付中 " ' クライアントの場合 Else Form1. = " チャット :TCP クライアント " ' リモートホスト ( 相手 ) のアドレス名前を設定する sckcom.remotehost = txtaddressr.text ' リモートポート ( 相手 ) のポート番号を設定する sckcom.remoteport = Val(txtPortR.Text) ' リモートコンピュータへの接続を要求する sckcom.connect ' ステータスを表示する stainfo.panels(1).text = " 接続要求中 " Do Until sckcom.state = sckconnected DoEvents Loop stainfo.panels(1).text = " 接続済 " End If LocalIP プロパティで自機の名前を LocalHostName プロパティで自機の IP アドレスを取得する事が出来るクライアント側が設定する必要の有る項目の背景色を黄色に仕て居るステータスバーの Panels コレクションは 1 スタートで有る State プロパティでソケットの様々な状態を取得する事が出来る LocalPort プロパティには自機の使用ポートを指定する Listen メソッドはソケットを作成し接続要求を受け付けるモードに移行する RemoteHost プロパティには接続するコンピュータの名前か IP アドレスを指定する RemotePort プロパティには接続するポートを指定する Connect メソッドはリモートコンピュータへ接続を要求する無限ループに陥ら無い為に DoEvents 関数でプログラムが占有して居る制御をオペレーティングシステムに渡す -6-

7 ' リモートマシンが接続を要求して来た時の処理 Private Sub sckcom_connectionrequest(byval requestid As Long) ' サーバーで無い場合はプロシージャを抜ける If optserver.value = False Then Exit Sub ' リモートコンピュータの情報を表示する txtaddressr.text = sckcom.remotehostip txtportr.text = sckcom.remoteport ' ソケットを一旦閉じて新しい接続を受け付ける If sckcom.state <> sckclosed Then sckcom.close sckcom.accept requestid ' ステータスを表示する stainfo.panels(1).text = " 接続受入 -" & sckcom.remotehostip サーバー側而巳が必要とする処理で有る為サーバーで無い場合は直ちにサブプロシージャを抜ける RemoteHostIP プロパティでリモート機の IP アドレスを RemotePort プロパティでリモート機のポート番号を取得する事が出来るアンパサンド (&) は文字列を結合する演算子で有る ' コマンドボタン ( 送信 ) がクリックされた時の処理 Private Sub cmdsend_click( ) Dim S As String ' 送信テキストに改行を付加して送信する S = txtnamel.text & " > " & txtsx.text & vbcrlf sckcom.senddata S ' 送信テキストを一覧に表示する txtrx.text = txtrx.text & S txtsx.text = "" txtsx.setfocus ' データを受信した時の処理 Private Sub sckcom_dataarrival(byval bytestotal As Long) Dim S As String sckcom.getdata S txtrx.text = txtrx.text & S ' コマンドボタン ( 消去 ) がクリックされた時の処理 Private Sub cmdclear_click() txtrx.text = "" 此処で宣言した変数は宣言したサブプロシージャ内でしか値の参照と設定を行う事が出来ない vbcrlf は VB 定数で改行を意味する SendData メソッドはデータをリモートコンピュータに送信する DataArrival イベントは新しいデータが送信されて来た時に発生する GetData メソッドは現在のデータブロック ( 受信データ ) を取得し其れを変数に格納する MultiLine プロパティを真に設定したテキストボックスは 32K 迄の入力が可能だが時々消去して遣る事が望ましい -7-

8 ' コマンドボタン ( 終了 ) がクリックされた時の処理 Private Sub cmdfinish_click( ) ' ソケットを閉じる If sckcom.state <> sckclosed Then sckcom.close ' プログラムをメモリから消去して終了する Unload Me End ' オプションボタン ( サーバー ) がクリックされた時の処理 Private Sub optserver_click( ) txtportl.backcolor = RGB(255, 255, 128) ' 入力必須項目を指示する txtaddressr.backcolor = RGB(255, 255, 255) txtportr.backcolor = RGB(255, 255, 255) ' オプションボタン ( クライアント ) がクリックされた時の処理 Private Sub optclient_click( ) txtportl.backcolor = RGB(255, 255, 255) ' 入力必須項目を指示する txtaddressr.backcolor = RGB(255, 255, 128) txtportr.backcolor = RGB(255, 255, 128) アプリケーションを終了する場合ソケットは閉じてから終了する事が望ましいアプリケーションを終了する場合正しくプログラムをメモリから消去して終了する事が望ましい TCP 接続でサーバー側が設定する項目は LocalPort プロパティだけで有る TCP 接続でクライアント側が設定する項目は RemoteHost プロパティと RemotePort プロパティで有る算術演算子比較演算子論理演算子 1.^ 冪乗 1.= 等しい 1.Not 否定 2.- 負数 2.<> 等しくない 2.And 論理積 3.* / 乗算と除算 3.< より小さい 3.Or 論理和 4. 整数除算 4.> より大きい 4.Xor 排他的論理和 5.Mod 剰余 5.<= 以下 5.Eqv 同値加算と減算 6.>= 以上 6.Imp 包合算術演算子と論理演算子では複数の演算子が使用されて居る場合には頭に付けた番号の順序で演算が行われる ( 上に書かれて居る演算子程優先順位が高い ) -8-

9 Close メソッドに依るソケットのクローズ (Winsock) ソケットをクローズするメソッド Object.Close TCP 接続又は接続要求を受け付けて居るソケットを閉じるクライアントアプリケーションでもサーバーアプリケーションでも使用出来るオブジェクトには Winsock コントロールを指定する Listen メソッドに依る接続要求の待受 (Winsock) ソケットを作成し接続要求を受け付けるモードに移行するメソッド Object.Listen TCP 接続に於いてソケットを作成し接続要求を受け付けるモードに移行してクライアントからの接続要求を待ち受ける此のメソッドは TCP 接続でしかし無いオブジェクトには Winsock コントロールを指定する接続要求が送られて来ると ConnectionRequest イベントが発生する接続を受け入れるには ConnectionRequest イベントのコード内で Accept メソッドを使用する必要が有る Connect メソッドに依る接続の要求 (Winsock) リモートコンピュータへの接続を要求するメソッド Object.Connect 引数 1, 引数 2 TCP 接続を確立する際にリモートコンピュータ ( サーバー側 ) への接続を要求するオブジェクトには Winsock コントロールを指定する引数 1 にはリモートコンピュータの名前を指定し省略する事が出来る引数 2 にはリモートコンピュータのポートを指定し省略する事が出来る Accept メソッドに依る接続要求の受入 (Winsock) 送られて来た接続要求を受け入れるメソッド Object.Accept 引数 TCP 接続に於いてクライアント側より送られて来た接続要求を受け入れる此のメソッドはサーバー側の ConnectionRequest イベント内で而巳で使用する事が出来るオブジェクトには Winsock コントロールを指定する引数 1 には RequestID(ConnectionRequest イベントの引数 ) を指定し省略する事は出来ない -9-

10 SendData メソッドに依るデータの送信 (Winsock) データをリモートコンピュータに送信するメソッド Object.SendData 引数引数で指定したデータをリモートコンピュータに送信するオブジェクトには Winsock コントロールを指定する引数には送信するデータ ( 数値又は文字列 ) を指定し必ず指定する GetData メソッドに依るデータの受信 (Winsock) 現在のデータブロックを取得し変数に格納するメソッド Object.Bind 引数 1, 引数 2, 引数 3 リモートコンピュータより受信したデータを引数 1 で指定した変数に格納するオブジェクトには Winsock コントロールを指定する引数 1 には取得したデータを格納する変数を指定し必ず指定する引数 2 には取得するデータの型を指定し省略する事が出来る引数 3 には取得するデータのサイズを指定し省略する事が出来る TCP 接続の確立の手順サーバー側クライアント側 LocalPort プロパティの設定 RemoteHost プロパティの設定 Listen メソッドの実行 ( 待受 ) RemotePort プロパティの設定 ConnectionRequest イベント Connect メソッドの実行 ( 接続要求 ) Accept メソッドの実行 ( 受付 ) -10-

チャットプログラム

チャットプログラムチャット VB 2005 5 プログラムの概要 Winsock コントロールを使用するとリモートコンピュータに接続しデータを交換出来る事を利用してチャット ( 通信雑談システム ) を作成するサーバークライアント共に背景色が黄色のテキストボックスに必要項目を入力し設定ボタンをクリックすると通信が確立しチャットを開始する事が出来る送信用テキストボックスに送信文を入力して送信ボタンをクリックすると