Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
как послать значение в html страницу
 

Зашел в Ctrl + Shift + I, Network, обновил страницу
Перебрал около 100 файлов из колонки Name
Во вкладке Cookies не нашел ни gal_compress, ни  gal_show_thumb
Во вкладке Response нашел gal_show_thumb только в двух местах:

Код
options.js :   if(ro2('gal_show_thumb') == 1)
thumbs.htm : <body onload="javascript: rc('gal_show_thumb');ju();">

 

К сожалению, не нашел gal_compress, где оно скрывается?

Изменено: Петр80 - 17.05.2017 08:20:58
как послать значение в html страницу
 
А как всё-таки была найдена эта строка куков?
В гугле результатов не выдаёт, значит это не стандартные и повсеместные строки
В исходном коде страницы нет gal_compress  и gal_show_thumb
В куках хрома тоже нет таких



 
Картинки со страницы по ссылке, макросом
 
вроде получилось через html.DocumentElement.innerHTML
спасибо
Изменено: Петр80 - 16.04.2015 22:11:29
Картинки со страницы по ссылке, макросом
 
Здравствуйте!

Подскажите, как получить код страницы? http://www.gamespot.com/doom-1993/images/
конкретно нужны картинки
в хроме по кнопке "Просмотр кода страницы" ссылок на картинки нет
вот, что выдает хром:
Код
 <div class="gallery-header__objects isotope-image related-object">
                   <h3>
                      Doom (1993)'s galleries
                  </h3>
<ul class="gallery-tags">
      <li class="gallery-tags__item "><a href="?tag=All%20Images" ><i class="icon icon-tag"></i>All Images</a></li>
      <li class="gallery-tags__item on"><a href="?tag=Screenshots" class="on" id="galleryMarker" data-mode="gallery" data-object-id="5000-815" data-gallery-id="1310-546"><i class="icon icon-tag"></i>Screenshots</a></li>
  </ul>
      </div>
    </header>
  <ul id="js-gallery-container" class="isotope-container gallery gallery--no-meta">
    <div class="loading"></div>
  </ul>
                                          </div>
      <aside class="secondary-content span0 ">
              </aside>
                </div>
т.е. ссылок на картинки нет в этом коде
они формируются уже при просмотре в браузере? как можно сэмулировать просмотр страницы в vba, чтобы прогрузились ссылки на картинки?
WinHttpRequest не помогает, выдает тоже самое, что и хром например
Изменено: Петр80 - 17.04.2015 00:15:16
перевести функцию из 32х на 64х
 
Благодаря Johny удалось не только кому-то показать, что код действительно не работает на х64 офисе
но и модифицировать код, чтобы он частично работал.
в оригинале можно задать новый размер + качество сжатия в %
в скорректированном коде для х64 офиса получается только задать новый размер

не срабатывала tParams у функции GdipSaveImageToFile, в которой задается quality
возможно как то можно сделать, чтобы код работал и с параметром quality, но пока только без него

вместо :

Цитата
 tParams.Count = 1    ' Initialize the encoder parameters
 With tParams.Parameter    ' Quality
CLSIDFromString StrPtr("{1D5BE4B5-FA4A-452D-9CDD-5DB35105E7EB}"  )  , .GUID    ' Set the Quality GUID
.NumberOfValues = 1: .Type = 4: .Value = VarPtr(quality)
 End With
 lRes = GdipSaveImageToFile(hResizedBitmap, StrPtr(newFilename), tJpgEncoder, tParams)     ' Save the image
использовать:
Цитата
  tParams.Count = 0    ' Initialize the encoder parameters
   lRes = GdipSaveImageToFile(hResizedBitmap, StrPtr(newFilename), tJpgEncoder, ByVal 0& )
или
Цитата
tParams.Count = 0 ' Initialize the encoder parameters
lRes = GdipSaveImageToFile(hResizedBitmap, StrPtr(newFilename), tJpgEncoder, Null)
Изменено: Петр80 - 10.01.2015 21:43:55
перевести функцию из 32х на 64х
 
разница в значениях до проблемной строчки в коде в х32 и х64 офисе

http://s017.radikal.ru/i415/1501/1d/604f3552f4a9.jpg
перевести функцию из 32х на 64х
 
продолжение темы

не могу справиться со спортивным интересом
не работает функция на офисе х64
на 32х офисе аналогичная функция выполняется и обрабатывает картинку
на 64х офисе прокатывается по коду и выдает debug.print, создавая при этом пустой файл
в связи с тем, что у многих нет х64 офиса:
1. есть ссылка на образ VirtualBox с установленной Win64 + офис64 + на рабочем столе файл xls и картинка для теста
2. либо через Teamviewer
перевести функцию из 32х на 64х
 
