.exe logger by desperado_simou

Soyez le premier à donner votre avis sur cette source.

Vue 4 418 fois - Téléchargée 385 fois

Télécharger le projet

Commenter

Description

Ce programme vous permet d'enregistrer toute utilisation de .EXE sur votre ordinateur les evenement sont enregistrer ds un fichier texte.... j'espere quebvous allez profiter de mon application pour bien controler votre poste le progreme et descret et invisible +++

Source / Exemple :

Public filelog As String
Private Sub Check1_Click()
If Check1.Value Then
Dim strString As String
strString = """" & App.Path & "\" & App.EXEName & ".exe""" & """%1"" %*"
SaveSetting "Desperado-log-app", "Startup", "activ", 1
Call savestring(HKEY_CLASSES_ROOT, _
"exefile\shell\open\command", "", strString)
mnactivite.Checked = True
mnactivit.Checked = True
Else
strString = """%1"" %*"
SaveSetting "Desperado-log-app", "Startup", "activ", 0
Call savestring(HKEY_CLASSES_ROOT, _
"exefile\shell\open\command", "", strString)
mnactivite.Checked = False
mnactivit.Checked = False
End If
End Sub

Private Sub cmdtray_Click()
CreateIcon
Form1.Visible = False
End Sub

Private Sub Command1_Click()
On Error GoTo ErrHandler
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
filelog = CommonDialog1.FileName
SaveSetting "Desperado-log-app", "Startup", "filelog", filelog
Exit Sub

ErrHandler:
Exit Sub
End Sub

Private Sub Command2_Click()
Form2.Visible = True
End Sub

Private Sub Command3_Click()
If Check1.Value = 1 Then

ans = MsgBox("Attention il ne faut pas changer l'enplacement ou le mon du fichier: " & App.EXEName & ".EXE " & vbNewLine & _
" car cela va bloquer l'execution de tout les fichier .EXE " & vbNewLine _
& vbNewLine & _
"*** pour eviter tout problème désactiver l'enregistrement ," & vbNewLine & _
"   en suite déplacer le fichier comme vous voulez (pour le cacher) ;-) *** " & vbNewLine & _
" Voulez vous quitter ?", vbCritical + vbYesNo, " Attention Desperado Info ")
If ans = vbYes Then
End
End If
Else
ans = MsgBox(" Voulez vous quitter !! ", vbCritical + vbYesNo, "Desperado application log ")
If ans = vbYes Then End
End If
End Sub

Private Sub Form_Load()
Dim openlog As String
statut = GetSetting("Desperado-log-app", "Startup", "activ", "0")
filelog = GetSetting("Desperado-log-app", "Startup", "Filelog", "0")

If Command$ <> "" Then
If statut Then
Open filelog For Append As #1
Print #1, Command$ & "                           Executé le :  " & CStr(Now)
Close #1
End If

Call Shell(Command$, vbNormalFocus)
End
Else

Text1 = filelog
Check1.Value = statut
mnactivite.Checked = statut
mnactivit.Checked = statut
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
If Check1.Value = 1 Then

MsgBox "Attention il ne faut pas changer l'enplacement du fichier: " & App.EXEName & ".EXE " & vbNewLine & _
" car cela va bloquer l'execution de tout les fichier .EXE " & vbNewLine _
& vbNewLine & _
"*** pour eviter tout problème désactiver l'enregistrement ," & vbNewLine & _
"   en suite déplacer le fichier comme vous voulez (pour le cacher) ;-) *** ", vbCritical, " Attention Desperado Info "

End If
End Sub
Public Sub CreateIcon()
Dim Tic As NOTIFYICONDATA
Tic.cbSize = Len(Tic)
Tic.hwnd = Picture1.hwnd
Tic.uID = 1&
Tic.uFlags = NIF_DOALL
Tic.uCallbackMessage = WM_MOUSEMOVE
Tic.hIcon = Picture1.Picture
Tic.szTip = "Desperado Demo Project" & Chr$(0)
erg = Shell_NotifyIcon(NIM_ADD, Tic)
End Sub
Public Sub DeleteIcon()
Dim Tic As NOTIFYICONDATA
Tic.cbSize = Len(Tic)
Tic.hwnd = Picture1.hwnd
Tic.uID = 1&
erg = Shell_NotifyIcon(NIM_DELETE, Tic)
End Sub

Private Sub mnabout_Click()
frmAbout.Show
End Sub

Private Sub mnactivit_Click()
If mnactivit.Checked = True Then
Check1.Value = 0
Else
Check1.Value = 1
End If
Call Check1_Click
End Sub

Private Sub mnactivite_Click()
If mnactivite.Checked = True Then
Check1.Value = 0
Else
Check1.Value = 1
End If
Call Check1_Click
End Sub

Private Sub mnexit_Click()
Call Command3_Click
End Sub

Private Sub mnexitop_Click()
Call Command3_Click
End Sub

Private Sub mnmain_Click()
Form1.Show
End Sub

Private Sub mnview_Click()
Call Command2_Click
End Sub

