• Home
 · 
• Windows API Call/Explanation
 · 
• Change Start Button Text

Change Start Button Text

Example of FindWindowEx and SendMessage

Rate Change Start Button Text

• 1
• 2
• 3
• 4
• 5

(4(4 Vote))

Option 
Explicit

'

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 Declare Function SendMessage Lib "user32" 
Alias "SendMessageA" ( _

          
                                       
ByVal hwnd As Long, _

          
                                       
ByVal wMsg As Long, _

          
                                       
ByVal wParam As Long,
_

          
                                       
          
lParam As Any _

          
                                       
          
) As Long

                                        
'

Const WM_SETTEXT As Long = &HC

'

Public Sub ChangeSB(sNewText As String)

     
  '

      Dim hWnd_ As 
Long

      '

     
  hWnd_ = FindWindowEx(0&, 0&, "Shell_TrayWnd", 
vbNullString)

    '

     
  If (hWnd_ > 0) Then

          
   '

          
   hWnd_ = 
FindWindowEx(hWnd_, 0&, "Button", vbNullString)

          
   '

           If (hWnd_ > 
0) Then

    
           
    
'

    
           
    
SendMessage hWnd_, WM_SETTEXT, 0&, ByVal sNewText

    
           
    
'

           End If

          
   '

      End If

     
  '

End Sub