D&EX

While 1

WinWaitActive("Ez3D2009")

WinWaitActive("CD/DVD Burner")

$M = MsgBox(262148, "EXPORT MEMORY", "ИЗВЛЕЧЬ ДАЙКОМЫ?")

IF $M = 6 Then

Sleep(1500)

$IB=InputBox("!!!","ВВЕДИТЕ ФИО ПАЦИЕНТА")

Sleep(1500)

WinActivate("!!!")

DirCreate("D:\6_Desktop\"&$IB)

DirCopy("C:\Ez3D2009\CDViewer\3DViewer","D:\6_Desktop\"&$IB, 1)

Sleep(500)

DirMove("D:\6_Desktop\"&$IB ,"\\Admin-pc\data",1)

MsgBox(262144,"EXPORT MEMORY","УСПЕШНО!")

ProcessClose("Ez3D2009.exe")

Sleep(30000)

DirRemove("C:\Ez3D2009\CDViewer\3DViewer\Data",1)

DirCreate("C:\Ez3D2009\CDViewer\3DViewer\Data")


ELSE

ProcessClose("Ez3D2009.exe")

Sleep(30000)

DirRemove("C:\Ez3D2009\CDViewer\3DViewer\Data",1)

DirCreate("C:\Ez3D2009\CDViewer\3DViewer\Data")


EndIf

WEnd