Отловить прерывание скрипта

[alibek]

Есть скрипт VBS, который обрабатывает документы Word.
Создается невидимый инстанс Word (через CreateObject), загружаются документы, выполняется обработка, затем инстанс закрывается.
Выполнение скрипта может быть прервано (нажатием Ctrl+C или закрытием хоста).
Можно ли это событие перехватить, чтобы запущенный инстанс Word сделать видимым?

[ALX_2002]

alibek, приветствую ! Конечно можно ! )

Вариант 1

Код: Выделить всё

Option Explicit

Eval "new clsClass"

Class clsClass
   Private oWordApp
   
   Private Sub Class_Initialize()
      Set oWordApp = CreateObject("Word.Application")
   End Sub
   
   Private Sub Class_Terminate()
      oWordApp.Visible = True
      MsgBox "Event before close", vbInformation
      oWordApp.Quit
   End Sub
End Class


Вариант 2 (Предпочитаю его использовать)

Код: Выделить всё

Option Explicit

Dim oEvent
Dim oWordApp
Set oEvent = new clsTerminationEvent
oEvent.Attach GetRef("Script_OnTerminate")

Set oWordApp = CreateObject("Word.Application")

Sub Script_OnTerminate()
   oWordApp.Visible = True
   MsgBox "Event before close", vbInformation
   oWordApp.Quit
End Sub

Class clsTerminationEvent
   Private oEvent
   
   Sub Attach(oRef)
      Set oEvent = oRef
   End Sub
   
   Private Sub Class_Terminate()
      If isObject(oEvent) Then oEvent
   End Sub
End Class


[alibek]

Контрольный пример:

Код: Выделить всё

Option Explicit

Dim i

Dim oEvent: Set oEvent = New clsTerminationEvent
oEvent.Attach GetRef("Script_OnTerminate")

For i = 1 To 100
  WScript.Echo "- " & i
  WScript.Sleep(300)
Next

Sub Script_OnTerminate()
  WScript.Echo "Выполнение скрипта прервано."
End Sub

Class clsTerminationEvent
  Private oEvent

  Sub Attach(oRef)
    Set oEvent = oRef
  End Sub

  Private Sub Class_Terminate()
    If isObject(oEvent) Then oEvent
  End Sub
End Class


При завершении скрипта через Ctrl+C скрипт просто прекращает работу, текст "Выполнение скрипта прервано." не выводится.

[ALX_2002]

alibek, пардон. Неправильно понял Вашу задачу. Тогда в голову приходит вариант создания второго инстанса скрипта, который будет следить за состоянием первого и передача ему ссылки на Word.Application для отображения. Такой вариант подойдёт ?

Вообще для определения верного пути нужно уточнить несколько моментов.
1) Кто запускает скрипт - запуск по клику или запуск из некоего приложения (Если запуск из приложения и оно доступно для изменения, то можно в нём мониторить завершение)
2) Word документ править можно ? (Если да, то думаю можно вставить VBA макрос, проверяющий закрытие внешнего приложения)

[alibek]

Да, перепроверил — событие Class_Terminate срабатывает только при штатном завершении скрипта (завершение, Quit или исключение).
При Ctrl+C скрипт завершается сразу же.

1. Скрипт запускается вручную (из консоли). Вариант с двумя скриптами, один из которых будет следить за вторым, мне бы не хотелось использовать.

2. Нет, документ не должен меняться.

[ALX_2002]

alibek, боюсь тогда остаётся 2 варианта:
1) написание ActiveX, который будет перехватывать событие завершения процесса и перед этим вызывать необходимую процедуру в скрипте. (Ну и соответственного его создание в самом начале скрипта)
2) Использование постоянной подписки на WMI. При этом отслеживающая часть скрипта может работать в фоне.

Хотя... Есть ещё третий - правка Normal.dot с добавлением VBA кода с отслеживанием закрытия. Но тоже некрасиво как-то.

P.S Хм... Если подумать, то можно в открытом Word.Application управлять VBA кодом. И динамически добавить нужный кусок кода.

Помню очень давно это делал: http://forum.script-coding.com/viewtopic.php?pid=48683#p48683

[alibek]

Даже если использовать скрипт из двух частей (следящая и рабочая), как между ними передавать ссылку на Word.Application?

[ALX_2002]

Даже если использовать скрипт из двух частей (следящая и рабочая), как между ними передавать ссылку на Word.Application?

Я давно нашёл способ, но не уверен, что Вам понравится. - http://forum.script-coding.com/viewtopic.php?id=5573

А вариант с динамической добавкой VBA кода не катит ?

[alibek]

Нет, исходные документы изменять нельзя.

[alibek]

Я давно нашёл способ, но не уверен, что Вам понравится. - http://forum.script-coding.com/viewtopic.php?id=5573

Действительно, сомнительный способ.
Попробую все же поискать, как можно перехватить Ctrl+C.
Тем более, что один раз по Ctrl+C у меня почему-то сработало событие завершения скрипта.

[Sam777e]

Создается невидимый инстанс Word (через CreateObject), загружаются документы, выполняется обработка, ...

А что при этом на экране? Чей фокус? Чьё это событие?
Другими словами - кому идет Ctrl+C ?

Вдруг поможет
1. http://www.script-coding.com/WSH/WScript.html#3.5.
ConnectObject

или

2. https://habr.com/post/189786/
«Многопоточность» WSH VBScript

Я не проверял.