为什么ICQ机器人不发送消息？
#!/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();
为什么不给我发信息？
你不做任何错误检查。 这样做和问题会很明显。
我是该软件的原创作者，哇 - 惊讶它仍在使用中..我多年没有碰过它..
简而言之，该软件使用Net :: Oscar，这是我作为多年前的维护者接管的一个库，但是在与AOL（通过icqbot，而不是oscar）进行诉讼之后..我失去了我的工作愿望..我知道net :: oscar库在多年之后仍然被下载和使用，但是我没有亲自维护它，并且我不知道是否有人已经分配了我的工作.. icqbot软件本身运行在该库上，所以只要它的方法工作..它会工作..但我没有更新icbbot YEARS ..
坦率地说，我很荣幸能找到这个=）
我很惊讶我，因为作者..什么也没有，而其他人得到了7 ..有趣:)但严重的是，图书馆是非常过时的协议已经改变..我不再维护软件..我没有兴趣在回到它...
PS。 另一个人是正确的，没有错误检查是一个坏主意..这就是如何黑客发生..这只是草率的代码...没有进攻，祝你好运...还有其他方式来实现你现在想要的日子..： ）对我来说，这是一种结束AI聊天机器人的手段。