|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Сохранение изображения(captcha) |
|
|
[решено] Сохранение изображения(captcha)
|
Новый участник Сообщения: 24 |
Профиль | Отправить PM | Цитировать Всем привет! Подскажите можно ли как-нить сохранить, или напрямую отобразить картинку со страници, только это не обычная картинка а код(на сайте, защита от ботов, captcha). Путь картинки ничего собой не представляет и просто так не открыть, оно только грузится в браузере когда заходиш на страницу, так вот я и думаю, можна ли как-то сохранить эту картинку????
|
|
Отправлено: 16:36, 01-05-2009 |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать Цитата aesir:
|
|
------- Отправлено: 17:08, 01-05-2009 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 24
|
Профиль | Отправить PM | Цитировать Цитата Creat0R:
|
|
Отправлено: 17:30, 01-05-2009 | #3 |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать aesir,
Но вы понимаете что без дополнительной информации, вам помочь никто не сможет? Адрес страницы с картинкой, и код который у вас не работает желательно увидеть. |
------- Отправлено: 18:53, 01-05-2009 | #4 |
Новый участник Сообщения: 24
|
Профиль | Отправить PM | Цитировать аа да не вопрос, сайт может быть любым на движке DLE, в моем случае: http://www.binural.ru/addnews.html
А вот и код: #include <IE.au3> $sImgDir = "d:\123\" $sWebPage = "http://binural.ru/" $oIE = _IECreate() _IENavigate($oIE, $sWebPage) _IELoadWait($oIE) _IENavigate($oIE, "http://www.binural.ru/addnews.html") _IELoadWait($oIE) $oIMGs = _IETagNameGetCollection($oIE, "img") For $oIMG in $oIMGs $sImgUrl = $oIMG.src $sImgFileName = $oIMG.nameProp INetGet($sImgUrl, $sImgDir & $sImgFileName) Next |
|
Отправлено: 19:08, 01-05-2009 | #5 |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать Цитата aesir:
Я тоже как и IE, эту картинку не вижу |
|
------- Отправлено: 19:23, 01-05-2009 | #6 |
Новый участник Сообщения: 24
|
Профиль | Отправить PM | Цитировать Цитата Creat0R:
|
|
Отправлено: 19:26, 01-05-2009 | #7 |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать Цитата aesir:
|
|
------- Отправлено: 19:51, 01-05-2009 | #8 |
Новый участник Сообщения: 24
|
Профиль | Отправить PM | Цитировать Цитата Creat0R:
;log - autoittest ;pwd - oszone Func LoginToSite($userName, $userPassword) _IENavigate($browser, "http://binural.ru/") _IELoadWait($browser) $name = _IEGetObjByName($browser, "login_name") $pwd = _IEGetObjByName($browser, "login_password") If ($_IEStatus_Success) Then _IEFormElementSetValue($name, $userName) _IEFormElementSetValue($pwd, $userPassword) $form = _IEFormGetCollection($browser, 0) _IEFormSubmit($form) _IELoadWait($browser) EndIf _IENavigate($browser, "http://www.binural.ru/addnews.html") _IELoadWait($browser) EndFunc |
|
Отправлено: 01:03, 02-05-2009 | #9 |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать Цитата aesir:
Вот примерно так можно: #include <IE.au3> #include <ScreenCapture.au3> $sImgDir = "D:\123\" $sWebPage = "http://binural.ru/" $oIE = _IECreate("http://www.binural.ru/addnews.html") LoginToSite($oIE, "autoittest", "oszone") $hIE_Body = ControlGetHandle("[CLASS:IEFrame]", "", "Internet Explorer_Server1") WinActivate($hIE_Body) _ScreenCapture_CaptureWnd($sImgDir & "\Captcha.jpg", $hIE_Body, 320, 250, 460, 320, 0) _IEQuit($oIE) Func LoginToSite($browser, $userName, $userPassword) _IENavigate($browser, "http://binural.ru/") _IELoadWait($browser) $name = _IEGetObjByName($browser, "login_name") $pwd = _IEGetObjByName($browser, "login_password") If ($_IEStatus_Success) Then _IEFormElementSetValue($name, $userName) _IEFormElementSetValue($pwd, $userPassword) $form = _IEFormGetCollection($browser, 0) _IEFormSubmit($form) _IELoadWait($browser) EndIf _IENavigate($browser, "http://www.binural.ru/addnews.html") _IELoadWait($browser) EndFunc |
|
------- Отправлено: 01:40, 02-05-2009 | #10 |
|
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Captcha-картинка: доколе будет "совершенствоваться"? | Coutty | Флейм | 34 | 19-05-2023 21:09 | |
Медиа - [решено] Оттенк изображения зеленый. | alekk6 | Microsoft Windows Vista | 2 | 08-10-2009 04:18 | |
Медиа - [решено] нету изображения в фильмах | tyoma | Microsoft Windows 2000/XP | 3 | 17-09-2009 09:33 | |
[решено] Новый ПК и нет изображения | Murman | Непонятные проблемы с Железом | 15 | 25-07-2008 14:43 | |
[решено] Изменение изображения пользователя | tehnik_srs | Автоматическая установка Windows 2000/XP/2003 | 1 | 21-04-2008 12:23 |
|