.exe logger by desperado_simou

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 :


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 +++
Télécharger le projet

Codes Sources

A voir également

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.