Hi,
Just started trying to make a simple messinging program in VB using winsock.. i really can't see what is going wrong!.. anyway.. i'll post up the code of the send program and the receive program.. maybe its really obvious hah i just don't see it!
THE SENDER
Option Explicit
Dim strOutgoing As String
Dim strIP As String
Private Sub cmdSendMsg_Click()
strIP = txtHostName.Text
strOutgoing = txtMessage.Text
winsock.RemoteHost = strIP
winsock.RemotePort = 201
winsock.Connect
Do Until winsock.State = sckConnected
DoEvents: DoEvents: DoEvents: DoEvents
If winsock.State = sckError Then
MsgBox "Problem connecting!"
Exit Sub
End If
Loop
winsock.SendData (strOutgoing)
winsock.Close
End Sub
THE RECEIVER
Private Sub Form_Load()
winsock.LocalPort = 201
winsock.Listen
End Sub
Private Sub winsock_ConnectionRequest(ByVal requestID As Long)
If winsock.State <> sckClosed Then winsock.Close
winsock.Accept requestID
End Sub
Private Sub winsock_DataArrival(ByVal bytesTotal As Long)
Dim strIncoming As String
winsock.GetData strIncoming
lblMessage.Caption = strIncoming
End Sub
Thanks for your help, i always get my error msg "Can't connect" so obviously something goes wrong :-(
