Espion creant un journal des utilisations du pc (xp)

0/5 (2 avis)

Vue 5 151 fois - Téléchargée 760 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
cs_Zouf Messages postés 28 Date d'inscription mercredi 5 juin 2002 Statut Membre Dernière intervention 9 juin 2004
9 avril 2004 à 03:07
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 :)
cs_Zouf Messages postés 28 Date d'inscription mercredi 5 juin 2002 Statut Membre Dernière intervention 9 juin 2004
9 avril 2004 à 03:02
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.