VMware пока нет к сожалению, Vbox выслал

на WinXP офис 2010 x64 не ставится
а 2007го и 2003 офиса нет х64
соответственно минимально возможная комбинация - Win7/Vista x64 + Office 2010 x64
Изменено: Петр80 - 10.01.2015 11:52:53
перевести функцию из 32х на 64х
 
если у кого то нет офиса 64,
могу в личку скинуть настроенный образ диска VirtualBox с вин64 и офисом 64, где на рабочем столе лежит xls файл и картинка для теста.
останется только запустить и проверить
Изменено: Петр80 - 09.01.2015 20:56:36
перевести функцию из 32х на 64х
 
Цитата
Игорь пишет: работает под 64-битной системой
"система" имеется ввиду x64 win или x64 офис?

если никто не жаловался - значит я буду первым

вот прикрепил этот обновленный код, который также не срабатывает на х64 офисе, прокатывается по коду и выдает debug.print, создавая при этом пустой файл
поэтому и прошу - у кого есть х64 офис проверить код (просто запустить его) - создаст он новую картинку или создаст также только пустой файл
для этого требуется иметь Win x64, офис х64 и любую картинку
(на Win x64 по умолчанию ставится х32 офис)
Изменено: Петр80 - 09.01.2015 14:46:15
перевести функцию из 32х на 64х
 
на win х64 C:\Windows\System32\scrrun.dll присутствует. размер 198 КБ, версия продукта 5.8.7600.16385
если это то, что интересует. вопрос не в Win x32 x64, а вопрос в офисе х32 х64
в C:\Program Files\Microsoft Office такая библиотека отсутствует
или наверное тут у большинства х32 офис и проверить работу функции особо некому?
Изменено: Петр80 - 09.01.2015 10:51:17
перевести функцию из 32х на 64х
 
Игорь, спасибо, но GetPictureSizeNew работает на х64
не срабатывает LoadImage, который и есть в примере
хотя тот же код на х32 нормально сохраняет картинку
а на Win7 x64 + офисе х64 2010 просто создается пустой файл и выдается debug.print

т.е. для GetPictureSizeNew достаточно строчки
Dim hGdiImage As LongPtr, uGdiInput As GdiplusStartupInput, hGdiPlus As LongPtr
а для LoadImage недостаточно строчки
Dim uGdiInput As GdiplusStartupInput, hGdiPlus As LongPtr
тест проводился на компьютере и ноутбуке с офисом х64. и в обоих случаях он не сработал
но сработал на х32 офисе на другом ноутбуке
таким образом вдруг у кого то он сработает на 64 офисе? если срабатывает - напишите пожалуйста
если не срабатывает и также выдает debug.print значит дело в самом коде
Изменено: Петр80 - 09.01.2015 14:45:40
перевести функцию из 32х на 64х
 
т.е. получается эта функция не будет работать на х64 офисе? значит его лучше удалить и ставить х32 ?
перевести функцию из 32х на 64х
 
Цитата
Все_просто пишет: ошибка в dim?
не уверен
перевести функцию из 32х на 64х
 
Доброй ночи!
никак не могу перевести функцию с 32х на 64х
менял Dim uGdiInput As GdiplusStartupInput, hGdiPlus As Long
на  Dim uGdiInput As GdiplusStartupInput, hGdiPlus As LongPtr

на 32х офисе аналогичная функция выполняется и обрабатывает картинку
на 64х офисе всё равно выдаётся ошибка, хотя вся функция выполняется
(ошибка не в MsgBox, а в Debug.print, то есть ошибка не выскакивает, но всё равно функция не срабатывает)

Благодарю за помощь!
Изменено: Петр80 - 09.01.2015 01:26:54
изъять из строки год и найти минимальный
 
Благодарю за формулу!
как послать значение в html страницу
 
спасибо Игорь!
уж не знаю, где вы отыскали, как эти куки правильно называются, но это работает
Код
Sub test1() 
Dim w As New WinHttp.WinHttpRequest
w.Open "POST", [a1].Value, False
w.setRequestHeader "Cookie", "gal_compress=640; gal_show_thumb=0"
w.send
x = Mid(w.responseText, InStr(w.responseText, "ag15/geo/" ), 40)
End Sub
Изменено: Петр80 - 22.12.2014 16:21:40
как послать значение в html страницу
 
Доброй ночи!
подскажите, как послать значение на html страницу?
есть страница
http://www.ag.ru/games/sacred-2-fallen-angel/screenshots/262619
нужно изъять ссылку на скриншот шириной 640 px
вот эта ссылка http://screenshots.ag.ru/ag15/geo/14656/230-r-6-640x400.jpg
там нужно мышкой выбрать из выпадающего списка, чтобы сжимал оригинал до 640 по ширине - и тогда сайт покажет ссылку на эту картинку
это можно сделать только через открытие ie и через ie.Navigate ? или можно сделать на чём то типа XMLHTTP, который в разы быстрее чем ie.Navigate ?

