• Home
 · 
• Windows API Call/Explanation
 · 
• FIND WINDOW BY ENTERING TITLE

FIND WINDOW BY ENTERING TITLE

FIND WINDOW BY ENTERING TITLE

API Declarations


'FIND WINDOW BY ENTERING TITLE. '
'MD.MAFUZUL ISLAM MAFUZ '
'WEB:www.mafuz.com '
'E-mail:[email protected] '
'BANGLADESH '


'FINDWINDOW:>>The FindWindow function retrieves the
'handle to the top-level window whose class name and
'window name match the specified strings. This function
'does not search child windows.
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

'SETWINDOWTEXT:>>The SetWindowText function changes the
'text of the specified window's title bar (if it has one).
'If the specified window is a control, the text of the
'control is changed.
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long




Rate FIND WINDOW BY ENTERING TITLE

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Form_Load()
'::::::::::::::::::::::::::::::
'YOU HAVE TO RUN CONTROL PANEL:
'::::::::::::::::::::::::::::::

'STRING TYPE VARIABLE
Dim WinName As String 'WINDOW'S TITLE
Dim SetText As String 'TO KEEP THE WINDOW'S NEW TITLE

'ENTER THE TITLE OF WINDOW TO FIND
WinName = InputBox("Enter a window Title to find out", "Find", "Control Panel")

'ENTER THE NEW CAPTION/TITLE FOR THE WINDOW
'TO CHANGE TITLE
SetText = InputBox("Enter a new window Title", "Title", "One World One Sky")

'FINDWINDOW
'>>FindWindow(lpClassName,// pointer to class name
'            lpWindowName // pointer to window name)
res = FindWindow(vbNullString, WinName)
     If res = 0 Then
        MsgBox "Could not find:" & WinName
     End If
     
'CHANGE TITLE
'>>SetWindowText(hWnd,  // handle of window or control
'                lpString    // address of string)
Call SetWindowText(res, SetText)
End Sub