Форум АНТИЧАТ - [Perl] Новичкам: задаем вопросы

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz

		Форум АНТИЧАТ > Программирование > PHP, PERL, MySQL, JavaScript
[Perl] Новичкам: задаем вопросы

Страница 120 из 156

120

Опции темы

Поиск в этой теме

Опции просмотра

#1191

30.09.2009, 01:18

mr.4k

Познающий

Регистрация: 22.12.2008

Сообщений: 42

Провел на форуме:
71784

Репутация: 0

Вот рабочий кусок скрипта (спасибо ачатовцам), который логинится на pornhub.com и заходит на страничку юзера (www.pornhub.com/user/1041276).

PHP код:


		
			
#!/usr/bin/perl





use LWP::UserAgent;

use URI::Escape;





sub login {



$user = $_[0];

$pass =$_[1];



$ua = LWP::UserAgent->new ('agent' => 'Mozilla/4.0 (compatible; Windows 5.1)');



$ua->cookie_jar ({});



#log in



my $r = $ua->post ('http://www.pornhub.com/login', 'Referer' => 'http://www.pornhub.com/login',

  Content => [

    'username' => $user,

    'password' => $pass,

    'remember_me' => 1

  ]);

  

    if ($r->status_line eq '302 Found') 

        {

            print $user." logged in\n";

        } else {

            print $user." login failed\n";

        }

}





sub pizd{

$r = $ua->get($_[0]);



    

    if ($r->content =~ /Wall/) {                        

        print "wall content is ok \n";                                    #landed ok



        

    } else {

        print "no wall found \n";                                            

    }

}







login("Atisa","sooper");

pizd ("http://www.pornhub.com/user/1041276");

на странице юзера есть такой ЯВАСКРИП.
Нужно запустить обработчик onclick="comment_controller*******
для того, чтоб перейти на след страничку внутри профайла.

PHP код:


		
			


<span><strong>&nbsp;1 </strong>&nbsp;<a class="cursor_hand" onclick="comment_controller_782873.getPage(2);"> 2 </a>&nbsp;&nbsp;



<a class="cursor_hand" onclick="comment_controller_782873.getPage(3);"> 3 </a>&nbsp;&nbsp;



<a class="cursor_hand" onclick="comment_controller_782873.getPage(4);"> 4 </a>&nbsp;&nbsp;



<a class="cursor_hand" onclick="comment_controller_782873.getPage(5);">...</a>&nbsp;</span>

реально ди это?

#1192

30.09.2009, 10:17

demond

Участник форума

Регистрация: 05.11.2008

Сообщений: 105

Провел на форуме:
292722

Репутация: 71

Попробуй WWW::Mechanize::Plugin::JavaScript , Может это тебе поможет. Либо раскручивать этот javascript в ручную (как я делал в свое время) и реализовывать такую функцию на perl.

#1193

30.09.2009, 10:24

zer0ska

Участник форума

Регистрация: 05.12.2007

Сообщений: 113

Провел на форуме:
252598

Репутация: 34

отснифай и имитируй тожесамое

#1194

01.10.2009, 00:18

mr.4k

Познающий

Регистрация: 22.12.2008

Сообщений: 42

Провел на форуме:
71784

Репутация: 0

спасибо.
а

Цитата:

раскручивать этот javascript в ручную

это как?

#1195

01.10.2009, 09:09

krypt3r

Познавший АНТИЧАТ

Регистрация: 27.04.2007

Сообщений: 1,044

Провел на форуме:
3660186

Репутация: 905

Посмотреть, что делает comment_controller_782873.getPage()

#1196

03.10.2009, 23:28

KaMiKadZe

Участник форума

Регистрация: 24.02.2006

Сообщений: 206

Провел на форуме:
2735257

Репутация: 103

Как использовать прокси в сокетах?

#1197

03.10.2009, 23:34

ZirroCool

Участник форума

Регистрация: 16.09.2006

Сообщений: 139

Провел на форуме:
513709

Репутация: 144

Отправить сообщение для ZirroCool с помощью ICQ

Почитай здесь:
http://forum.ixbt.com/topic.cgi?id=24:10694

пора учиться пользоваться гуглом!

Последний раз редактировалось ZirroCool; 03.10.2009 в 23:53..

#1198

04.10.2009, 10:58

KaMiKadZe

Участник форума

Регистрация: 24.02.2006

Сообщений: 206

Провел на форуме:
2735257

Репутация: 103

Цитата:

Сообщение от ZirroCool

Почитай здесь:
http://forum.ixbt.com/topic.cgi?id=24:10694

пора учиться пользоваться гуглом!

Умею я им пользоваться посмотрел 10 страниц по словам
perl socket proxy и ничего дельного не нашел, придется наверное на LWP переписывать

#1199

04.10.2009, 17:13

demond

Участник форума

Регистрация: 05.11.2008

Сообщений: 105

Провел на форуме:
292722

Репутация: 71

Цитата:

Сообщение от KaMiKadZe

А задача какая? По этой ссылке все хорошо описано! посмотри еще на cpan описание модуля, если этого мало!

#1200

10.10.2009, 19:23

[EYFORIYA]

Новичок

Регистрация: 27.04.2009

Сообщений: 15

Провел на форуме:
196032

Репутация: 24

Kак сделать, что бы при запуске скрипта, он на определенном сайте искал копировал мой указанный текст в фаил...типа грабера

Страница 120 из 156

120

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[php] Новичкам: задаем вопросы	_Great_	PHP, PERL, MySQL, JavaScript	16396	17.06.2010 21:19
[c/c++] Новичкам: задаем вопросы	_Great_	С/С++, C#, Delphi, .NET, Asm	5420	17.06.2010 13:33
Вопросы по Ipb 2.0	Voodoo_People	Форумы	26	15.02.2005 22:57

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход