AutoIt Français

Code : Tout sélectionner

#include <Array.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiEdit.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <resources.au3>

Global $_1_1, $List1, $Edit1, $Edit_LIGNE
Global $itemNb, $Item, $RapportFile, $rapport, $ReadFile, $file, $OpenDialog, $EditText, $LigneCochee, $EditTexte, $String1; déclaration des variables
Global $j, $k, $m, $lbl2, $lbl, $LigneSelectionnee, $selectedData, $Rappor, $Path, $rapport
Global $Syslog, $Systemlook, $Threatexpert, $Processlibary, $StartUplist
Global $OPT, $CTF_D, $FirewallRAZ, $HostFix, $S_D, $EmptyTemp, $Reg, $REGFIX, $QuarantaineRestoreall, $QuarantineRestore, $Pic1, $SYSRESTORE, $ClipBoard
Global $Group1, $Graphic1, $Graphic2, $Graphic3, $Graphic4, $Graphic5
Global $Label1, $Label2, $Label3, $Label4, $Label5




$_1_1 = GUICreate("OPT", 888, 570, -1, -1, $WS_OVERLAPPEDWINDOW)
Opt("GUIOnEventMode", 1) ; Activation du mode événementiel
GUICtrlSetResizing($_1_1, $GUI_DOCKAUTO + $GUI_DOCKBOTTOM + $GUI_DOCKTOP)
GUISetOnEvent($GUI_EVENT_CLOSE, "FermeGUI")
$Rappor = GUICtrlCreateLabel("ZHPDiag Rapport :", 8, 8, 95, 17)
$Path = GUICtrlCreateButton("Parcourir", 632, 8, 75, 25)
GUICtrlSetOnEvent($Path, "_PATH")
$rapport = GUICtrlCreateInput("", 136, 8, 481, 21)

$S_D = GUICtrlCreateButton("Serv.Dem.", 804, 72, 75, 25)
GUICtrlSetOnEvent($S_D, "_SD")
$CTF_D = GUICtrlCreateButton("CTFDisabled", 804, 104, 75, 25)
GUICtrlSetOnEvent($CTF_D, "_CTF")
$SYSRESTORE = GUICtrlCreateButton("SysRestore", 804, 136, 75, 25)
GUICtrlSetOnEvent($SYSRESTORE, "_SYSRESTORE")
$FirewallRAZ = GUICtrlCreateButton("FirewallRAZ", 804, 168, 75, 25)
GUICtrlSetOnEvent($FirewallRAZ, "_FirewallRAZ")
$EmptyTemp = GUICtrlCreateButton("EmptyTemp", 804, 200, 75, 25)
GUICtrlSetOnEvent($EmptyTemp, "_EmptyTemp")
$QuarantaineRestoreall = GUICtrlCreateButton("QRestoreAll", 804, 232, 75, 25)
GUICtrlSetOnEvent($QuarantaineRestoreall, "_RestoreAll")
$HostFix = GUICtrlCreateButton("HostFix", 804, 264, 75, 25)
GUICtrlSetOnEvent($HostFix, "_HostFix")
$Reg = GUICtrlCreateButton("REG", 804, 296, 75, 25)
GUICtrlSetOnEvent($Reg, "_Reg")
$QuarantineRestore = GUICtrlCreateButton("QRestore", 804, 328, 75, 25)
GUICtrlSetOnEvent($QuarantineRestore, "_Restore")


$Syslog = GUICtrlCreateButton("Syslog", 188, 40, 75, 25)
GUICtrlSetOnEvent($Syslog, "_SYSLOG")
$Systemlook = GUICtrlCreateButton("Systemlook", 268, 40, 75, 25)
GUICtrlSetOnEvent($Systemlook, "_SYSTEMLOOK")
$StartUplist = GUICtrlCreateButton("StartupList", 348, 40, 75, 25)
GUICtrlSetOnEvent($StartUplist, "_STARTUPLIST")
$Threatexpert = GUICtrlCreateButton("Threatexpert", 428, 40, 75, 25)
GUICtrlSetOnEvent($Threatexpert, "_THREATEXPERT")
$Processlibary = GUICtrlCreateButton("ProcessLibrary", 508, 40, 75, 25)
GUICtrlSetOnEvent($Processlibary, "_PROCESSLIBARY")
$ClipBoard = GUICtrlCreateButton("Copier", 800, 440, 75, 25)
GUICtrlSetOnEvent($ClipBoard, "_CLIPBOARD")

