Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как в VB скачать картинку, на которую нет ссылки. / 19 сообщений из 19, страница 1 из 1
22.05.2004, 02:19
    #32529154
arseny
arseny
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в VB скачать картинку, на которую нет ссылки.
Есть картинка на сайте. Нажимаю правую мышку -> "свойства". А адрес к картинке это вовсе не адрес. Видимо, скрытый доступ какой-то к картинке.
Как мне её скачивать на VB?
(она меняется и мне надо знать, когда она сменилась)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2004, 14:04
    #32529275
Green2
Green2Привилегированный пользователь
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в VB скачать картинку, на которую нет ссылки.
Как это нет адреса?

Покажите, что там за строка в свойствах.

Может быть 2 варианта:

1) Или вы не увидели адреса

2) Адрес генерируется динамически в скрипте, надо смотреть код страницы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2004, 17:50
    #32529383
arseny
arseny
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в VB скачать картинку, на которую нет ссылки.
Если адрес генерируется динамически в скрипте, то как мне выуживать картинку?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2004, 18:05
    #32529388
Green2
Green2Привилегированный пользователь
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в VB скачать картинку, на которую нет ссылки.
Я увидел адрес, картинка просто берется из базы данных.

Возьмите его для закачки.

vip_image.asp?prorudtid=... есть искомый адрес.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2004, 18:14
    #32529396
arseny
arseny
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в VB скачать картинку, на которую нет ссылки.
Если я скачиваю по адресу
http://]www.parsi.co.il/vip_image.asp?productid=1867
то никакой картинки не получаю. Получаю только source какой-то странички.
Я не знаком со скриптом, если можно, поподробнее.
Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2004, 20:34
    #32529456
Green2
Green2Привилегированный пользователь
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в VB скачать картинку, на которую нет ссылки.
http://www.parsi.co.il/vip_image.asp?productid=1867

Сейчас провел эксперимент. Когда я просто щелкаю по этой ссылке, то выдаётся текст HTML. Когда я сначала ввожу адрес сайта, а потом эту ссылку, то показывается рисунок. Наверно, надо кукисы скрипту передавать... Там какая-то защита сделана.

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2004, 20:43
    #32529462
arseny
arseny
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в VB скачать картинку, на которую нет ссылки.
Вот и я тоже это выявил, что надо сначала загрузить сайт, а потом линк картинки. Тогда она появляется... В общем, хитро сделано.
Так я пока сделал так: в программке встроил WebBrowse и там эту картинку нормально гружу. Сделал, чтобы обновлялась каждые 2 сек. Как мне теперь с помощью ActiveX WebBrowse поймать, когда картинка в этом ActiveX поменяется?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2004, 20:44
    #32529463
arseny
arseny
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в VB скачать картинку, на которую нет ссылки.
Можно как-то снэпшот моей формы снимать и сравнивать эти снэпшоты?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2004, 21:16
    #32529477
Green2
Green2Привилегированный пользователь
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в VB скачать картинку, на которую нет ссылки.
Можно попробовать покопаться, как собственно происходит проверка...
При просто клике на эту ссылку там происходит ошибка... и переадресует на главную страницу.
Или пока текст скрипта не увидишь, не поймешь, в чем дело.

Я собственно в замешательстве... Непонятно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2004, 18:32
    #32529734
Шогал
Шогал
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в VB скачать картинку, на которую нет ссылки.
Это защита контента. Нужно посылать переменную Referer в HTTP-заголовке.
Что-то типа этого:
Код: plaintext
1.
2.
GET vip_image.asp?productid= 1867 
Host: www.parsi.co.il
Referer: http://www.parsi.co.il/
(в правильности не уверен, но примерно так)

SHOGAL
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.05.2004, 19:49
    #32531452
arseny
arseny
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в VB скачать картинку, на которую нет ссылки.
ШогалНужно посылать переменную Referer в HTTP-заголовке
О чём идёт речь? О скрипте или это можно сделать в VB?
Код: plaintext
1.
2.
3.
GET vip_image.asp?productid= 1867 
Host: www.parsi.co.il
Referer: http://www.parsi.co.il/
Как это использовать? Где можно об этом по подробнее узнать?
Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.05.2004, 20:00
    #32531460
Green2
Green2Привилегированный пользователь
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в VB скачать картинку, на которую нет ссылки.
автор Шогал Нужно посылать переменную Referer в HTTP-заголовке
Вы качаете Internet Transfer.
Там нужно использовать метод Execute, а в этом методе параметр заголовок.
То есть это делается на VB.

Я сам такого не делал, arseny внимательно посмотрите на помощь по Internet Transfer.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.05.2004, 22:52
    #32531529
arseny
arseny
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в VB скачать картинку, на которую нет ссылки.
автор Green2 Там нужно использовать метод Execute, а в этом методе параметр заголовок
Короче ребята, давайте помогайте, пожалуйста.
Не получается у меня выудить картинку.
Функция такая:
Код: plaintext
object.Execute url, operation, data, requestHeaders
url = http://www.parsi.co.il/vip_image.asp?productid=1966
operation = "HEAD"
data = ""
requestHeaders = "Referer: http://www.parsi.co.il/"
Потом я пытаюсь выудить что-нибудь:
Код: plaintext
Debug.Print Inet1.GetChunk( 5000000 , icByteArray)
Абсолютно ничего не выводится.
SOS SOS SOS
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.05.2004, 21:42
    #32533472
Green2
Green2Привилегированный пользователь
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в VB скачать картинку, на которую нет ссылки.
Сейчас попробовал, вообще никакой картинки не выводиться, даже через браузер.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.05.2004, 22:22
    #32533521
