#!/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は実行していません。それをして、問題は明らかになります。
私はすごい、このソフトウェアの原作者だが - それはまだ使用中です驚い..私は年間でそれに触れていませんでした。..
要するに、ソフトウェアは、ネット::オスカーを使用していますライブラリ私は何年も前のメンテナーとして引き継ぎましたが、AOLの訴訟（オスカーではなく、icqbot以上）の後に...私はどちらかで働くという私の欲求を失った.. net :: oscarライブラリがまだダウンロードされていて私は個人的にそれを維持していないし、誰かが私の仕事を諦めてしまったのかどうかわからない。icqbotソフトウェア自体は、そのライブラリの上で動作するので、メソッドが動作すればそれは動作する。私は年内にicqbotを更新していません。
率直に私は光栄です私がいない..私は、私は、著者として...何も得なかったし、他の誰かが面白い.. 7を得たこと:)驚いて真剣ライブラリは非常に古くなっていると、プロトコルが変更されたこの=）
を発見しましたソフトウェアをもっと長く維持する。私はそれに戻ることに興味がない...
Ps。他の人は正しいですが、エラーチェックは悪い考えではありません。それはハックが起こる方法です。それはちょうどコードです...犯罪ではありません、幸運...あなたが今欲しいものを達成するための他の方法があります： ）私のためには、AIチャットボットのための手段だった。