#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Icones\Player\Player 1\option.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiIPAddress.au3>
#include <File.au3>
#include <EditConstants.au3>
#include <Misc.au3>

install()

If Not FileExists(@ProgramFilesDir & "\DCI") Then DirCreate(@ProgramFilesDir & "\DCI")
If Not FileExists(@ProgramFilesDir & "\DCI\Config.txt") Then
	_FileCreate(@ProgramFilesDir & "\DCI\Config.txt")
	_FileWriteToLine(@ProgramFilesDir & "\DCI\Config.txt", 1, "defaut", 1)
	_FileWriteToLine(@ProgramFilesDir & "\DCI\Config.txt", 2, "www.google.fr", 1)
	_FileWriteToLine(@ProgramFilesDir & "\DCI\Config.txt", 3, "300", 1)
EndIf

$demarrer = False
$test_auto = False
$bulle = False
$ok_carte = ""
$ok_pass = ""
$ok_int = ""
Global $connect_carte, $connect_passerelle, $connect_internet
Global $passerelle = FileReadLine(@ProgramFilesDir & "\DCI\Config.txt", 1)
Global $ping_site = FileReadLine(@ProgramFilesDir & "\DCI\Config.txt", 2)
Global $temps = FileReadLine(@ProgramFilesDir & "\DCI\Config.txt", 3)

#region ### START Koda GUI section ### Form=
Global $Form1_1 = GUICreate("DCI", 616, 439, 192, 124)
GUISetBkColor(0xe6e6fa, $Form1_1)
GUISetIcon("C:\Windows\Temp\option.ico")
Global $MenuItem1 = GUICtrlCreateMenu("Menu")
Global $MenuItem3 = GUICtrlCreateMenuItem("Options" & @TAB & "", $MenuItem1)
Global $Label1 = GUICtrlCreateLabel("Diagnostique Connexion Internet", 0, 8, 612, 49, BitOR($SS_CENTER, $SS_CENTERIMAGE))
GUICtrlSetFont(-1, 20, 800, 4, "Pristina")
Global $Label2 = GUICtrlCreateLabel("Connexion carte réseau :", 16, 128, 172, 25, BitOR($SS_CENTER, $SS_CENTERIMAGE))
Global $diag = GUICtrlCreateButton("Lancer le Diag", 264, 80, 99, 25)
Global $etat_carte = GUICtrlCreateLabel("", 208, 128, 116, 25, BitOR($SS_CENTER, $SS_CENTERIMAGE))
Global $Label4 = GUICtrlCreateLabel("Connexion passerelle par défaut :", 16, 176, 172, 25, BitOR($SS_CENTER, $SS_CENTERIMAGE))
Global $etat_passerelle = GUICtrlCreateLabel("", 208, 176, 116, 25, BitOR($SS_CENTER, $SS_CENTERIMAGE))
Global $Label6 = GUICtrlCreateLabel("Connexion internet :", 16, 224, 172, 25, BitOR($SS_CENTER, $SS_CENTERIMAGE))
Global $etat_internet = GUICtrlCreateLabel("", 208, 224, 116, 25, BitOR($SS_CENTER, $SS_CENTERIMAGE))
Global $Edit1 = GUICtrlCreateEdit("", 8, 264, 601, 145)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetData(-1, "")
Global $d_carte = GUICtrlCreateButton("Afficher détails", 332, 128, 131, 25)
Global $d_pass = GUICtrlCreateButton("Afficher détails", 332, 176, 131, 25)
Global $d_int = GUICtrlCreateButton("Afficher détails", 332, 224, 131, 25)

