Na strani servera sam stavio jednostavan kod:
Private Sub Form_Load()
Winsock1.Close
Winsock1.LocalPort = Text1.Text
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim str As String
Winsock1.GetData str
List1.AddItem str
End Sub
A na strani klijenta sam stavio kod :
Private Sub Command1_Click()
Winsock1.Close 'ovo upises da mozes vise puta pokusati da se konektujes ako ne uspe a da n izbacuje gresku
Winsock1.RemoteHost = Text3.Text
Winsock1.RemotePort = Text1.Text
Winsock1.Connect
End Sub
Private Sub Command2_Click()
Winsock1.SendData Text2.Text
List1.AddItem Text2.Text
End Sub
Za port sam stavio 168.
Kada pokusam da radim ovo na svom racunaru, preko lokalne IP , radi tj. prikazuje mi na strani servera sta je klijent poslao.
A kada na strani klijenta (na drugom racunaru), unesem moju javnu IP adresu , i kliknem konekt ne javlja mi nikakvu gresku, ali kada upisem nesto u text box i pokusam to poslati serveru izbaci mi run time error 40006, gdje je problem??