Sdscompany.ru

Компьютерный журнал
1 просмотров
Рейтинг статьи
1 звезда2 звезды3 звезды4 звезды5 звезд
Загрузка...

Internetexplorer application document

Windows Script Host — объект InternetExplorer и WebBrowser

1. Создание объекта

Internet Explorer включает два ActiveX-объекта: WebBrowser Object и InternetExplorer Object. Элемент управления WebBrowser может быть интегрирован непосредственно в форму VB или размещён на Web-странице, а объект InternetExplorer доступен только через механизм OLE Automation. Функциональность WebBrowser меньше по сравнению с функциональностью InternetExplorer. Упрощенно говоря, WebBrowser — это собственно окно просмотра документа в браузере, а InternetExplorer — это весь браузер, включая меню, панели инструментов, строку состояния и прочее. Оба объекта находятся в библиотеке «Microsoft Internet Controls» (shdocvw.dll в каталоге system32). Также может пригодиться библиотека «Microsoft HTML Object Library» (mshtml.dll там же) — это именно та среда, с которой оперируют скрипты на языках JavaScript и VBScript на Web-страницах. Примечание: приведённое ниже описание свойств, методов и событий не является до конца исчерпывающим (исчерпывающее описание можно найти в MSDN) и предназначено, в первую очередь, для работы с обозревателем как с OLE-Automation сервером из различных скриптовых сред или Visual Basic.

Пример создания OLE-объекта InternetExplorer:

Set objIE = CreateObject(«InternetExplorer.Application»)

Пример размещения ActivX-объекта WebBrowser на Web-странице:

2. Свойства

Применение некоторых свойств.

3. Методы

Применение некоторых методов.

3.1. Метод ExecWB

Выполняет команду и возвращает статус выполнения. Доступен в InternetExplorer и WebBrowser.Параметры:

  1. CmdID — идентификатор команды.
  2. CmdExecOpt — опции команды.
  3. PvaIn — необязательный, Variant, входные аргументы команды.
  4. PvaOut — необязательный, Variant, выходные аргументы команды.

Некоторые возможные значения параметра «CmdID» (подробнее — см. в MSDN описание «OLECMDID enumeration»):

Возможные значения параметра «CmdExecOpt»:

Пример:

Set objIE = CreateObject(«InternetExplorer.Application») objIE.Navigate «about:blank» While objIE.Busy Wscript.Sleep 200 Wend objIE.Visible = 1 objIE.ExecWB 6, 1 ‘выдача диалога печати ‘objIE.ExecWB 6, 2 ‘немедленная печать

3.2. Метод QueryStatusWB

Возвращает статус указанной команды. Доступен в InternetExplorer.

Параметры: CmdID — идентификатор команды.

Возможные значения флагов в возвращаемом значении (возвращаемое значение — сумма флагов):

Пример:

Set objIE = CreateObject(«InternetExplorer.Application») objIE.Navigate «about:blank» While objIE.Busy Wscript.Sleep 200 Wend objIE.Visible = 1 If objIE.QueryStatusWB(6) = 2+1 Then objIE.ExecWB 6, 1 ‘выдача диалога печати End If

3.3. Метод ShowBrowserBar

Показывает или скрывает указанную панель обозревателя. Доступен в InternetExplorer.

Параметры:

  • vClsID — строка, идентификатор класса панели.
  • bShow — необязательный, булево. False — скрыть панель, True — показать.

Некоторые возможные значения параметра «vClsID»:

Пример:

Set objIE = CreateObject(«InternetExplorer.Application») objIE.Navigate «about:blank» While objIE.Busy Wscript.Sleep 200 Wend objIE.Visible = 1 objIE.ShowBrowserBar «<30D02401-6A81-11D0-8274-00C04FD5AE38>«, True

3.4. Метод Navigate

Осуществляет навигацию к указанному ресурсу (инициирует операцию открытия документа). Доступен в InternetExplorer и WebBrowser.

