
平台论坛博客文库

› 论坛 › 程序设计 › Perl › Net::OICQ 1.3 版

Net::OICQ 1.3 版 [复制链接]

菜田守望者

白手起家

论坛徽章:: 0

1楼 [报告]

发表于 2007-02-08 23:09 |显示全部楼层

哈哈，可以做坏事了。
sub check
{
my ($uid,$pw) = @_;
my $oicq = new Net::OICQ;
$oicq->{Debug} = 9;
my $login;
eval { $login = $oicq->login($uid, $pw, 'Invisible') };
$oicq->logout if not $@ and $login;
print "\n$@\n";
return 0 if $@ =~ /您的密码不正确/;
return 1;
};

菜田守望者

白手起家

论坛徽章:: 0

2楼 [报告]

发表于 2007-02-09 20:26 |显示全部楼层

需要安装吗？？

直接在当前目录下保存
./Net/OICQ.pm
./Net/OICQ/ClientEvent.pm
./Net/OICQ/Event.pm
./Net/OICQ/ServerEvent.pm
./Net/OICQ/TextConsole.pm
./Crypt/OICQ.pm

qq.pl
#!/usr/bin/perl

use Net::OICQ;
......

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

返回列表

Chinaunix › 论坛 › 程序设计 › Perl › Net::OICQ 1.3 版