通过php浏览器使用google进行翻译

通过php浏览器使用google进行翻译,php,translation,google-translate,Php,Translation,Google Translate,是否可以使用GET方法通过浏览器翻译php字符串 我发现这在VBA中起作用: Sub TranslateCell() Dim getParam As String, trans As String, translateFrom As String, translateTo As String translateFrom = "en" translateTo = "es" Set objHTTP = CreateObject("MSXML2.ServerXMLHT

是否可以使用GET方法通过浏览器翻译php字符串

我发现这在VBA中起作用:

 Sub TranslateCell()
    Dim getParam As String, trans As String, translateFrom As String, translateTo As String
    translateFrom = "en"
    translateTo = "es"
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    getParam = ConvertToGet(ActiveCell.Value)
    URL = "https://translate.google.pl/m?hl=" & translateFrom & "&sl=" & translateFrom & "&tl=" & translateTo & "&ie=UTF-8&prev=_m&q=" & getParam
    objHTTP.Open "GET", URL, False
    objHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    objHTTP.Send ("")
    If InStr(objHTTP.ResponseText, "div dir=""ltr""") > 0 Then
        trans = RegexExecute(objHTTP.ResponseText, "div[^""]*?""ltr"".*?>(.+?)</div>")
        ActiveCell.Value = Clean(trans)
    Else
        MsgBox ("Error")
    End If
End Sub
Sub-TranslateCell()
Dim getParam作为字符串、trans作为字符串、translateFrom作为字符串、translateTo作为字符串
translateFrom=“en”
translateTo=“es”
设置objHTTP=CreateObject(“MSXML2.ServerXMLHTTP”)
getParam=ConvertToGet(ActiveCell.Value)
URL=”https://translate.google.pl/m?hl=“&translateFrom&”&sl=“&translateFrom&”&tl=“&translateTo&”&ie=UTF-8&prev=\u m&q=“&getParam
objHTTP.Open“GET”,URL,False
objHTTP.SetRequestHeader“用户代理”、“Mozilla/4.0(兼容;MSIE 6.0;Windows NT 5.0)”
objHTTP.Send(“”)
如果InStr(objHTTP.ResponseText,“div dir=”“ltr”“”)大于0,则
trans=regexecute(objHTTP.ResponseText,“div[^”“]”]*?“ltr”。*?>(.+?)”)
ActiveCell.Value=Clean(trans)
其他的
MsgBox(“错误”)
如果结束
端接头

但是,是否有可能在PHP中实现这一点。这可能吗?

在Github中找到如果是简单的get请求,您可以使用方法
file\u get\u contents()
,如果需要一些额外的标题信息或POST而不是GET@Hamid,
文件获取内容()
支持POST: