Get browser tab captions & close tabs

[enoctis]

NOTE: I have also posted this thread on XtremeVBtalk.com.

I'm barely above an entry-level programmer, and have been trying to accomplish this task for a few days now. Perhaps some of you smarter folks can assist me.

The program I am coding (in VB6) closes windows which have a caption that matches a keyword list. The program works as intended on all windows except browsers. When multiple tabs are opened, my code will close the entire browser rather than only the matching tab. I've tried some code that searches for any child windows, but apparently Firefox and Chrome don't utilize child windows in this aspect.

Basically, I'd like to know how to extract the captions from open tabs (regardless of focus) and subsequently close tabs. Provided those two snippets, I can script the rest. However, I just can't seem to figure out how to accomplish this. The internet has been scoured and my hands are still empty. Any help?

NOTE: If your reply includes a reference to a required class/module, please specify the name or provide a link. Thanks!

[SamOscarBrown]

Current code attempt?

[enoctis]

I have everything broken down into separate subs, which would make it very difficult to compile into a reply. However, here's what I'm doing:

Enumerating window handles to a list. Checking each handle for child windows. Grabbing captions from child windows (if they exist) and comparing to the keyword list. If no child exists, then the parent caption is compared. Closing any handles {PostMessage [HANDLE], WM_CLOSE, CLng(0), CLng(0)} that match.

Is this adequate information?

[Max187Boucher]

I dont know if this can help you but you could modify code to be able to do what you want... Here is link

[Max187Boucher]

It is tricky to close or control tabs but if you find a way with api i wanna see

[westconn1]

The program I am coding (in VB6) closes windows which have a caption that matches a keyword list. The program works as intended on all windows except browsers. When multiple tabs are opened, my code will close the entire browser rather than only the matching tab. I've tried some code that searches for any child windows, but apparently Firefox and Chrome don't utilize child windows in this aspect.

as you do not show the code that is producing this result it is hard to make suggestions to modify the undesired behaviour,

it is very easy to do this with internet explorer, but other programs that utilise tabs work differently and may require the sending of a different widows message to that which you are sending

[enoctis]

'DECLARATIONS:

Public Declare Function BeepAPI Lib "kernel32" Alias "Beep" (ByVal dwFrequency As Long, ByVal dwMilliseconds As Long) As Long
Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public 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
Public Declare Function GetActiveWindow Lib "user32" () As Long
Public Declare Function GetNextWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wFlag As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Const GW_HWNDNEXT = 2
Public Const WM_CLOSE = &H10

Private Sub timeBlock_Timer()

' lstChildHWND.List is where the handles of children are loaded
' lstKW.List is where the keywords to compare with window captions are stored
' lstHWND.List is where the handles are loaded from the EnumWindows function
' wbSave is a sub that saves relevant information to an external INI

' [EXPLANATION OF EVENTS] 
' Top-level window handles are loaded into lstHWND.List
' Each handle is checked for Child windows
' If Child windows exist, get captions and check against keywords (lstKW.List)
' If no Child windows, get top-level captions and check against keywords
' If matches are found, close via SendMessage/WM_Close

lstHWND.Clear
EnumWindows AddressOf EnumWindowsProc, ByVal 0&

Dim handCnt, kwCnt, opt As Integer
Dim childCnt As Integer

For handCnt = 0 To lstHWND.ListCount - 1
    For kwCnt = 0 To lstKW.ListCount - 1
    Call GetChildHandles(lstChildHWND, lstHWND.List(handCnt))
        If lstChildHWND.ListCount > 0 Then
            For childCnt = 0 To lstChildHWND.ListCount - 1
                If InStr(LCase(CaptionGetFromHandle(lstChildHWND.List(childCnt))), lstKW.List(kwCnt)) > 0 Then
                    '---BEGIN EXEMPTIONS--------
                    If Trim(LCase(CaptionGetFromHandle(lstChildHWND.List(childCnt)))) Like Trim(LCase(Me.Caption)) Then GoTo SkipChild
                    If Trim(LCase(CaptionGetFromHandle(lstChildHWND.List(childCnt)))) Like Trim(LCase(frmSecurity.Caption)) Then GoTo SkipChild
                    If Trim(LCase(CaptionGetFromHandle(lstChildHWND.List(childCnt)))) Like "registry editor" Then GoTo SkipChild
                    If Trim(LCase(CaptionGetFromHandle(lstChildHWND.List(childCnt)))) Like "windows task manager" Then GoTo SkipChild
                    '---END OF EXEMPTIONS-------
                    While CaptionGetFromHandle(lstChildHWND.List(childCnt)) <> ""
                        PostMessage lstChildHWND.List(childCnt), WM_CLOSE, CLng(0), CLng(0)
                    Wend
                    lblBlockedCnt = Val(lblBlockedCnt) + 1
                    Call wbSave
                    For opt = 0 To 2
                        If optSound(opt).Value = True Then
                            Select Case opt
                                Case 0: 'Silent
                                Case 1: BeepAPI 700, 75
                                Case 2: Call MediaWAVplay(txtSound)
                            End Select
                        End If
                    Next opt
                End If
