Исходный код Check1CD

Opt(“TrayIconHide”, 1)
Opt(“SendKeyDelay”, 0)
$target = @ProgramFilesDir & “\1cv81\bin\chdbfl.exe”
If $cmdline[0] <> 2 Then
MsgBox(0, “Описание параметров запуска”, “Check1CD.exe ИсправлятьОшибки ИмяФайлаБД” & @CRLF & @CRLF & “ИсправлятьОшибки: 0 или 1” & @CRLF & “ИмяФайлаБД: путь к файлу 1Cv8.1CD”)
Exit
EndIf
Run($target)
WinWait(“Проверка физической целостности файла БД”)
Send($cmdline[2], 1)
Send(“{TAB}”)
If $cmdline[1] = “1” Then
Send(“{SPACE}”)
EndIf
Send(“{TAB 2}{ENTER}”)

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *