Hej är det någon som förstår sig på detta? Har provat med och utan, ingen skillnad förutom att om jag bundit porten kan inte fler instanser komma åt denna. > ingen skillnad förutom att om jag bundit porten kan inte fler instanser komma åt denna. Nja, ingen skillnad då heller har testat det mesta. Varför börjar det funka perfect när datorn svara då? Det är ganska märkligt? Hm... Börjar fundera lite. Vad är 255.255.255.255 för adress egentligen? Tror inte att det är någon broadcastadress nämligen... Testa att köra med 127.0.0.1 istället, och se till att inte använda samma port på remote och local (fast i andra programmet så lyssnar du ju på första programmets remote) och se ifall det fungerar (eller snarare, det gör det, men...) Vet inte vad du svamlar om... Kom med något konkret.Funkar UDP utan att upprätta anslutning?
Trodde att UDP skulle fungera utan att upprätta anslutning mellan datorerna? Har provat både i VB.NET och VB6 men samma resultat. Bundet med bind till en port och utan. Provat olika portar. Antivirus bortkopplat. Haft remotehost till unikt IPnummer mm.
Vad som händer är att: Startar dator A, Startar dator B och sänder
B sänder till sig själv, A hör inget (någon gång kan den höra första). När jag sänder från A hör B detta och sedan fungerar kommunikationen perfekt? Tills någon dator stängs. Sist startad dator hör inget förrän den själv sänt? Hoppas ni förstår.
Option Explicit
Private Sub btnSänd_Click()
Dim i As Integer
For i = 1 To 25
TCP.SendData "Nr " & Trim$(i)
Vänta 2
Next
End Sub
Private Sub Form_Load()
TCP.Protocol = sckUDPProtocol
TCP.LocalPort = 5000
TCP.RemotePort = 5000
TCP.RemoteHost = "255.255.255.255"
TCP.Bind (5000)
End Sub
Private Sub TCP_DataArrival(ByVal bytesTotal As Long)
Dim Indata As String
TCP.GetData Indata
vin.AddItem Indata
End Sub
Private Sub TCP_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Me.Caption = Description
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TCP.SendData Text1.Text
KeyAscii = 0
End If
End Sub
Sub Vänta(vTime As Double)
Dim StartTime As Double
StartTime = Timer
Do Until Timer - StartTime > vTime
DoEvents
If Timer < StartTime Then StartTime = 0
Loop
End SubSv:Funkar UDP utan att upprätta anslutning?
Sv: Funkar UDP utan att upprätta anslutning?
Alltså, som det är nu så skickar du ju till samma port som du lyssnar på vilket gör att ditt egna program kommer ta emot all trafik. Och du måste anropa .Bind(). Se till att du lyssnar på en port, men skickar till en annan som något annan kan lyssna på.Sv:Funkar UDP utan att upprätta anslutning?
Sv: Funkar UDP utan att upprätta anslutning?
Sv: Funkar UDP utan att upprätta anslutning?
Sv:Funkar UDP utan att upprätta anslutning?