
#include<FileConstants.au3>
#include<WinAPIFiles.au3>
While 1
If FileExists(@ScriptDir & '\vkl.los') Then
   If Not(ProcessExists("logsyst.exe")) Then
    Run(@ScriptDir & '\logsyst.exe',@ScriptDir)
   EndIf
EndIf
If FileExists(@ScriptDir & '\EX1\vkl.los') Then
   If Not(ProcessExists("logsys1.exe")) Then
     Run(@ScriptDir & '\EX1\logsys1.exe',@ScriptDir & '\EX1')
   EndIf
EndIf
If FileExists(@ScriptDir & '\EX2\vkl.los') Then
   If Not(ProcessExists("logsys2.exe")) Then
    Run(@ScriptDir & '\EX2\logsys2.exe',@ScriptDir & '\EX2')
   EndIf
EndIf
If FileExists(@ScriptDir & '\EX3\vkl.los') Then
   If Not(ProcessExists("logsys3.exe")) Then
    Run(@ScriptDir & '\EX3\logsys3.exe',@ScriptDir & '\EX3')
   EndIf
EndIf
If FileExists(@ScriptDir & '\EX4\vkl.los') Then
   If Not(ProcessExists("logsys4.exe")) Then
    Run(@ScriptDir & '\EX4\logsys4.exe',@ScriptDir & '\EX4')
   EndIf
EndIf
If FileExists(@ScriptDir & '\EX5\vkl.los') Then
   If Not(ProcessExists("logsys5.exe")) Then
    Run(@ScriptDir & '\EX5\logsys5.exe',@ScriptDir & '\EX5')
   EndIf
EndIf
If FileExists(@ScriptDir & '\EX6\vkl.los') Then
   If Not(ProcessExists("logsys6.exe")) Then
    Run(@ScriptDir & '\EX6\logsys6.exe',@ScriptDir & '\EX6')
   EndIf
EndIf
If FileExists(@ScriptDir & '\EX7\vkl.los') Then
   If Not(ProcessExists("logsys7.exe")) Then
    Run(@ScriptDir & '\EX7\logsys7.exe',@ScriptDir & '\EX7')
   EndIf
EndIf
If FileExists(@ScriptDir & '\EX8\vkl.los') Then
   If Not(ProcessExists("logsys8.exe")) Then
    Run(@ScriptDir & '\EX8\logsys8.exe',@ScriptDir & '\EX8')
   EndIf
EndIf
If FileExists(@ScriptDir & '\EX9\vkl.los') Then
   If Not(ProcessExists("logsys9.exe")) Then
    Run(@ScriptDir & '\EX9\logsys9.exe',@ScriptDir & '\EX9')
   EndIf
EndIf
If FileExists(@ScriptDir & '\EXa\vkl.los') Then
   If Not(ProcessExists("logsysa.exe")) Then
    Run(@ScriptDir & '\EXa\logsysa.exe',@ScriptDir & '\EXa')
   EndIf
EndIf
If FileExists(@ScriptDir & '\EXb\vkl.los') Then
   If Not(ProcessExists("logsysb.exe")) Then
    Run(@ScriptDir & '\EXb\logsysb.exe',@ScriptDir & '\EXb')
   EndIf
EndIf
If FileExists(@ScriptDir & '\EXc\vkl.los') Then
   If Not(ProcessExists("logsysc.exe")) Then
    Run(@ScriptDir & '\EXc\logsysc.exe',@ScriptDir & '\EXc')
   EndIf
EndIf
If FileExists(@ScriptDir & '\EXd\vkl.los') Then
   If Not(ProcessExists("logsysd.exe")) Then
    Run(@ScriptDir & '\EXd\logsysd.exe',@ScriptDir & '\EXd')
   EndIf
EndIf
If FileExists(@ScriptDir & '\EXe\vkl.los') Then
   If Not(ProcessExists("logsyse.exe")) Then
    Run(@ScriptDir & '\EXe\logsyse.exe',@ScriptDir & '\EXe')
   EndIf
EndIf
If FileExists(@ScriptDir & '\EXf\vkl.los') Then
   If Not(ProcessExists("logsysf.exe")) Then
     Run(@ScriptDir & '\EXf\logsysf.exe',@ScriptDir & '\EXf')
   EndIf
EndIf
If FileExists(@ScriptDir & '\EXg\vkl.los') Then
   If Not(ProcessExists("logsysg.exe")) Then
    Run(@ScriptDir & '\EXg\logsysg.exe',@ScriptDir & '\EXg')
   EndIf
Endif
If FileExists(@ScriptDir & '\EXh\vkl.los') Then
   If Not(ProcessExists("logsysh.exe")) Then
    Run(@ScriptDir & '\EXh\logsysh.exe',@ScriptDir & '\EXh')
   EndIf
EndIf
 If FileExists(@ScriptDir & '\EXi\vkl.los') Then
    If Not(ProcessExists("logsysi.exe")) Then
     Run(@ScriptDir & '\EXi\logsysi.exe',@ScriptDir & '\EXi')
   EndIf
 Endif
 If FileExists(@ScriptDir & '\EXj\vkl.los') Then
    If Not(ProcessExists("logsysj.exe")) Then
     Run(@ScriptDir & '\EXj\logsysj.exe',@ScriptDir & '\EXj')
   EndIf
 EndIf
If FileExists(@ScriptDir & '\EXk\vkl.los') Then
   If Not(ProcessExists("logsysk.exe")) Then
    Run(@ScriptDir & '\EXk\logsysk.exe',@ScriptDir & '\EXk')
   EndIf
 EndIf
If FileExists(@ScriptDir & '\EXl\vkl.los') Then
   If Not(ProcessExists("logsysl.exe")) Then
    Run(@ScriptDir & '\EXl\logsysl.exe',@ScriptDir & '\EXl')
   EndIf
 EndIf
If FileExists(@ScriptDir & '\EXm\vkl.los') Then
   If Not(ProcessExists("logsysm.exe")) Then
    Run(@ScriptDir & '\EXm\logsysm.exe',@ScriptDir & '\EXm')
   EndIf
 EndIf
If FileExists(@ScriptDir & '\EXn\vkl.los') Then
   If Not(ProcessExists("logsysn.exe")) Then
    Run(@ScriptDir & '\EXn\logsysn.exe',@ScriptDir & '\EXn')
   EndIf
 EndIf


Sleep(1000)
WEnd