in reply to Quicky Aimbot question

It looks to me like you could connect, and then instead of using $aim->start(), just take control of the infinite loop yourself like this: 

while (1) {
    $aim->do_one_loop();
    # Act on the results...
    # If you feel the need, now you can........
    $aim->send_im($name, $message);
}

[download]

I don't use AIM, and haven't used this module, but it looks like $aim->start() is just an infinite loop of $aim->do_one_loop()


Dave

Replies are listed 'Best First'.
Re^2: Quicky Aimbot question
by nightwatch (Scribe) on Jul 16, 2004 at 05:33 UTC

    Yep, it is. Net::AIM's start is somewhat strangely implemented as:

    sub start {
    my $self = shift;

    while (1) {
    last unless $self->do_one_loop();
    }
}

    [download]

    If you want to be particularly brave, you should be able to do it with threads too:

    use threads;

...

my $thread = threads->new(sub { $aim->start });
$aim->send_im($victim, $msg);

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom