HS/FS UDP - Visual Basic

[Andi99]

Hallo,

ich habe schon 3 Tage verbracht den gesendeten UDP-Befehl vom HS(192.168.2.100) auf einen anderen PC(192.168.2.102) per VB-Programm anzuzeigen.

HS-Einstellungen(Event-Senden):
05.10.2010 18:14:40 (Prot: UDP) (IP: 192.168.2.102) (Port: 7008)
(Len: 10) 0x70 0x72 0x6f 0x67 0x72 0x61 0x6d 0x6d 0x30 0x32
programm02
(OK: 1)

Empfang mit UDP-Listener:
Datum/Zeit 05.10.2010 18:14:48
Remote-IP 192.168.2.100
Remote-Port 1026
Port 7008
Telegramm programm02
==> alles OK

Empfang mit folgenden VB-Programm:
Private Sub verbinden_Click()
With Winsock1
.RemoteHost = Text1.Text
.RemotePort = Text2.Text
.Bind Text3.Text
End With
End Sub

Private Sub senden()
Winsock1.SendData send.Text
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim empfang$
Winsock1.GetData empfang
Text4.Text=empfang
End Sub

Einstellungen:
Text1 192.186.2.100 ' .RemoteHost = Text1.Text
Text2 1026 '.RemotePort = Text2.Text
Text3 7008 '.Bind Text3.Text
--> kein Empfang

Text1 192.186.2.100 ' .RemoteHost = Text1.Text
Text2 7008 '.RemotePort = Text2.Text
Text3 1026 '.Bind Text3.Text
--> kein Empfang

Was mach ich falsch?

Gruß
Andi

[bmx]

ich habe schon 3 Tage verbracht den gesendeten UDP-Befehl vom HS(192.168.2.100) auf einen anderen PC(192.168.2.102) per VB-Programm anzuzeigen.

Hast Du mal mit netcat geschaut ob der HS überhaupt was raussendet?

Mit welchem Visual Basic programmierst Du? VB6 oder was aktuelles?

Gruß,
Bernd

[MatthiasS]

"Port öffnen" fehlt

[Andi99]

Vielen Dank Matthias, die Portfreigabe wars.