いつもお世話になります。ダリアです。
初歩的なことかもしれませんが是非にアドバイスをお願いしたく思います。
Winsockを用いたソケット通信についてです。
環境はWinXP、VB6を使用しています。

目的はＡ側とＢ側での双方向でのソケット通信です。ポートは二つ用意します。
（Ａ、Ｂはそれぞれ単独のEXEです。動作を確認したいので現在はＡ，Ｂがほぼ同じプログラムで、ポート指定のみ逆にしています。Ａ側ではwskTcpClient(0).LocalPort = "2222"、wskTcpInter.RemotePort = "1111"）
Ａ側の接続ボタンをクリックの後Ｂ側の接続ボタンをクリックすると、Ｂ側の送信は可能。Ａ側は不可。
Ｂ側の接続ボタンをクリックの後Ａ側の接続ボタンをクリックすると、Ａ側の送信は可能。Ｂ側は不可。
タイミングのせいなのか、と思ったりもするのですが。

エラーメッセージは送信ボタンクリック後のwskTcpInter_State（関数）にてSTATEを表示させています。”ホストの解決処理中です”とメッセージが出ます。
接続されていないのだろうとは思うのですが、これを回避する方法が分かりません。
申し訳ありませんが、よろしくお願いします。


MSDNのプログラムを参考にサーバ側（Ｂ側）のプログラムを以下のように作りました。
'接続ボタンをクリック
Private Sub command1_click()
On Error GoTo err_end:
    wskTcpClient(0).Close
'ポート番号を指定して相手アプリからの接続要求を待つ
    wskTcpClient(0).LocalPort = "1111"
    wskTcpClient(0).Listen
    
    wskTcpInter.Close
    wskTcpInter.Protocol = sckTCPProtocol
    wskTcpInter.LocalPort = 0
    wskTcpInter.RemoteHost = "localhost"
    wskTcpInter.RemotePort = "2222"
    wskTcpInter.Connect
    
    Exit Sub
    
err_end:
    MsgBox (wskTcpClient(0).State)
    
End Sub


'送信ボタンクリック
Private Sub command4_click()
    
If wskTcpInter.State <> 7 Then
        wskTcpInter.Close
        wskTcpInter.Connect
        wskTcpInter_State
Else
        wskTcpInter.SendData "TestData"
End If
End Sub

Private Sub wskTcpInter_DataArrival(ByVal bytesTotal As Long)
    Dim strBuf As String
    wskTcpInter.GetData strBuf
    Text2.Text = strBuf
End Sub


Private Sub wskTcpClient_ConnectionRequest(Index As Integer, ByVal requestID As Long)
If wskTcpClient(intConnectMax).State <> sckClosed Then
        wskTcpClient(intConnectMax).Close
End If
'相手アプリからの接続要求を受け付ける
    intConnectMax = intConnectMax + 1
    wskTcpClient(intConnectMax).Accept requestID
    
End Sub

Private Sub wskTcpClient_DataArrival(Index As Integer, ByVal bytesTotal As Long)
'データが届く
    Dim strBuf As String    
'相手アプリの送信データを取得する
    wskTcpClient(Index).GetData strBuf
    Text1.Text = "メインから「" & strBuf & "」を受信しました。"
'相手アプリにデータを返信する
    wskTcpClient(Index).SendData StrConv(strBuf, vbWide)
End Sub

ダリアです。
投稿後にプログラムをいじってみたのですが。
Ｂ側の送信ボタンクリックを以下のように変えて、Ｂ側の接続ボタンをクリックの後Ａ側の接続ボタンをクリックすると一応はＡ側Ｂ側で希望通りの動きをしているように見えます。
ただ、こういう方法が良いのかどうかは疑問なのですが。いかがでしょうか？

'送信ボタンクリック
Private Sub command4_click()
    Dim i As Integer
    i = 0
If wskTcpInter.State <> 7 Then
Do
        wskTcpInter.Close
        wskTcpInter.Connect
        i = i + 1
        If i >= 100 Then
            MsgBox "i>100のため、処理を終了します"
            Exit Do
        End If
        DoEvents
        If wskTcpInter.State = 7 Then
            Exit Do
        End If
Loop
        wskTcpInter.SendData "TestData"
Else
        wskTcpInter.SendData "TestData"
End If
End Sub

> エラーメッセージは送信ボタンクリック後のwskTcpInter_State（関数）にてSTATEを表示させています。”ホストの解決処理中です”とメッセージが出ます。
> 接続されていないのだろうとは思うのですが、これを回避する方法が分かりません。
> 申し訳ありませんが、よろしくお願いします。

　Connectを発行する前に、サーバ側でListenを発行している必要があります。
　ListenをFormのLoadイベントに持っていって、両方のプログラムを起動した後で
接続ボタンを押せば両方とも接続できると思います。

お返事ありがとうございます、Starfishさま。

> 　Connectを発行する前に、サーバ側でListenを発行している必要があります。
> 　ListenをFormのLoadイベントに持っていって、両方のプログラムを起動した後で
> 接続ボタンを押せば両方とも接続できると思います。

おかげさまで奇妙なループを入れることなく送受信ができました。
同じところでぐるぐる悩んでいたので本当にありがとうございます。

ひとつ、疑問なのですが。
Listenで受信／Connectで送信と明確に決まっているものなのでしょうか？
ソケット通信が繋がっているならば、どちらが送信側でも受信側でも構わないような気がするのです。
（送受信を混在したいわけではありません。）
たとえば、サーバ側はListenを2ポート、クライアント側が2ポートConnectさせて、サーバ側からメッセージを送るということは手法的にいかがでしょうか？
例題ではListenで受信／Connectで送信と使っていたので、上記のような使い方に問題があるのかないのかが判断が付かないのです。
申し訳ありませんが、よろしくお願いいたします。

> ひとつ、疑問なのですが。
> Listenで受信／Connectで送信と明確に決まっているものなのでしょうか？
> ソケット通信が繋がっているならば、どちらが送信側でも受信側でも構わないような気がするのです。
> （送受信を混在したいわけではありません。）
> たとえば、サーバ側はListenを2ポート、クライアント側が2ポートConnectさせて、サーバ側からメッセージを送るということは手法的にいかがでしょうか？
> 例題ではListenで受信／Connectで送信と使っていたので、上記のような使い方に問題があるのかないのかが判断が付かないのです。
> 申し訳ありませんが、よろしくお願いいたします。

　複雑なシステムでいたら、複数のコネクションを張って行うこともありますが、
簡単なものでしたらふつうは1本のみコネクションを張って、それを使用して
送受信します。

Starfishさま、お返事ありがとうございます。

>
> 　複雑なシステムでいたら、複数のコネクションを張って行うこともありますが、
> 簡単なものでしたらふつうは1本のみコネクションを張って、それを使用して
> 送受信します。

なるほど。それで、例題ではポートが1つの場合だけなのですね。
ご回答、ありがとうございました。