[ anebojsa @ 08.01.2008. 10:42 ] @
VB6 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: Code: 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: Code: 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] |