Utilisation SB_GETTEXT (lecture texte barre de statut) [Résolu]

Messages postés
64
Date d'inscription
jeudi 3 mars 2005
Dernière intervention
2 septembre 2010
- - Dernière réponse : Chouchensb
Messages postés
64
Date d'inscription
jeudi 3 mars 2005
Dernière intervention
2 septembre 2010
- 1 août 2010 à 22:19
Bonsoir,

Je cherche à lire le texte d'un élément d'une barre de statut, mais je n'y arrive pas.

Par exemple, supposons que je cherche à récupérer le texte du 1er élément de la barre de statut de Wordpad. Si j'utilise WM_GETTEXT, cela marche parfaitement. Mais dès que je veux utiliser SB_GETTEXT, j'obtiens un plantage systématique.

Le code VBA que j'utilise est donné ci-dessous (il est directement utilisable dans Excel par copier/coller - avec Wordpad ouvert en parallèle bien sûr !). Quelqu'un saurait il me dire d'où vient le problème ? Merci d'avance pour votre aide, parce que là, je sèche...

Simon

------------------------------------------------------------------------------------------------------------------------

Private Declare Function GetDlgItem Lib "user32.dll" (ByVal hDlg As Long, ByVal nIDDlgItem As Long) As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
Private Const WM_GETTEXT As Long = &HD
Private Const SB_GETTEXT As Long = &H402
Private Const SB_GETTEXTLENGTH = &H403

Sub test1_WM_GETTEXT()

'Handles de la fenêtre et de la barre de statut
Dim hWordpadWnd As Long
Dim hWordpadStatusBar As Long
hWordpadWnd = FindWindow("WordPadClass", vbNullString)
hWordpadStatusBar = GetDlgItem(hWordpadWnd, 59393)
MsgBox "Handle de la fenêtre: " & hWordpadWnd & " | Handle de la barre de statut: " & hWordpadStatusBar

'Lecture du texte de la barre de statut
Dim sbuffer As String
sbuffer = Space$(50)
SendMessage hWordpadStatusBar, WM_GETTEXT, 50, ByVal sbuffer
MsgBox "Texte de la barre de statut: " & sbuffer

End Sub


Sub test2_SB_GETTEXT()

'Handles de la fenêtre et de la barre de statut
Dim hWordpadWnd As Long
Dim hWordpadStatusBar As Long
hWordpadWnd = FindWindow("WordPadClass", vbNullString)
hWordpadStatusBar = GetDlgItem(hWordpadWnd, 59393)
MsgBox "Handle de la fenêtre: " & hWordpadWnd & " | Handle de la barre de statut: " & hWordpadStatusBar

'Lecture du texte de la barre de statut
Dim String_size As Long
Dim sbuffer As String
'Taille de la chaine
String_size = SendMessage(hWordpadStatusBar, SB_GETTEXTLENGTH, ByVal 0, ByVal 0)
String_size = (String_size And &HFFFF&)
MsgBox "Nombre de caractères lus: " & String_size
'Récupération du texte
sbuffer = Space$(String_size)
SendMessage hWordpadStatusBar, SB_GETTEXT, ByVal 0, ByVal sbuffer
MsgBox "Texte de la barre de statut: " & sbuffer