Параметры:

  1. Url — строка, определяющая URL или полный путь к файлу.
  2. Flags — необязательный. Набор флагов, определяющий, нужно ли добавлять ресурс в историю, записывать/читать ресурс в/из кэша, отображать ресурс в новом окне.
  3. TargetFrameName — необязательный. Строка, имя фрейма HTML, в котором следует отобразить ресурс. Если такого фрейма не существует, откроется новое окно.
  4. PostData — необязательный. Позволяет передать на Web-сервер данные, полученные в результате заполнения формы, если этот сервер требует HTTP — транзакции POST. Если этот параметр не определён, метод осуществляет HTTP GET транзакцию. Если указанный Url — не HTTPURL, параметр игнорируется.
  5. Headers — необязательный. Значение, определяющее дополнительные HTTP заголовки для отправки на сервер. Эти заголовки добавляются к заголовкам Microsoft Internet Explorer по умолчанию. Заголовки могут определять тип данных, код состояния и т.п. Если указанный Url — не HTTPURL, параметр игнорируется.

Возможные значения флагов параметра «Flags»:

Возможные значения параметра «TargetFrameName» (кроме собственно имени конкретного фрейма):

Пример:

Set objIE = CreateObject(«InternetExplorer.Application») objIE.Navigate «about:blank» While objIE.Busy Wscript.Sleep 200 Wend objIE.Visible = 1

3.5. Метод Refresh2

Аналогичен методу Refresh, но имеет единственный необязательный параметр, который задаёт «уровень» обновления. Заголовок «pragma:nocashe» запрещает серверу возвращать кэшированную копию документа, обеспечивая самую свежую информацию, однако этот заголовок может послужить причиной проблем на некоторых серверах. Возможные значения параметра:

4. События

5. Примеры кода

Свойства AddressBar и MenuBar:

Set objIE = CreateObject(«InternetExplorer.Application») objIE.Navigate «about:blank» While objIE.Busy Wscript.Sleep 200 Wend objIE.AddressBar = False objIE.MenuBar = False objIE.Visible = 1

Свойства ToolBar, StatusBar и Resizable:

Set objIE = CreateObject(«InternetExplorer.Application») objIE.Navigate «about:blank» While objIE.Busy Wscript.Sleep 200 Wend objIE.ToolBar = False objIE.StatusBar = False objIE.Resizable = False objIE.Visible = 1

Свойство FullScreen:

Set objIE = CreateObject(«InternetExplorer.Application») objIE.Navigate «about:blank» While objIE.Busy Wscript.Sleep 200 Wend objIE.FullScreen = True objIE.Visible = 1

Свойство TheaterMode:

Set objIE = CreateObject(«InternetExplorer.Application») objIE.Navigate «about:blank» While objIE.Busy Wscript.Sleep 200 Wend objIE.TheaterMode = True objIE.Visible = 1

Свойство StatusText:

Set objIE = CreateObject(«InternetExplorer.Application») objIE.Navigate «about:blank» While objIE.Busy Wscript.Sleep 200 Wend objIE.Visible = 1 objIE.Document.Write objIE.StatusText objIE.StatusText = «ТЕКСТ СТРОКИ СОСТОЯНИЯ»

Свойства Height, Width, Top и Left:

Set objIE = CreateObject(«InternetExplorer.Application») objIE.Navigate «about:blank» While objIE.Busy Wscript.Sleep 200 Wend objIE.Height = 200 objIE.Width = 300 objIE.Top = 0 objIE.Left = 0 objIE.Visible = 1

Свойства Name, FullName, Path, type, LocationName и LocationURL:

Set objIE = CreateObject(«InternetExplorer.Application») objIE.Navigate «about:blank» While objIE.Busy Wscript.Sleep 200 Wend objIE.Document.Write «Name = «»» & objIE.Name & «»»
» objIE.Document.Write «FullName = «»» & objIE.FullName & «»»
» objIE.Document.Write «Path = «»» & objIE.Path & «»»
» objIE.Document.Write «Type = «»» & objIE.Type & «»»
» objIE.Document.Write «LocationName = «»» & objIE.LocationName & «»»
» objIE.Document.Write «LocationURL = «»» & objIE.LocationURL & «»»
» objIE.Visible = 1

Свойство Busy и метод Stop:

Set objIE = CreateObject(«InternetExplorer.Application») objIE.Navigate «qwerty» If objIE.Busy Then objIE.Stop End If objIE.Visible = 1

Свойство HWND:

On Error Resume Next Set objIE = CreateObject(«InternetExplorer.Application») objIE.Navigate «about:blank» While objIE.Busy Wscript.Sleep 200 Wend objIE.Visible = 1 Set objShellApp = CreateObject(«Shell.Application») Set objFolder = objShellApp.BrowseForFolder(objIE.HWND, «Выбор папки», 0, «C:») objIE.Document.Write objFolder.Self.Path If Err.Number <> 0 Then objIE.Document.Write «Папка не выбрана!» End If

