Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
22.10.2007, 08:05
|
|
Участник форума
Регистрация: 09.08.2007
Сообщений: 265
Провел на форуме:
5329924
Репутация:
674
|
|
трекер icq
Появилась необходимость отслеживать входы в сеть одного контакта...
постояяно, каждый вход и выход из сети по времени круглосуточно...
В сети есть несколько вариантов, но требуеться постоянный контроль..
Возможно ли написание бота на php?
|
|
|
22.10.2007, 09:54
|
|
Познавший АНТИЧАТ
Регистрация: 13.04.2006
Сообщений: 1,738
Провел на форуме:
5151669
Репутация:
1198
|
|
а почему бы и нет? есть такая функция\фича, как хотите, картинка асику, которая показывает в сети аську или нет, так вот пишем прогу пхп, которая открывает картинку жертвы и после тупо сравнивает с онлайновской, если равны, дальше ясно) елементарно.
|
|
|
|
22.10.2007, 10:13
|
|
Участник форума
Регистрация: 09.08.2007
Сообщений: 265
Провел на форуме:
5329924
Репутация:
674
|
|
Если это реально тогда попрошу кого нибудь написать..желательно безвоздмездно...
|
|
|
|
22.10.2007, 10:58
|
|
OpenVPN.CC
Регистрация: 15.07.2005
Сообщений: 1,599
Провел на форуме:
7670961
Репутация:
1034
|
|
PHP код:
#!/usr/bin/perl
################
# Code by PAA #
################
use LWP::UserAgent;
use Mail::Sender;
$icq='641093';
$downmins=40;
$cur=check($icq);
my ($was,$icqtime,$smsstatus)=get($icq);
if(($was == 0) && ($cur == 1))
{
#SMS ONLINE
if($smsstatus == 0)
{
sms_event('+71111111111@sms.beline.ru',"$icq online");
$smsstatus=1;
}
set($icq,1,time,$smsstatus);
}
elsif($cur == 0)
{
$icqtime = time if($was == 1);
if((time - $icqtime > $downmins*60) && ($smsstatus == 1))
{
#SMS OFFLINE $downmins MINS
sms_event('+71111111111@sms.beline.ru',"$icq offline $downmins mins");
$smsstatus=0;
}
set($icq,0,$icqtime,$smsstatus);
}
sub check
{
my $icq = shift;
my $link="http://status.icq.com/online.gif?icq=$icq&img=5";
my $res = LWP::UserAgent->new->request(new HTTP::Request GET => $link);
#print $res->request->url."\n";
if($res->request->url =~ /http:\/\/status.icq.com\/5\/online(\d).gif/)
{
return $1;
}
}
sub get
{
my $icq = shift;
my $file="/tmp/status$icq";
my $icqstatus;
my $icqtime;
my $smsstatus;
if(-e $file && -s $file)
{
open(F,$file);
chomp($icqstatus=<F>);
chomp($icqtime=<F>);
chomp($smsstatus=<F>);
close F;
$icqstatus='0' if ($icqstatus ne '1');
$smsstatus='0' if ($smsstatus ne '1');
return ($icqstatus,$icqtime,$smsstatus);
}
else
{
return (0,time,0);
}
}
sub set
{
my $icq = shift;
my $icqstatus=shift;
my $icqtime=shift;
my $smsstatus=shift;
$icqstatus='0' if ($icqstatus ne '1');
$smsstatus='0' if ($smsstatus ne '1');
my $file="/tmp/status$icq";
open F,"> $file";
print F "$icqstatus\n$icqtime\n$smsstatus\n";
close F;
}
sub sms_event
{
my $to=shift;
my $message=shift;
$message=~s/\n$//g;
my $from = 'icq@mail.sru';
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$mon++; $year+=1900;
my $time=sprintf("%02d:%02d %02d.%02d.%04d",$hour,$min,$mday,$mon,$year);
$Mail::Sender::NO_X_MAILER = 1;
my $sender = new Mail::Sender {smtp => 'smtp.mail.sru', from => 'icq@mail.sru'};
#$sender->MailMsg({to => $to, msg => "$message\n$time", charset => 'Windows-1251'});
$sender->MailMsg({to => $to, msg => "$message\n$time", charset => 'Windows-1251'});
}
Вот тебе на подобе скриптеГ |
|
|
|
22.10.2007, 11:11
|
|
Участник форума
Регистрация: 09.08.2007
Сообщений: 265
Провел на форуме:
5329924
Репутация:
674
|
|
А можно как для идиота с обьяснением куда и чего мне писать?)
|
|
|
|
22.10.2007, 11:54
|
|
OpenVPN.CC
Регистрация: 15.07.2005
Сообщений: 1,599
Провел на форуме:
7670961
Репутация:
1034
|
|
Сообщение от warlog
А можно как для идиота с обьяснением куда и чего мне писать?)
ппц я с вас фигею люди дай код а потом ещё раскажи как юзать =(
|
|
|
|
22.10.2007, 11:59
|
|
Постоянный
Регистрация: 24.08.2007
Сообщений: 474
Провел на форуме:
1484154
Репутация:
126
|
|
еще вопрос а смс на на сот то будут приходить ?
и как быть если у меня мегафон? и у меня комп не постоянно в сети находится есть что нибудь подобное на php что бы куда либо логировался заход пользователя в какой нибудь текстовый документ если нет возможности отправки на номер мегафона. Буду очень благодарен.
Последний раз редактировалось heks; 22.10.2007 в 12:02..
|
|
|
|
22.10.2007, 12:13
|
|
Участник форума
Регистрация: 09.08.2007
Сообщений: 265
Провел на форуме:
5329924
Репутация:
674
|
|
Сообщение от Nova
ппц я с вас фигею люди дай код а потом ещё раскажи как юзать =(
Ну не всем же быть такими умными))
А ведение лога в текстовом варианте было бы даже предпочтительней...
|
|
|
|
22.10.2007, 12:20
|
|
Постоянный
Регистрация: 24.08.2007
Сообщений: 474
Провел на форуме:
1484154
Репутация:
126
|
|
я думаю что не только мне этот скрипт нужен будет но так же и думаю что его надо будет ставить на крон или я неправ
|
|
|
|
22.10.2007, 14:07
|
|
OpenVPN.CC
Регистрация: 15.07.2005
Сообщений: 1,599
Провел на форуме:
7670961
Репутация:
1034
|
|
прав
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
