0 
#!/usr/bin/perl
use Net::OSCAR qw(:standard);
$uin="7777777"; 
$password="1234567";
$sender = "43214312";
$text = "test";
$oscar = Net::OSCAR -> new();
$oscar -> signon($uin, $password);
$oscar -> send_im($sender, $text);
$oscar -> signoff();

为什么不给我发消息？

4

3 回答 3

7

你不做任何错误检查。这样做，问题就会很明显。

于 2011-04-11T11:07:17.930 回答
1

我是这个软件的原作者，哇——很惊讶它还在使用中。我已经好几年没碰过它了。

简而言之，该软件使用 Net::Oscar，这是我多年前作为维护者接手的一个库，但在与 AOL （通过 icqbot，而不是 oscar）提起诉讼之后......我失去了工作的愿望......我知道net::oscar 库在多年后仍然被下载和使用，但我没有亲自维护它，我不知道是否有人分叉了我的工作.. icqbot 软件本身运行在该库之上，因此只要它的方法有效..它会有效..但我多年来没有更新 icqbot ..

坦率地说，我很荣幸找到这个 =)

于 2012-04-21T19:45:36.533 回答
0

我很惊讶我，作为作者..一无所获，而其他人得到了 7 .. 很有趣 :) 但严重的是，该库非常过时，协议已经改变..我不再维护该软件..我没有兴趣在回到它...

附言。另一个人是对的，没有错误检查是一个坏主意..黑客就是这样发生的..这只是草率的代码......没有冒犯，祝你好运......现在还有其他方法可以完成你想要的......： ) 对我来说，这是实现 AI 聊天机器人的一种手段。

  • 朗尼沃
于 2015-01-17T23:25:04.000 回答