Комментарии
Избранное
Подписка
Сортировка:
Древо
(5) q_i,
Метод Sleep действительно существует у объекта WScript.
НО WScript существует только для скриптов, которые вызываются из командной строки,
Объект WScript нельзя получить, используя COMОбъект.
Следовательно надо создавать файл, скажем во временной папке, записать туда текст скрипта, а потом его выполнять, после этого - в общем случае - удалить этот файл.
Метод Sleep действительно существует у объекта WScript.
НО WScript существует только для скриптов, которые вызываются из командной строки,
Объект WScript нельзя получить, используя COMОбъект.
Следовательно надо создавать файл, скажем во временной папке, записать туда текст скрипта, а потом его выполнять, после этого - в общем случае - удалить этот файл.
Для работы со скриптами на уровне COM Используется MSScriptControl.
В примере есть упоминание о нем.
Но тут есть одна проблема с которой я столкнулся и разрешить так и не смог.
При создании объекта на 64 битном сервере 1С (Именно 1С, не Win) - объект не создается, что то там с политиками безопасности от мелкомягких. Не все 32 битные COM-ы могут быть вызваны 64 битным приложением.
MSScriptControl - один из них :(
В примере есть упоминание о нем.
&НаКлиентеНаСервереБезКонтекста
Функция ВремяВМиллисекундах()Но тут есть одна проблема с которой я столкнулся и разрешить так и не смог.
При создании объекта на 64 битном сервере 1С (Именно 1С, не Win) - объект не создается, что то там с политиками безопасности от мелкомягких. Не все 32 битные COM-ы могут быть вызваны 64 битным приложением.
MSScriptControl - один из них :(
(30)
еще раз спасибо - реально пригодилось!
теперь могу засекать время выполнения запросов с точностью до миллисекунды.
---
проблемка с другой процедуркой:
SendKeys(KEYS_ENG = "^+z", KEYS_RUS = "^+я")
Пытаюсь имитировать вызов на редактирование поля ввода в форме по клавише 'F4'
(смотри код ниже) - ничего выходит (тип редактируемого значения - "СписокЗначений").
еще раз спасибо - реально пригодилось!
теперь могу засекать время выполнения запросов с точностью до миллисекунды.
---
проблемка с другой процедуркой:
SendKeys(KEYS_ENG = "^+z", KEYS_RUS = "^+я")
Пытаюсь имитировать вызов на редактирование поля ввода в форме по клавише 'F4'
(смотри код ниже) - ничего выходит (тип редактируемого значения - "СписокЗначений").
Процедура SendKeys(KEYS_ENG = "^+z", KEYS_RUS = "^+я")
Если ПустаяСтрока(KEYS_ENG) И ПустаяСтрока(KEYS_ENG) Тогда
Возврат;
КонецЕсли;
Попытка
WshShell = Новый COMОбъект("Wscript.Shell");
Если НЕ ПустаяСтрока(KEYS_ENG) Тогда
WshShell.SendKeys(KEYS_ENG); // для случая, если текущей является английская раскладка клавиатуры.
КонецЕсли;
Если НЕ ПустаяСтрока(KEYS_RUS) Тогда
WshShell.SendKeys(KEYS_RUS); // для случая, если текущей является русская раскладка клавиатуры.
КонецЕсли;
// SendKeys(String) - имитируется нажатие клавиши или последовательности клавиш, указанных в параметре String.
// В качестве параметра можно указывать как алфавитно-цифровые символы, так и символы специальных клавиш, например:
// "Enter", "Tab", "F1", "Alt", "Shift", "Ctrl" и т.д.
// Для указания клавиш "Alt", "Shift", "Ctrl" существуют специальные коды:
// "Shift" - +;
// "Ctrl" - ^;
// "Alt" - %.
// Если возникнет необходимость передать специальные символы именно как символы, а не команды,
// нужно заключать их в фигурные скобки, например {+}.
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
КонецПроцедуры
Процедура СписокНомеровПС_КонтМенюИзменить(Кнопка)
Если ЭтаФорма.ТекущийЭлемент <> ЭлементыФормы.СписокНомеровПС Тогда
ЭтаФорма.ТекущийЭлемент = ЭлементыФормы.СписокНомеровПС;
КонецЕсли;
SendKeys("F4","F4");
КонецПроцедуры
Показать
(33)
иище раз о ВремяВМиллисекундах():
В каких ситуациях в функции может сработать исключение и
вместо миллисекунд функция вернет 1С-ное текущее время-дату ???
PS:
В своем варианте по исключению я возвращаю значение:
1000*(ТекущаяДата() - '1970-01-01:06:00:00')
как более подходящее по смыслу - округленное до целых секунд число миллисекунд.
06:00:00 - это наверное из-за разницы времени между Новосибирском и Гринвичем.
иище раз о ВремяВМиллисекундах():
В каких ситуациях в функции может сработать исключение и
вместо миллисекунд функция вернет 1С-ное текущее время-дату ???
PS:
В своем варианте по исключению я возвращаю значение:
1000*(ТекущаяДата() - '1970-01-01:06:00:00')
как более подходящее по смыслу - округленное до целых секунд число миллисекунд.
06:00:00 - это наверное из-за разницы времени между Новосибирском и Гринвичем.
при вызове Win32Shutdown с флагами отличными от 0 - ничего не происходит
или я что-то не так делаю
Пример:
или я что-то не так делаю
Пример:
WinMGMT = ПолучитьCOMОбъект("winmgmts:\\.\root\cimv2");
Win32_OS = WinMGMT.ExecQuery("SEL ECT * FR OM Win32_OperatingSystem where Primary=true");
Reserved = 0; // Зарезервированный параметр. Игнорируется.
Для Каждого OS ИЗ Win32_OS Цикл
OS.Win32Shutdown(6, Reserved);
КонецЦикла;
(48) slaviksoft,
СПАСИБО.
Вместо строчки:
Необходимо:
Проверил на Windows XP x32 и Windows 7 x64.
СПАСИБО.
Вместо строчки:
WinMGMT = ПолучитьCOMОбъект("winmgmts:\\.\root\cimv2"); Необходимо:
WinMGMT = ПолучитьCOMОбъект("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\" + Computer + "\root\cimv2");Проверил на Windows XP x32 и Windows 7 x64.
StepByStep,
А в каком случае SendKey может использоваться на сервере? К процедуре указана директива &НаКлиентеНаСервереБезКонтекста.
Я там понимаю, что для сендкея обязательно нужно открытое окно приложения и тем более открытая сессия (нормальная сессия с рабочим столом и т.п.), а на сервере такого вроде 1С сервер не создает?
А в каком случае SendKey может использоваться на сервере? К процедуре указана директива &НаКлиентеНаСервереБезКонтекста.
Я там понимаю, что для сендкея обязательно нужно открытое окно приложения и тем более открытая сессия (нормальная сессия с рабочим столом и т.п.), а на сервере такого вроде 1С сервер не создает?
Почему-то не получается отправить символы с цифровой клавиатуры.
Нижеперечисленные варианты (также без скобок "()") приводят к ошибке "Произошла исключительная ситуация (0x80070057)".
1)
2)
Нижеперечисленные варианты (также без скобок "()") приводят к ошибке "Произошла исключительная ситуация (0x80070057)".
1)
Ws = Новый COMОбъект("Wscript.shell");
Ws.SendKeys("^+({Pad-})");2)
Ws = Новый COMОбъект("Wscript.shell");
Ws.SendKeys("^+({Subtract})");
Доброго времени суток! Подскажите плиз. Юзаю одну из ваших функций
Computer_GroupUsersList(
Она возвращает имя группы и имя пользователя. Можно ли как-то получить "полное имя пользователя" ну или как это назвать ПРЕДСТАВЛЕНИЕ. Т.е. то Имя, которое отображается у пользователя, если нажать кнопку "Пуск". Например имя пользователя может быть "Zelensky" а полное имя "Зеленский Максим". Вот мне нужно как-то получить это полное имя.
Computer_GroupUsersList(
Она возвращает имя группы и имя пользователя. Можно ли как-то получить "полное имя пользователя" ну или как это назвать ПРЕДСТАВЛЕНИЕ. Т.е. то Имя, которое отображается у пользователя, если нажать кнопку "Пуск". Например имя пользователя может быть "Zelensky" а полное имя "Зеленский Максим". Вот мне нужно как-то получить это полное имя.
Подскажите кто сталкивался, как решить проблему такую: пытаюсь получить список пользователей на удаленном сервере, так вот с одними серверами происходит нормально, а на одном не выполняет даже инициализацию: ПолучитьCOMОбъект("winmgmts:\\" + Computer + "\root\cimv2");
сначала ругался "Ошибка получения объекта COM: Сервер RPC недоступен."
Почитал тут что брэндмауэр нужно настраивать, пробовал но не помогало и я его вообще отключил, теперь ругается "Ошибка получения объекта COM: Отказано в доступе."
сначала ругался "Ошибка получения объекта COM: Сервер RPC недоступен."
Почитал тут что брэндмауэр нужно настраивать, пробовал но не помогало и я его вообще отключил, теперь ругается "Ошибка получения объекта COM: Отказано в доступе."
Подскажите как с помощью даного скрипта емулировать нажатие на маленькой клавиатуре NUM + и NUM -
так ошибка
нужно когда картинка активизирована на форме кнопкой УМЕНЬШИТЬ УВЕЛИЧИТЬ менять масштаб
просто нажатие + и - работает,
ПОМОГИТЕ ЗНАТОКИ!!!!!!!!!!!
так ошибка
ОбъектShell = Новый COMОбъект("Wscript.Shell");
ОбъектShell.SendKeys("{Add}");
ОбъектShell.SendKeys("{Subtract}");
нужно когда картинка активизирована на форме кнопкой УМЕНЬШИТЬ УВЕЛИЧИТЬ менять масштаб
просто нажатие + и - работает,
ПОМОГИТЕ ЗНАТОКИ!!!!!!!!!!!
(65) Для тех, кто долго искал как программно "нажать" Ctrl+Shift+{+} (развернуть все ветки; актуально для таблицы формы, представленной в виде дерева по произвольному запросу с группировкой). Работает следующий код:
objShell = Новый COMОбъект( "WScript.Shell" );
objShell.SendKeys( "^+" + Символ( 107 ) );
Новые вопросы с вознаграждением
Автор темы объявил вознаграждение за найденный ответ, его получит тот, кто первый поможет автору.