evo kod:
Server:
Private Sub Command1_Click()
'povezivanje na IP
Winsock1.Close 'ovo upises da mozes vise puta pokusati da se konektujes ako ne uspe a da n izbacuje gresku
Winsock1.RemoteHost = Winsock1.LocalIP 'ovako sam cita moju IP
Winsock1.RemotePort = Text2.Text 'ovaj broj mora biti isti u obe aplikacije
Winsock1.Connect
End Sub
Private Sub Command2_Click()
'salje podatak
Winsock1.SendData Text3.Text
End Sub
Private Sub W1_DataArrival(ByVal bytesTotal As Long)
'hvata text i upisuje ga u text3
Dim str As String
Winsock1.GetData str
Text3.Text = str
End Sub
Private Sub Winsock1_Connect()
'obavestava da ste konektovani
MsgBox "Konekcija uspesna!", vbInformation, "Connected"
End Sub
Klijent:
Private Sub Form_Load()
Winsock1.Close
Winsock1.LocalPort = Text2.Text
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
' ukoliko se neko konektuje program prihvata pristup
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'prihvata poslati text i upisuje ga u text1
Dim str As String
Winsock1.GetData str
Text1.Text = str
End Sub
Manje vise to je isti kod kao sto je Nevena postavila.