#include <file.au3>
#include <Constants.au3>

Opt("TrayAutoPause",0)
Opt("TrayMenuMode",2)
TraySetIcon(@ScriptDir & "\imgs\x.ico")
TrayItemSetText($TRAY_ITEM_PAUSE,"Ethnel-MiniGuard en pause")
TrayItemSetText($TRAY_ITEM_EXIT,"Quitter")
TraySetToolTip("Ethnel-MiniGuard")

$guiname = "Alerte Ethnel-MiniGuard"
$db_process = @ScriptDir & "\db\db_process.eth"
$db_bliste = @ScriptDir & "\db\db_bliste.eth"
$db_good = @ScriptDir & "\db\db_good.eth"
$db_pbtmp = @ScriptDir & "\db\db_pbtmp.eth"
$choix = "0"

$lntmp = _FileCountLines($db_pbtmp)
For $it = 1 To $lntmp
	$rltmp = FileReadLine($db_pbtmp,$it)
	FileOpen($db_process,0)
	$ba1 = FileRead($db_process)
	FileClose($db_process)
	FileOpen($db_bliste,0)
	$ba2 = FileRead($db_bliste)
	FileClose($db_bliste)
	$del1 = StringReplace($ba1,$rltmp & @crlf,"")
	$del2 = StringReplace($ba2,$rltmp & @crlf,"")
	FileOpen($db_process,2)
	FileWrite($db_process,$del1)
	FileClose($db_process)
	FileOpen($db_bliste,2)
	FileWrite($db_bliste,$del2)
	FileClose($db_bliste)
Next

FileOpen($db_pbtmp,2)
FileWrite($db_pbtmp,"")
FileClose($db_pbtmp)

AdlibEnable("_ScanGuard",3000)
TrayTip("Ethnel-MiniGuard","Ethnel-MiniGuard à été démarrer." & @crlf & @crlf & "Cliquer ici pour voir les options" & @crlf & "ou fermer et arreter la protection.",10)

$goconfig = TrayCreateItem("Configurer")

GUISetState()

while 1
	$traym = TrayGetMsg()
	Select
		case $traym = $goconfig
			ShellExecute(@scriptdir & "\GConfig.exe","",@scriptdir)
	EndSelect
WEnd

Func _ScanGuard()
	While 1
		TraySetIcon(@scriptdir & "\imgs\y.ico")
		$list = ProcessList()
		$countline = _FileCountLines($db_process)
		For $i = 1 To $list[0][0]
			For $r = 0 To $countline
				$readprocess = FileReadLine($db_process, $r)
				If $readprocess = $list[$i][0] Then
					ExitLoop
				EndIf
				If $r = $countline Then
					$gui = GUICreate($guiname,280,330,@DesktopWidth-295,@DesktopHeight-395,0x00C00000,0x00000080)
					GUICtrlCreateLabel("Application :" & @crlf & ">> " & $list[$i][0],20,75,250,40)
					GUICtrlSetBkColor(-1,0xFFFFFF)
					GUICtrlSetFont(-1,12)
					GUICtrlCreateLabel("PID : " & @crlf & ">> " & $list[$i][1],20,120,250,40)
					GUICtrlSetBkColor(-1,0xFFFFFF)
					GUICtrlSetFont(-1,12)
					$alw = GUICtrlCreateCheckbox("Enregistrer l'application",75,273,-1,20)
					GUICtrlSetTip(-1,"Si vous ne cochez pas cette case" & @crlf & "l'autorisation sera redemander lors" & @crlf & "du prochain démarrage de Ethnel-Guard","Informations",1,1)
					GUICtrlSetBkColor(-1,0xFFFFFF)
					$lb = GUICtrlCreateButton("Autoriser",40,295,100,30)
					GUICtrlSetFont(-1,15,-1,-1,"Georgia")
					$ln = GUICtrlCreateButton("Bloquer",150,295,100,30)
					GUICtrlSetFont(-1,15,-1,-1,"Georgia")
					$if = GUICtrlCreateButton("Plus d'info...",165,190,80,20)
					SoundPlay(@ScriptDir & "\sounds\notify.wav")
					GUICtrlCreatePic(@scriptdir & "\imgs\fdga.jpg",0,0,280,330,BitOR(0x0100,0x00020000,0x04000000))
					GUISetState()
					WinFlash($guiname,"",4,100)
					While 1
						$msg = GUIGetMsg()
						Select
							case $msg = $if
								ShellExecute("http://www.processlibrary.com/fr/directory/files/" & $list[$i][0])
							Case $msg = $lb
								$choix = "1"
								ExitLoop
							Case $msg = $ln
								$choix = "2"
								ExitLoop
						EndSelect
					WEnd
					If $choix = "1" Then 
						if GUICtrlRead($alw) == 4 then FileWrite($db_pbtmp,$list[$i][0] & @crlf)
						FileWrite($db_process, $list[$i][0] & @crlf)
						if GUICtrlRead($alw) == 1 then FileWrite($db_good, $list[$i][0] & @crlf)
					EndIf
					If $choix = "2" Then 
						if GUICtrlRead($alw) == 4 then FileWrite($db_pbtmp,$list[$i][0] & @crlf)
						FileWrite($db_process, $list[$i][0] & @crlf)
						FileWrite($db_bliste, $list[$i][0] & @crlf)
					EndIf
					GUIDelete()
				EndIf
			Next
		Next
		$lnlist = _FileCountLines($db_bliste)
		For $i2 = 1 To $lnlist
			$rlis = FileReadLine($db_bliste,$i2)
			ProcessClose($rlis)
		Next
		TraySetIcon(@scriptdir & "\imgs\x.ico")
		ExitLoop
	WEnd
EndFunc