arseny
arseny
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в VB скачать картинку, на которую нет ссылки.
А там каждый день меняется ссылка на картинку... Сегодня, например:
http://www.parsi.co.il/vip_image.asp?productid=1756
Только сначала, загрузи http://www.parsi.co.il/VipSale.asp , а потом только картинку.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.05.2004, 22:23
    #32533523
arseny
arseny
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в VB скачать картинку, на которую нет ссылки.
Сылку на картинку скопируй в "адресную строку", чтобы открылась картинка.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.05.2004, 00:36
    #32533609
Green2
Green2Привилегированный пользователь
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в VB скачать картинку, на которую нет ссылки.
Запрос выглядит вот так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
 00000030                      47   45   54   20  2F  76   69   70  5F  69        GET./vip_i
 00000040   6D  61   67   65  2E  61   73   70  3F  70   72  6F  64   75   63   74  mage.asp?product
 00000050    69   64  3D  31   37   35   36   20   48   54   54   50  2F  31  2E  31  id= 1756 .HTTP/ 1 . 1 
 00000060   0D 0A  41   63   63   65   70   74  3A  20  2A 2F 2A 0D 0A  52  ..Accept:.*/*..R
 00000070    65   66   65   72   65   72  3A  20   68   74   74   70  3A 2F 2F  77  eferer:.http://w
 00000080    77   77  2E  70   61   72   73   69  2E  63  6F 2E  69  6C 2F  56  ww.parsi.co.il/V
 00000090    69   70   53   61  6C  65  2E  61   73   70  0D 0A  41   63   63   65  ipSale.asp..Acce
000000A0   70   74  2D 4C  61  6E  67   75   61   67   65  3A  20   72   75  0D pt-Language:.ru.
000000B0  0A  41   63   63   65   70   74  2D  45  6E  63  6F  64   69  6E  67  .Accept-Encoding
000000C0  3A  20   67  7A  69   70  2C  20   64   65   66  6C  61   74   65  0D :.gzip,.deflate.
000000D0  0A  55   73   65   72  2D  41   67   65  6E  74  3A  20  4D 6F 7A .User-Agent:.Moz
000000E0   69  6C 6C  61  2F  34  2E  30   20   28   63  6F 6D  70   61   74  illa/ 4 . 0 .(compat
000000F0   69   62  6C  65  3B  20  4D  53   49   45   20   36  2E  30  3B  20  ible;.MSIE. 6 . 0 ;.
 00000100    57   69  6E  64  6F  77   73   20  4E  54   20   35  2E  30   29  0D Windows.NT. 5 . 0 ).
 00000110   0A  48  6F  73   74  3A  20   77   77   77  2E  70   61   72   73   69  .Host:.www.parsi
 00000120   2E  63  6F 2E  69  6C 0D 0A  43  6F 6E 6E  65   63   74   69  .co.il..Connecti
 00000130   6F 6E 3A  20  4B  65   65   70  2D  41  6C  69   76   65  0D 0A on:.Keep-Alive..
 00000140    43  6F 6F 6B  69   65  3A  20  6C  69   64  3D  30  3B  20   73  Cookie:.lid= 0 ;.s
 00000150    69   64  3D  30  3B  20   41   53   50   53   45   53   53   49  4F 4E id= 0 ;.ASPSESSION
 00000160    49   44   41   41   42   44   54   44   41   42  3D 4B  50  4C  42   50  IDAABDTDAB=KPLBP
 00000170    41   47   41   49   46   46  4F 4A 4A  41  4D  41   44   42   43  4B AGAIFFOJJAMADBCK
 00000180   4B  42   41  0D 0A 0D 0A                            KBA....
Получается, что
Код: plaintext
Referer:.http://www.parsi.co.il/VipSale.asp
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.05.2004, 00:40
    #32533612
Green2
Green2Привилегированный пользователь
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в VB скачать картинку, на которую нет ссылки.
Полный запрос из сниффера такой:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
HTTP: GET Request (from client using port  2698 )
HTTP: Request Method = GET
HTTP: Uniform Resource Identifier = /vip_image.asp?productid= 1756 
HTTP: Protocol Version = HTTP/ 1 . 1 
HTTP: Undocumented Header = Accept: */*
HTTP: Undocumented Header = Referer: http://www.parsi.co.il/VipSale.asp
HTTP: Undocumented Header = Accept-Language: ru
HTTP: Undocumented Header = Accept-Encoding: gzip, deflate
HTTP: Undocumented Header = User-Agent: Mozilla/ 4 . 0  (compatible; MSIE  6 . 0 ; Windows NT  5 . 0 )
HTTP: Undocumented Header = Host: www.parsi.co.il
HTTP: Undocumented Header = Connection: Keep-Alive
HTTP: Undocumented Header = Cookie: lid= 0 ; sid= 0 ; ASPSESSIONIDAABDTDAB=KPLBPAGAIFFOJJAMADBCKKBA

arseny, тебе надо как-то повторить это в своей программе на VB.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.05.2004, 00:42
    #32533614
Green2
Green2Привилегированный пользователь
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в VB скачать картинку, на которую нет ссылки.
Ключевая строка здесь
HTTP: Undocumented Header = Referer: http://www.parsi.co.il/VipSale.asp

А кукисы, наверное, не надо.
HTTP: Undocumented Header = Cookie: lid=0; sid=0; ASPSESSIONIDAABDTDAB=KPLBPAGAIFFOJJAMADBCKKBA
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как в VB скачать картинку, на которую нет ссылки. / 19 сообщений из 19, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]