i've gotten my program to connect but now i get errors when trying to send just text back and forth through my server and client....the error is 40006 wrong protocal or connection state for the requested transaction or request.
please respond asap
heres the code
client
Option Explicit
Dim a As String, b As String
Private Sub cmdConnect_Click()
On Error Resume Next
sock.Connect txtIP, txtPort
End Sub
Private Sub cmdDisconnect_Click()
sock.Close
End Sub
Private Sub cmdSend_Click()
sock.SendData txtSend.Text
End Sub
Private Sub sock_DataArrival(ByVal bytesTotal As Long)
sock.GetData a
txtvChat.Text = txtvChat.Text + a
End Sub
server:
Option Explicit
Dim i As Integer, a() As String, b() As String
Private Sub cmdSend_Click()
SendData txtSend.Text
End Sub
Private Sub Form_Load()
sock(0).LocalPort = 7659
sock(0).Listen
End Sub
Private Sub sock_ConnectionRequest(index As Integer, ByVal requestID As Long)
If index <> 0 Then
i = i + 1
ReDim Preserve a(i)
ReDim Preserve b(i)
Load sock(i)
sock(i).Accept requestID
End If
End Sub
Private Sub sock_DataArrival(index As Integer, ByVal bytesTotal As Long)
sock(i).GetData a(i)
txtvChat.Text = txtvChat.Text + a
End Sub
Sub SendData(Param As String)
b(i) = Param
sock(i).SendData b(i)
End Sub
