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

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

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

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