Ok I made a winsock chat and it just wont connect, here is the code :
Server :
VB Code:
Private Sub sckMain_ConnectionRequest(ByVal requestID As Long) If sckMain.State <> sckClosed Then sckMain.Close sckMain.Accept requestID 'Accept incoming Connection End Sub Private Sub sckMain_DataArrival(ByVal bytesTotal As Long) 'Get Data from Buffer and store it in GDATA sckMain.GetData GDATA txtInfo.Text = GDATA End Sub
Client :
VB Code:
Private Sub cmdStart_Click() sckMain.RemotePort = txtPort.Text 'Set Port sckMain.RemoteHost = txtIP.Text 'Set Remote IP sckMain.Connect RemoteHost, RemotePort End Sub Private Sub sckMain_ConnectionRequest(ByVal requestID As Long) If sckMain.State <> sckClosed Then sckMain.Close sckMain.Accept requestID 'Accept incoming Connections End Sub Private Sub sckMain_DataArrival(ByVal bytesTotal As Long) sckMain.GetData GDATA txtInfo.Text = GDATA End Sub
