Sujet Précédent Sujet Suivant

ESPION CREANT UN JOURNAL DES UTILISATIONS DU PC (XP)

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
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

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/21773-espion-creant-un-journal-des-utilisations-du-pc-xp

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

Discussions similaires

Journal comptable

comment créer une interface web de gestion d'emploi du temps

générer une grille de mots mêlés

faire un examen en ligne avec QCM

Algorithme Mot Caché

Votre réponse

Discussions similaires