ESPION CREANT UN JOURNAL DES UTILISATIONS DU PC (XP)

Commentaire de Zouf le 09/04/2004 03:02:15

Voilà un code (le même) mais en plus efficace : Private Sub Form_Load()
Set WshShell = CreateObject("Wscript.Shell")
user = WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Logon User Name")
On Error GoTo creer_dossier
Open "c:\program files\journal\journal.txt" For Append As #1
Print #1, "ouverture de : ", user, "à : ", Time, "le : ", Date
Close
creer_dossier:
On Error Resume Next
MkDir "c:\program files\journal"
On Error Resume Next
Resume
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set WshShell = CreateObject("Wscript.Shell")
user = WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Logon User Name")
Open "c:\program files\journal\journal.txt" For Append As #1
Print #1, "Fermeture de : ", user, "à : ", Time, "le : ", Date
Close
End Sub

Sinon, merci pour le code ;) et vive tes commentaires, très instructif (même si je connaissais déjà :) )