Содержание:
3. Запуск базы 1С через VBScript
4. Эмуляция нажатия клавиатуры через файл VBScript
1. Объект WScript.Shell
Сейчас конфигурации платформы 1С – это масштабный комплекс систем по автоматизации деятельности любых отраслей бизнеса (в странах СНГ и немного дальше). Довольно громко сказано, но чем больше работаешь в этой сфере, тем больше понимаешь, что это ближе к реальности, чем кажется.
Платформа постоянно развивается и совершенствуется. Но сама по себе работа платформы 1С не может охватить все. Ну, и это логично. Ни одна программа не может закрыть все потребности. Иначе она станет слишком неповоротливой и неудобной. Для расширения функций и возможностей в каждой подобной платформе существуют инструменты взаимодействия с другими программами и системами. Об одном из таких инструментов и пойдет речь – далее о запуске скриптов VBS в 1С через com-объект «WScript.Shell».
Объект WScript.Shell позволяет управлять запуском сторонних приложений, работать с реестром, создавать ярлыки, эмулировать нажатие клавиш и многое другое.
Стоит отметить, что с помощью скриптов VBS можно как запускать базы 1С для каких-то служебных задач, так и наоборот – с помощью 1С + script VBS возможно выполнять какие-то системные действия, которые не получиться сделать с помощью платформы 1С, но можно сделать через запуск VBS.
2. Запуск скрипта VBS из 1С
Запуск скриптаVBS в 1С
В строке запуска VBS можно указать какое-то приложение или строку для запуска (аналогично «Пуск → Выполнить»). Метод «Run» запускает приложение через командную строку. Первый параметр содержит выполняемую команду. Задается в формате DOS. Второй параметр отвечает за отображение окна (1 – окно будет видимо и активно). Третий параметр отвечает за ожидание завершения процесса (Ложь – не ждать завершения процесса).
Например, откроем приложение «Блокнот». После нажатия «Запуск скрипта» открывается «Блокнот»:
Обработка Запуск VBS для открытия Блокнота
3. Запуск базы 1С через VBScript
Запуск базы 1С осуществляется через файл VBScript. В файле нужно указать параметры подключения к базе и адрес запуска платформы 1С:
Set WshShell = CreateObject("WScript.Shell")
Server_Name = "Server01"
Base_Name = "Test01"
Login = "Test01"
Pass = "Test01"
WshShell.Run """C:\Program Files (x86)\1cv8\8.3.10.2561\bin\1cv8.exe"" ENTERPRISE /S " & Server_Name & "\" & Base_Name &" /N " & Login & " /P " & Pass & "",0,0
Запуск внешней обработки через скрипт vbs
Set WshShell = CreateObject("WScript.Shell")
Server_Name = " Server01"
Base_Name = " Test01"
Login = " Test01"
Pass = " Test01"
TestStart = "C:\temp\TestVBS.epf"
WshShell.Run """C:\Program Files (x86)\1cv8\8.3.10.2561\bin\1cv8.exe"" ENTERPRISE /S " & Server_Name & "\" & Base_Name &" /N " & Login & " /P " & Pass & " /Execute " & TestStart & "",0,0
Сообщим результат при открытии обработки:
Результат при открытии обработки – скрипт VBS успешно отработал
4. Эмуляция нажатия клавиатуры через файл VBScript
Для эмуляции клавиатуры откроем блокнот и в него передадим строку запуска для повторения нажатия клавиш. Если поставить паузу между выводом символов, то будет казаться, что идет набор текста.
Код для эмуляции клавиатуры
Эмуляция клавиатуры в блокноте
Специалист компании «Кодерлайн»
Кирилл Карцев