WinSock Connection problems!

[CyberCarsten]

I can't make a connect between to computers! The winsock state is 6...I can't make it go 7!

This is the program, which is sending data:

Private Sub cmdSend_Click()
On Error GoTo error
Debug.Print Winsock1.State

Winsock1.SendData SendData.Text
Exit Sub
error:

MsgBox "Error!"

End Sub

Private Sub Form_Load()
Winsock1.Connect "1.0.0.2"
Debug.Print Winsock1.State

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Bind
End Sub

This is the program, which is recieving the data:

Private Sub Command1_Click()
On Error GoTo error
Winsock1.Bind
Exit Sub
error:
MsgBox "Error!"

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Bind
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Data
Winsock1.GetData Data, vbString
MsgBox Data

End Sub

What is wrong???

[Coolhp]

Hiya there,

Ok... This is my first time in replying to a post so I hope I'm making this right...

I would use the connection oriented strucutre to transmit your data.

On the computer that is receiving the data, you should have something like :

Private Sub Form_Load()
     Winsock1.Listen
     Debug.Print Winsock1.State
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
     Winsock1.Accept requestID
End Sub

I dont know much about the bind method but I hope this solves the problem,

Best regards,

COOLHP.