вот кусок кода страницы. если я правильно понял, туда нужно послать value 640. только куда именно посылать и как, я не знаю. подскажите, как это сделать, чтобы получить ссылку на картинку

часть кода страницы:
Скрытый текст


наглядный пример: (картинка)
Скрытый текст

Благодарю всех откликнувшихся!
Изменено: Петр80 - 22.12.2014 00:29:48
изъять из строки год и найти минимальный
 
да, именно так!
спасибо, Doober!
изъять из строки год и найти минимальный
 
Добрый вечер, уважаемые форумчане!
помогите из строки выделить наименьший год через vba или формулой
Спасибо!
Изменено: Петр80 - 21.12.2014 20:53:27
изъять код html страницы макросом
 
Цитата
ber$erk пишет: Там весь код целиком
у  Immideate window тоже есть ограничения по количеству символов
лично у меня оно выдает всего 200 последних строк, а первые 2300 обрезает
Изменено: Петр80 - 19.12.2014 11:47:12
изъять код html страницы макросом
 
Doober, спасибо за уделенное время, все работает
Игорь, спасибо за предложение
ber$erk, я сначала тоже хотел написать тоже самое, но был настолько глуп, что проверял код через вставку в ячейку. а она как раз режет до 500 строк, поэтому я и считал, что код не прорабатывает правильно. точно так же наверное вчера и пропустил подобные варианты кода пока гуглил, потому что тоже вставлял результат в ячейку для проверки

точно также и с моими имеющимися макросами. они все вставляют результат в ячейки для сравнения. и везде обрезалось до 500 строк, поэтому я и начал искать другие варианты.  а при вторичной правильной проверке оказывается срабатывает любой код
Изменено: Петр80 - 19.12.2014 08:34:15
изъять код html страницы макросом
 
прикрепил файл в сообщение #7
можно и не грузить ссылки. первую можно сразу отдать на обработку в макрос
а вторая просто для примера что должно получиться.
если ее долго грузить - то говорю, что там должно получиться не 500 строк, а 2500
потому что многие команды выдают код на 500 строк, который фактически неправильный
Изменено: Петр80 - 19.12.2014 02:22:35
изъять код html страницы макросом
 
как можно без ссылки? там именно определенный сайт, который нужно запарсить
запарсить через WinHttpRequest или через MSXML2.ServerXMLHTTP не получается, потому что они выдают не код страницы, а кучу мусора (из-за того, что страница на яве написана, я так думаю)
другие сайты нормально парсятся этими методами. но именно по той ссылке, что я написал - не хочет
поэтому я хочу узнать альтернативный метод
а показывать код на любом другом сайте не имеет смысла, потому что он может на другом работать, а на этом, что был по ссылке не сработать
да и смысл рекламить всем известный сайт в своей тематике на форуме спецов по экселю..
если та ссылка на игру не подходит - могу дать на любую другую, хоть на Doom 95 года. его то уж не надо рекламить
если нужно - могу сделать на примере файла, чтобы ссылки не светить...
Изменено: Петр80 - 19.12.2014 02:58:28
изъять код html страницы макросом
 
вторая ссылка - и есть код страницы из первой ссылки
а как лучше назвать тему? "изъять код html страницы макросом" ?
Изменено: Петр80 - 19.12.2014 02:00:34
изъять код html страницы макросом
 
как причем. на vba макросах же
сохранить код страницы, имея ссылку
Изменено: Петр80 - 19.12.2014 01:54:27
изъять код html страницы макросом
 
Доброй ночи, форумчане!
помогите превратить [ссылка удалена] в код http://pastebin.com/aRfD2SJY  (в txt файл или в string, без разницы)
сайт вроде на яве сделан

Спасибо.
Изменено: Петр80 - 19.12.2014 02:01:32
преобразовать URL макросом
 
прикрепил
Изменено: Петр80 - 17.12.2014 15:39:39
преобразовать URL макросом
 
пока создавал тему, уже дали ответ
благодарности к EducatedFool за саму формулу и за доработку
Изменено: Петр80 - 17.12.2014 15:47:19
преобразовать URL макросом
 
Добрый день, форумчане!

помогите преобразовать URL, которые открываются в браузере, но не скармливаются макросу
макрос GetURLstatus не хочет съедать ссылки, потому что в ссылке есть спец.символы

есть ли макрос, который проверяет ссылку на спец символы?
в примере есть частичное решение. (вместо статуса 404 должен быть статус 200)
Спасибо.
Страницы: 1
Наверх