...Verbindung aufbauen...
Client.SendData &HF0
Client.SendData &H6
Client.SendData &H3
Client.SendData &H1
Client.SendData &H3
Client.SendData &H31
Client.SendData &H0
DoEvents  

...Verbindung aufbauen...
Dim byteArray(7) As Byte
byteArray(0) = &HF0
byteArray(1) = &H6
byteArray(2) = &H3
byteArray(3) = &H1
byteArray(4) = &H3
byteArray(5) = &H31
byteArray(6) = &H0
Client.SendData byteArray()
DoEvents

#!/usr/bin/perl -w
use strict;
use IO::Socket;

my @tele;
#push(@tele, 0xF0);
#push(@tele, 0x06);
#push(@tele, 0x03);
#push(@tele, 0x01);
#push(@tele, 0x03);
#push(@tele, 0x31);
#push(@tele, 0x0);
push(@tele, hex(0xF0));
push(@tele, hex(0x06));
push(@tele, hex(0x03));
push(@tele, hex(0x01));
push(@tele, hex(0x03));
push(@tele, hex(0x31));
push(@tele, hex(0x0));
  
my $bytearray = pack("H", 0xF0, 0x06, 0x03, 0x01, 0x03, 0x31, 0x0);

#Daten schreiben in Datenspeicher-Server
my $ip = '192.168.1.11';
my $port = 12004;
my $socket = new IO::Socket::INET (
  PeerAddr => $ip, 
  PeerPort => $port,
  Proto=> "tcp",
  Type => SOCK_STREAM,
);
die "Keine Verbindung zum BAOS770 über $ip:$port möglich! $!\n" unless defined $socket;
  
#$socket->autoflush(1);

print $socket $bytearray;
  
#$socket->send( @tele );
#$socket->send( "\r\n" );
#print $socket @tele;
print $socket "\r\n"; 

#Ich sende zwar die Daten, aber erfolglos.
#Bis hierhin komme ich immer, dann kommt aber nie eine Antwort vom KNX Server :-( 
  
my $answer = <$socket>; 
print "Receiving: $answer\n"; 
close($socket); 

print $socket "\xF0\x06\x03\x01\x03\x31\0";

print $socket pack("C*", 0xF0, 0x06, 0x03, 0x01, 0x03, 0x31, 0x0);