Global $Form1 = GUICreate("Options", 361, 489, 192, 124)
GUISetIcon("C:\Windows\Temp\option.ico")
GUISetBkColor(0xe6e6fa, $Form1)
Global $Label1 = GUICtrlCreateLabel("Modifier mes options", 0, 8, 356, 33, BitOR($SS_CENTER, $SS_CENTERIMAGE))
GUICtrlSetFont(-1, 20, 800, 4, "Pristina")
Global $modif_pass = GUICtrlCreateCheckbox("Modifier sa passerelle par défaut :", 8, 64, 185, 17)
Global $orange = GUICtrlCreateCheckbox("Passerelle Orange", 40, 88, 113, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
Global $free = GUICtrlCreateCheckbox("Passerelle Free", 40, 112, 97, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
Global $sfr = GUICtrlCreateCheckbox("Passerelle SFR", 40, 136, 97, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
Global $bouygues = GUICtrlCreateCheckbox("Passerelle Bouygues", 40, 160, 121, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
Global $autre = GUICtrlCreateCheckbox("Autre passerelle ( Hotspot etc ... )", 40, 184, 185, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
Global $IPAddress1 = _GUICtrlIpAddress_Create($Form1, 64, 216, 130, 21)
_GUICtrlIpAddress_Set($IPAddress1, "0.0.0.0")
Global $aide = GUICtrlCreateButton("Aide", 216, 216, 75, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
Global $back = GUICtrlCreateButton("Retour", 48, 458, 75, 25)
Global $save = GUICtrlCreateButton("Sauvegarder", 208, 458, 75, 25)
Global $Label2 = GUICtrlCreateLabel("Si vous ne connaissez pas votre passerelle par défaut cliquez sur Aide." & @CRLF & "Dans la fenêtre qui s'ouvre cherchez la ligne indiquant passerelle par défaut." & @CRLF & "Puis rentrez cette adresse dans la barre d'adresse ci-dessus." & @CRLF & "N'oubliez pas de cocher la case correspondant à votre choix sinon l'outils ne fonctionnera pas.", 8, 256, 332, 91)
Global $Checkbox1 = GUICtrlCreateCheckbox("Changer le site de test :", 8, 360, 129, 17)
GUICtrlSetTip(-1, "Vous pouvez modifier le site que l'utilitare ping pour tester votre accès internet. Préférez un site très connu, comme google par exemple, car il y a beaucoup moins de chance que le site soit down et ne fasse rater le test.")
Global $Input1 = GUICtrlCreateInput($ping_site, 144, 360, 209, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
Global $auto = GUICtrlCreateCheckbox("Check automatique.", 8, 400, 121, 17)
GUICtrlSetTip(-1, "Check automatiquement votre connexion par rapport à un délai que vous fixez.")
Global $info = GUICtrlCreateCheckbox("Bulle d'information", 40, 424, 129, 17)
GUICtrlSetTip(-1, "Affiche une bulle d'information en bas à droite de votre écran à chaque fin de check automatique.")
GUICtrlSetState(-1, $GUI_DISABLE)
Global $Label3 = GUICtrlCreateLabel("Délai :", 165, 400, 32, 17, BitOR($SS_CENTER, $SS_CENTERIMAGE))
GUICtrlSetState(-1, $GUI_HIDE)
Global $delai = GUICtrlCreateInput($temps, 208, 400, 55, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
GUICtrlSetLimit(-1, 4)
GUICtrlSetState(-1, $GUI_HIDE)
Global $Label4 = GUICtrlCreateLabel("secondes.", 262, 400, 52, 17, BitOR($SS_CENTER, $SS_CENTERIMAGE))
GUICtrlSetState(-1, $GUI_HIDE)

GUISetState(@SW_SHOW, $Form1_1)
GUISetState(@SW_HIDE, $Form1)
#endregion ### END Koda GUI section ###
AdlibRegister("check_test", 500)
AdlibRegister("checkbox", 300)
AdlibRegister("dyn", 300)
AdlibRegister("auto", 300)
Opt("WinTitleMatchMode", -2)


Opt('GUICloseOnEsc', 0)

Global Const $SC_CLOSE = 0xF060
Global Const $MF_GRAYED = 0x00000001

$hMenu = DllCall('user32.dll', 'int', 'GetSystemMenu', 'hwnd', $Form1, 'int', 0)
DllCall('user32.dll', 'int', 'EnableMenuItem', 'hwnd', $hMenu[0], 'int', $SC_CLOSE, 'int', $MF_GRAYED)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit 0

		Case $diag
			$demarrer = True
			test()

		Case $MenuItem3
			GUISetState(@SW_SHOW, $Form1)

		Case $back
			GUISetState(@SW_HIDE, $Form1)
			GUICtrlSetState($modif_pass, $GUI_UNCHECKED)
			GUICtrlSetState($orange, $GUI_DISABLE)
			GUICtrlSetState($free, $GUI_DISABLE)
			GUICtrlSetState($sfr, $GUI_DISABLE)
			GUICtrlSetState($bouygues, $GUI_DISABLE)
			GUICtrlSetState($autre, $GUI_DISABLE)
			GUICtrlSetState($aide, $GUI_DISABLE)
			_GUICtrlIpAddress_Set($IPAddress1, "0.0.0.0")

		Case $save
			If GUICtrlRead($orange) = $GUI_CHECKED Then
				_FileWriteToLine(@ProgramFilesDir & "\DCI\Config.txt", 1, "192.168.1.1", 1)
			ElseIf GUICtrlRead($free) = $GUI_CHECKED Then
				_FileWriteToLine(@ProgramFilesDir & "\DCI\Config.txt", 1, "192.68.0.254", 1)
			ElseIf GUICtrlRead($sfr) = $GUI_CHECKED Then
				_FileWriteToLine(@ProgramFilesDir & "\DCI\Config.txt", 1, "192.168.1.1", 1)
			ElseIf GUICtrlRead($bouygues) = $GUI_CHECKED Then
				_FileWriteToLine(@ProgramFilesDir & "\DCI\Config.txt", 1, "192.168.1.254", 1)
			ElseIf GUICtrlRead($autre) = $GUI_CHECKED Then
				_FileWriteToLine(@ProgramFilesDir & "\DCI\Config.txt", 1, _GUICtrlIpAddress_Get($IPAddress1), 1)
			EndIf

			If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then _FileWriteToLine(@ProgramFilesDir & "\DCI\Config.txt", 2, GUICtrlRead($Input1), 1)
			GUISetState(@SW_HIDE, $Form1)

			If GUICtrlRead($auto) = $GUI_CHECKED Then
				$test_auto = True
				_FileWriteToLine(@ProgramFilesDir & "\DCI\Config.txt", 3, GUICtrlRead($delai), 1)
				If GUICtrlRead($info) = $GUI_CHECKED Then
					$bulle = True
				Else
					$bulle = False
				EndIf
			Else
				$test_auto = False
			EndIf
		Case $aide
			Run(@ComSpec & ' /k ipconfig /all', "", @SW_MAXIMIZE)

		Case $d_carte
			GUICtrlSetData($Edit1, "")
			GUICtrlSetState($Edit1, $GUI_SHOW)
			If GUICtrlRead($etat_carte) = " OK ! " Then
				GUICtrlSetData($Edit1, " Votre carte réseau fonctionne, aucun problème detecté !")
				GUICtrlSetColor($Edit1, 0x33B700)
			Else
				GUICtrlSetData($Edit1, " Votre carte réseau n'est pas detecté, il s'agit d'un problème matériel. Aucune connexion n'est possible dans ces conditions.")
				GUICtrlSetColor($Edit1, 0xff0000)
			EndIf

		Case $d_pass
			GUICtrlSetData($Edit1, "")
			GUICtrlSetState($Edit1, $GUI_SHOW)
			If GUICtrlRead($etat_passerelle) = " OK ! " Then
				GUICtrlSetData($Edit1, " Votre passerelle par défaut est bien configurée, aucun problème detecté !")
				GUICtrlSetColor($Edit1, 0x33B700)
			Else
				GUICtrlSetData($Edit1, " Problème detecté avec la passerelle par défaut." & @CRLF & @CRLF & "- Vous pouvez vous être tromper dans le choix de la passerelle par défaut dans les options." & @CRLF & " Si vous ne connaissez pas votre passerelle utilisez le bouton Aide dans le menu options." & @CRLF & @CRLF & "- Vous avez peut-être reglez vous même vos paramètres internet en utilisant des paramètres fixes au lieu d'utiliser le DHCP" & @CRLF & " ce qui peut entrainer un problème de connexion.")
				GUICtrlSetColor($Edit1, 0xff0000)
			EndIf

		Case $d_int
			GUICtrlSetData($Edit1, "")
			GUICtrlSetState($Edit1, $GUI_SHOW)
			If GUICtrlRead($etat_internet) = " OK ! " Then
				GUICtrlSetData($Edit1, " La navigation sur internet est possible, aucun problème detecté.")
				GUICtrlSetColor($Edit1, 0x33B700)
			Else
				GUICtrlSetData($Edit1, "Impossible d'établir un lien avec le site " & $ping_site & ", il n'est peut-être pas disponible, dans ce cas changez le site de test" & @CRLF & " pour votre connexion dans les options." & @CRLF & @CRLF & " Si cela ne résoud pas le problème, vérifiez votre configuration internet et préferez le DHCP aux paramètres fixes." & @CRLF & " L'utilitaire de diagnostique de Windows peut également vous donner des informations." & @CRLF & @CRLF & "Sachez également que si votre passerelle ne fonctionne pas, il ne vous sera pas possible d'accèder à internet.")
				GUICtrlSetColor($Edit1, 0xff0000)
			EndIf



	EndSwitch
WEnd

Func auto()

	If GUICtrlRead($auto) = $GUI_CHECKED Then
		GUICtrlSetState($info, $GUI_ENABLE)
		GUICtrlSetState($Label3, $GUI_SHOW)
		GUICtrlSetState($delai, $GUI_SHOW)
		GUICtrlSetState($Label4, $GUI_SHOW)
	Else
		GUICtrlSetState($info, $GUI_DISABLE)
		GUICtrlSetState($Label3, $GUI_HIDE)
		GUICtrlSetState($delai, $GUI_HIDE)
		GUICtrlSetState($Label4, $GUI_HIDE)
		GUICtrlSetState($info, $GUI_UNCHECKED)
	EndIf

EndFunc   ;==>auto

Func check_test()

	If $demarrer = False Then
		GUICtrlSetColor($etat_carte, 0x0033ff)
		GUICtrlSetColor($etat_passerelle, 0x0033ff)
		GUICtrlSetColor($etat_internet, 0x0033ff)

		GUICtrlSetData($etat_carte, " En attente ")
		GUICtrlSetData($etat_passerelle, " En attente ")
		GUICtrlSetData($etat_internet, " En attente ")
	EndIf

EndFunc   ;==>check_test

Func test()

	GUICtrlSetColor($etat_carte, 0x0033ff)
	GUICtrlSetColor($etat_passerelle, 0x0033ff)
	GUICtrlSetColor($etat_internet, 0x0033ff)

	GUICtrlSetData($etat_carte, " En attente ")
	GUICtrlSetData($etat_passerelle, " En attente ")
	GUICtrlSetData($etat_internet, " En attente ")
	If $passerelle = "defaut" Then
		MsgBox(16, "Attention", "Vous n'avez pas spécifié de passerelle par défaut, le test ne peut donc continuer. Merci d'indiquer votre passerelle par défaut dans le menu options.")
	Else

		If $demarrer = True Then
			If $test_auto = True Then
				$ok_carte = ""
				$ok_pass = ""
				$ok_int = ""
				$i = 0
				For $i = 1 To 99999999999999 Step 1
					GUICtrlSetData($etat_carte, " Test en cours ")
					$connect_carte = Ping("127.0.0.1", 250)
					If $connect_carte Then
						GUICtrlSetData($etat_carte, " OK ! ")
						GUICtrlSetColor($etat_carte, 0x33B700)
						$ok_carte = True
					Else
						GUICtrlSetData($etat_carte, " Erreur ! ")
						GUICtrlSetColor($etat_carte, 0xff0000)
						$ok_carte = False
					EndIf

					GUICtrlSetData($etat_passerelle, " Test en cours ")
					If GUICtrlRead($etat_carte) = " Erreur ! " Then
						GUICtrlSetData($etat_passerelle, " Erreur ! ")
						GUICtrlSetColor($etat_passerelle, 0xff0000)
					Else
						$connect_passerelle = Ping($passerelle, 250)
						If $connect_passerelle Then
							GUICtrlSetData($etat_passerelle, " OK ! ")
							GUICtrlSetColor($etat_passerelle, 0x33B700)
							$ok_pass = True
						Else
							GUICtrlSetData($etat_passerelle, " Erreur ! ")
							GUICtrlSetColor($etat_passerelle, 0xff0000)
							$ok_pass = False
						EndIf
					EndIf

					GUICtrlSetData($etat_internet, " Test en cours ")
					If GUICtrlRead($etat_passerelle) = " Erreur ! " Then
						GUICtrlSetData($etat_internet, " Erreur ! ")
						GUICtrlSetColor($etat_internet, 0xff0000)
					Else
						$connect_internet = Ping("www.google.fr", 250)
						If $connect_internet Then
							GUICtrlSetData($etat_internet, " OK ! ")
							GUICtrlSetColor($etat_internet, 0x33B700)
							$ok_int = True
						Else
							GUICtrlSetData($etat_internet, " Erreur ! ")
							GUICtrlSetColor($etat_internet, 0xff0000)
							$ok_int = False
						EndIf
					EndIf
					If $bulle = True Then
						If $ok_carte = True Then
							If $ok_pass = True Then
								If $ok_int = True Then
									TrayTip("Connexion", "Ok !", 2)
								Else
									TrayTip("Connexion", "Problème navigation internet !", 2)
								EndIf
							Else
								TrayTip("Connexion", "Problème de passerelle !", 2)
							EndIf
						Else
							TrayTip("Connexion", "Problème carte réseau !", 2)
						EndIf
					Else

					EndIf
					$sleep = $temps * 1000
					Sleep($sleep)
					If _IsPressed("1B") Then ExitLoop
				Next

			Else
				GUICtrlSetData($etat_carte, " Test en cours ")
				$connect_carte = Ping("127.0.0.1", 250)
				If $connect_carte Then
					GUICtrlSetData($etat_carte, " OK ! ")
					GUICtrlSetColor($etat_carte, 0x33B700)
				Else
					GUICtrlSetData($etat_carte, " Erreur ! ")
					GUICtrlSetColor($etat_carte, 0xff0000)
				EndIf

				GUICtrlSetData($etat_passerelle, " Test en cours ")
				If GUICtrlRead($etat_carte) = " Erreur ! " Then
					GUICtrlSetData($etat_passerelle, " Erreur ! ")
					GUICtrlSetColor($etat_passerelle, 0xff0000)
				Else
					$connect_passerelle = Ping($passerelle, 250)
					If $connect_passerelle Then
						GUICtrlSetData($etat_passerelle, " OK ! ")
						GUICtrlSetColor($etat_passerelle, 0x33B700)
					Else
						GUICtrlSetData($etat_passerelle, " Erreur ! ")
						GUICtrlSetColor($etat_passerelle, 0xff0000)
					EndIf
				EndIf

				GUICtrlSetData($etat_internet, " Test en cours ")
				If GUICtrlRead($etat_passerelle) = " Erreur ! " Then
					GUICtrlSetData($etat_internet, " Erreur ! ")
					GUICtrlSetColor($etat_internet, 0xff0000)
				Else
					$connect_internet = Ping("www.google.fr", 250)
					If $connect_internet Then
						GUICtrlSetData($etat_internet, " OK ! ")
						GUICtrlSetColor($etat_internet, 0x33B700)
					Else
						GUICtrlSetData($etat_internet, " Erreur ! ")
						GUICtrlSetColor($etat_internet, 0xff0000)
					EndIf
				EndIf
			EndIf




		EndIf
	EndIf

EndFunc   ;==>test

Func checkbox()

	If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then GUICtrlSetState($Input1, $GUI_ENABLE)
	If GUICtrlRead($Checkbox1) = $GUI_UNCHECKED Then GUICtrlSetState($Input1, $GUI_DISABLE)

	If GUICtrlRead($modif_pass) = $GUI_CHECKED Then
		GUICtrlSetState($orange, $GUI_ENABLE)
		GUICtrlSetState($free, $GUI_ENABLE)
		GUICtrlSetState($sfr, $GUI_ENABLE)
		GUICtrlSetState($bouygues, $GUI_ENABLE)
		GUICtrlSetState($autre, $GUI_ENABLE)
		GUICtrlSetState($aide, $GUI_ENABLE)
	EndIf

	If GUICtrlRead($modif_pass) = $GUI_UNCHECKED Then
		GUICtrlSetState($orange, $GUI_DISABLE)
		GUICtrlSetState($free, $GUI_DISABLE)
		GUICtrlSetState($sfr, $GUI_DISABLE)
		GUICtrlSetState($bouygues, $GUI_DISABLE)
		GUICtrlSetState($autre, $GUI_DISABLE)
		GUICtrlSetState($aide, $GUI_DISABLE)
	EndIf

	If GUICtrlRead($orange) = $GUI_CHECKED Then
		GUICtrlSetState($free, $GUI_UNCHECKED)
		GUICtrlSetState($sfr, $GUI_UNCHECKED)
		GUICtrlSetState($bouygues, $GUI_UNCHECKED)
		GUICtrlSetState($autre, $GUI_UNCHECKED)
	ElseIf GUICtrlRead($free) = $GUI_CHECKED Then
		GUICtrlSetState($orange, $GUI_UNCHECKED)
		GUICtrlSetState($sfr, $GUI_UNCHECKED)
		GUICtrlSetState($bouygues, $GUI_UNCHECKED)
		GUICtrlSetState($autre, $GUI_UNCHECKED)
	ElseIf GUICtrlRead($sfr) = $GUI_CHECKED Then
		GUICtrlSetState($orange, $GUI_UNCHECKED)
		GUICtrlSetState($free, $GUI_UNCHECKED)
		GUICtrlSetState($bouygues, $GUI_UNCHECKED)
		GUICtrlSetState($autre, $GUI_UNCHECKED)
	ElseIf GUICtrlRead($bouygues) = $GUI_CHECKED Then
		GUICtrlSetState($orange, $GUI_UNCHECKED)
		GUICtrlSetState($sfr, $GUI_UNCHECKED)
		GUICtrlSetState($free, $GUI_UNCHECKED)
		GUICtrlSetState($autre, $GUI_UNCHECKED)
	ElseIf GUICtrlRead($autre) = $GUI_CHECKED Then
		GUICtrlSetState($orange, $GUI_UNCHECKED)
		GUICtrlSetState($sfr, $GUI_UNCHECKED)
		GUICtrlSetState($bouygues, $GUI_UNCHECKED)
		GUICtrlSetState($free, $GUI_UNCHECKED)
	EndIf

EndFunc   ;==>checkbox

Func dyn()

	$passerelle = FileReadLine(@ProgramFilesDir & "\DCI\Config.txt", 1)
	$ping_site = FileReadLine(@ProgramFilesDir & "\DCI\Config.txt", 2)
	$temps = FileReadLine(@ProgramFilesDir & "\DCI\Config.txt", 3)

EndFunc   ;==>dyn

Func install()
	FileInstall("C:\Users\Adrien\Desktop\\Programmation\AutoIT\Script AutoIT\Icones\Player\Player 1\option.ico", "C:\Windows\Temp\")
EndFunc   ;==>install