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