#!/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聊天機器人的手段。