Utilisation des API windows problèmeRésolu

Question

Voila , j'ai cr&#233;e un programme qui permet de changer le texte du bouton d&#233;mmarrer sous windows XP. Il me faudrait maintenant r&#233;cuperer ce texte, il faut que j'utilise la fonction "GetWindowText" mais le probl&#232;me c'est que je suis un d&#233;butant en vb et si quelqu'un pouvait me mettre sur la voi se serait cool .

Voici la fonction : 

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal nMaxCount As Integer) As Integer
    Dim HwndWin As Long
    'Obtenir le handle
    HwndWin = FindWindow("Shell_TrayWnd", "")
    HwndWin = FindWindowEx(HwndWin, 0, "BUTTON", 0)

D'apr&#232;s ce que donc je cherche le handle du menu d&#233;marrer, je l'ajoute et j'ajoute oci nMaxCount, ensuite il doit me sortit "d&#233;marrer' normalement mais cela ne fonctionne pas.

Voici la page de microsoft : http://msdn.microsoft.com/library/en-us/winui/winui/windowsuserinterface/windowing/windows/windowreference/windowfunctions/getwindowtext.asp?frame=true 

Grand merci &#224; mon sauveur !!!

------------------------------------
http://fg.logiciel.free.fr

fg85 · Accepted Answer

Non je ne suis pas sur .NET mais sur vb6 :-(
http://fg.logiciel.free.fr

Gobillot · Answer

est-ce que tu es en .NET ?

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 lpString As String, ByVal cch As Long) As Long


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
       (ByVal lpClassName As String, ByVal lpWindowName As String) As Long


Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
       (ByVal hWnd1 As Long, _
        ByVal hWnd2 As Long, _
        ByVal lpsz1 As String, _
        ByVal lpsz2 As String) As Long

Private Sub Command1_Click()
    Dim HwndWin As Long
    Dim lg              As Long
    Dim ch             As String
    HwndWin = FindWindow("Shell_TrayWnd", vbNullString)
    HwndWin = FindWindowEx(HwndWin, 0, "BUTTON", vbNullString)
    lg = GetWindowTextLength(HwndWin) + 1
    ch = Space$(lg)
    GetWindowText HwndWin, ch, lg
    MsgBox ch

End Sub

Daniel

fg85 · Answer

Merci &#231;a fonctionne !!!
http://fg.logiciel.free.fr

cs_CanisLupus · Answer

Salut,

Si tu sais le changer, tu devrais savoir comment le r&#233;cup&#233;rer, je ne comprend pas.

Cordialement, CanisLupus