AutoIt — продолжаем автоматизировать chdbfl.exe

Здравствуйте.

За последнее время профессиональная деятельность нашей команды изменилась и сталкиваться с 1С приходится лишь изредка. Именно поэтому так давно не было обновлений на данном ресурсе.

Однако одна из интересных задач осталась открытой и по сей день. Речь об автоматизации утилиты для проверки физической целостности файловой БД 1С.

В рамках развития проекта «ИТС-помощник» мы публикуем фрагмент скрипта AutoIt, позволяющий получить данные из поля вывода информации утилиты chdbfl.exe и записать в файл.

1. #include <MsgBoxConstants.au3>
2. #include <WinAPISys.au3>
3. #include <WinAPIvkeysConstants.au3>
4. #include <FileConstants.au3>
5. #include <WinAPIFiles.au3>
7. BeforeRun()
8. RunChdbfl()
9. Sleep($cmdline[4])
10. LogToClipboard()
11. ClipboardToFile()
13. Func BeforeRun()
14. Opt(«TrayIconHide», 1)
15. Opt(«SendKeyDelay», 0)
16. ; Запуск chdbfl.exe с передачей параметров:
17. ; — ПолныйПутьchdbfl.exe — напр. C:\Program Files\1cv8\8.3.9.1850\bin\chdbfl.exe
18. ; — ИсправлятьОшибки – исправлять обнаруженные ошибки (0 или 1)
19. ; — ИмяФайлаБД – путь к основному файлу базы данных (1Cv8.1CD)
20. ; — ВремяПроверки — время в миллисекундах по истечении которого данные chdbfl.exe будут записаны в файл
21. ; — ИмяЛогфайла — полный путь для сохранения лог-файла
22. If $cmdline[0] <> 5 Then
23. MsgBox(0, «Описание параметров запуска», «runchdbfl.exe ПолныйПутьchdbfl.exe ИсправлятьОшибки ИмяФайлаБД ВремяПроверки ИмяЛогфайла» & @CRLF & @CRLF & «ПолныйПутьchdbfl.exe: напр. C:\Program Files\1cv8\8.3.9.1850\bin\chdbfl.exe» & @CRLF & «ИсправлятьОшибки: 0 или 1» & @CRLF & «ИмяФайлаБД: путь к файлу 1Cv8.1CD» & @CRLF & «ВремяПроверки: время на проверку в миллисекундах» & @CRLF & «ИмяЛогфайла: напр. C:\Users\username\Documents\1C\logs\1cbdlog.txt»)
24. Exit
25. EndIf
26. EndFunc
28. Func RunChdbfl()
29. Run($cmdline[1])
30. WinWait(«Проверка физической целостности файла БД»)
31. Send($cmdline[3], 1)
32. Send(«{TAB}»)
33. If $cmdline[2] = «1» Then
34. Send(«{SPACE}»)
35. EndIf
36. Send(«{TAB 2}{ENTER}»)
37. EndFunc
39. Func LogToClipboard()
40. ; Получение дескриптора окна chdbfl.exe по заголовку
41. Local $hWnd = WinWait(«Проверка физической целостности файла БД», «», 1)
42. ; Установка фокуса в поле вывода результата проверки БД
43. ControlFocus($hWnd, «», «[CLASS:V8FormElement;INSTANCE:4]»)
44. ; Выделение выведенной информации (эмуляция ctrl+A)
45. _WinAPI_Keybd_Event($VK_CONTROL, 0)
46. _WinAPI_Keybd_Event($VK_A, 0)
47. _WinAPI_Keybd_Event($VK_A, 2)
48. _WinAPI_Keybd_Event($VK_CONTROL, 2)
49. ; Копирование выделенного
50. Send(«^{INSERT}»)
51. EndFunc
53. Func ClipboardToFile()
54. ; Получение дескриптора окна chdbfl.exe по заголовку
55. Local $hWnd = WinWait(«Проверка физической целостности файла БД», «», 1)
56. ; Сохранение в переменную информации из буфера обмена
57. $sData = ClipGet()
58. ; Создание локальной переменной с именем файла
59. Local Const $sFilePath = $cmdline[5]
60. ; Открытие файла для дозаписи
61. Local $hFileOpen = FileOpen($sFilePath, $FO_APPEND)
62. If $hFileOpen = —1 Then
63. MsgBox($MB_SYSTEMMODAL, «», «An error occurred whilst writing the log file.»)
64. Return False
65. EndIf
66. ; Запись значения переменной $sData в файл
67. FileWrite($hFileOpen, $sData)
68. ; Закрытие файла
69. FileClose($hFileOpen)
70. WinClose($hWnd)
71. EndFunc