EXTRAIRE LE TEXTE DES FENETRES D'APPLICATIONS TIERCES (LISTBOX, LISTVIEW, TEXTBOXES, ...)

Commentaire de muad-dib le 19/04/2008 23:13:07

Pardon mais je ne saisis pas bien le but du programme?

Commentaire de oommeeggaa3d le 21/04/2008 09:14:10

Excellent et ça donne des idées !
Mais ça manque un peu de commentaires.

Commentaire de Renfield le 21/04/2008 11:29:19 administrateur CS

Je suis en train d'ajouter la gestion de quelques types de fenetre supplémentaires

Commentaire de oommeeggaa3d le 21/04/2008 14:07:00

Merci bien, c'est du joli boulot. et bien commenté cette fois ;-)

pour les listview, la récupération des colonnes et subitems fonctionnent aussi si SendMessage(vhWnd, LVM_GETVIEW, 0, ByVal 0&) renvoie 0 (mode lviewreport).

Commentaire de oommeeggaa3d le 21/04/2008 14:26:49

je te donne le détail, ça sera peut-être plus clair :
j'ai créé dans un autre projet une listview configurée en mode lvwReport.
Il y a trois colonnes et des entêtes de colonnes.
Mais ton programme ne me renvoyait que le contenu de la 1ère colonne.
J'ai donc visualisé la valeur renvoyée dans ton programme par sendMessage(vhWnd, LVM_GETVIEW, 0, ByVal 0&) et c'était 0. En modifiant le test sur cette valeur, j'ai pu obtenir les contenus de mes 3 colonnes et leur entêtes.
En tout cas, ça marche du tonnerre, et c'est également une nouvelle façon de récupérer les infos d'un explorateur windows. (avec plus de détails que dans ma dernière source qui ne récupérait que les noms de fichiers via le clipbpoard)

Commentaire de Renfield le 21/04/2008 14:34:10 administrateur CS

On peut même supprimer ce test :

            ...
            '# On récupère l'entete
            hHeader = SendMessage(vhWnd, LVM_GETHEADER, 0, ByVal 0&)
            If hHeader Then
                '# Le nombre de colonnes
                nColUbound = SendMessage(hHeader, HDM_GETITEMCOUNT, 0, ByVal 0&) - 1
                
                ...
            End If
            ...

Commentaire de Renfield le 22/04/2008 11:12:37 administrateur CS

non, pas eu le temps, mais ca ne doit pas etre complexe.... se baser sur ce que j'ai fait sur les listview, pour aller jouer dans l'espace mémoire du process cible, lui demander des Nodes, etc...

Commentaire de Renfield le 22/04/2008 13:22:08 administrateur CS

dans l'absolu, oui, mais il faudrait tout de même faire
    pszText = Space$( 512 )
pour allouer de la mémoire.

le String est interpreté lors de l'appel à l'API. Celle-ci recevra un pointeur mémoire vers les caractères...
mais ce pointeur ne désignerai pas une adresse valide dans l'espace mémoire du processus cible...

c'est pour cela que l'on fait des VirtualAlloc, etc ; pour que le pointeur désigne une adresse mémoire conforme, dans l'espace mémoire du processus en charge de relmplir notre LVITEM

Commentaire de oommeeggaa3d le 22/04/2008 14:20:28

Pour les treeview, j'ai donc ajouté le code suivant.
Avec le treeview de l'explorateur Windows, cela fonctionne parfois, mais pas toujours (!). Idem pour la listview de l'explorateur.

If InStr(1, ";SysTreeView32;TreeView20WndClass;", ";" & sClass & ";", vbTextCompare) Then
          GetWindowThreadProcessId vhwnd, nPid
          hprocess = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE Or PROCESS_QUERY_INFORMATION, False, nPid)
          If hprocess <> -1 Then
            tv = TreeView_GetRoot(vhwnd) 'noeud racine
            'vsresult = get_treeview_item_text(vhwnd, hprocess, tv) & vbNewLine 'récupération du nom
            'tv = TreeView_GetChild(vhwnd, tv) 'on se place sur son premier fils
            vsresult = vsresult & get_treeview_text(vhwnd, hprocess, tv, 0) 'on demande la récupération de l'arbre à partir de ce permier fils
            CloseHandle hprocess
End If

Public Function TreeView_GetRoot(hwnd As Long) As Long
TreeView_GetRoot = TreeView_GetNextItem(hwnd, 0, TVGN_ROOT)
End Function

Public Function TreeView_GetChild(hwnd As Long, hItem As Long) As Long
TreeView_GetChild = TreeView_GetNextItem(hwnd, hItem, TVGN_CHILD)
End Function

Public Function TreeView_GetNextItem(hwnd As Long, _
hItem As Long, _
flag As Long) As Long
TreeView_GetNextItem = SendMessage(hwnd, _
TVM_GETNEXTITEM, _
flag, _
ByVal hItem)
End Function

'pour récursivité
Private Function get_treeview_text(vhwnd As Long, hprocess As Long, ByVal tv As Long, level As Integer) As String
Dim vsresult As String
Dim tmp As String
While tv <> 0
  vsresult = vsresult & String(level, vbTab) & get_treeview_item_text(vhwnd, hprocess, tv) & vbNewLine
  tmp = get_treeview_text(vhwnd, hprocess, TreeView_GetChild(vhwnd, tv), level + 1)
  vsresult = vsresult & tmp
  tv = TreeView_GetNextItem(vhwnd, tv, TVGN_NEXT)
Wend
get_treeview_text = vsresult
End Function

Private Function get_treeview_item_text(vhwnd As Long, hprocess As Long, tv As Long) As String
Dim tvi As TVITEM
Dim mem As Long
Dim nLength As Long
Dim sBuffer As String
With tvi
  .mask = TVIF_TEXT
  .cchTextMax = 512
End With
sBuffer = Space$(512)
tvi.pszText = VirtualAllocEx(hprocess, ByVal 0&, 512, MEM_COMMIT, PAGE_READWRITE)
mem = VirtualAllocEx(hprocess, ByVal 0&, LenB(tvi), MEM_COMMIT, PAGE_READWRITE)
tvi.hItem = tv
WriteProcessMemory hprocess, ByVal mem, tvi, LenB(tvi), nLength
Call SendMessage(vhwnd, TVM_GETITEM, 0&, ByVal mem)
ReadProcessMemory hprocess, ByVal tvi.pszText, ByVal sBuffer, 512, ByVal 0&
On Error Resume Next
get_treeview_item_text = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)
On Error GoTo 0
VirtualFreeEx hprocess, mem, 0, MEM_RELEASE
VirtualFreeEx hprocess, tvi.pszText, 0, MEM_RELEASE
End Function

Commentaire de oommeeggaa3d le 22/04/2008 15:13:57

encore moi ...
après "enquête", j'ai bien l'impression qu'il y a une fuite mémoire.
J'ai essayé avec différents processus (explorateur, taskmanager ...), la mémoire utilisée augmente à chaque requête de ton programme, mais n'est pas libérée apparemment.

Commentaire de oommeeggaa3d le 22/04/2008 15:31:23

Ouf, le problème peut se régler :
Le souci vient de là :

http://www.vbfrance.com/infomsg_VIRTUALFREEEX-SUITE_147596.aspx#1