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
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
Kommentar