формалула/переводчик с одним аргументом

[Евгений Таб]

Коллеги, добрый день

Подскажите почему формала работала долгое время, а потом перестала?

Что нужно исправить?

PHP код:


Function TranslateRU_EN(InputString) As String
InputString = Replace(InputString, Chr(34), "")
InputString = Replace(InputString, "'", "")
URL = "http://translate.google.ru/translate_a/t?client=t&text=" & InputString & "&hl=ru&sl=ru&tl=en&multires=1&otf=2&pc=1&ssel=0&tsel=0&sc=1"

 k = Replace(Replace(GetHTTPResponse(URL), "\r\n", vbCrLf), "[[[", "")
k = Replace(k, "\r", "")
 x = Split(k, Chr(34) & "," & Chr(34), -1)
TranslateRU_EN = Replace(x(0), Chr(34), "")
End Function

 Function TranslateEN_RU(InputString) As String
InputString = Replace(InputString, Chr(34), "")
InputString = Replace(InputString, "'", "")
URL = "http://translate.google.ru/translate_a/t?client=t&text=" & InputString & "&hl=ru&sl=en&tl=ru&otf=1&pc=0"
 k = Replace(Replace(GetHTTPResponse(URL), "\r\n", vbCrLf), "[[[", "")
k = Replace(k, "\r", "")
 x = Split(k, Chr(34) & "," & Chr(34), -1)
TranslateEN_RU = Replace(x(0), Chr(34), "")
End Function
 
 
  Private Function GetHTTPResponse(ByVal sURL As String) As String
     On Error Resume Next
     Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
     With oXMLHTTP
         .Open "GET", sURL, False
      .setRequestHeader "user-agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; .NET CLR 1.0.3705;)"
     .setRequestHeader "Accept-Language", "ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3"
    .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        .send
         GetHTTPResponse = .responseText

     End With
     
     Set oXMLHTTP = Nothing
End Function 


[slan]

видимо что-то поменяли на сайте

[Hugo121]

Защищаются, капчу ввели.
Зайдите вручную по сгенерированному адресу, увидите.

[Евгений Таб]

Сообщение от Hugo121

Защищаются, капчу ввели.
Зайдите вручную по сгенерированному адресу, увидите.

Коллеги, а помогите с созданием аналогичной функции...