Свойство Document:

Set objIE = CreateObject(«InternetExplorer.Application») objIE.Navigate «about:blank» While objIE.Busy Wscript.Sleep 200 Wend objIE.Document.Write «Hello, Internet Explorer!» objIE.Visible = 1

Свойство ReadyState:

Set objIE = CreateObject(«InternetExplorer.Application») MsgBox «ReadyState = » & objIE.ReadyState objIE.Navigate «about:blank» While objIE.Busy Wscript.Sleep 200 Wend MsgBox «ReadyState = » & objIE.ReadyState objIE.Visible = 1

Управление заголовком окна, отключение контекстного меню:

Скачивание (загрузка) текста web-страницы в текстовый файл

При помощи этого макроса вы можете скачать текст с выбранной страницы веб-сайта:

То же самое — но в виде функции:

Если же нужен HTML код страницы, то используйте такой вариант

Читать еще:  Activex internet explorer 11

Пример использования этой функции для загрузки текста страниц из интернета:

PS: Если вас интересует ИСХОДНЫЙ КОД страницы — используйте эту функцию: http://excelvba.ru/code/GetHTTPResponse

  • 57098 просмотров

Комментарии

Да, можно и часть.
На сайте есть функция для поиска нужных тегов в html коде

Классные коды, огромное спасибо. А можно импортировать не всю страницу, а кусок? По тегам или еще как-нибудь

Переустанавливал, откатывал на старую версию, поставил винду 10 64 бит, и офис 16.

Возможно, IE криво установился или обновился. Попробуйте переустановить ИЕ

Function WebPageText не работает, ранее работала перестала после очередного пакета обновления виндоус7. Останавливается на строке
While IE.busy Or (IE.readyState <> 4): DoEvents: Wend
при этом страница в браузере открывается. если поставить
MsgBox IE.Document.body.innerText
При любом времени ожидания объект IE.Document пуст.
Если использовать http://excelvba.ru/code/GetHTTPResponse или https://excelvba.ru/code/FileQueryRange данные возвращаются. В чем проблема?

Меня интересует такой же вопрос: как загрузить содержимое текстового файла с этой страницы или сам файл

Огромное спасибо! То, что надо! Очень полезная в хозяйстве вещь!

Николай, да, можно, — только это будет уже совсем другой макрос.
Впрочем, у меня есть готовое решение для такой задачи, — всё будет работать в точности как вам надо:
http://excelvba.ru/programmes/Parser
И ссылки из выделенных строк возьмет из заданного столбца, и результат в те же строки выведет

Здравствуйте, отличный макрос (программа)! Подскажите пожалуйста, а можно сделать так, чтобы задавать диапазон ссылок (например: от А1 до А10) или выделять N-ое количество ссылок — макросы — выполнить и макрос их обрабатывает? И ещё, выводить содержимое ссылки не в новом документе, а в ячейке соседнего столбца? Понимаю, раскатал губу, своими запросами, не сочтите за наглость! Заранее благодарю за ответ.

Добрый день! возможно уже есть пример описания получения части данных со web-страницы, заключенных между определенными тегами, например . и помещение их в ячейку

Добрый день.
Вы писали:
«Как перебрать все вкладки (и получить URL открытых страниц и их содержимое), я знаю (делал)»
Не мог бы бы подсказать как?
Спасибо!

Андрей, тут подсказать не смогу
Как перебрать все вкладки (и получить URL открытых страниц и их содержимое), я знаю (делал)
А как узнать, какая из вкладок активная, тут сложнее (надо к самому приложению обращаться, или через WinAPI все вкладки проверять) — мне такого делать не приходилось, потому, посоветовать ничего не могу.

Здравствуйте.
Подскажите, пожалуйста, следующее
Есть несколько уже открытых web-страниц в ИЕ. Они в разных вкладках и в разных окнах.
Нужно обработать только активную в данный момент вкладку или окно.
Как средствами VBA определить какая(ое) из всех вкладок-окон в данный момент активны?
Спасибо

