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

タイトル ： winsock
投稿日： 2009/02/18(Wed) 12:42
投稿者： JT
初めまして　画面上でサーバとクライアントで一つずつコントロールを持っていてクライアントソケットボタン（コマンドボタン2）を押下したらテキストデータにいれた文字がサーバから返ってくる処理になります。会社で使っているものなのでここに置いてはいけないんですがsockman.exeという仮想通信で現在作成しているんですがクライアントの送受信が実行時エラー”400006”とでて解説を見たんですが理解できません　ご教示お願いします

Option Explicit
Dim GetId As Long
Dim intGetPort As Integer
Dim strMaxData As String
Dim intGetData As Integer
Dim intLoop As Integer
Dim intConnectMax As Long

Private Sub Cmd1_Click()
'Win_Send.Protocol = sckTCPProtocol
Win_Send.Connect (Txt2.Text), Txt3.Text
Win_Send.SendData (Txt1.Text)
End Sub

Private Sub Cmd2_Click()
Win_Recv.LocalPort = Txt3.Text
Win_Recv.Listen
Cmd2.Enabled = False
End Sub

Private Sub Cmd4_Click()
Win_Recv.Close
Win_Send.Close
End Sub

Private Sub Form_Load()
Form1.Caption = "winsock"
Win_Recv.LocalPort = "0"
'Win_Recv.RemoteHost = Txt2.Text
Win_Send.LocalPort = 0
Win_Send.Connect
Win_Send.Protocol = sckTCPProtocol
Win_Send.Connect Txt2.Text, Txt3.Text
End Sub

Private Sub Win_RecvConnectionRequest(Index As Integer, ByVal requestID As Long)
intConnectMax = intConnectMax + 1
Win_Recv.Accept requestID
End Sub


Private Sub Win_RecvDataArrival(Index As Integer, ByVal bytesTotal As Long)
Win_Recv.GetData strMaxData
Win_Recv.SendData StrConv(strMaxData, vbWide)
End Sub
Private Sub Win_SendDataArrival(ByVal bytesTotal As Long)
Win_Send.GetDatastrmaxdata
End Sub

Private Sub Win_Recv_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

End Sub
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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