Live MessengerをPerlで使うAPIとかないのかな(2)

ぞくへん。
Messenger.UIAutomation.1で読み出せばWin32::OLEでも呼び出せた！

use strict;
use Win32::OLE;

my $messenger  = Win32::OLE->new('Messenger.UIAutomation.1') or die "oops\n";

# 標準設定画面の表示
#$messenger->OptionsPages(0, 0);
# サインアウト
#$messenger->Signout;
# プロフィール表示
#$messenger->ViewProfile('aite@hotmail.com');
# Hotmailのウィンドウ表示
#$messenger->OpenInbox;
# メッセのウィンドウを開く
#$messenger->InstantMessage('aite@hotmail.com');
#  2:オンライン
#  8: オフライン
# 10: 取り込み中
# 14:一次体積中
#$messenger->{MyStatus} = $_;
# メールの送信が面を開く(ぶらうざ)
#$messenger->SendMail('aite@hotomail.com');
# 受信ファイルの保存先
#print $messenger->ReceiveFileDirectory;
# サインインメアド
#print $messenger->MySigninName;

とりあえず使えたのを載せてみた。
ステータスの変更はできるんだけど、アイコンや名前の変更が出来ない…なじぇだ！