Альтернатива есть, — можно работать с сайтами без использования браузера
Например: http://excelvba.ru/code/gethttpresponse
Браузер, собственно, вообще не нужен, — просто изредка с ним удобнее работать (код проще)

PS: IE8, как и любой другой браузер, отлично работает с HTTPS
Проблема IE — только в том, что он тормозит, и может подвисать
(потому я, в своё парсере, IE стараюсь не использовать вообще)

Доброго Времени Суток Вам.
Подскажите, а есть альтернатива:CreateObject(«InternetExplorer.Application»)
Дело в том, что у меня XP sp2 = IE8, который в свою очередь не работает c https.

Сергей, ответил вам на почту

Здравствуйте. Очень нужна Ваша помощь. Есть база ссылок в Excel. База для интернет-магазина. Есть столбцы с названием, описанием . ценой и ссылкой на сайт-донор. Нужно сделать так, чтоб макрос выполнял перебор этих ссылок и сравнивал цену в ячейке с ценой на сайте.
Можете мне в этом помочь?

Про какую программу речь?
В статье, где вы разместили комментарий, никакой программы нет.

Речь про надстройку «Парсер сайтов»? Если да, — можем настроить под заказ.
Заказы на парсер принимаются в таком виде: http://excelvba.ru/programmes/Parser/order

Скачал тестовую программу. Подскажите как сделать выгрузку списка компаний с сайта в таблицу ексель, и их контактов. Найти контакты возможно с других сайтов этих компаний, (поиск по названию компаний). Т.е. на сайте, где список компаний — там нет контактов, контакты есть на сайтах этих компаний, нужен поиск сайтов по названию компаний — переход и скачка контактов. Возможно это сделать через Данную программу? И как? Сайт, с которого нужен список компаний http://www.franchisee.su/catalog/s-p-avto-lyubye-zapchasti-na-lyubye-avt.

Валентина, в функции SaveTXTfile найдите строку

Файл создавался пустой, т.к. было попытка сохранить его в кодировке ANSI, а на веб-странице присутствуют символы, недопустимые в этой кодировке.
После того, как строчку в коде поменяете, файл будет создаваться в кодировке UTF-16, — там все символы допустимы.

Добрый день!
Я пробую сохранить текст, а также код страницы https://www.discogs.com, но текстовый файл — пуст.
При этом текст в переменной txt есть.

Добрый день! хороший макрос. Но как загружать код не только страницы но и код элемента находящегося на странице?

Спасибо большое! получилось реализовать именно этим способом.

Ну или добавьте в код из этой статьи задержку в пару секунд.
(надо подождать, пока отработает редирект, и скрипт сформирует страницу результатов)
После строки
While IE.busy Or (IE.readyState <> 4): DoEvents: Wend ‘ ждем, пока загрузится страница
напишите
application.wait now + 2/86400 ‘ пауза 2 секунды

Спасибо Вам за сайт. Очень много полезной и качественной информации.

Столкнулся с проблемой урл: «http://nylottery.ny.gov/wps/portal/NumbersTracker?game=NUMBER»
Ни одним способом, найденным на сайте, не могу загрузить данные с сайта в excel (Copy-Past не в счет). Веб-запрос тоже результатов не дает.
Подскажите, возможно есть другие способы, или я что-то упускаю. Заранее спасибо.

Подозрение что не в той отправляется. Потому что от гугла приходит INVALID_REQUEST

Ну как не работает? Может, не в той кодировке ответ приходит?
Так в этом случае можно изменить кодировку файла

GetHTTPResponse на моей конфигурации не работает с русскими буквами в запросе. Т.е. Иркутск не проходит. Мне пришлось сделать транслитерацию, но это сократило количество корректных ответов от гугла на треть. Т.е. не решение

Здравствуйте, Дмитрий.
Во-первых, код работает и с вашей ссылкой (Excel 2010, Win XP, IE 7), но дело даже не в этом.
По ссылке возвращается XML — зачем результат в ячейки помещать?

Читать еще:  Process explorer русификатор

Есть 2 способа получить XML с сайта:

И у меня этот код ничего не возвращает запросом по адресу «http://maps.google.com/maps/api/geocode/xml?address=London&sensor=false»
Excel 2010, Win 7, IE 9

А запрос html из первоначального примера возвращает корректные данные. Возможно это потому что с гугла xml приходит?

А если в запросе London на Иркутск поменять?

