Espion creant un journal des utilisations du pc (xp)

Soyez le premier à donner votre avis sur cette source.

Vue 5 033 fois - Téléchargée 729 fois

Description

Ce programme permet de savoir qui, quand, et à quelle heure on utilise votre pc en créant un journal des utilisations

Source / Exemple :


voir zip :-Þ

Conclusion :


si il y a qqn de motivé on peux encore prévoire de mettre en plus l'heure de déconnection, et de crypter le fichier txt

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
28
Date d'inscription
mercredi 5 juin 2002
Statut
Membre
Dernière intervention
9 juin 2004

Ce code permet de lancer le logiciel, il met exactement ce qui est prévu dans le fichier mais aussi quand il est quitté (en somme, si personne le quitte, à la fermeture de windows). Il est possible aussi avec Windows xp de faire en sorte de ne pas pouvoir le quitter, en le rennomant comme un process système style "csrss.exe" et en faisant les quelques modifies nécessaire pour que le nom soit valide (en gros, faut le rennomer comme ça partout). On ne pourra plus le quitter... enfin, il existe un moyen barbare :p pour quitter n'importe quel logiciel, oui, n'importe lequel. Vous avez un débogueur comme celui de la suite vb6, c++, etc... ben vous faites déboguer :).
Voilà pour les quelques infos...
Sur ce, dodo :)
Messages postés
28
Date d'inscription
mercredi 5 juin 2002
Statut
Membre
Dernière intervention
9 juin 2004

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à :) )

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.