#include <GUIConstants.au3>
### Koda GUI section start ###
Global $Form1 = GUICreate("Switch Config Wifi", 266, 93, 414, 205)
Global $maison = GUICtrlCreateCheckbox("Configuration  Maison", 10, 11, 131, 35)
Global $lycee = GUICtrlCreateCheckbox("Configuration Lycée", 10, 42, 130, 40)
Global $Apply = GUICtrlCreateButton("(Not allowed)", 173, 14, 78, 64, $BS_ICON)
GUICtrlSetImage($Apply, "C:\Documents and Settings\Régis\Mes documents\Scripts AutoIt\wifi.ico")
GUISetState(@SW_SHOW)
$Cx = "Connexion réseau sans fil"
Global $config =FileOpen('network.wol',0)
if $config =-1 Then
	MsgBox(16,'Erreur',"Le fichier network.wol n'est pas accéssible")
EndIf
Global $Cx = FileReadLine($config,1)
Global $AdresseIP =FileReadLine($config,2)
Global $Passerelle =FileReadLine($config,3)
Global $Dns=FileReadLine($config,4)
;MsgBox(0,'info',$Cx & $AdresseIP & $Passerelle & $Dns)
if @error =-1 Then
	MsgBox(16,'Erreur',"Lecture du fichier config.wol impossible")
	$Cx="Connexion réseau sans fil"
	$AdresseIP ='10.255.15.85'
	$Passerelle='10.255.15.94'
	$Dns='10.255.15.92'
EndIf
FileClose('config.wol')
### Koda GUI section end   ###
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
	case $Apply
		$eta = GUICtrlRead($lycee)
		if $eta=$GUI_CHECKED Then
			RunWait(@ComSpec & ' /c ' & 'netsh interface ip set address name=' & '"' & $Cx & '"' & ' source=static addr='& $AdresseIP &' mask=255.0.0.0 gateway= '& $Passerelle &' gwmetric=1', "", @SW_HIDE)
			RunWait(@ComSpec & ' /c ' & 'netsh interface ip set dns name=' & '"' & $Cx & '"' & ' source=static addr= '& $Dns, "", @SW_HIDE)
			SplashTextOn("Configuration IP","Configuration IP en cours ...", 392, 25, -1, -1, 0,33,"" , 16)
			Sleep(1000)
		Else
			RunWait(@ComSpec & ' /c ' & 'netsh interface ip set address name=' & '"' & $Cx & '"' & ' dhcp', "", @SW_HIDE)
			RunWait(@ComSpec & ' /c ' & 'netsh interface ip set dns name=' & '"' & $Cx & '"' & ' dhcp', "", @SW_HIDE)
			SplashTextOn("Configuration IP","Configuration IP en cours ...", 392, 25, -1, -1, 0,33,"" , 16)
			Sleep(1000)
		EndIf
		SplashOff()
		Exit
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd