AutoIt Français

Code : Tout sélectionner

#include <_FileListToArrayNT.au3>
#include <file.au3>

$mbamlog_dir = @AppDataCommonDir & "\Malwarebytes\Malwarebytes Anti-Malware\Logs"
$linelog = _FileListToArrayNT($mbamlog_dir, "*mbam-log*", 1, 2, False, "", 1)

$FichierXML = @TempDir & "\fichiersXML.txt"
$FileXML = FileOpen($FichierXML, 2)


$Result = UBound($linelog) - 1
For $i = 1 To $Result
    If Not @error Then
        FileWriteLine($FileXML, $linelog[$i])
    EndIf
Next
FileClose($FileXML)
$mbamlogXML = FileReadLine($FichierXML)
Local $sDrive ,$sDir, $sFilename , $sExtension
Local $aPathSplit = _PathSplit($mbamlogXML, $sDrive, $sDir, $sFilename, $sExtension)
$mbamlogTXT = @DesktopDir&"\" &$sFilename& ".txt"
FileCopy($mbamlogXML,$mbamlogTXT,1)


;~ for $i = 1 to _FileCountLines($mbamlogTXT)

_ReplaceStringInFile($mbamlogTXT,"<file><path>","File : ")
_ReplaceStringInFile($mbamlogTXT,"</path><vendor>"," || vendor : ")
_ReplaceStringInFile($mbamlogTXT,"</vendor><action>"," || action : ")
_ReplaceStringInFile($mbamlogTXT,"</action><hash>"," || hash : ")
_ReplaceStringInFile($mbamlogTXT,"</action><baddata>"," || baddata : ")
_ReplaceStringInFile($mbamlogTXT,"</baddata><gooddata>"," || gooddata : ")
_ReplaceStringInFile($mbamlogTXT,"</gooddata><hash>"," || hash : ")
_ReplaceStringInFile($mbamlogTXT,"</hash></file>","")

$_rapport = @TempDir & "\test.txt"
$_rapport2 = FileOpen($_rapport,2)
    For $i = 1 To _FileCountLines($mbamlogTXT)
        FileWriteLine($_rapport2, StringRegExpReplace(FileReadLine($mbamlogTXT, $i), "\</.*", "") & "")
    Next
    FileClose($_rapport2)
    ShellExecute($_rapport)


;~ ShellExecute($mbamlogTXT)

Code : Tout sélectionner

#include <_FileListToArrayNT.au3>
#include <file.au3>
Local $sDrive, $sDir, $sFilename, $sExtension

$mbamlog_dir = @AppDataCommonDir & "\Malwarebytes\Malwarebytes Anti-Malware\Logs"
$linelog = _FileListToArrayNT($mbamlog_dir, "*mbam-log*", 1, 2, False, "", 1)

$Lrecent_mbamlogXML = UBound($linelog) - 1
$recent_mbamlogXML = $linelog[$Lrecent_mbamlogXML]
$sUserContent = StringRegExpReplace(FileRead($recent_mbamlogXML), "</[^>]+>", "")

$recent_mbamlogTXT = @DesktopDir & "\rapport_mbam.txt"
$_recent_mbamlogTXT = FileOpen($recent_mbamlogTXT, 2)
FileWrite($_recent_mbamlogTXT, $sUserContent)
FileClose($_recent_mbamlogTXT)

_FileWriteToLine($recent_mbamlogTXT, 1, "", 1)
_FileWriteToLine($recent_mbamlogTXT, 2, "", 1)
_ReplaceStringInFile($recent_mbamlogTXT, "<mbam-log>", "[mbam-log]")
_ReplaceStringInFile($recent_mbamlogTXT, "<engine>", "[engine]")
_ReplaceStringInFile($recent_mbamlogTXT, "<system>", "[system]")
_ReplaceStringInFile($recent_mbamlogTXT, "<summary>", "[summary]")
_ReplaceStringInFile($recent_mbamlogTXT, "<options>", "[options]")
_ReplaceStringInFile($recent_mbamlogTXT, "<items>", "[items]")
_ReplaceStringInFile($recent_mbamlogTXT, "<items>", "[items]")
_ReplaceStringInFile($recent_mbamlogTXT, "<file><path>", " - File/patch: ")
_ReplaceStringInFile($recent_mbamlogTXT, "<", " - ")
_ReplaceStringInFile($recent_mbamlogTXT, ">", ": ")

If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox(4, "Rapport mbam créé au format TXT", "Le dernier rapport de Malwarebyte's Antimalware vient d'être enregistré sous le bureau :" & @CRLF & $recent_mbamlogTXT & @CRLF & @CRLF & "Souhaitez-vous l'ouvrir ?")
Select
    Case $iMsgBoxAnswer = 6 ;Yes
        ShellExecute($recent_mbamlogTXT)
EndSelect

Code : Tout sélectionner

Local $sLastFile, $sFile
Local $sDir =  @AppDataCommonDir & "\Malwarebytes\Malwarebytes Anti-Malware\Logs"

Local $hSearch = FileFindFirstFile($sDir & "\*mbam-log*")
If $hSearch = -1 Then Exit MsgBox(0, "", "Aucun fichier trouvé")

While 1
    $sFile = FileFindNextFile($hSearch)
    If @error Then ExitLoop
    $sLastFile = $sFile
WEnd


$recent_mbamlogXML = $sDir & "\" & $sLastFile
Local $sUserContent = FileRead($recent_mbamlogXML)
$sUserContent = StringRegExpReplace( $sUserContent, "</[^>]+>", "") ; Supprime les balise fermantes
$sUserContent = StringRegExpReplace( $sUserContent, "<(mbam-log|engine|system|summary|options|items)>", "[$1]") ; Remplace <mbam-log> par [mbam-log] , (ou engine ou system ...)
$sUserContent = StringReplace( $sUserContent, "><", "/") ; Remplace >< par  (<file><path> devient <file/path>)
$sUserContent = StringRegExpReplace( $sUserContent, "<([^>]+)>", " - $1 : ") ; Pour toutes les balises, remplace tous les "<NomBalise>" par "- NomBalise :"
$sUserContent = StringRegExpReplace( $sUserContent, "^[^\[]+", "") ; Supprime tout le début, jusqu'au premier "["


$recent_mbamlogTXT = @DesktopDir & "\rapport_mbam.txt"
$_recent_mbamlogTXT = FileOpen($recent_mbamlogTXT, 2)
FileWrite($_recent_mbamlogTXT, $sUserContent)
FileClose($_recent_mbamlogTXT)


IF MsgBox(4, "Rapport mbam créé au format TXT", _ 
             "Le dernier rapport de Malwarebyte's Antimalware vient d'être enregistré sous le bureau :" & _ 
             @CRLF & $recent_mbamlogTXT & @CRLF & @CRLF & "Souhaitez-vous l'ouvrir ?") = 6 Then _ 
             ShellExecute($recent_mbamlogTXT)