Ниже приведено несколько способов получения списка баз 1С 7.7 из реестра: Код получения списка баз 1С 7.7...
COM-объекты, WMI, WSH
COM-объекты, WMI, WSH
Код для получения новостей с сайта buh.ru, используется RSS-канал http://www.buh.ru/rss/rss-2.0.jsp Данный код для 7.7, при использовании в...
Перем Значение; // В эту переменную запишем значение из реестра RegProv=ПолучитьCOMОбъект( "winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv" ); // Читаем значение ключа...
ИЕ=СоздатьОбъект("InternetExplorer.Application"); ИЕ.navigate("file:///c:/НашХтмл.html"); Пока ИЕ.ReadyState
Программа rundll32.exe входит в стандартную поставку всех операционных систем семейства Windows и позволяет выполнять различные функции, описанные...
RegProv=ПолучитьCOMОбъект( "winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv" ); // Создадим ключ, установив значение в текущую дату RegProv.CreateKey("2147483649","Software\1C\1Cv8\Report"); // создание раздела // установка...
Процедура ЗапуститьПриложениеShell(Команда) Попытка Shell = Новый COMОбъект("Shell.Application"); Shell.ShellExecute(Команда, "", "", "open", 1); Исключение Сообщить(ОписаниеОшибки()); КонецПопытки; КонецПроцедуры //Пример...
// Переменная База - строка содержащая путь к базе 1С 7.7 // Возвращает переменную содержащую в себе...
WScript = Новый COMОбъект("WScript.Shell"); SpecialFolders = WScript.SpecialFolders; КаталогАвтозагрузки = SpecialFolders.item("AllUsersStartup"); ИмяФайлаСсылки = ПолучитьИмяФайла(КаталогАвтозагрузки, "1Cstart.lnk"); Shortcut = WScript.CreateShortcut(ИмяФайлаСсылки);...
Функция ЗапросSQL (SQLServer,Login,Password,ЗапросSQL) СтрокаСоединения = ("Driver={SQL Server}; Deleted=No; Data Source = ") + SQLServer + (";UID=") +...
При разработке отчетов или обработок рано или поздно приходится сталкиваться с необходимостью определения имени локального диска, сменного...
Функция ЗагрузитьМетаданные(КаталогИБ, ИмяПользователяV7, ПарольПользователяV7) Экспорт МД = Новый Структура; Состояние("Подключение к " + КаталогИБ); V7 = Новый...
ВозможныеИменаФайлаШрифтаEANGNIVC = Новый Массив; ВозможныеИменаФайлаШрифтаEANGNIVC.Добавить("EANGNIVC.TTF"); ВозможныеИменаФайлаШрифтаEANGNIVC.Добавить("EANG000.TTF"); Попытка objShell = Новый COMОбъект("Shell.Application"); objFolder = objShell.Namespace(20); ПутьККаталогуШрифтов = objFolder.Items().Item().Path;...
V77 = Новый COMОбъект("V77M.Application"); Если V77.Initialize(V77.RMTrade,"ИсточникСтр","") Тогда Сообщить("Успех"); Накл= V77.EvalExpr("CreateObject(""Документ.РасходнаяНакладная"")"); ДокОсн= V77.EvalExpr("CreateObject(""Документ"")"); Накл.ВыбратьДокументы(); Пока Накл.ПолучитьДокумент()=1 Цикл Номер=СокрЛП(Накл.НомерДок);...
App = Новый COMОбъект("Shell.Application"); // Дополнительные данные получаем так: // Название - App.Namespace(26).Title // Путь - App.Namespace(26).Self.Path...
//п_Текст - ТекстЗапроса... вернётся соответственно ТЗ Функция Прямой_запрос_к_jabber(п_Текст) Экспорт л_ТЗ = Новый ТаблицаЗначений; л_число_попыток = 0; л_Запрос_выполнен...
// Функция возвращает результат пинга указанного IPАдреса Функция ping(IPАдрес) objShell = Новый COMОбъект("WScript.Shell") ; objScriptExec = objShell.Exec("ping.exe...
На Рабочем столе Shell = Новый COMОбъект("WScript.Shell"); РабочийСтол = Shell.SpecialFolders("Desktop"); Ярлык = Shell.CreateShortcut(РабочийСтол + "\\Regedit.lnk"); Ярлык.TargetPath =...
Процедура ЗаполнитьНажатие(Элемент) запрос = СоставитьЗапрос(); //Функция СоставитьЗапрос() возвращает строку запроса ТаблицаВывода = Новый ТаблицаЗначений; ТаблицаВывода.Очистить(); ТаблицаВывода =...
Если это какая-нибудь обработка и запускается на клиенте(у пользователя) то можно использовать обработчик ожиданий у встроенных функций:...