postoji li mogucnost povezivanja dva racunara(chat program) preko interneta(u Lan-u radi)
u oba programa imam Winsock1 kontrolu sa podesenim sckTCPProtocol-om
na Client-u je podeseno:
With Me.Winsock1
.Close
.Connect Me.Text1.Text, 1001 'gde je Me.Text1.Text IPAdresa servera
End With
Me.Winsock1.SendData "neki tekst" & vbCrLf
na Server-u je podeseno:
With Winsock1(0)
.LocalPort = 1001
.Listen
End With
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim temp As String
temp = String(bytesTotal, " ")
Winsock1(0).GetData temp, vbString, bytesTotal
Text1.Text = temp
End Sub
[Ovu poruku je menjao Aleksandar Ružičić dana 16.01.2008. u 01:05 GMT+1]