Здравствуйте, Жека.
Использование браузера по-умолчанию в подобных макросах невозможно.

Браузеров много разных — соответственно, методы работы (программного взаимодействия) с ними сильно отличаются.
Придётся писать код для каждого отдельного браузера. (и получится не 5 строк кода, а в сотню раз больше)

Есть другой способ получить текст веб-страницы — использовать веб-запрос
(в этом случае можно обойтись вообще без макросов — этот запрос можно создать вручную, а настроить автообновление данных)

Ещё раз спасибо за Ваши программы. Возник вопрос :
Как переделать строку
Set IE = CreateObject(«InternetExplorer.Application») ,
что бы загружался браузер по умолчанию, а не только InternetExplorer.
Спасибо за ответ.

Здравствуйте, Алексей.
Тут не получится дать универсальный совет — в каждом случае надо выдирать из текста различные данные.
Обычно я делаю это при помощи функции Split (для разделения текстовой строки на 2 части).
2 вызова этой функции — и нужные данные из огромного текста получены.

Кроме того, можно попробовать применить веб-запрос — в этом случае курс доллара можно получить без единой строки кода.

PS: У меня на сайте есть отдельный макрос для получения курса доллара на нужную дату.

Спасибо, все работает
Я вот полностью забираю текст с сайта, а потом функциями excel выбираю нужное
А вот как в макросе прописать так называемый парсинг, т.е. мне надо найти например курс доллара на конкретную дату

Спасибо Вам за ответ!
Видимо у меня что-то с настройками? Посмотрю.
Я делал аналогично — загнал в переменную адрес. Результатом было ».

Огромное спасибо за совет, поискать по форуму «Планеты» — с лёту в поисковиках не нашел. Надо было быстро получить координаты. Сначала хотел воспользоваться json, но не смог добраться даже да текста. Надеюсь, на форуме найду.

Еще раз благодарю за очень оперативный ответ!

Я взял вышеопубликованную функцию ЗагрузкаТекстаВебСтраницы,
в одной строке кода заменил адрес сайта:

PS: Я бы на вашем месте поискал готовое решение — на форуме «Планеты Excel» встречал как-то 2 решения вашей задачи
(определение координат по адресу, путем парсинга XML с подобный веб-страниц)

Спасибо за Ваш отличный сайт!

Я попытался воспользоваться кодом с этого примера.
Планировал прочитать текст со странички по адресу «http://maps.google.com/maps/api/geocode/xml?address=London&sensor=false»

Но в переменную от объект WebPageText = IE.Document.body.innerText ничего не записывается. Подскажите, в чем может быть проблема?
Если открывать линк в IE, то результат отображается.

Спасибо.. Link.innerText — это то что нужно..А я в справке это свойство не нашёл.. Ещё раз спасибо..

Судя по результату, link.nameProp возвращает не надпись на ссылке, а что-то другое:
(я плохо ориентируюсь в объектной модели DOM)

Насколько мне известно, для получение текста ссылки надо использовать свойство Link.innerText

Спасибо..Всё получается.
А надпись на этой ссылке можно получить свойством link.nameProp ??
Спасибо за ответ..

В общем случае, после загрузки веб-страницы, надо обратиться к свойству Links веб-страницы:

Результат увидите в окне Immediate:

Хорошая програмка. Спасибо. А как можно загрузить с вэб-страницы гиперссылки?? Спасибо за ответ..

Working with Internet Explorer Using VBA

To make the following code work, you’ll need to include the «Microsoft Internet Controls» library in your VBA references first.
Go to your Visual Basic Editor, Menu Tools -> References. and select the entry «Microsoft Internet Controls». If you can’t find it in the list of available references, search for a file named shdocvw.dll , usually to be found in your Windows directory, subfolder System32 .

Alternatively, you can skip the referencing and use late binding, defining the pointer to the Internet Explorer instance as Object instead of SHDocVw.InternetExplorer in your VBA code. But then you’ll miss out on a lot of goodies like intellisense, full access to the object model via the object browser, access to the application’s built-in constants, and a popup listing all the supported constants upon typing.

Before you can do anything with the Internet Explorer, of course you’ll need one, and you’ll need something to address it. The following function achieves exactly this by creating a new instance of the Internet Explorer and returning a pointer to it.

The next function loads a webpage:

