投稿日	： 2007/05/05(Sat) 20:28
投稿者	： 梅野
Ｅメール	：
ＵＲＬ	：
タイトル	： TCPで自分自身としか接続されない

ＶＢ６で開発しています。
ＶＢ歴は趣味で６年ほどやっております。

TCPを用いたカードゲームを作成しております。
サーバに多数のWinsockをコントロール配列で準備し、
クライアントの人数だけwinsockのソケットを作りListenしています。
自分のパソコンにサーバとクライアントを置き
クライアントから接続要求を出せばサーバと接続できるのですが、
自分のパソコンにサーバを、他人のパソコンにクライアントを置き
接続要求を出してもらった場合サーバと接続することができません。
プログラムは自分で使うものと他人に使ってもらうものでは全く書き換えておりません。

自分のパソコンにサーバとクライアントの両方がある場合は
データのやり取りもうまく行っているのですが、
他人のパソコンから接続要求を出してもらっても
自分のパソコンのサーバ側にはConnectionRequestイベントも発生しません。

以下はクライアント側の接続部分のコードです。

With Form6.Winsock1
    .RemotePort = aiteport'RemotePortを格納してあります
    .LocalPort = zibunport'LocalPortを格納してあります
    .RemoteHost = ip'サーバのIPアドレスを格納してあります。
    .Close
    .Connect
End With

以下はサーバ側の接続部分のコードです。

With Winsock1(j)
    .Close
    .RemotePort = Val(Left(iremono, InStr(iremono, vbTab) - 1))
　　'ファイルから読み出した一行をiremonoに格納してあります
    .LocalPort = Val(Mid(iremono, InStr(iremono, vbTab) + 1, 4))
　　'ファイルにはクライアントのRemotePortとLocalPortが記入されています
    .Listen
End With

Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Winsock1(Index).Close
Winsock1(Index).Accept requestID

なお、UDPではこのプログラムとは全く違いますが、
自分と他人のパソコン間でも通信できました。

どうすればTCPでも他人と接続・通信することができるのでしょうか。
ご教授お願いします。

★ - TCPで自分自身としか接続されない - 梅野 05/05-20:28No.9091
• Re: TCPで自分自身としか接続されない - いな 05/07-11:11 No.9094
  • ありがとうございました。 - 梅野 05/08-23:17 No.9116
    • Re: ありがとうございました。 - いな 05/09-11:27 No.9118