Снегопат

sendCommand("{EF6D156B-12FB-4CE7-A0E9-7F0C2EDC7D06}", 0)

events.connect(windows, "onDoModal"

function onMessageBoxSaveToFileCF(dlgInfo) {
    //Модальное окно открыто.
    if ((dlgInfo.stage == openModalWnd) && (dlgInfo.Caption=="Конфигуратор")) {
        // тут sendkey
    } else {
        if ((dlgInfo.stage == afterDoModal) && (dlgInfo.Caption=="Конфигуратор")) {
            //после модального окна, тут я отключаюсь от события.
            try {
                events.disconnect(windows, "onDoModal", SelfScript.self, "onMessageBoxSaveToFileCF");
             } catch (e) { }
            }
        }
}

var мВызовИзМакроса = false

events.connect(windows, "onDoModal", SelfScript.self, "onMessageBoxSetPassword");

function macrosУстановитьПароль()
{
   мВызовИзМакроса = true
   sendCommand("{EF6D156B-12FB-4CE7-A0E9-7F0C2EDC7D06}", 0)
   мВызовИзМакроса = false
}

function onMessageBoxSetPassword(dlgInfo) {
    if ((dlgInfo.stage==openModalWnd) && (dlgInfo.Caption=="Защита модуля") && (мВызовИзМакроса==true)){
      new ActiveXObject("WScript.Shell").SendKeys("pass{TAB}pass{TAB}{ENTER}");
    }
}

function macrosУстановитьПароль()
{
   events.connect(windows, "onDoModal", SelfScript.self, "onMessageBoxSetPassword");
   sendCommand("{EF6D156B-12FB-4CE7-A0E9-7F0C2EDC7D06}", 0)
}

function onMessageBoxSetPassword(dlgInfo) {
    if (dlgInfo.stage==openModalWnd && dlgInfo.Caption=="Защита модуля"){
      events.disconnect(windows, "onDoModal", SelfScript.self, "onMessageBoxSetPassword");
      // Вот тут надо узнать имена контролов и значения в них устанавливать вот так
      dlgInfo.form.getControl("ТутИмяКонтролаСПаролем").value="pass";
      dlgInfo.form.getControl("ТутИмяДругогоКонтролаСПаролем").value="pass";
      new ActiveXObject("WScript.Shell").SendKeys("^~"); // Ctrl+Enter
    }
}

   if(dlgInfo.stage == openModalWnd)
   {
      Message(dlgInfo.Caption);
      // Пример перебора контролов на форме
      //Message("HWND = 0x" + dlgInfo.form.hwnd.toString(16));
      for(var c = 0; c < dlgInfo.form.controlsCount; c++)
      {
         var ctr = dlgInfo.form.getControl(c)
         Message(ctr.name + ",   " + ctr.id + ",   " + ctr.value)
      }
   }

$engine JScript
$uname my_macros
$dname Мои макросы
$addin global
$addin stdcommands
$addin stdlib

var мВызовИзМакроса = false

events.connect(windows, "onDoModal", SelfScript.self, "onMessageBoxSetPassword");

//////////////////////////////////////////////////////////////////////////////////////
////{ Макросы
////
function macrosОткрытьМодульОбъекта()
{
   //debugger
    try
    {
        windows.getActiveView().mdObj.editProperty("МодульОбъекта");
        return true
    }catch(e){}
    return false
}

function macrosОткрытьОсновнуюФорму()
{
    try
    {
      var mdObj = windows.getActiveView().mdObj
      var mainForm = mdObj.container.findByUUID(stdlib.getUuidFomMDRef(mdObj.property("ОсновнаяФорма")))
      mainForm.editProperty("Форма")
        return true
    }catch(e){}
    return false
}

function macrosУстановитьПароль()
{
   мВызовИзМакроса = true
   sendCommand("{EF6D156B-12FB-4CE7-A0E9-7F0C2EDC7D06}", 0)
   мВызовИзМакроса = false
}

function onMessageBoxSetPassword(dlgInfo) {
    if ((dlgInfo.stage==openModalWnd) && (dlgInfo.Caption=="Защита модуля") && (мВызовИзМакроса==true)){
      dlgInfo.form.getControl("Password").value="pass";
      dlgInfo.form.getControl("ConfirmPassword").value="pass";
      
       new ActiveXObject("WScript.Shell").SendKeys("^~"); // Ctrl+Enter
   }
}