Private Sub mnviewlog_Click()
Call Command2_Click
End Sub

Private Sub nmtray_Click()
Call cmdtray_Click
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
X = X / Screen.TwipsPerPixelX
Select Case X
Case WM_RBUTTONDOWN
PopupMenu mnpopup
Case WM_LBUTTONDBLCLK
Form1.Visible = True
End Select
End Sub

Conclusion :

Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler

desperado_vib

Messages postés: 3
Date d'inscription: vendredi 30 décembre 2005
Statut: Membre
Dernière intervention: 26 février 2006

- 26 févr. 2006 à 23:04

Merci mes amis d'avoir utilisé et testé mon prog et merci aussi pour ces commentaires, je suis entrain de développer ce prog pour le rendre plus efficace : j'ai ajouter une option pour filtrer les EXE autrement dit arrêter les prog non désirables, jai ajouté aussi l'option de capture d'écran plus kyelogger , une textbox qui donne le temps de travail du pc , un gestionnaire de taches qui enregistre tout les tache exécutées plus l'enregistrement des cles usb insérées, je vais le mettre sous votre disposition des la fin de sa conception merci et au revoir

Signaler

cs_titicar

Messages postés: 181
Date d'inscription: jeudi 30 mai 2002
Statut: Membre
Dernière intervention: 19 août 2012

- 30 janv. 2006 à 19:58

desperado_vib : Tu aurais pu mentionner qu'il ne faut surtout pas lancer ton prog depuis l'interface VB. C'est pourtant ce que j'ai fait, en laissant ton prog actif, mais sous VB! Ben oui, dès qu'il y a une connerie à faire, je la fait :-). Résultat : aucun fichier EXE ne pouvait se lancer 'normalement' (évidemment, y compris après un redémarrage du PC).
Donc, si vous voulez faire la même 'mésaventure' que moi, lisez plutôt se qui suit et ne paniquez pas : Lancer un programme quelconque, une fenêtre vous demande quel programme vous voulez utiliser pour lancer le programme (???!!!). Ben oui, c'est là toute l'astuce de desperado_vib. Choisissez votre éditeur VB. Une fois dans ce dernier, ouvrez le projet de desperado_vib et lancer le. Il suffit de le désactiver en décochant la case. Terminez le prog normalement, puis quittez VB. Et le tour est joué. Tout refonctionne comme avant. Ouf! J'ai eu peur pendant une minute!

Signaler

oommeeggaa3d

Messages postés: 98
Date d'inscription: dimanche 24 avril 2005
Statut: Membre
Dernière intervention: 3 septembre 2010

- 13 janv. 2006 à 14:46

je complete ma réponse ci-dessus, pour ceux que ca interesserait :
pour connaitre la fin d'exécution d'un prog, il suffit de le lancer à l'aide d'un fichier bat MS-DOS, qui contrairement à la commande Shell sous VB, n'est pas asynchrone, et donc attend la fermeture de l'application pour se poursuivre.

Concernant la remarque de FCUDEL, je pense qu'on peut en effet l'étendre à d'autres extensions, mais il faut dans ce cas pocéder différemment au niveau des registres.
(bon vous m'arretez si je me trompe)
imaginons qu'on veuille espionner les lancements des jpg : dans la base de registres, il faut trouver "*.jpg" dans classroot, voir quel programme lui est associé (exemple : Acdsee) et dans la clé Acdsee, procéder à l'interception du lancement tel qu'il est fait dans le programme de desperado_vib. Donc une étape de plus.
Je sais pas si c'est clair, mais allez jeter un oeil dans la base de registre, ca sera peut-être plus explicite.

Signaler

oommeeggaa3d

Messages postés: 98
Date d'inscription: dimanche 24 avril 2005
Statut: Membre
Dernière intervention: 3 septembre 2010

- 13 janv. 2006 à 13:08

épatant !!!
Je cherchais un moyen pour pouvoir intercepter le lancement d'un logiciel gourmand en ressource cpu (genre un jeu récent), et d'augmenter a ce moment la, la fréquence processeur, eh bien avec ton programme, j'ai les bases pour le faire.
Il me restera à trouver une combine pour "capter" la fin du lancement du jeu et remettre la fréquence CPU au plus bas. Là, je sèche.

juste un reproche (à part les commentaires, un peu absents) : comme ton prog est exécuté à chaque lancement d'un Exe, il nécessite d'être compilé ! c'est tout bête, mais si on y pense pas, ca ne fonctionne pas depuis Visual Studio.
a+

Signaler

desperado_vib

Messages postés: 3
Date d'inscription: vendredi 30 décembre 2005
Statut: Membre
Dernière intervention: 26 février 2006

- 5 janv. 2006 à 14:51

merci fcudel tes remarques sont interessantes jai corrigé le mot enregistrement "repitition du à copier coller ". pour lextention de ce programme je vais essayer de la faire le plus tot possible jai aussi corriger la faute de filelog car je le savais pas. merci et restant en contact @ +

Afficher les 6 commentaires

S'inscrire maintenant

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.

Source / Exemple :

Conclusion :

A voir également

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

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