End Sub
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Messages postés
64
Date d'inscription
jeudi 3 mars 2005
Dernière intervention
2 septembre 2010
3
Merci
J'ai finalement eu la raison du non fonctionnement de ce code sur un forum de MSDN (problème d'allocation de mémoire)
Je met le code corrigé ci-dessous (adapté d'un code publié par Renfield sur ce site) , ça peut toujours servir !

PS
J'espère n'avoir pas trop écrit d'anneries dans les commentaires, je ne suis pas informaticien et ne maitrise totalement ces API... J'ai juste adaptaté un code existant et les commentaires reflètent uniquement ma compréhension.


'API et constantes
Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetDlgItem Lib "user32.dll" (ByVal hDlg As Long, ByVal nIDDlgItem As Long) As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
Private Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long, ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
Private Declare Function VirtualFreeEx Lib "kernel32" (ByVal hProcess As Long, lpAddress As Any, ByVal dwSize As Long, ByVal dwFreeType As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Private Const STANDARD_RIGHTS_REQUIRED As Long = &HF0000
Private Const SYNCHRONIZE As Long = &H100000
Private Const PROCESS_ALL_ACCESS As Long = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF&)

Private Const MEM_RELEASE = &H8000
Private Const MEM_COMMIT = &H1000
Private Const PAGE_READWRITE = &H4

Private Const WM_GETTEXT = &HD
Private Const SB_GETTEXT = &H402
Private Const SB_GETTEXTLENGTH = &H403

Sub test2_SB_GETTEXT()

Dim StatusBar_Item_Nb
StatusBar_Item_Nb = 0 'Numéro de l'élément à traiter dans la barre de statut

Dim pid As Long
Dim process As Long
Dim ptr_sBuffer As Long
Dim sBuffer As String
Dim sBufferSize As Long

'~~ Récupération des handlers de la fenêtre et de la barre de statut ~~
Dim hWordpadWnd As Long
Dim hWordpadStatusBar As Long
hWordpadWnd = FindWindow("WordPadClass", vbNullString)
hWordpadStatusBar = GetDlgItem(hWordpadWnd, 59393)

'~~ Récupération de la taille de la chaine de caractère avec SB_GETTEXTLENTGH~~
sBufferSize = SendMessage(hWordpadStatusBar, SB_GETTEXTLENGTH, StatusBar_Item_Nb, 0)
sBufferSize = (sBufferSize And &HFFFF&)
sBuffer = Space$(sBufferSize)

'~~ Récupération du contenu de la chaine de caratère ~~
'On récupère le process ID de la barre de statut
GetWindowThreadProcessId hWordpadStatusBar, pid
'A partir de ce process ID, on récupère le handler du process...
process = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
'... et on alloue un emplacement mémoire au sein de ce process
ptr_sBuffer = VirtualAllocEx(process, 0, sBufferSize, MEM_COMMIT, PAGE_READWRITE)
'On copie ensuite le texte dans l'emplacement mémoire alloué avec SB_GETTEXT...
SendMessage hWordpadStatusBar, SB_GETTEXT, StatusBar_Item_Nb, ByVal ptr_sBuffer
'...et on vient lire cet emplacement mémoire pour récupèrer le texte
ReadProcessMemory process, ByVal ptr_sBuffer, ByVal sBuffer, sBufferSize, 0
'Pour finir, on libère l'emplacement mémoire alloué
VirtualFreeEx process, ptr_sBuffer, 0, MEM_RELEASE

MsgBox "Item length: " & Len(sBuffer)
MsgBox "Item: " & sBuffer

End Sub

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 98 internautes ce mois-ci

Commenter la réponse de Chouchensb
Messages postés
64
Date d'inscription
jeudi 3 mars 2005
Dernière intervention
2 septembre 2010
0
Merci
Oupssssss, j'ai eu un problème de CTRL+C/CTRL-V...... Il manque une ligne dans le code. Voici le code complet !

------------------------------------------------------------------------------------------------------------------------

'API et constantes
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetDlgItem Lib "user32.dll" (ByVal hDlg As Long, ByVal nIDDlgItem As Long) As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
Private Const WM_GETTEXT As Long = &HD
Private Const SB_GETTEXT As Long = &H402
Private Const SB_GETTEXTLENGTH = &H403

Sub test1_WM_GETTEXT()

'Handles de la fenêtre et de la barre de statut
Dim hWordpadWnd As Long
Dim hWordpadStatusBar As Long
hWordpadWnd = FindWindow("WordPadClass", vbNullString)
hWordpadStatusBar = GetDlgItem(hWordpadWnd, 59393)
MsgBox "Handle de la fenêtre: " & hWordpadWnd & " | Handle de la barre de statut: " & hWordpadStatusBar

'Lecture du texte de la barre de statut
Dim sbuffer As String
sbuffer = Space$(50)
SendMessage hWordpadStatusBar, WM_GETTEXT, 50, ByVal sbuffer
MsgBox "Texte de la barre de statut: " & sbuffer

End Sub


Sub test2_SB_GETTEXT()

'Handles de la fenêtre et de la barre de statut
Dim hWordpadWnd As Long
Dim hWordpadStatusBar As Long
hWordpadWnd = FindWindow("WordPadClass", vbNullString)
hWordpadStatusBar = GetDlgItem(hWordpadWnd, 59393)
MsgBox "Handle de la fenêtre: " & hWordpadWnd & " | Handle de la barre de statut: " & hWordpadStatusBar

'Lecture du texte de la barre de statut
Dim String_size As Long
Dim sbuffer As String
'Taille de la chaine
String_size = SendMessage(hWordpadStatusBar, SB_GETTEXTLENGTH, ByVal 0, ByVal 0)
String_size = (String_size And &HFFFF&)
MsgBox "Nombre de caractères lus: " & String_size
'Récupération du texte
sbuffer = Space$(String_size)
SendMessage hWordpadStatusBar, SB_GETTEXT, ByVal 0, ByVal sbuffer
MsgBox "Texte de la barre de statut: " & sbuffer

End Sub
Commenter la réponse de Chouchensb
Messages postés
64
Date d'inscription
jeudi 3 mars 2005
Dernière intervention
2 septembre 2010
0
Merci
Bon, a force de chercher, je suis tombé sur un code C:

http://www.eggheadcafe.com/software/aspnet/29502197/get-text-from-nonowned-s.aspx

...développé à partir de:

http://www.codeproject.com/KB/threads/int64_memsteal.aspx?df=100&forumid=29535&exp=0&select=1604427&tid=1604427

Ca a pas l'air simple pour le novice que je suis. Reste à savoir si c'est adaptable en VBA...
Commenter la réponse de Chouchensb

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.