[Perl] Vk bot v 0.2

В эту версию добавлена кроссплатформенность и возможность работы с большими файлами с логинами 100+мб

Старая версия тут

Умеем по прежнему — лайкать, удалять лайк, писать коменты на стену\фото, вступать\покидать в группу, устанавливать статус, добавлять\удалять друзей из списка, опросы не доделаны.

заменяем в коде из поста с v 0.1
system("> ~/.vmd.cookie");
system("sed -i '1d'~/Документы/sim/login");

на


sub ClearCoook
{open(COOK, ">/home/irenica/.vmd.cookie") || die $!;
close COOK;
}
sub Delete1string
{my $counter=0;
my $buf=~ /^*$/;
open(LOGIN, "/home/irenica/Documents/sim/login") || die $!;
open LOGIN," while ()
{$buf.=$_ if $counter++;
}
close LOGIN;
open LOGIN, ">/home/irenica/Documents/sim/login" or die;
print LOGIN $buf;
close LOGIN;
}

Не забудьте заменить на свои пути и вызвать эти фунукции.

Пользователи windows заменяют первую строку на путь к своему интерпритатору.

Leave your comment