Серый форум — VBS: Имитация работы пользователя в браузере

Re: VBS: Имитация работы пользователя в браузере

null@example.com (Jonson1992) — Thu, 23 Oct 2014 03:25:25 +0000

Всем спасибо , разобрался!

Re: VBS: Имитация работы пользователя в браузере

null@example.com (Xameleon) — Wed, 22 Oct 2014 07:38:24 +0000

Jonson1992,

Jonson1992 пишет:

Как правильно запросить текущий url?


Option Explicit

Const READYSTATE_COMPLETE = 4

With CreateObject("InternetExplorer.Application")
    'Переход на нужный URL
    .Navigate "http://www.google.ru"
    'Ожидание окончательной загрузки
    Do While .Busy And .readyState <> READYSTATE_COMPLETE
        WScript.Sleep 100
    Loop
    'Получение текущего URL
    MsgBox .LocationURL
End With

Использовать MSDN не возбраняется.

http://msdn.microsoft.com/en-us/library … s.85).aspx

Re: VBS: Имитация работы пользователя в браузере

null@example.com (Flasher) — Tue, 21 Oct 2014 22:07:43 +0000

Jonson1992
По логике, должен сохранять совместно с папкой.
Разумеется, сперва нужно залогиниться по .click, потом пройти цикл типа

Do : WScript.Sleep 100 : Loop Until Not .Busy And .ReadyState = 4

Но, похоже, что обычный Save не работает в отличии от Save_as (objIE.ExecWB 4, 2, "My.html"), и от диалога тогда не избавиться. Если у кого-то нет мыслей по этому поводу, то придётся использовать сторонний компонент.
Если же нужен html без иного контента, то достаточно после проверки на готовность добавить:

CreateObject("Scripting.FileSystemObject").OpenTextFile("D:\saver.htm",2,True,-1).Write objIE.Document.body.outerHTML
objIE.ExecWB 45, 2 : objIE.Quit ' Выход

Re: VBS: Имитация работы пользователя в браузере

null@example.com (Jonson1992) — Tue, 21 Oct 2014 06:00:54 +0000

Flasher пишет:

Jonson1992
Что-то из этой области: objIE.ExecWB 3, 2, "C:\Path\My.html"

Таким образом он просто сохраняет всю страницу в указанную дикторию? Или сохраняет адрес URL?
И как правильно объявить, к примеру

Set objForm = objIE.Document.forms(0)

, а далее Ваш пример?

Re: VBS: Имитация работы пользователя в браузере

null@example.com (Flasher) — Mon, 20 Oct 2014 19:35:34 +0000

Jonson1992
Что-то из этой области: objIE.ExecWB 3, 2, "C:\Path\My.html"

VBS: Имитация работы пользователя в браузере

null@example.com (Jonson1992) — Mon, 20 Oct 2014 17:45:25 +0000

Доброго времени суток всем!

у меня есть вопрос очень интересный, нигде не могу найти точный ответ на него, может быть кто-то сможете как то подсказать?

Я пишу скрипт на VBS который имитирует работу пользователя, он заходит на сайт через IE , вводит данные в поля ,авторизуется на сайте и т д. Это все работает.

Но далее мне необходимо сохранить содержимое страницы на которой я в данный момент находусь, для этого мне нужно определить текущий url\сылку на которой я нахожусь, а затем сохранить в файл по указанному пути. Файл создать и сохранить туда содержимое страницы по url введенному вручную не проблема, а определить url программно не получается. Прочитал про объект Location и его свойство href, которое содержит url текущий, но запись вида x = location.href не проходит, ругается на необявленный объект location.
Как правильно запросить текущий url?

Вот кусок кода который сохраняет из уже заданного url:

Код VBS:

sUrl = "сайт"
XMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET",sUrl, False
oXMLHTTP.Send
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile "D:\saver.txt", True
Set f = fso.OpenTextFile("D:\saver.txt", 2, True)