#include <Misc.au3>
#include <File.au3>
HotKeySet("{F1}","restriction_stop")
HotKeySet("{F2}","restriction_scan")


Opt("WinTitleMatchMode", 2)
Opt("TrayIconDebug", 1)  
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.12.0
 Author:         Malossane Timothée
 Script Version : 0.1
 Script Function:
	Interdiction d'aller voir des sites Internet...

#ce ----------------------------------------------------------------------------


;///////////////////////////////////////////////////////////////////////////
;Definition des variables
;///////////////////////////////////////////////////////////////////////////

$controle_internet_actif = 1
$restriction_totale = 0
$controle_internet_historique = 1
FileOpen( "historique.txt",9)
$log ="historique.txt"
Global $s, $nok = 0
; Script Start - Add your code below here

While 1
		If $restriction_totale = 1 then
		AdlibEnable("restriction_totale",1000)
		EndIf
			;Si utilisation de Firefox
			
		If ProcessExists("firefox.exe") and $controle_internet_actif = 1 then
			$list = WinList("- Mozilla Firefox")
			If $list[0][0] <> 0 Then
				For $s = 1 to $list[0][0]
					$nok = 0
					If StringInStr($list[$s][0],"cul") Then
						$nok = 1
					EndIf
					If StringInStr($list[$s][0],"sexe") Then
						$nok = 1
					EndIf
					If StringInStr($list[$s][0],"sexy") Then
						$nok = 1
					EndIf
					If StringInStr($list[$s][0],"cochonne") Then
						$nok = 1
					EndIf
					If StringInStr($list[$s][0],"pute") Then
						$nok = 1
					EndIf
					If StringInStr($list[$s][0],"salope") Then
						$nok = 1
					EndIf
					If StringInStr($list[$s][0],"bite") Then
						$nok = 1
					EndIf
					If StringInStr($list[$s][0],"belle femme") Then
						$nok = 1
					EndIf
					If StringInStr($list[$s][0],"nichon") Then
						$nok = 1
					EndIf
						If StringInStr($list[$s][0],"seins") Then
						$nok = 1
					EndIf
						If StringInStr($list[$s][0],"pipe") Then
						$nok = 1
					EndIf
						If StringInStr($list[$s][0],"sucer") Then
						$nok = 1
					EndIf
					If StringInStr($list[$s][0],"enculer") Then
						$nok = 1
					EndIf
						If StringInStr($list[$s][0],"sodomie") Then
						$nok = 1
					EndIf
					If $nok = 1 Then;Si site interdit, on passe a la reaction (Action ----->>> Reation ^^)
						MsgBox(0,$list[$s][0],"Site Web Interdit")	
						$t = TimerInit()
						WinKill($list[$s][0]); On ferme
						While WinExists($list[$s][0]); on vérifie si le programme est bien fermé.
							Sleep(100)
							If TimerDiff($t) >= 5000 then ProcessClose("firefox.exe");methode forte si le tps depasse les 5 sec
						WEnd	
					EndIf
				If $controle_internet_historique = 1 then _FileWriteLog($log,$list[$s][0])
				Next	
			EndIf
			Sleep(120)
		EndIf
		
		
		;Si utilisation d'Internet Explorer (on sait jamais , ya toujours des glandus lol )
		
	If ProcessExists("iexplore.exe") and $controle_internet_actif = 1 then
			$list = WinList(" - Windows Internet Explorer")
			If $list[0][0] <> 0 Then
				For $s = 1 to $list[0][0]
					$nok = 0
				If StringInStr($list[$s][0],"cul") Then
						$nok = 1
					EndIf
					If StringInStr($list[$s][0],"sexe") Then
						$nok = 1
					EndIf
					If StringInStr($list[$s][0],"sexy") Then
						$nok = 1
					EndIf
					If StringInStr($list[$s][0],"cochonne") Then
						$nok = 1
					EndIf
					If StringInStr($list[$s][0],"pute") Then
						$nok = 1
					EndIf
					If StringInStr($list[$s][0],"salope") Then
						$nok = 1
					EndIf
					If StringInStr($list[$s][0],"bite") Then
						$nok = 1
					EndIf
					If StringInStr($list[$s][0],"belle femme") Then
						$nok = 1
					EndIf
					If StringInStr($list[$s][0],"nichon") Then
						$nok = 1
					EndIf
						If StringInStr($list[$s][0],"seins") Then
						$nok = 1
					EndIf
						If StringInStr($list[$s][0],"pipe") Then
						$nok = 1
					EndIf
						If StringInStr($list[$s][0],"sucer") Then
						$nok = 1
					EndIf
					If StringInStr($list[$s][0],"enculer") Then
						$nok = 1
					EndIf
						If StringInStr($list[$s][0],"sodomie") Then
						$nok = 1
					EndIf
					If $nok = 1 Then;Si site interdit, on passe a la reaction (Action ----->>> Reation ^^)
						
						$t = TimerInit()
						WinKill($list[$s][0]); On ferme
						While WinExists($list[$s][0]); on vérifie si le programme est bien fermé.
							Sleep(100)
							If TimerDiff($t) >= 5000 then ProcessClose("iexplore.exe");methode forte si le tps depasse les 5 sec
						WEnd
						MsgBox(0,$list[$s][0],"Site Web Interdit")	
					EndIf
				If $controle_internet_historique = 1 then _FileWriteLog($log,$list[$s][0])
				Next	
			EndIf
			Sleep(120)
	EndIf
	
	
	; Si ni Firefox ni Internet Explorer n'est ouvert, on dort ...
	Sleep(500)