$Pic1 = GUICtrlCreatePic("", 800, 376, 78, 31, BitOR($SS_NOTIFY, $WS_CLIPSIBLINGS))
_ResourceSetImageToCtrl(-1, "PAYPAL_JPG")
$Edit_LIGNE = GUICtrlCreateEdit("", 8, 363, 785, 22, $ES_READONLY)
$Edit1 = GUICtrlCreateEdit("", 8, 391, 785, 165)
GUICtrlSetData(-1, "")

GUISetState(@SW_SHOW, $_1_1)
#EndRegion ### END Koda GUI section ###

GUICtrlSetResizing($rapport, $GUI_DOCKRIGHT + $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKHEIGHT)
            GUICtrlSetResizing($Rappor, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKSIZE)
            GUICtrlSetResizing($Path, $GUI_DOCKRIGHT + $GUI_DOCKSIZE + $GUI_DOCKTOP)
            GUICtrlSetResizing($Systemlook, $GUI_DOCKALL)
            GUICtrlSetResizing($StartUplist, $GUI_DOCKALL)
            GUICtrlSetResizing($Syslog, $GUI_DOCKALL)
            GUICtrlSetResizing($Threatexpert, $GUI_DOCKALL)
            GUICtrlSetResizing($Processlibary, $GUI_DOCKALL)
            GUICtrlSetResizing($OPT, $GUI_DOCKTOP + $GUI_DOCKHEIGHT)
            GUICtrlSetResizing($S_D, $GUI_DOCKTOP + $GUI_DOCKHEIGHT)
            GUICtrlSetResizing($CTF_D, $GUI_DOCKTOP + $GUI_DOCKHEIGHT)
            GUICtrlSetResizing($FirewallRAZ, $GUI_DOCKTOP + $GUI_DOCKHEIGHT)
            GUICtrlSetResizing($HostFix, $GUI_DOCKTOP + $GUI_DOCKHEIGHT)
            GUICtrlSetResizing($EmptyTemp, $GUI_DOCKTOP + $GUI_DOCKHEIGHT)
            GUICtrlSetResizing($SYSRESTORE, $GUI_DOCKTOP + $GUI_DOCKHEIGHT)
            GUICtrlSetResizing($Reg, $GUI_DOCKTOP + $GUI_DOCKHEIGHT)
            GUICtrlSetResizing($QuarantaineRestoreall, $GUI_DOCKTOP + $GUI_DOCKHEIGHT)
            GUICtrlSetResizing($QuarantineRestore, $GUI_DOCKTOP + $GUI_DOCKHEIGHT)
            GUICtrlSetResizing($Pic1, $GUI_DOCKTOP + $GUI_DOCKHEIGHT)
            GUICtrlSetResizing($ClipBoard, $GUI_DOCKTOP + $GUI_DOCKHEIGHT)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Pic1
            ShellExecute("http://www.google.fr")
        Case Else ;
            If $OpenDialog <> "" Then
                $lbl = "Lignes cochées : "
                $lbl2 = ""
                $LigneCochee = ""
                $LigneSelectionnee = ""
                For $i = 0 To $itemNb
                    If GUICtrlRead($Item[$i], 1) = 1 Then
                        $lbl = $lbl & ", " & $i
                        If Not StringInStr($LigneCochee, _GUICtrlListView_GetItemText($List1, $i - 1)) Then
                            $LigneCochee &= _GUICtrlListView_GetItemText($List1, $i - 1) & @CRLF
                        EndIf
                    EndIf
                    If _GUICtrlListView_GetItemSelected($List1, $i) Then
                        $lbl2 = " / Ligne selectionnée : " & ($i + 1)
                        $LigneSelectionnee = _GUICtrlListView_GetItemText($List1, $i)
                    EndIf
                Next
                ; si aucun N° de ligne n'a été ajouté, c'est qu'aucune ligne n'a été sélectionnée
                If $lbl = "Lignes chochées : " Then $lbl = "Aucune ligne chochée"

                $lbl &= $lbl2
                If GUICtrlRead($Label1) <> $lbl Then ; pour éviter le scintillement on ne met a jour le label que si il a changé
                    GUICtrlSetData($Label1, $lbl)
                    GUICtrlSetData($Edit1, $EditTexte & $LigneCochee)
                    If $LigneSelectionnee <> "" Then GUICtrlSetData($Edit_LIGNE, $LigneSelectionnee)
                EndIf
            EndIf

        EndSwitch

;Until $nMsg = $GUI_EVENT_CLOSE
Wend


