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

Commentaire de AGG le 04/05/2008 12:56:47

Excellent !

Commentaire de beebopcmoi le 29/09/2008 18:13:42

Genial :)
Après bien des recherches, enfin un code qui permet d'extraire le contenu d'un treeview... Bravo :)

Sans vouloir abuser... je travaille sur un treeview d'une application externe, qui affiche des textes en couleur et en gras ou non... je cherche un bout de code (en plus) qui me dirait pour chaque item s'il est en gras, en italique, et sa couleur...
C'est possible ca?

Commentaire de beebopcmoi le 02/10/2008 16:47:54

J'ai besoin de lire un certain nombre d'informations sur le treeview32 d'une
application externe:
Pour chaque item, je veux connaitre:
- Le texte de l'item
- La couleur de ce texte
- Si le texte est BOLD ou non
- L'icone affichée a coté de l'item

Grace a ce programme,j'ai pu extraire le code qui me donne le résultat suivant :

Racine1
item1
item2
Racine2
item3

Je cherche donc a obtenir un résultat qui donnerait :

Racine1, IsBold, IndexTextColor, IndexIcone
item1, IsBold, IndexTextColor, IndexIcone
item2, IsBold, IndexTextColor, IndexIcone
Racine2, IsBold, IndexTextColor, IndexIcone
item3, IsBold, IndexTextColor, IndexIcone

je ne suis pas un fin connaisseur des allocations mémoires ou du subclassing, et
je ne comprend pas tout aux getitem / getitemstate, TVIF_STATE, TVIS_BOLD et compagnie...
Je pense qu'à partir d'un exemple pour extraire le Bold, j'arriverais a tirer les autres informations, mais j'ai beau avoir bricolé de plusieurs facons, je n'arrive pas a extraire la moindre information supplémentaire

Auriez-vous un exemple d'application? une fonction IsItemBold(...) a rajouter a ce programme?

Commentaire de beebopcmoi le 05/10/2008 13:23:27

oui effectivement, j'ai finalement réussir a extraire le Bold du treeview :) ne déchiffrant qu'a grande peine ton code, j'intervertissais les handles du treeview et de l'item, honte a moi... mais j'avoue que concernant la couleur et l'identifiant de l'icone, je n'obtiens rien... Je pense que le treeview en question a été implémenté par d'autres fonctions, et j'ignore comment lui poser les bonnes questions.... :s
Si jamais tu es interressé par la question, je peux éventuellement te dire ou trouver ce treeview, si tu veux y jeter un oeil un peu plus expérimenté que le mien :) Je suis dispo en messagerie

note : sur chaque item, une infobulle regroupe toutes les informations qui m'intéressent, et j'arrive à lire ces infobulles, mais uniquement lorsqu'ils existent, et ils n'existent que ponctuellement, lorsque ma souris traine dessus... S'il y avait éventuellement une manière de forcer la création de ces bulles, que je puisse les lire....