DEX(dicom export name)

While 1;начало цикла(начинаем цикл с вложенными в него задачами)

WinWaitActive("Ez3D2009"); ожидание активации окна EZ3D2009

WinWaitActive("CD/DVD Burner"); ожидание активации окна записи диска

$M = MsgBox(262148, "EXPORT MEMORY", "ИЗВЛЕЧЬ ДАЙКОМЫ?"); назначаем переменную М на вызов меседж бокса(диалоговое окно) с параметрами да/нет

IF $M = 6 Then; ЕСЛИ МБ возвращается значением 6(да) тогда

$pn = "C:\Ez3D2009\dist\PatientNameDICOM.exe" ; Путь к PN!
$ar = "C:\Ez3D2009\CDViewer\3DViewer\Data\dct0230.dcm" ; Путь к нулевому DICOM
$command = $pn & " " & $ar ; Команда запуска

RunWait(@ComSpec & " /c " & $command, "", @SW_HIDE) ; Запускаем и выполняем команду в переменной $command

Sleep(1000) ; Ждем уверенную запись в буфер

$name_dir = ClipGet() ; Запись в переменную содержимого буфера
$dir_end = "D:\6_Desktop\" & $name_dir ; Где надо создать папку + имя из DICOM

Sleep(1000)

DirCreate($dir_end) ; Создаем папку

If FileExists("D:\6_Desktop\" & $name_dir) Then ;проверка наличия созданной папки

DirCopy("C:\Ez3D2009\CDViewer\3DViewer","D:\6_Desktop\"&$name_dir, 1);копирование файлов из папки для записи в папку на рабочем столе с именем переменной IB

Sleep(500); ожидание 0,5 сек

DirMove("D:\6_Desktop\"&$name_dir ,"\\Admin-pc\data",1);перемещение папки с рабочего стола в папку Data с ключём 1(перезапись)

MsgBox(262144,"EXPORT MEMORY","УСПЕШНО!",5);вызов информационного меседж бокса с уведомлением о готовности перемещения

WinWaitClose("CD/DVD Burner"); ожидание закрытия окна записи

Sleep(1000); ожидание 1 сек

ProcessClose("Ez3D2009.exe"); завершения процесса Ez3D2009.exe

Sleep(10000); ожидание 10 сек

DirRemove("C:\Ez3D2009\CDViewer\3DViewer\Data",1); удаление папки Data с ключем 1(удаление файлов и поддерикторий)

DirCreate("C:\Ez3D2009\CDViewer\3DViewer\Data"); создание папки Data

sleep(50000)

CDTray("F:","CLOSED")

Else

   ProcessClose("DEX.exe") ; убить процесс в случае ошибки

MsgBox(48,"ВНИМАНИЕ!","СКРИПТ НЕОЖИДАННО ЗАВЕРШИЛСЯ. ЗАПУСТИТЕ ЗАНОВО ПОСЛЕ ОКОНЧАНИЯ ЗАПИСИС ДИСКА.")

EndIf


ELSE; иначе: условие в случае второго сценария

WinWaitClose("CD/DVD Burner"); ожидание закрытия окна записи

Sleep(1000); ожидание 1 сек

ProcessClose("Ez3D2009.exe"); завершения процесса Ez3D2009.exe

Sleep(30000); ожидание 30 сек

DirRemove("C:\Ez3D2009\CDViewer\3DViewer\Data",1); удаление папки Data с ключем 1(удаление файлов и поддерикторий)

DirCreate("C:\Ez3D2009\CDViewer\3DViewer\Data"); создание папки Data

sleep(50000)

CDTray("F:","CLOSED")

EndIf; окончание условия IF

WEnd;конец цикла(закрываем цикл)