.EXE LOGGER BY DESPERADO_SIMOU

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

Télécharger le zip