Witam
Napisałem z kolegą taki oto kod w Perlu, jego celem jest znajdowanie urządzeń w pobliżu i wysyłanie do nich pliku :]
use strict;
use warnings;
use Net::Bluetooth;
use Net::OBEX;
use lib qw{lib ../lib};
my ($OPT,$DEV,$OBEX,$ADR,$name);
print("BlueJacker \n"); # By XXXX i YYYY
print("Wybierz 1 by wysłac jakas wiadomosc wybierz 2 aby wypierdalac\n");
$OPT = <STDIN>;
if($OPT==1) { #Szukaj ciongle
print("Ok.Wpisz nazwę pliku do wysłania\n");
$name=<stdin>;
while(1){
my $DEV = get_remote_devices();
foreach $ADR (keys %$DEV){
my $OBEX = Net::OBEX->new;
$OBEX->connect(address=>$ADR,port=>9) or die "Something goes wrong: ".$OBEX->error;
$OBEX->success or die "SOMETHING GOES WRONG: ".$OBEX->error;
$OBEX->set_path or die "SOMETHING GOES WRONG: ".$OBEX->error;
$OBEX->success or die "SOMETHING GOES WRONG: ".$OBEX->status;
$OBEX->put($name) or die "SOMETHING GOES WRONG: ".$OBEX->error;
$OBEX->close("Wysłano wiadomość do $DEV->{$ADR}");
}
}
} else {exit; }
Problem jest taki: kod działa (nie ma błędów) ale jak miałem włączony telefon w pobliżu z włączonym BlueTooth, to nie było żadnej wiadomości, za to Windows (7 - przypis autora) wykrył nowe urządzenie o nazwie TVBluetooth (podejrzewam że to był ten komputer) i próbował się z nim połączyć.
Adapter bluetooth mam wbudowany w laptopa
dodanie znacznika <code class="perl"> - furious programming