skypeAPIでメッセージを送る

同じように相手にメッセージを送ってみる #!/usr/bin/perl use strict; use warnings; use Net::DBus; my $target = “<相手のID>”; my $mesbody = “chat message from SkypeAPITest.pl”; my $bus = Net::DBus->session; my $hal = $bus->get_service(“com.Skype.API”); my $manager = $hal->get_object("/com/Skype"); my $res = $manager->Invoke(“NAME MYTEST”); print “$res\n”; if($res ne “OK”) { print “ERROR: $res\n”; exit(1); } $res = $manager->Invoke(“PROTOCOL 5”); print “$res\n”; $res = $manager->Invoke(“CHAT CREATE $target”); print “$res\n”; my $sute; my $chatid; ($sute, $chatid, $sute, $sute) = split(/\s+/, $res); my $com = “CHATMESSAGE " . $chatid . " " . $mesbody; $res = $manager->Invoke($com); print “$res\n”; で実行すると相手にメッセージが届く。おーっ!

comments powered by Disqus