Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 989 fois - Téléchargée 39 fois
'dans un module 'Declaration d'APIS Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long Public Const WM_SETTEXT = &HC 'CONSTANTE pour mettre texte Dim wnd As Long, tWnd As Long 'Variables pour stocker le hwnd du bouton démarrer Public Function ConvertirStringByte(Letexte As String) As Variant 'Fonction pour convertir une chaine en byte(tableau de byte) Dim Tablo() As Byte Dim Cnt As Integer Dim Ln As Integer Ln = Len(Letexte) ReDim Tablo(Ln) For Cnt = 0 To Ln - 1 Tablo(Cnt) = Asc(Mid(Letexte, Cnt + 1, 1)) Next Cnt Tablo(Ln) = 0 ConvertirStringByte = Tablo End Function Public Sub TexteDemarrer(Letexte As String) 'FOnction principale pour charnger le texte Dim loctet() As Byte tWnd = FindWindow("Shell_TrayWnd", "") 'Rehcercher le wnd du bouton wnd = GetWindow(tWnd, 5) ReDim loctet(Len(Letexte) + 1) loctet = ConvertirStringByte(Letexte) Call SendMessage(wnd, WM_SETTEXT, 0&, loctet(0)) End Sub '******************************************************
LOL
Donc il renomme bien le bouton, mais à l'écran, on voit toujours "Démarrer" et pas "314" ...
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.