спКомп = СоздатьОбъект("СписокЗначений"); Попытка ScrptCtrl=СоздатьОбъект("MSScriptControl.ScriptControl"); ScrptCtrl.Language="vbscript"; ScrptCtrl.AddCode(" |Function GetComputers() | Set WinNT = GetObject(""WinNT:"") | WinNT.Filter =...
COM-объекты, WMI, WSH
COM-объекты, WMI, WSH
Соединение = Новый HTTPСоединение("export.rbc.ru"); //готовим соединение ИмяФайла = ПолучитьИмяВременногоФайла(".txt"); //строка-образец //http://export.rbc.ru/free/cb.0/free.fcgi?period=DAILY&tickers=USD&d1=18&m1=01&y1=2009&d2=17&m2=02&y2=2009&lastdays=30&separator=TAB&data_format=BROWSER&header=1 //http://export.rbc.ru/free/cb.5/free.fcgi?period=DAILY&tickers=USDEUR_BASKET&d1=08&m1=07&y1=2009&d2=22&m2=07&y2=2009&lastdays=14&separator=TAB&data_format=BROWSER&header=1 СтрокаСоединения="/free/"+Источник+"/free.fcgi?period=DAILY&tickers="+Валюта1+"&d1="+День1+"&m1="+Месяц1+"&y1="+Год1+"&d2="+День2+"&m2="+Месяц2+"&y2="+Год2+"&separator=%7C&data_format=BROWSER"; СтрокаСоединения=СтрЗаменить(СтрокаСоединения," ",""); Попытка //соединяемся...
Для работы с сетевыми ресурсами в WSH предназначен объект WshNetwork. Из "1С:Предприятие" можно напрямую управлять сетевыми ресурсами,...
ScriptCtrl = Новый COMОбъект("MSScriptControl.ScriptControl"); ScriptCtrl.Language = "vbscript"; ScriptCtrl.AddCode(" Function PlayS() | Set Wrap = CreateObject(""DynamicWrapper"") | Wrap.Register...
В системе "1С:Предприятие" часто возникает ситуация, когда нужно закрыть окно сообщений, появляющееся при вызове метода Сообщить. Стандартно...
Ниже приведено несколько способов получения списка баз 1С 7.7 из реестра: Код получения списка баз 1С 7.7...
Код для получения новостей с сайта 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 Цикл Номер=СокрЛП(Накл.НомерДок);...