B4A 调用谷歌翻译api进行翻译

源码和软件地址：
https://www.lanzous.com/i5upsle

#Region  Project Attributes 
  #ApplicationLabel: B4A谷歌翻译示例
  #VersionCode: 1
  #VersionName: 
  'SupportedOrientations possible values: unspecified, landscape or portrait.
  #SupportedOrientations: unspecified
  #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
  #FullScreen: False
  #IncludeTitle: True
#End Region

Sub Process_Globals
  'These global variables will be declared once when the application starts.
  'These variables can be accessed from all modules.
  Dim  ht As HttpJob
End Sub

Sub Globals
  'These global variables will be redeclared each time the activity is created.
  'These variables can only be accessed from this module.
  Private BT_FY As Button
  Private TXT_IN As EditText
  Private TXT_JSON As AutoCompleteEditText
  Private TXT_RES As AutoCompleteEditText
  Private su As StringUtils
End Sub

Sub Activity_Create(FirstTime As Boolean)
  'Do not forget to load the layout file created with the visual designer. For example:
  Activity.LoadLayout("FY")
  Activity.AddMenuItem("GY", "关于")
End Sub

Sub GY_Click
  Msgbox("更多精彩内容请关注微信公众号:VB小源码","关于")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub BT_FY_Click
  If TXT_IN.Text<>"" Then
    Dim fy_str As String
    fy_str=su.EncodeUrl(TXT_IN.Text, "UTF8")
    ht.Initialize("gl",Me)
    ht.Download("https://translate.google.cn/translate_a/single?dj=1&q="& fy_str &"&sl=zh-CN&tl=en&hl=zh-CN&ie=UTF-8&oe=UTF-8&client=at&dt=t&dt=ld&dt=qca&dt=rm&dt=bd&dt=md&dt=ss&dt=ex&otf=3")
    ProgressDialogShow("正在翻译,请稍等...")
  End If
End Sub

Sub JobDone(job As HttpJob)
  Try
    If job.Success Then
      ProgressDialogHide
      If job.JobName="gl" Then
        Dim Reader As TextReader,tmp As String,str As StringBuilder
        str.Initialize
        Reader.Initialize(job.GetInputStream)
        tmp=Reader.ReadAll
        TXT_JSON.Text=tmp
        '----------------------
        Dim text, pattern As String
        text = tmp
        pattern = $"trans":.+?","$
        Dim mh As Matcher
        mh = Regex.Matcher(pattern, text)
        Do While mh.Find
          str.Append(mh.Match)
        Loop
        ''------------------------
        TXT_RES.Text=str.ToString.SubString(8).SubString2(0,str.ToString.SubString(8).Length-2)
      End If
    Else
      ProgressDialogHide
      ToastMessageShow("翻译失败",True)
    End If
  Catch
    ToastMessageShow("出错啦!",True)
  End Try
End Sub