tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： Re: Winsockを用いた双方向ソケット通信について
投稿日： 2008/03/05(Wed) 17:44
投稿者： ダリア
ダリアです。
投稿後にプログラムをいじってみたのですが。
Ｂ側の送信ボタンクリックを以下のように変えて、Ｂ側の接続ボタンをクリックの後Ａ側の接続ボタンをクリックすると一応はＡ側Ｂ側で希望通りの動きをしているように見えます。
ただ、こういう方法が良いのかどうかは疑問なのですが。いかがでしょうか？

'送信ボタンクリック
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
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。