Visual Basic 6 - programma che controlla le log

ciao, avrei bisogno di uno script che registri le attivita del pc da quadosi attiva a quando si toppa il programma e quindi se salvi su un text...
esempio:
1- apro programma log
2- avro internet explore,gioco a....
3-chiudo programma che genera text su dekstop
4- nel text si legge programmi e processi usati

vi ringrazzio in anticipo spero che possiate aiutarmi o almeno dirmi qualche spunto

1) non e' uno "script" quello che vuoi, ma un completo programma molto complesso

2) non si richiedono i programmi gia' pronti

3) e studiamolo questo italiano !

1)non pensavo...
2)non lo sapevo...
3)è vero...

quindi nnt

mmm... dimmi una cosa, tu vuoi sapere (dopo aver aperto il programma) solo i processi dei programmi che lanci tu, o magari vuoi sapere se si sono attivati/chiusi anche processi di programmi che si sono avviati/chiusi automaticamente?

io vorrei sapere se durante la giornata sono stati aperti determinati programmi tipo vb6 oppure iexplore

allora per farlo devi controllare se tra i processi vi sono quelli dei programmi che stai controllando, e poi segnalare l'apertura del programma con data e ora su un txt ...

allora inserisci una listbox poi usa:

Option Explicit

Private Const TH32CS_SNAPPROCESS = &H2
Private Const MAX_PATH As Integer = 260

Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
End Type

Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function Process32First Lib "kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Sub CloseHandle Lib "kernel32" (ByVal hObject As Long)


Private Sub Command1_Click()
Dim hSnapShot As Long
Dim uProcess As PROCESSENTRY32
Dim lngRet As Long

hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0&)
uProcess.dwSize = Len(uProcess)
lngRet = Process32First(hSnapShot, uProcess)
lbprocessi.Clear
Do While lngRet
lbprocessi.AddItem Left$(uProcess.szExeFile, InStr(1, uProcess.szExeFile, vbNullChar) - 1)
lngRet = Process32Next(hSnapShot, uProcess)
Loop
CloseHandle hSnapShot

Dim x As Integer
Dim a As Double
Dim proc As Boolean
x = -1
For a = 1 To list1.ListCount
x = x + 1
Next
end sub

così nella listbox otterrai i processi attivi, poi bastano dei cicli e degli if usando anche la funzione Open per il file txt...

ma in questo modo segno sul text segno solo i programmi che voglio io ho tutti?

[edit] pensavo non avesse inviato.