#include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("MyLog.exe V1.0.0 par Jeanmimigab", 834, 478, 199, 293)
GUICtrlSetBkColor(-1, 0xA0A0A4)
Global $Edit1 = GUICtrlCreateEdit("", 144, 320, 681, 145)
Global $Group1 = GUICtrlCreateGroup("Anti virus installé", 8, 80, 105, 385)
Global $Checkbox1 = GUICtrlCreateCheckbox("Antivir", 16, 120, 89, 17)
Global $Checkbox2 = GUICtrlCreateCheckbox("Avast", 16, 152, 89, 17)
Global $Checkbox3 = GUICtrlCreateCheckbox("Kaspersky", 16, 184, 89, 17)
Global $Checkbox4 = GUICtrlCreateCheckbox("Bitdefender", 16, 216, 89, 17)
Global $Checkbox5 = GUICtrlCreateCheckbox("Microsft SE", 16, 248, 89, 17)
Global $Checkbox6 = GUICtrlCreateCheckbox("Nod32", 16, 280, 89, 17)
Global $Checkbox7 = GUICtrlCreateCheckbox("Etrust", 16, 312, 89, 17)
Global $Checkbox8 = GUICtrlCreateCheckbox("Norton", 16, 344, 89, 17)
Global $Checkbox9 = GUICtrlCreateCheckbox("Panda", 16, 376, 89, 17)
Global $Checkbox10 = GUICtrlCreateCheckbox("Autre", 16, 408, 89, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group2 = GUICtrlCreateGroup("Connexion internet ?", 136, 80, 121, 185)
Global $Checkbox11 = GUICtrlCreateCheckbox("Fonctionnelle", 144, 120, 97, 17)
Global $Checkbox12 = GUICtrlCreateCheckbox("Rapide", 144, 152, 97, 17)
Global $Checkbox13 = GUICtrlCreateCheckbox("Lente", 144, 184, 97, 17)
Global $Checkbox14 = GUICtrlCreateCheckbox("Hors service", 144, 216, 97, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group3 = GUICtrlCreateGroup("Supports de restaurations disponible ?", 272, 80, 201, 185)
Global $Checkbox15 = GUICtrlCreateCheckbox("CD/DVD de restaurations", 288, 120, 169, 17)
Global $Checkbox16 = GUICtrlCreateCheckbox("CD/DVD de Windows", 288, 152, 169, 17)
Global $Checkbox17 = GUICtrlCreateCheckbox("Clefs USB bootable pou Eepc", 288, 184, 169, 17)
Global $Checkbox18 = GUICtrlCreateCheckbox("Aucuns supports disponibles", 288, 216, 169, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Label1 = GUICtrlCreateLabel("Décrire ci-dessous le plus précisément possible le comportement de votre pc", 144, 296, 363, 17)
GUICtrlSetBkColor(-1, 0x00FFFF)
Global $Group4 = GUICtrlCreateGroup("Les symptômes sont apparues depuis quels évènements", 488, 80, 337, 185)
Global $Checkbox19 = GUICtrlCreateCheckbox("Installation d'un programme ", 504, 120, 241, 17)
Global $Checkbox20 = GUICtrlCreateCheckbox("En naviguant sur internet ", 504, 152, 241, 17)
Global $Checkbox21 = GUICtrlCreateCheckbox("Alerte de votre anti virus ( a décrire dans la fenêtre inférieure)", 504, 184, 305, 17)
Global $Checkbox22 = GUICtrlCreateCheckbox("Je ne sais pas vraiment", 504, 216, 241, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Label2 = GUICtrlCreateLabel("Désinfection Sécurité-académie ", 8, 16, 387, 37)
GUICtrlSetFont(-1, 16, 400, 0, "Segoe Script")
GUICtrlSetColor(-1, 0x000080)
Global $Label3 = GUICtrlCreateLabel("MyLog ", 736, 8, 88, 36)
GUICtrlSetFont(-1, 20, 400, 0, "Pump Demi Bold LET")
GUICtrlSetColor(-1, 0xFF0000)
Global $Label4 = GUICtrlCreateLabel("Par jeanmimigab", 728, 48, 105, 21)
GUICtrlSetFont(-1, 8, 400, 0, "Segoe Script")
GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_Exit()
EndSwitch
WEnd
Func _Exit()
$var1 = @MDAY
$var2 = @MON
$var3 = @YEAR
$var4 = @HOUR
$var5 = @MIN
$var6 = @UserName
$var7 = @OSVersion
$var8 = @OSArch
$var9 = @OSServicePack
$var10 = @OSVersion
$var11 = @OSServicePack
$var12 = @OSArch
$ecri = guictrlread($Edit1)
$file = FileOpen(@scriptdir & "/MyLog.txt", 2)
FileWrite($file, "MyLog.exe V 1.0.0 par jeanmimigab :
Merci à Mikell et toute l'équipe du forum AutoIt Français" & @CRLF )
FileWrite($file, "Rapport MyLog généré le " &$var1 &"-" &$var2 &"-" &$var3 &" à " &$var4 &":" &$var5 &" depuis la session " &$var6 & @CRLF )
FileWrite($file, "
Système d'exploitation : " &$var10 &" . " &$var11 &" . " &$var12 & @CRLF& @CRLF& @CRLF )
For $i = $Checkbox1 to $Checkbox10
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, "
Antivirus installé : " & GUICtrlRead($i, 1) & @CRLF)
EndIf
Next
Filewrite($file,@CRLF)
For $i = $Checkbox11 to $Checkbox14
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, "
État de ma connexion internet : " & GUICtrlRead($i, 1) & @CRLF)
EndIf
Next
Filewrite($file,@CRLF)
For $i = $Checkbox15 to $Checkbox18
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, "
Supports de restauration en ma possession : " & GUICtrlRead($i, 1) & @CRLF)
EndIf
Next
Filewrite($file,@CRLF)
For $i = $Checkbox19 to $Checkbox22
If BitAnd(GUICtrlRead($i),$GUI_CHECKED) = $GUI_CHECKED Then
FileWrite($file, "
Description des symptômes : " & GUICtrlRead($i, 1) & @CRLF)
EndIf
Next
Filewrite($file,@CRLF)
Filewrite($file,"
Remarques supplémentaires : " & @CRLF & $ecri)
FileClose($file)
Exit
EndFunc
)
