Problemen met MSXML2.XMLHT google.com/translate

[richard99]

Kan iemand mij helpen met het volgende probleem.
Ik wil tekst van Nederlands naar Duits vertalen en ik had destijds dit werkend gekregen echter nu werkt de syntaxis niet meer.
Ik weet niet wat ik fout doe aangezien dit eerder wel werkte.
Het loopt vast bij het moment: ".send"
Foutnummer is: -2147024891
Foutmelding is: Toegang geweigerd
Ik gebruik MS Access 2003 en het lijkt erop dat Google dit niet meer ondersteunt wellicht zijn er mensen die hier bekend mee zijn of ik doe kennelijk wat verkeerds.

Dim cstrText As Long
Dim objHTML As Object
Dim objHTTP As Object
Dim strCharacter As String
Dim strTextConvert As String

For cstrText = 1 To Len(strText)
strCharacter = Mid(strText, cstrText, 1)
Select Case strCharacter
Case "0" To "9", "A" To "Z", "a" To "z"
strTextConvert = strTextConvert & strCharacter
Case Else
strTextConvert = strTextConvert & "%" & Right("0" & Hex(Asc(strCharacter)), 2)
End Select
Next

Set objHTTP = CreateObject("MSXML2.XMLHTTP")
Set objHTML = CreateObject("HTMLFILE")

With objHTTP
.Open "GET", "http://translate.google.com/translate_t?hl=en&sl=" & strFromCountry & "&tl=" & strToCountry & "&text=" & strTextConvert, False 'am_2012
.send
objHTML.body.innerhtml = .responsetext
GoogleTranslate = objHTML.getelementbyid("result_box").InnerText
End With

Set objHTTP = Nothing
Set objHTML = Nothing

 

[alphamax]

Vervang

.Open "GET", "http://translate.google.com/[COLOR="#FF0000"]translate_t[/COLOR]?hl=en&sl=" & strFromCountry & "&tl=" & strToCountry & "&text=" & strTextConvert, False 'am_2012

Door

.Open "GET", "http[COLOR="#FF0000"]s[/COLOR]://translate.google.com/?hl=en&sl=" & strFromCountry & "&tl=" & strToCountry & "&text=" & strTextConvert, False 'am_2014

 

[richard99]

Bedankt Alphamax!
Wel moet ik bekennen dat ik het gisteren al online had gevonden.
Ook had ik deze vraag als opgelost geregistreerd uitgaande dat ik jullie schaarse tijd dan niet onnodig zou toeeigenen.
Nogmaals bedankt en het is zeer prettig te constateren telkens dat bijna al mijn vragen beantwoord worden.

 

[OctaFish]

Bedenk wel dat dit een forum is waar mensen graag de oplossing van een vraag ook zien. Het is fijn voor jou dat je de oplossing zelf gevonden had, maar het is fijn voor ons dat je die er dan ook bij zet. Ik neem aan dat je op dezelfde oplossing als Alphamax bent uitgekomen?

 

[richard99]

Sorry, hier mijn gevondenoplossing:

Dim cstrText As Long
Dim objHTML As Object
Dim objHTTP As Object
Dim strCharacter As String
Dim strTextConvert As String
Dim strRes As String
Dim strTemp As String

For cstrText = 1 To Len(strText)
strCharacter = Mid(strText, cstrText, 1)
Select Case strCharacter
Case "0" To "9", "A" To "Z", "a" To "z"
strTextConvert = strTextConvert & strCharacter
Case Else
strTextConvert = strTextConvert & "%" & Right("0" & Hex(Asc(strCharacter)), 2)
End Select
Next

strTemp = "http://translate.google.com/translate_a/t?client=t&text=" & strTextConvert & "&hl=en&sl=" & strFromCountry & "&tl=" & strToCountry & "&multires=1&pc=0&rom=1&sc=1"

Set objHTTP = CreateObject("MSXML2.XMLHTTP")
Set objHTML = CreateObject("HTMLFILE")
On Error GoTo eerrr
With objHTTP
.Open "GET", strTemp, False
.send
strRes = .responseText
End With

GoogleTranslate = Replace(Replace(Split(strRes, ",")(0), "[", ""), """", "")

Set objHTTP = Nothing
Set objHTML = Nothing

 

[Warme bakkertje]

Iets compacter.

Function GoogleTranslate(strText As String, strFromCountry As String, strToCountry As String) As String
Dim strURL As String
strURL = "http://translate.google.com/translate_a/t?client=t&text=" & _
        Replace(strText, " ", "%20") & _
        "&hl=en&sl=" & strFromCountry & _
        "&tl=" & strToCountry & "&multires=1&pc=0&rom=1&sc=1"
             
With CreateObject("MSXML2.XMLHTTP")
    .Open "get", strURL, False
    .send
    GoogleTranslate = Replace(Replace(Split(.responseText, ",")(0), "[", ""), """", "")
End With
End Function

 

[richard99]

Baas boven baas haha!
Thnks