Perl 为什么ICQ机器人不发送消息？

为什么不给我发个信？

你什么都不做。这样做，问题就显而易见了。

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

简言之，该软件使用Net:：Oscar，这是我多年前作为维护者接管的一个库，但在与AOL就icqbot而不是Oscar提起诉讼后。。我对这两项工作都失去了兴趣。。我知道net:：oscar库在下载并使用了很多年，但我个人并没有维护它，我也不知道是否有人放弃了我的工作。。icqbot软件本身运行在该库之上，所以只要它的方法有效。。它会起作用的。。但是我已经好几年没有更新过icqbot了

---

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

作为作者，我很惊讶我。。一无所有，另一人得到7。。有趣的是：但说真的，图书馆已经过时了，协议也改变了。。我不再维护软件了。。我没有兴趣再回来了

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

朗尼沃

#!/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();