SkipChild:
            Next childCnt
        Else
            If InStr(LCase(CaptionGetFromHandle(lstHWND.List(handCnt))), lstKW.List(kwCnt)) > 0 Then
                '---BEGIN EXEMPTIONS--------
                If Trim(LCase(CaptionGetFromHandle(lstHWND.List(handCnt)))) Like Trim(LCase(Me.Caption)) Then GoTo SkipTop
                If Trim(LCase(CaptionGetFromHandle(lstHWND.List(handCnt)))) Like Trim(LCase(frmSecurity.Caption)) Then GoTo SkipTop
                If Trim(LCase(CaptionGetFromHandle(lstHWND.List(handCnt)))) Like "registry editor" Then GoTo SkipTop
                If Trim(LCase(CaptionGetFromHandle(lstHWND.List(handCnt)))) Like "windows task manager" Then GoTo SkipTop
                '---END OF EXEMPTIONS-------
                While CaptionGetFromHandle(lstHWND.List(handCnt)) <> ""
                    PostMessage lstHWND.List(handCnt), WM_CLOSE, CLng(0), CLng(0)
                Wend
                lblBlockedCnt = Val(lblBlockedCnt) + 1
                Call wbSave
                For opt = 0 To 2
                    If optSound(opt).Value = True Then
                        Select Case opt
                            Case 0: 'Silent
                            Case 1: BeepAPI 700, 75
                            Case 2: Call MediaWAVplay(txtSound)
                        End Select
                    End If
                Next opt
            End If
        End If
    Next kwCnt
SkipTop:
Next handCnt

End Sub

Public Function HandleGetFromCaption(strAppTitle As String) As Long

Dim hwnd As Long, hWndStop As Long, hWndNext As Long, iLen As Long
Dim strTitle As String * 64, p As Integer

hwnd = GetActiveWindow()
hWndStop = hwnd

p = 0
Do
hWndNext = GetNextWindow(hwnd, GW_HWNDNEXT)
iLen = GetWindowText(hWndNext, strTitle, Len(strTitle))

If iLen Then
    If InStr(LCase(strTitle), LCase(strAppTitle)) > 0 Then
        HandleGetFromCaption = hWndNext
        Exit Do
    End If
End If

hwnd = hWndNext
p = p + 1
Loop Until p = 256

End Function

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
    Dim sSave As String, Ret As Long, cls As Long, sText As String
    sText = Space(255)
        cls = GetClassName(hwnd, sText, 255)
        sText = Left$(sText, cls)
        Ret = GetWindowTextLength(hwnd)
        sSave = Space(Ret)
        GetWindowText hwnd, sSave, Ret + 1
        If sSave <> "" Then
            If hwnd < 1000 Then
                If Trim(Str$(hwnd)) <> frmMain.hwnd Then
                    frmMain.lstHWND.AddItem Trim(Str$(hwnd)) ' + "   " + sSave
                End If
            Else
                If Trim(Str$(hwnd)) <> frmMain.hwnd Then
                    frmMain.lstHWND.AddItem Trim(Str$(hwnd)) ' + " " + sSave
                End If
            End If
        End If
        'continue enumeration
        EnumWindowsProc = True
    'End If
End Function

[enoctis]

The Declarations and EnumWindowsProc are located in a module. frmMain is the form where the controls being used are located.