But what if the desired page has already been loaded and you just want to use it?
The following function returns a pointer to an already open instance of the Internet Explorer, if it has the desired page loaded. It’ll find it by comparing this page’s URL with the URLs of open pages in the Internet Explorer. If the page could not be found, the function returns Nothing .

Sometimes, when you enter an URL to load a page, you’ll get redirected, and thus the URL changes. Or your site uses frames and has the same URL for different content, so you can’t clearly identify a page by its URL. Then you could check the title of the page instead:

(This was tested with IE6. Since IE7 uses tabs for different webpages instead of different windows, this code probably won’t work for IE7.)

Now that you have your web page (either by loading it new, or by accessing an already opened page), you can extract information from it, or manipulate the document or do whatever you want/need to do.
To make work with html documents easier, the Document object itself is just the root of a hierarchy of objects (and arrays of objects) that represent the different html tags in the document with all their properties and content. So if you need to address a certain element, you wont have to parse the html source, but you can quite easily address the element directly by its name or index.

Читать еще:  Просмотр pdf в браузере

A good introduction about how to work with the DOM (Document Object Model) and how to use it with forms in particular is given on this German site: Tagmodell des Webbrowsers

Last but not least, a very good and comprehensive but also German site is the SELFHTML DOM reference

And because an example often is easier to understand than long-winded explanations: the following example goes to Wikipedia, enters a search string and navigates to the search result.

Kazun

Заметки о PowerShell.

Опубликовано в InternetExplorer

Авторизация на форуме на примере forum.oszone.net используя PowerShell?

Рассмотрим 2 метода:

Учетом успешного выполнения скрипта, будет вывод сообщения – “Ваш последний визит был: время”

Определим, какие поля нам требуется заполнить, достаточно просто.

В поля “Имя Пользователя” и “Пароль” подставим значения ,и посмотрим, какие поля требуют заполнения.

Как видно выше для заполнения нужны поля vb_login_username и vb_login_password.

Определим, какие поля нам требуется заполнить у формы.

Требуется нам заполнить все поля или достаточно определенных. В этом нам поможет Fiddler .

  • Запускаем Fiddler
  • Запускаем любой браузер ( логирование командлета Invoke-WebRequest тоже поддерживается)
  • Переходим на сайт
  • Заполняем поля , нажимаем “Войти”
  • Смотрим Post запрос

Поле vb_login_password – пустое, но вычисляется md5 hash пароля.

Для ASCII символов, если пароль в Unicode, данный метод не подойдет. Какой алгоритм преобразования

Вычислим поле vb_login_md5password для Unicode , на примере – Привет:

Вычислим поле vb_login_md5password_utf для Unicode , на примере – Привет:

При использовании полей vb_login_md5password и vb_login_md5password_utf, поле vb_login_password – не заполняем.

Но можно не утруждать себя данными алгоритмами, а просто заполнить поля vb_login_username и vb_login_password.

В конечном итоге получим вывод:

Как заполнить frame форму и нажать на ней отправить программно?

Powershell должен быть запущен с параметром -STA.

Для примера воспользуемся сайтом — Enter.UniCredit.В исходном коде мы видим набор frames.

Фреймы в HTML позволяют авторам представлять документы в нескольких разделах, которые могут быть независимыми или вложенными окнами. Это обеспечивает дизайнерам способ оставлять некоторую информацию видимой, в то время как другая информация прокручивается или заменяется. Например, в одном окне в одном фрейме может отображаться статический баннер, во втором навигационное меню, а в третьем — сам документ, который можно прокручивать или переходить к другому с помощью навигации во втором фрейме.
Ни у одного frame,нет каких-либо полей для заполнения.Основное меню реализовано,с помощью frame — F_HLP.Который и скрывает форму(MForm) для заполнения.

Основная проблема, как добраться до этой формы.Для этого мы подменяем параметр src. Здесь мы и видим, куда перенаправляется frame.

После этого нам будет доступна MForm и уже не составляет труда пройти авторизацию.

Выполняем скрипт и получаем ответ Success или Fail.

Авторизация на форуме с помощью PowerShell, на примере http://www.guitarplayer.ru.

Для авторизации на форуме воспользуемся COM объектом InternetExplorer.Application.Для навигации используем метод Navigate.Для получения всех форм на странице,воспользуемся свойством Forms.

