タイトル : winsock(現状) 投稿日 : 2009/02/18(Wed) 15:16 投稿者 : JT
win_sendのエラーになりうまく行きません>< Option Explicit Dim intGetId As Integer 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.RemoteHost = Txt2.Text Win_Send.RemotePort = Txt3.Text Win_Send.Protocol = sckTCPProtocol Win_Send.Connect Txt2.Text, Txt3.Text End Sub Private Sub Cmd2_Click() Win_Recv.LocalPort = Txt3.Text Win_Recv.Listen Cmd2.Enabled = False End Sub Private Sub Cmd3_Click() Win_Send.SendData Txt1.Text 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_Send.LocalPort = 0 Win_Send.Protocol = sckTCPProtocol Win_Recv.Close Win_Send.Close End Sub Private Sub Win_RecvConnectionRequest(Index As Integer, ByVal requestID As Long) Win_Recv.Accept requestID End Sub Private Sub Win_RecvDataArrival(Index As Integer, ByVal bytesTotal As Long) Win_Recv.SendData Txt1.Text Win_Recv.GetData strMaxData End Sub Private Sub Win_SendDataArrival(ByVal bytesTotal As Long) Win_Send.GetData strMaxData Txt1.Text = strMaxData 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) MsgBox "Recv_Error" End Sub Private Sub Win_Send_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) MsgBox "Send_Error" End Sub |