Перейти на сайт программно – просто!

Существуют организации, которые в карточку клиента добавляют реквизит Сайт. В дополнении к этому можно сделать полезную кнопку, которая будет открывать сайт клиента. Код процедуры приведен ниже.

 Пример использования в 1С: Предприятии:

//********************************************************

//Код для 1С77

Процедура ОткрытьURL(URL)

      

       ИЕ = СоздатьОбъект("InternetExplorer.Application");

       ИЕ.Navigate(URL);

       ИЕ.Visible = 1;

       //активизируем окно IE

       WSHShell = СоздатьОбъект("WScript.Shell");

       res = WSHShell.AppActivate("explorer");

      

КонецПроцедуры

 

//********************************************************

//Код для 1С8

Процедура ОткрытьURL(URL)

      

       ИЕ = Новый COMОбъект("InternetExplorer.Application");

       ИЕ.Navigate(URL);

       ИЕ.Visible = 1;

       //активизируем окно IE

       WSHShell = Новый COMОбъект("WScript.Shell");

       res = WSHShell.AppActivate("explorer");

      

КонецПроцедуры

Для запуска другого браузера, установленного по умолчанию, можно использовать следующую командную строку:

start www.ya.ru

Команда также используется для запуска других приложений. Например, start D:\Document.doc откроет документ MS Word из указанной в параметре папки.