WEnd



Func restriction_totale()
	BlockInput(1)
	_MouseTrap(0,0,1,1)
	
EndFunc	

Func restriction_stop()
	BlockInput(0)
	_MouseTrap()
	AdlibDisable()
	
EndFunc	
Func restriction_scan()
	Opt("WinDetectHiddenText", 1)
	Opt("WinTitleMatchMode", 2)
	$texte = WinGetText(" - Mozilla Firefox")
	msgbox(0,"",$texte)
	$nok = 0
					If StringInStr($texte,"cul") Then
						$nok = 1
					EndIf
					If StringInStr($texte,"sexe") Then
						$nok = 1
					EndIf
					If StringInStr($texte,"sexy") Then
						$nok = 1
					EndIf
					If StringInStr($texte,"cochonne") Then
						$nok = 1
					EndIf
					If StringInStr($texte,"pute") Then
						$nok = 1
					EndIf
					If StringInStr($texte,"salope") Then
						$nok = 1
					EndIf
					If StringInStr($texte,"bite") Then
						$nok = 1
					EndIf
					If StringInStr($texte,"belle femme") Then
						$nok = 1
					EndIf
					If StringInStr($texte,"nichon") Then
						$nok = 1
					EndIf
						If StringInStr($texte,"seins") Then
						$nok = 1
					EndIf
						If StringInStr($texte,"pipe") Then
						$nok = 1
					EndIf
						If StringInStr($texte,"orgasme") Then
						$nok = 1
					EndIf
					If StringInStr($texte,"enculer") Then
						$nok = 1
					EndIf
						If StringInStr($texte,"sodomie") Then
						$nok = 1
					EndIf
	If $nok = 1 Then;Si site interdit, on passe a la reaction (Action ----->>> Reation ^^)
						
						$t = TimerInit()
						WinKill($list[$s][0]); On ferme
						While WinExists($list[$s][0]); on vérifie si le programme est bien fermé.
							Sleep(100)
							If TimerDiff($t) >= 5000 then ProcessClose("iexplore.exe");methode forte si le tps depasse les 5 sec
						WEnd
						MsgBox(0,$list[$s][0],"Site Web Interdit après analyse de la page en cours de lecture...")	
					EndIf
EndFunc