Public Const GWL_STYLE = -16
Public Const WS_DISABLED = &H8000000
Public Const WS_CANCELMODE = &H1F
Public Const WM_CLOSE = &H10

Option Explicit

Public TargetName As String
Public TargetHwnd As Long

Public Const GWL_STYLE = -16
Public Const WS_DISABLED = &H8000000
Public Const WS_CANCELMODE = &H1F
Public Const WM_CLOSE = &H10

Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Declare Function GetWindowText Lib "user32" Alias _
    "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString _
    As String, ByVal cch As Long) As Long
Declare Function IsWindow Lib "user32" (ByVal hWnd As Long) _
    As Long
Declare Function GetWindowLong Lib "user32" Alias _
    "GetWindowLongA" (ByVal hWnd As Long, _
    ByVal nIndex As Long) As Long
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

Sub KillProga(proga As String)
    Do
        TargetName = proga
        TargetHwnd = 0
        ' Examine the window names.
        EnumWindows AddressOf WindowEnumerator, 0
        ' See if we got an hwnd.
        If TargetHwnd = 0 Then
            Exit Do
        Else
            EndTask (TargetHwnd)
        End If
    Loop
End Sub

' Return False to stop the enumeration.
Public Function WindowEnumerator(ByVal app_hwnd As Long, _
    ByVal lParam As Long) As Long
Dim buf As String * 256
Dim Title As String
Dim Length As Long

    ' Get the window's title.
    Length = GetWindowText(app_hwnd, buf, Len(buf))
    Title = Left$(buf, Length)

    If Length <> 0 Or Len(Title) <> 0 Then
    'MsgBox$ Title & " - " & Length
    Selection.TypeText Text:=Title & " - " & Length & Chr$(13)
    End If

    ' See if the title contains the target.
    If InStr(Title, TargetName) > 0 Then
        ' Save the hwnd and end the enumeration.
        TargetHwnd = app_hwnd
        WindowEnumerator = False
    Else
        ' Continue the enumeration.
        WindowEnumerator = True
    End If
End Function

Function EndTask(TargetHwnd As Long) As Long

    Dim rc As Integer
    Dim ReturnVal As Integer
'    If TargetHwnd = Form1.hwnd Or GetWindow(TargetHwnd, _
'        GW_OWNER) = Form1.hwnd Then
'        End
'    End If
    If IsWindow(TargetHwnd) = False Then
        GoTo EndTaskFail
    End If
    If (GetWindowLong(TargetHwnd, GWL_STYLE) _
        And WS_DISABLED) Then
        GoTo EndTaskSucceed
    End If

    'Close the window
    If IsWindow(TargetHwnd) Then
        If Not (GetWindowLong(TargetHwnd, GWL_STYLE) _
        And WS_DISABLED) Then
        'rc = PostMessage(TargetHwnd, WS_CANCELMODE, 0, 0&)
        'rc = PostMessage(TargetHwnd, WM_CLOSE, 0, 0&)
         DoEvents
        End If
    End If
    GoTo EndTaskSucceed

EndTaskFail:
    ReturnVal = False
    GoTo EndTaskEndSub
EndTaskSucceed:
    ReturnVal = True
EndTaskEndSub:
    EndTask = ReturnVal
End Function

Sub Title_и_Length_окон()
'Title - название
'Length - длина

Selection.EndKey Unit:=wdStory
Selection.TypeParagraph

Dim proga As String
proga = "Thunderbirg"
KillProga proga

End Sub

Selection.EndKey Unit:=wdStory
Selection.TypeParagraph

Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Option Explicit

Dim ShellWindows As New ShellWindows
Dim WithEvents WebBrowser As WebBrowser
Dim WithEvents Document As HTMLDocument
Private Sub Form_Load()

    Dim ShellWindow As Object

    For Each ShellWindow In ShellWindows
        If TypeOf ShellWindow.Document Is HTMLDocument Then
            Set Document = ShellWindow.Document
            'MsgBox Document.URL
            Debug.Print Document.URL
            If Document.URL = "http://web.airdroid.com/" Then
'подскажите как открыть вкладку Позвонить????
            End If
        End If
    Next
End Sub

Dim ShellWindows1 As ShellWindows
Dim WebBrowser1 As WebBrowser

Dim ShellWindow As Object

For Each ShellWindow In ShellWindows

If Document.URL = "http://web.airdroid.com/" Then
'подскажите как открыть вкладку Позвонить????
            End If

Option Explicit

Dim WithEvents WebBrowser As WebBrowser
Dim WithEvents Document As HTMLDocument
Public web_airdroid_com As Boolean

Private Sub CommandButton1_Click()

'чтобы не выделяло WithEvents WebBrowser As WebBrowser
'нужно подключить в References - Microsoft HTML Object Library

'файл ieframe.dll скопировать в C:\WINDOWS\system32

Selection.EndKey Unit:=wdStory
Selection.TypeParagraph
'Вызываем Enumwindows-function
    EnumWindows AddressOf EnumWindowsProc, ByVal 0&
    If web_airdroid_com = False Then MsgBox$ "http://web.airdroid.com/ не открыто на Windows Internet Explorer, программа не может быть продолжена"
End Sub

Option Explicit

Dim ShellWindows As New ShellWindows
'чтобы не выделяло ShellWindows As New ShellWindows
'нужно подключить в References - Microsoft Internet Controls
Dim WithEvents WebBrowser As WebBrowser
'чтобы не выделяло WithEvents WebBrowser As WebBrowser
'нужно подключить в References - Microsoft HTML Object Library
Dim WithEvents Document As HTMLDocument
'

Private Sub CommandButton1_Click()

    Dim ShellWindow As Object
    Dim Internet_Explorer As Boolean
    Internet_Explorer = False
    
    Dim airdroid_Internet_Explorer As Boolean
    airdroid_Internet_Explorer = False
        
    For Each ShellWindow In ShellWindows
            If TypeOf ShellWindow.Document Is HTMLDocument Then
            Internet_Explorer = True
            Set Document = ShellWindow.Document
            'MsgBox$ Document.URL
            'Debug.Print Document.URL
            If Document.URL = "http://web.airdroid.com/" Then
            airdroid_Internet_Explorer = True
            MsgBox$ _
            "http://web.airdroid.com/" & vbCrLf _
            & "открыт при помощи Internet Explorer"
            'подскажите как открыть вкладку Позвонить????
            GoTo ExitFor
            End If
        End If
    Next
        
    MsgBox$ _
    "Требуется открыть" & vbCrLf _
    & "http://web.airdroid.com/" & vbCrLf _
    & "при помощи Internet Explorer" & vbCrLf _
    & "программа не может быть продолжена"
       
ExitFor:

Set Document = Nothing
    
End Sub

For Each elem In Document
            Debug.Print elem.Value
            Next

'сделать требуемое окно видимым
            ShellWindow.Visible = True