Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Perl: Общие вопросы > Perl снимать скриншоты с экрана монитора????


Автор: BlindBandiit 2.9.2010, 13:29
Perl снимать скриншоты с экрана монитора????

Возможно ли такое чудо ??

Винда XP

Автор: dva300 2.9.2010, 13:37
google-ем воспользоваться религия не позволяет ? 

Автор: BlindBandiit 2.9.2010, 14:17
Цитата(dva300 @ 2.9.2010,  13:37)
google-ем воспользоваться религия не позволяет ?

Искал не нашел,  если вы поумничали то пожалуйста, но умней вы в моих глазах выглядеть не стали и вообще то после таких умных фраз вставляйте ссылочку на то что выдал вам google
Отличитесь то что вы нашли иначе вообще не отвечайте в темах........

Автор: dva300 2.9.2010, 14:23
 smile 

ну тогда вам еще как минимум надо поиском найчиться пользоваться 
чем не вариант ? 
http://search.cpan.org/~tonyc/Imager-Screenshot-0.009/Screenshot.pm

Автор: BlindBandiit 2.9.2010, 14:32
Цитата(dva300 @ 2.9.2010,  14:23)
smile 

ну тогда вам еще как минимум надо поиском найчиться пользоваться 
чем не вариант ? 
http://search.cpan.org/~tonyc/Imager-Screenshot-0.009/Screenshot.pm

Вот спасибо значит  не умею действительно пользоватся поиском 

Былоб здорово еслиб вы мне ещё помогли найти эмулировать нажатие мышки  на определёной области  тоже не получается найти :(

Автор: BlindBandiit 2.9.2010, 14:57
user posted image
Вот такая  вот трабла при установки модуля :(
будь он не ладен этот CPAN  из трех модулей которые я устанавливать пытался не один не устанавливился :(

Автор: dva300 2.9.2010, 15:04
Цитата

Былоб здорово еслиб вы мне ещё помогли найти эмулировать нажатие мышки  на определёной области  тоже не получается найти :(


хм... интересно зачем это вам ? 
вот есть http://search.cpan.org/~karasik/Win32-GuiTest-1.57/lib/Win32/GuiTest.pm в котором предпологается управление мышью 
никогда не пользовался и если честно не вижу смысла smile 

Автор: BlindBandiit 2.9.2010, 15:14
интересно попробовать обработку скриншотов с экрана по пикселям и  по полученному результату клацать мышкой в определённой области вобщем фигурки  очень простые 

Автор: dva300 2.9.2010, 15:27
если для собственного развития то лучше начните с разгадывания капчи.
куда вы собрались клацать мышкой я так и не понял smile типа если пользователь на ХХХ пашел и вы Ж.. разглядели то машка быстро бежить окна закрывать ? smile 

Автор: BlindBandiit 2.9.2010, 15:29
Цитата(dva300 @ 2.9.2010,  15:27)
если для собственного развития то лучше начните с разгадывания капчи.
куда вы собрались клацать мышкой я так и не понял smile типа если пользователь на ХХХ пашел и вы Ж.. разглядели то машка быстро бежить окна закрывать ? smile

что то типо того только клацать по кнопеке  если на картинке появился кружек то  машка клацает да,  если квадратик то машка клацает нет,  что то типо того smile 

Капча это пока сложновато

Автор: dva300 2.9.2010, 15:40
я бы все же с такой задачей на Perl не заморачивался. смысла нет - программма может не получить продолжения.
думаю что имеет смысл вам глянуть в сторону С++
напишите костаяк а именно запуск, останов, параметры, трей, сьем скрина, управление мышью и т.д.
далее будите добавлять функционал разгадывания чего-либо. легко можно добавить разгадывание  не только фигурок но слов и плюс их произношение.

но хозяин барин.

Автор: BlindBandiit 2.9.2010, 15:48
Цитата(dva300 @ 2.9.2010,  15:40)
я бы все же с такой задачей на Perl не заморачивался. смысла нет - программма может не получить продолжения.

почему же ?? 
будет медленной??
 или вообще может не получится ??

Автор: dva300 2.9.2010, 15:54
если просто для пробы пера - то попробуйте.
если нечто большее, то имею глубокое убеждение что Perl, хоть и имеет в своем арсенале средства для решения подобного рода задач, но все же не для этого.

Автор: BlindBandiit 2.9.2010, 16:18
Цитата(dva300 @ 2.9.2010,  15:54)
если просто для пробы пера - то попробуйте.
если нечто большее, то имею глубокое убеждение что Perl, хоть и имеет в своем арсенале средства для решения подобного рода задач, но все же не для этого.

Говорили мне такое :( Но уж  больно хочется по пробовать  а вдруг будет прекрасно работать) 
очень  уж не хочется качать Delphi 
да и вообще интерено как  с этим  справится Perl оно же  пока сам не  попробуешь не  поймешь
как  говарится лучше один раз увидеть чем сто раз услышать smile

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)