Программно изменить настройки Яндекс.Маркета

Friend

Гость

26.03.2012 00:37:05

Всем привет!

Может кто-нибудь знает, как программно изменить настройки в Яндекс.Маркете. Нужно вот на этой странице:

http://market.yandex.ru/settings.xml?from=http%3A%2F%2Fmarket.yandex.ru%2F%3Fclid%3D527%26cvredirect%3D1

изменить "Количество предложений на странице:" с текущих 10 на 100

Пока есть такая заготовка, но как с помощью неё изменить параметры на странице ... не могу придумать... может у кого-нибудь есть какой-нибудь опыт работы с web страницами?

Sub IE()
Dim objIE As Object, strURL As String

Set objIE = CreateObject("InternetExplorer.Application")
strURL = "http://market.yandex.ru/settings.xml?from=http%3A%2F%2Fmarket.yandex.ru%2F%3Fclid%3D527%26cvredirect%3D1"
objIE.Navigate strURL
While objIE.Busy Or (objIE.readyState <> 4)
DoEvents
Wend
objIE.Visible = True

Stop

'выход
objIE.Quit
Set objIE = Nothing
End Sub

EducatedFool Пользователь Сообщений: 3697 Регистрация: 23.12.2012	#2 26.03.2012 05:51:27 Может здесь найдёте что-то полезное... http://excelvba.ru/tools/YandexMarket http://excelvba.ru/category/internet/interface Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Friend Гость	#3 26.03.2012 11:23:36 EducatedFool, возможно вы имели ввиду эту вашу функцию для Москвы код = 213 Sub SetRegionByCode(ByVal code As Long) On Error Resume Next If WebBrowser Is Nothing Then Set WebBrowser = CreateObject("InternetExplorer.Application") Dim URL As String, Flags As Long, TargetFrame As String, PostData() As Byte, Headers As String If code <= 0 Then MsgBox "Неверно задан регион поиска!", vbCritical, "Ошибка настройки поиска": Exit Sub URL = "http://tune.yandex.ru/pages/region/do/save.xml": Flags = 0: TargetFrame = "" PostData = "retpath=http%253A%252F%252Fmarket.yandex.ru%252Fsettings.xml®ion_id=" & code PostData = StrConv(PostData, vbFromUnicode) Headers = "Content-Type: application/x-www-form-urlencoded" & vbCrLf WebBrowser.Navigate URL, Flags, TargetFrame, PostData, Headers While WebBrowser.Busy Or (WebBrowser.readyState <> 4): DoEvents: Wend End Sub Я так понимаю нужно как-то сформировать PostData, но что-то я не додумаю, как это сделать....

Читают тему