Visual Basic 6 - programma che controlla le log

Forum - Visual Basic 6 - programma che controlla le log

fantarcola (Normal User)
Rookie

Messaggi: 26
Iscritto: 04/02/2010

Postato alle 0:56
Sabato, 29/05/2010

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

nessuno (Normal User)
Guru^2

Messaggi: 6402
Iscritto: 03/01/2010

Postato alle 1:01
Sabato, 29/05/2010

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 !

Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.

fantarcola (Normal User)
Rookie

Messaggi: 26
Iscritto: 04/02/2010

Postato alle 1:03
Sabato, 29/05/2010

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

quindi nnt

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 12:35
Sabato, 29/05/2010

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?

fantarcola (Normal User)
Rookie

Messaggi: 26
Iscritto: 04/02/2010

Postato alle 14:38
Sabato, 29/05/2010

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

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 23:06
Sabato, 29/05/2010

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:

Codice sorgente - presumibilmente VB.NET

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

fantarcola (Normal User)
Rookie

Messaggi: 26
Iscritto: 04/02/2010

Postato alle 11:14
Domenica, 30/05/2010

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

fantarcola (Normal User)
Rookie

Messaggi: 26
Iscritto: 04/02/2010

Postato alle 11:14
Domenica, 30/05/2010

[edit]

pensavo non avesse inviato.

Ultima modifica effettuata da fantarcola il 30/05/2010 alle 11:17