Открываем Internet Explorer при помощи VBS

Автор: Admin

Дата:2013-03-22

Иногда необходимо открыть какое-либо приложение при помощи скрипта. На помощь, в данной ситуации, может придти VBS.
Недавно столкнулся с таким чудом как Видеорегистратор видеонаблюдения. Все бы хорошо, но вот этих штук оказалось две, а программа поставляемая для этого вида оборудования (позволяющая просматривать видео со всех камер в одном экране) работала только на двухъядерном процессоре, а при работе на менее мощных через 5 минут начинало все висеть.

В результате пришлось работать с обычным браузером IE 6.
Но тут нужно было подогнать размер окна, указать расположение относительно экрана, и убрать все лишнее меню из браузера.

В принципе вот сам сприпт, который это делает:

  Set objIE = CreateObject("InternetExplorer.Application")  
    objIE.Navigate("http://192.168.200.231") ' адрес видеорегистратора
    Do While objIE.Busy : Wscript.Sleep 700 : Loop

  ' расположение относительно экрана
  objIE.Top = 350
  objIE.Left = 100
  objIE.Height = 400
  objIE.Width  = 750
 
' убираем все лишнее с IE
  objIE.AddressBar = False
  objIE.MenuBar = False
  objIE.ToolBar = False
  objIE.StatusBar  = False
  objIE.RegisterAsBrowser = True
  objIE.Visible = True
 
WScript.Quit 0

Количество просмотров: 6971

Комментарии к статье: