; Kontrollerar om filen nntermin.log uppdaterats senaste 5 minuterna, om ej omstart Autostock Trader
; 2004-03-22 - Jorgeng
#include <Date.au3>
;   Kl.09 startar scriptet och kontrollerar nntermin.log, vi har en pause beroende på att filen ej är uppdaterad de första minutrarna efter Autostock Trader start
	Sleep(300000) 
	$I = 1 
  	While $I < 2
;       Scriptet körs Måndag-Fredag kl.09.00-17.30 när börsen är öppen 
		; Retrieve the long name
		$sLongDayName = _DateDayOfWeek( @WDAY )
  		if $sLongDayName = "Monday" or $sLongDayName = "Tuesday" or $slongDayName = "Wednesday" or $slongDayName = "Thursday" or $slongDayName = "Friday" then
			If @HOUR >= 9 And @MIN > 00 Then
				If @HOUR < 18 And @MIN < 30 Then  
							
					$t = FileGetTime("C:\Program\AutostockTrader\nntermin.log", 0)

					If Not @error Then
						$filetime=$t[4]+($t[3]*60)+($t[2]*60*24)+($t[1]*30*24*60)+($t[0]*365*24*60)
						$time=@min+(@hour*60)+(@mday*60*24)+(@mon*30*24*60)+(@year*365*24*60)
          							
						If $time > $filetime + 5 Then 
							MsgBox(0, "Omstart","Autostock Trader startas om - Nntermin.log ej uppdaterad på 5 minuter",5)
     	
							If Not @error Then
								ProcessClose("FBINET.EXE")
								Sleep(2000)
							EndIf		
       			
							If Not @error Then
								ProcessClose("FBINET.EXE")
							EndIf	
        		
							If Not @error Then
								Sleep(5000)
								Run("C:\Program\AutostockTrader\FBINET.EXE /X /P256", "C:\Program\AutostockTrader\", @SW_MAXIMIZE)
							EndIf
;						Else
;							MsgBox(0, "Kontroll","Kontroll utförd, Autostock Trader fungerar ok",5)
						Endif					
					EndIf	
				Endif
			Endif
 		 Endif
		Sleep(300000) 
  	Wend