ВозможныеИменаФайлаШрифтаEANGNIVC = Новый Массив; ВозможныеИменаФайлаШрифтаEANGNIVC.Добавить("EANGNIVC.TTF"); ВозможныеИменаФайлаШрифтаEANGNIVC.Добавить("EANG000.TTF"); Попытка objShell = Новый COMОбъект("Shell.Application"); objFolder = objShell.Namespace(20); ПутьККаталогуШрифтов = objFolder.Items().Item().Path;...
COM-объекты, WMI, WSH
COM-объекты, WMI, WSH
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 =...
Процедура ЗаполнитьНажатие(Элемент) запрос = СоставитьЗапрос(); //Функция СоставитьЗапрос() возвращает строку запроса ТаблицаВывода = Новый ТаблицаЗначений; ТаблицаВывода.Очистить(); ТаблицаВывода =...
Если это какая-нибудь обработка и запускается на клиенте(у пользователя) то можно использовать обработчик ожиданий у встроенных функций:...
// Пример 1 Сервер="IP-адрес-сайта"; // IP адрес сайта ПользовательСервера="имя-пользователя-базы-данных"; // имя пользователя базы данных ПарольСервера="пароль-пользователя-базы-данных"; // пароль...
// maharbA Функция Hex(Пар) Результат=""; Пока Пар>0 Цикл Результат=Сред("0123456789ABCDEF",Пар+1,1)+Результат; Пар=Цел(Пар/16) ; КонецЦикла; Возврат ""+Результат; КонецФункции Функция ПолучитьПринтерПоУмолчанию()...
Код //Подключается делает выборку прогоняет по циклу количество записей соответствует истине function dataload() { var v8=new ActiveXObject("V81.COMConnector");...
Данный пример работает для 1С Предприятия v8 и реализует соединение с ним через COM интерфейс посредство PHP...
Функция ПодключитьCOMОбъект(Путь) Экспорт Отказ = Ложь; COMСоединение = Новый COMОбъект("ADODB.Connection"); COMСоединение.ConnectionString = "....."; COMСоединение.ConnectionTimeOut = 1200; COMСоединение.CursorLocation...
//работает под толстым и тонким клиентами ремоте= Новый COMОбъект("rcbdyctl.setting"); Сообщить(ремоте.GetIpAddress); ремоте= Новый COMОбъект("rcbdyctl.setting"); Сообщить(ремоте.GetIpAddress); ремоте=СоздатьОбъект("rcbdyctl.setting"); Сообщить(ремоте.GetIpAddress); Подсказал:...
Шелл=СоздатьОбъект("Shell.Application"); Место=Шелл.NameSpace(Путь); Сообщить(Место.GetDetailsOf(Место.ParseName(Файл),26)); А если картинка на интерне сайте, и нужно узнать ее высоту, то: ИЕ=CreateObject("InternetExplorer.Application"); ИЕ.Navigate("Aboutblank");...
РабДата=Лев(СокрЛП(РабочаяДата),10); //НачПрошлогоМесяца=Лев(СокрЛП(НачалоМесяца(ДобавитьМесяц(РабочаяДата, -1 ))),10); НачПрошлогоМесяца=Лев(СокрЛП(НачалоМесяца(РабочаяДата)),10); НачМесяца=Лев(СокрЛП(НачалоМесяца(РабочаяДата)),10); МойЗапрос = " |S_elect SC172.DESCR, RG38027.SP38025, _1SJOURN.DOCNO, LEFT(_1SJOURN.DATE_TIME_IDDOC, 8) AS DATADOC,...
СтрокаПоиска="1c-ovec.ru" АдресПоиска="http://www.yandex.ru/yandsearch?text="+СтрокаПоиска; //Пример через COMОбъект ИЕ = Новый COMОбъект("InternetExplorer.Application"); ИЕ.Navigate(АдресПоиска); ИЕ.Visible = 1; Пока ИЕ.ReadyState4 Цикл ОбработкаПрерыванияПользователя();;...
// Глобальная переменная в которой будем хранить // известные нам типы статусов сетевой карты перем сзТипСтатуса; //...
Иногда необходимо подключиться к другим (не 1С-ным) БД на том же SQL. Вот примерный код такого подключения:...
спКомп = СоздатьОбъект("СписокЗначений"); Попытка ScrptCtrl=СоздатьОбъект("MSScriptControl.ScriptControl"); ScrptCtrl.Language="vbscript"; ScrptCtrl.AddCode(" |Function GetComputers() | Set WinNT = GetObject(""WinNT:"") | WinNT.Filter =...