タイトル : 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 |