Как видим у нас две формы,форму frmLogin мы и будем заполнять.После заполнения полей и нажатия кнопки «Войти» ,мы переходим в заданную тему и создаем сообщение.

Объекты Windows Script Host (стр. 9 )

Set objIE = CreateObject(«InternetExplorer. Application»)

objIE. Navigate «about:blank»

While objIE. Busy

Wscript. Sleep 200

objIE. AddressBar = False

objIE. MenuBar = False

objIE. Visible = 1

Свойства ToolBar, StatusBar и Resizable:

Set objIE = CreateObject(«InternetExplorer. Application»)

objIE. Navigate «about:blank»

While objIE. Busy

Wscript. Sleep 200

objIE. ToolBar = False

objIE. StatusBar = False

objIE. Resizable = False

objIE. Visible = 1

Set objIE = CreateObject(«InternetExplorer. Application»)

objIE. Navigate «about:blank»

While objIE. Busy

Wscript. Sleep 200

objIE. FullScreen = True

objIE. Visible = 1

Set objIE = CreateObject(«InternetExplorer. Application»)

objIE. Navigate «about:blank»

While objIE. Busy

Wscript. Sleep 200

objIE. TheaterMode = True

objIE. Visible = 1

Set objIE = CreateObject(«InternetExplorer. Application»)

objIE. Navigate «about:blank»

While objIE. Busy

Wscript. Sleep 200

objIE. Visible = 1

objIE. Document. Write objIE. StatusText

objIE. StatusText = «ТЕКСТ СТРОКИ СОСТОЯНИЯ«

Свойства Height, Width, Top и Left:

Set objIE = CreateObject(«InternetExplorer. Application»)

objIE. Navigate «about:blank»

While objIE. Busy

Wscript. Sleep 200

objIE. Height = 200

objIE. Width = 300

objIE. Visible = 1

Свойства Name, FullName, Path, Type, LocationName и LocationURL:

Set objIE = CreateObject(«InternetExplorer. Application»)

objIE. Navigate «about:blank»

While objIE. Busy

Wscript. Sleep 200

objIE. Document. Write «Name = «»» & objIE. Name & «»»
«

objIE. Document. Write «FullName = «»» & objIE. FullName & «»»
«

objIE. Document. Write «Path = «»» & objIE. Path & «»»
«

objIE. Document. Write «Type = «»» & objIE. Type & «»»
«

objIE. Document. Write «LocationName = «»» & objIE. LocationName & «»»
«

objIE. Document. Write «LocationURL = «»» & objIE. LocationURL & «»»
«

objIE. Visible = 1

Свойство Busy и метод Stop:

Set objIE = CreateObject(«InternetExplorer. Application»)

objIE. Navigate «qwerty»

If objIE. Busy Then

objIE. Visible = 1

On Error Resume Next

Set objIE = CreateObject(«InternetExplorer. Application»)

objIE. Navigate «about:blank»

While objIE. Busy

Wscript. Sleep 200

objIE. Visible = 1

Set objShellApp = CreateObject(«Shell. Application»)

Set objFolder = objShellApp. BrowseForFolder(objIE. HWND, «Выбор папки«, 0, «C:»)

objIE. Document. Write objFolder. Self. Path

If Err. Number <> 0 Then

objIE. Document. Write «Папка не выбрана

Set objIE = CreateObject(«InternetExplorer. Application»)

objIE. Navigate «about:blank»

While objIE. Busy

Wscript. Sleep 200

objIE. Document. Write «Hello, Internet Explorer!»

objIE. Visible = 1

Set objIE = CreateObject(«InternetExplorer. Application»)

MsgBox «ReadyState = » & objIE. ReadyState

objIE. Navigate «about:blank»

While objIE. Busy

Wscript. Sleep 200

MsgBox «ReadyState = » & objIE. ReadyState

objIE. Visible = 1

Управление заголовком окна, отключение контекстного меню:

Set WshShell = CreateObject(«WScript. Shell»)

WshShell. RegWrite «HKCUSoftwareMicrosoftInternet ExplorerMainWindow Title», «Заголовок окна IE»

Set objIE = CreateObject(«InternetExplorer. Application»)

objIE. Navigate «about:blank»

While objIE. Busy

Wscript. Sleep 200

objIE. Document. Write » Заголовок отчёта «

Ссылка на основную публикацию
ВсеИнструменты 220 Вольт
Adblock
detector