Logiciel utilisé

0/5 (6 avis)

Snippet vu 5 382 fois - Téléchargée 59 fois

Contenu du snippet

Le zip est la source d 1 projet ki enregistre les logiciels utilisé par le pc et les enregistre ds un fichier ds C:/ ( c le programme centralisation.exe)
les données sont recuperées avec le fichier centra.exe)

Source / Exemple :


Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal IpString As String, ByVal cch As Long) As Long
Const GW_HWNDFIRST = 0
Const GW_HWNDNEXT = 2
Public fso As New FileSystemObject

Sub ListeTache()
Dim CurrWnd As Long
Dim Length As Long
Dim TaskName As String
Dim Parent As Long
List1.Clear
CurrWnd = GetWindow(Form1.hwnd, GW_HWNDFIRST)

While CurrWnd <> 0
    Parent = GetParent(CurrWnd)
    Length = GetWindowTextLength(CurrWnd)
    TaskName = Space$(Length + 1)
    
    Length = GetWindowText(CurrWnd, TaskName, Length + 1)
    TaskName = Left$(TaskName, Len(TaskName) - 1)
    If Length > 0 Then
        If TaskName <> Me.Caption Then
            List1.AddItem TaskName
        End If
    End If
    CurrWnd = GetWindow(CurrWnd, GW_HWNDNEXT)
    DoEvents
Wend
End Sub

Private Sub Timer1_Timer()
Dim dat As String
dat = Str(Val(Mid(Date, 1, 2)) + 2) + Str(Val(Mid(Date, 4, 2)) + 1) + Mid(Date, 7, 2)

ListeTache
Dim txt As TextStream
Dim txt2pr As TextStream
Dim txt2pw As TextStream
Set txt = fso.OpenTextFile("C:/defaut")
Set txt2pr = fso.OpenTextFile("C:/centralisation_du_" + dat, , True)
Set txt2pw = fso.OpenTextFile("C:/centralisation_du_" + dat, ForAppending)
Dim tempo As String
tempo = ""
'txt2pw.WriteLine (Time)
For a = 0 To List1.ListCount
ok = True
DoEvents
Set txt = fso.OpenTextFile("C:/defaut")
tmp = List1.List(a)
While txt.AtEndOfLine = False
If tmp = txt.ReadLine Then ok = False
Wend
'While txt2pr.AtEndOfLine = False
'If tmp = txt2pr.ReadLine Then ok = False
'DoEvents
'Wend
'If ok = True Then txt2pw.WriteLine (List1.List(a))
If ok = True Then tempo = tempo + List1.List(a) + vbrclf
Next a
If tempo <> "" Then
txt2pw.WriteLine (Time)
txt2pw.WriteLine (tempo)
End If

End Sub

Private Sub Timer2_Timer()
ListeTache
Dim txt As TextStream
Set txt = fso.CreateTextFile("C:/defaut", True)
For a = 0 To List1.ListCount
txt.WriteLine List1.List(a)
DoEvents
Next a
txt.Close
Timer1.Enabled = True
End Sub

Conclusion :


et voila
si vous avez des questions pas de probleme vous avez mon mail!

A voir également

Ajouter un commentaire Commentaires
luko007 Messages postés 31 Date d'inscription mercredi 20 novembre 2002 Statut Membre Dernière intervention 9 septembre 2003
13 févr. 2004 à 10:36
niveau expert ????
DedeSurf Messages postés 156 Date d'inscription mardi 17 décembre 2002 Statut Membre Dernière intervention 23 novembre 2011
30 janv. 2003 à 09:37
Ici on est dans la catégorie Systèm !
cutéreu ;)
C pas dans spécial concours hein..
c terrible ce code!
ca pete mais il y a des appli qu'on ne connais pas qui sont dans la liste!
L'idée n'est pas mauvaise en elle même mais qu'est ce que c'est mal fait ... ;-)

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.