3分钟学会使用程式发送msn讯息, Perl篇(四)
http://rd-program.blogspot.com/2008/11/3msn-perl_14.html
以下内容也可参考 http://rd-program.blogspot.com/2008/11/3msn-perl_14.html
msnSDK讯息控制开发套件 同时支援MSN/Yahoo即时通 讯息双向传递
perl 的範例我们使用soap 介面来处理,其他语言也可以这样做,可参考文件(文末提供下载处)
wsdl位置:http://59.120.234.84:8082/msnSDK/genwsdl-win32
ps.也请参考 msnSDK的使用流程
#!/usr/bin/perl
use SOAP::Lite;
#取得使用api 的权限
sub setspid
{
my $session_ret=SOAP::Lite->uri('http://59.120.234.84:8082/MSN')
->proxy('http://59.120.234.84:8082/msnSDK/msn_soap-win32')
->GETSPID('apiblogt4','msnsdkt')->result;
my ($code,$session)=split("\t",$session_ret);
$session=~tr/\r\n //d;
return $session;
}
#注册联络人
sub register
{
my $sret= setspid();
my $session_ret=SOAP::Lite->uri('http://59.120.234.84:8082/MSN')
->proxy('http://59.120.234.84:8082/msnSDK/msn_soap-win32')
->REGISTER('要加入联络人的msn/yahoo帐号',$sret)->result;
print $session_ret;
}
#传送讯息
sub sendmsg
{
my $sret= setspid();
my $msg_ret = SOAP::Lite->uri('http://59.120.234.84:8082/MSN')->
proxy('http://59.120.234.84:8082/msnSDK/msn_soap-win32')->
SENDMSG( '要传送讯息联络人的msn/yahoo帐号', '欲传送的讯息', 'utf-8','1',$sret)->result;
print $msg_ret;
}
其他更详细的参数可以参考msnSDK讯息控制开发套件程式介面说明书