Отследить завершение загрузок в браузере и выключить компьютер

Public Class Form1
 
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String _
    ) As Integer
 
    Private Declare Function apiGetWindowText Lib "user32" Alias "GetWindowTextA" ( _
    ByVal hwnd As Integer, _
    ByVal lpString As String, _
    ByVal cch As Integer _
    ) As Integer
 
    Private Declare Function apiGetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" ( _
    ByVal hwnd As Integer _
    ) As Integer
 
    Private Sub OperaDownloads()
 
        Dim hwnd As Integer
        Dim OperaWindName As String = ""
        hwnd = FindWindow("OperaWindowClass", vbNullString)
 
        OperaWindName = GetWindowName(hwnd)
 
        If OperaWindName.IndexOf("Загрузки") > -1 Then
            If OperaWindName.IndexOf(":") > -1 Then
                Dim mtch As System.Text.RegularExpressions.Match
                mtch = System.Text.RegularExpressions.Regex.Match(OperaWindName, "\s[\d]*\:[\d]*\s")
                If mtch.Length > 0 Then
                    While mtch.Length > 0
                        OperaWindName = GetWindowName(hwnd)
                        mtch = System.Text.RegularExpressions.Regex.Match(OperaWindName, "\s[\d]*\:[\d]*\s")
                        Debug.Print("До отключения осталось: " & mtch.Value)
                        Threading.Thread.Sleep(1000)
                    End While
                    MessageBox.Show("Закачка завершена Комп отключился")
                End If
 
            Else
                MessageBox.Show("Активных загрузок нет")
            End If
        Else
            MessageBox.Show("Открыта не та вкладка")
        End If
    End Sub
    'Функция не моя
    Public Function GetWindowName(ByVal hWnd As Integer) As String
        Try
            Dim tLength As Integer
            Dim rValue As Integer
            Dim wName As String
            tLength = apiGetWindowTextLength(hWnd) + 4
            wName = ""
            wName = wName.PadLeft(tLength) 'add buffer
            rValue = apiGetWindowText(hWnd, wName, tLength)
            wName = wName.Substring(0, rValue) 'strip buffer
            Return wName
        Catch ex As Exception
            Return ""
        End Try
    End Function
End Class