How to get speak link from Google TTS

[Dossfm0q]

Greetings
how to get the when you copy it will speak? pleas see Picture
after click listen Button Right Mouse then inspect element >> network >> Media

Public Sub Get_TTS()

Dim IE As Object
   Dim Url As String
    Set IE = CreateObject("InternetExplorer.Application")
   
    Url = "https://translate.google.com.sa/?hl=ar&tab=wT1#view=home&op=translate&sl=en&tl=ar&text=dog"
    With IE
        .navigate Url
        While .busy Or .readystate < 4: DoEvents: Wend
        .document.queryselector(".ttsbutton").Click ' or
        '.document.queryselector(".src-tts").Click' all of them work will
        ' her I need to type Code that copy TTS Url Pleas see attch Picture
        Application.Wait Now + TimeValue("00:00:05")
        .Quit
   
    End With

End Sub

Thank

 

[Dossfm0q]

Network without Media help PLZ

Public Sub Google_TTS()

    Dim IE As InternetExplorer
    Set IE = CreateObject("InternetExplorer.application")
    IELang = "hl=" & "en"
    TrnsFrom = "sl=" & "en"
    TrnsTo = "tl=" & "ar"
    TXT = "My Car" ' orActiveCell
    StrUrl = "https://translate.google.com/?" & IELang & "&tab=wT1&authuser=0#view=home&op=translate&" & TrnsFrom & "&" & TrnsTo & "&text=" & TXT
    With IE
    .Visible = True
    .Navigate StrUrl
        While .busy Or .ReadyState < 4: DoEvents: Wend
       ' .Document.queryselector(".ttsbutton").Click ' or
        
        SendKeys String:="{F12}" ' call  Inspect Elements<<<<<<
        SendKeys String:="^4" ' call  Inspect Elements Network<<<<<<
        Application.Wait Now + TimeValue("00:00:02")
        .Document.queryselector(".src-tts").Click ' all of them work will
        ' her I need to type Code that copy TTS Url Pleas see attch Picture
       ' Application.Wait Now + TimeValue("00:00:01")
       ' .Quit
    End With
End Sub