Func _PATH()
    $OpenDialog = FileOpenDialog("Ouvrir le rapport", @DesktopDir & "\", "rapport (*.txt;*.log)", 1) ; ouverture du fichier placé sur le bureau au format txt, log
[color=#408000]If @error Then
    MsgBox(0,"Test", "Aucun fichier choisi")
EndIf[/color]
    $itemNb = 0
    $itemNb = "" ; déclaration de variable vide
    $Item = "" ; déclaration de variable vide

    GUICtrlSetData($rapport, $OpenDialog) ; controle le fichier de la dialogbox dans l'inputbox
    _GUICtrlListView_DeleteAllItems($List1) ; détruis tout les items de la listview

    $file = FileOpen($OpenDialog, 0) ; deja on commence par ouvrir le fichier, sinon, on va avoir du mal a lire dedans !
    Dim $Item[1] ; on crée un tableau pour stocker les lignes => tableau 1D


    While 1 ; donc on fait une boucle
        $ligne = FileReadLine($file) ; ou on lit une ligne
        If @error = -1 Then ExitLoop ; si y a une erreur c'est qu'on est a la fin du fichier
        If $ligne <> "" Then
            $itemNb += 1 ; on incrémente le compteur
            ReDim $Item[$itemNb + 1] ; comme on ne sait pas combien il y a de lignes, on redimensionne le tableau ou on les stocke
            $Item[$itemNb] = GUICtrlCreateListViewItem($ligne, $List1) ; et on injecte la ligne dans la liste



        EndIf
    WEnd
    FileClose($file); A la fin on oublie pas de fermer le fichier

EndFunc   ;==>_PATH


Func _OPT()
EndFunc   ;==>_OPT

Func _SD()

EndFunc   ;==>_SD

Func _CTF()


EndFunc   ;==>_CTF

Func _SYSRESTORE()

EndFunc   ;==>_SYSRESTORE
Func _FirewallRAZ()

EndFunc   ;==>_FirewallRAZ
Func _EmptyTemp()

EndFunc   ;==>_EmptyTemp
Func _RestoreAll()

EndFunc   ;==>_RestoreAll

Func _HostFix()

EndFunc   ;==>_HostFix

Func _Reg()

EndFunc   ;==>_Reg

Func _Restore()

EndFunc   ;==>_Restore

Func _CLIPBOARD()
    ClipPut(GUICtrlRead($Edit1))
EndFunc   ;==>_CLIPBOARD

Func _SYSLOG()

EndFunc   ;==>_SYSLOG
Func _SYSTEMLOOK()
EndFunc   ;==>_SYSTEMLOOK
Func _STARTUPLIST()

EndFunc   ;==>_STARTUPLIST

Func _THREATEXPERT()

EndFunc   ;==>_THREATEXPERT
Func _PROCESSLIBARY()

EndFunc   ;==>_PROCESSLIBARY

Func FermeGUI() ; Début de la fonction
    If @GUI_WinHandle = $_1_1 Then ; Contrôle de la valeur de @GUI_WINHANDLE
    Exit ; Sortie du script
    EndIf
EndFunc   ;==>FermeGUI

Code : Tout sélectionner

Func _PATH()
    $OpenDialog = FileOpenDialog("Ouvrir le rapport", @DesktopDir & "\", "rapport (*.txt;*.log)", 1) ; ouverture du fichier placé sur le bureau au format txt, log
If @error Then
        MsgBox(0,"Test", "Aucun fichier choisi")
    Else
        $itemNb = 0
        $itemNb = "" ; déclaration de variable vide
        $Item = "" ; déclaration de variable vide

        GUICtrlSetData($rapport, $OpenDialog) ; controle le fichier de la dialogbox dans l'inputbox
        _GUICtrlListView_DeleteAllItems($List1) ; détruis tout les items de la listview

        $file = FileOpen($OpenDialog, 0) ; deja on commence par ouvrir le fichier, sinon, on va avoir du mal a lire dedans !
        Dim $Item[1] ; on crée un tableau pour stocker les lignes => tableau 1D


        While 1 ; donc on fait une boucle
            $ligne = FileReadLine($file) ; ou on lit une ligne
            If @error = -1 Then ExitLoop ; si y a une erreur c'est qu'on est a la fin du fichier
            If $ligne <> "" Then
                $itemNb += 1 ; on incrémente le compteur
                ReDim $Item[$itemNb + 1] ; comme on ne sait pas combien il y a de lignes, on redimensionne le tableau ou on les stocke
                $Item[$itemNb] = GUICtrlCreateListViewItem($ligne, $List1) ; et on injecte la ligne dans la liste



            EndIf
        WEnd
        FileClose($file); A la fin on oublie pas de fermer le fichier
    EndIf 
EndFunc   ;==>_PATH