Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)
-   -   [решено] Как и где можно прописать автозагрузку двух окон iexplorer (http://forum.oszone.net/showthread.php?t=187570)

Snowmania 06-10-2010 11:58 1512608
Как и где можно прописать автозагрузку двух окон iexplorer
 
Доброго всем дня!
У меня такая задача:

Есть комп (XP Professional SP3), для мониторинга и записи с 2х IP камер. Мониторинг ч/з 2 окна iexplorer (соответственно, два разных IP адреса)
Нужно, чтобы при перезапуске системы, автоматически загружались два окна iexplorer с заданными параметрами(размерами и местоположением на экране) и разными адресами.
Я в программировании - не силен) Желательно, чтобы через cmd или regedit...

Petya V4sechkin 06-10-2010 12:03 1512611
[решено] Батник для открытия url

Snowmania 06-10-2010 12:17 1512622
Не вижу связи с моей темой

Iska 06-10-2010 14:13 1512731
Snowmania, что-либо наподобие такого?!
читать дальше »
StartTwoIE.vbs
Код:
Option Explicit

With WScript.CreateObject("Shell.Application")
    .MinimizeAll
   
    ' URL, Left, Top, Width, Height
    StartIE "http://www.ya.ru",    100, 100, 400, 300
    StartIE "http://www.google.ru", 600, 100, 400, 300
   
    .TileVertically
End With

WScript.Quit 0
'=============================================================================

'=============================================================================
Sub StartIE(strURL, intLeft, intTop, intWidth, intHeight)
    Const READYSTATE_COMPLETE = 4
   
    With WScript.CreateObject("InternetExplorer.Application")
        .Silent    = True
       
        .FullScreen = False
        '.Resizable  = False
       
        .MenuBar    = False
        .ToolBar    = False
        .AddressBar = False
        .StatusBar  = False
       
        .Left      = intLeft
        .Top        = intTop
        .Width      = intWidth
        .Height    = intHeight
       
        .Navigate strURL
           
        Do
            WScript.Sleep 100
        Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE
           
        .Visible = True
    End With
End Sub

giksapiens 07-10-2010 02:49 1513239
Не уверен, что через батники возможно управление окнами. А вот через powershell возможно - http://wasp.codeplex.com/

amel27 07-10-2010 06:05 1513274
giksapiens, да тут полноценного управления и не нужно:

- настроить параметры первого окна, выставить URL1 как стартовую страницу;
- закрыть окно;
- повторно открыть и убедиться, что всё как нужно - положение, адрес и т.п.;
- закрыть окно;
- сохранить ветку реестра через RegEdit или CMD в url1.reg:
Код:
reg export "HKCU\Software\Microsoft\Internet Explorer\Main" url1.reg
- проделать то же самое со вторым URL, сформировать url2.reg;
- поставить в автозагрузку батник типа:
Код:
@echo off

reg import url1.reg
ping -n 2 127.0.0.1 >nul

start "URL1" iexplore.exe
ping -n 3 127.0.0.1 >nul

reg import url2.reg
ping -n 2 127.0.0.1 >nul

start "URL2" iexplore.exe

Snowmania 07-10-2010 17:12 1513692
Вложений: 4
Всем ОГРОМНОЕ СПАСИБО!

Вариант, предложенный Iska, идеально подходит! (рис1)

Но! Когда включаю Св-ва обозревателя/Содержание/Ограничение доступа - не грузит страницы (рис2)
и когда прописываю адреса камер, то же самое (рис3)
Открываю браузером - все работает! (рис4)

Помогите не особо осведомленному человеку)! :durak:

Snowmania 11-10-2010 10:33 1516148
Через *.vbs не получилось.
Зато, работает батник. Не успевало первое окно загрузиться, нужен был timeout.
amel27 :up

@echo off

reg import url1.reg
//ping -n 2 10.127.0.1 >nul

start "URL1" iexplore.exe
//ping -n 3 10.127.0.1 >nul

timeout /T 2 /nobreak

reg import url2.reg
//ping -n 2 10.127.0.1 >nul

start "URL2" iexplore.exe

amel27 11-10-2010 10:37 1516151
Цитата:
Цитата Snowmania
Не успевало первое окно загрузиться »
хоть бы хто подсказал, что в IP в ошибся... исправил ;)

Snowmania 12-10-2010 09:27 1516913
Еще вопрос!
Как в iexplorer'е Все кнопки и поля повырубать?

В коде Iska *.vbs, можно было:
.MenuBar = False
.ToolBar = False
.AddressBar = False
.StatusBar = False
Это очень удобно, чтоб охранники напакостить не могли. Я через реестр не смог все отключить, а в скриптах не понимаю....

amel27 12-10-2010 10:45 1516971
Цитата:
Цитата Snowmania
чтоб охранники напакостить не могли »
вообще-то для этого есть локальная политика/административные шаблоны

Snowmania 12-10-2010 11:11 1516988
Я не нашел, как отключить все это ни в реестре, ни в Локальных политиках, ни в групповой политике.
MenuBar
ToolBar
AddressBar
StatusBar
Нужно, чтобы осталось пустое окно, ни каких команд и кнопок iexplorer!

В сообщении #6, картинки 1 и 2. Нужно запускаемые окна так настроить.
:help:

amel27 12-10-2010 11:34 1517000
Цитата:
Цитата Snowmania
не нашел, как отключить все это ни в реестре, ни в Локальных политиках, ни в групповой политике »
извиняюсь... забыл, что начиная с IE7 всё это добро вынесли в IEAK

Snowmania 12-10-2010 12:08 1517017
Да, забыл сказать, у меня IE 6.0

amel27 12-10-2010 13:45 1517094
кое-что тут есть:

Ограничения, существующие в обозревателе Internet Explorer 6.0 с пакетом обновления 1 (SP1)

Internet Explorer Restrictions
Internet Explorer Toolbar Restrictions
Internet Explorer Control Panel Restrictions (Part 1)
Internet Explorer Control Panel Restrictions (Part 2)

Internet Explorer Administration Kit 6

Snowmania 13-10-2010 15:54 1518000
amel27 Спасибо!

Остался один меню-бар (Правка, Вид, Сервис, Справка) Безопасности он не угрожает... Но, в связи с потраченным временем, глаза мозолит... Неужели нельзя его убрать!?

amel27 14-10-2010 13:05 1518647
Snowmania, может совместить с методом Iska?..
запустить VBS последней строкой батника - после того, как прогрузятся страницы:
Код:
On Error Resume Next

For Each obj in WScript.CreateObject("Shell.Application").Windows()
  If Left(obj.LocationURL,7)="http://" Then
    obj.MenuBar = False
  End If
Next

Snowmania 15-10-2010 10:05 1519337
Получилось! :clapping: :clapping: :clapping:


Время: 12:10.

Время: 12:10.
© OSzone.net 2001-