[Visual Basic] Using Google Translator

Hi mọi người, hôm nay Hùng Coder Blog sẽ hướng dẫn cho các bạn một thủ thuật "Using Google Translator" tạm dịch là GOOLE DỊCH

Thủ thuật này hoàn toàn đơn giản chứ không phức tạp nhé mọi người.

Nhược điểm hiện tại là chỉ dịch được ngôn ngữ VIỆT NAM sang ngôn ngữ ENGLISH thôi nhé mọi người.

FULL CODE :
Đầu tiên Imports những thư viện này vào

  Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq
Imports System
Imports System.Net
Imports System.Text
Imports System.Web
  

Tiếp đó thêm một button và hai textbox như hình ảnh bên trên

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBox2.Text = (gtranslate(TextBox1.Text, "vi", "en")) 'From italian to english, of course you can change it
        TextBox2.Enabled = True
        My.Settings.translate = TextBox1.Text
    End Sub
    Public Shared Function gtranslate(ByVal inputtext As String, ByVal fromlangid As String, ByVal tolangid As String) As String
        inputtext = HttpUtility.HtmlAttributeEncode(inputtext)
        Dim step1 As New WebClient
        step1.Encoding = Encoding.UTF8
        Dim step2 As String = step1.DownloadString("https://translate.googleapis.com/translate_a/single?client=gtx&sl=auto&tl=" & tolangid & "&hl=" & fromlangid & "&dt=t&dt=bd&dj=1&source=icon&q=" & inputtext)
        Dim step3 As Newtonsoft.Json.Linq.JObject = JObject.Parse(step2)
        Dim step4 As String = step3.SelectToken("sentences[0]").SelectToken("trans").ToString()

        Return step4
    End Function
  

Như vậy các bạn lưu code và test thử chạy chương trình thôi :D

Các bạn thêm mục System.Web ở phần Add => Reference => Assemblies / Framework 

VIDEO DEMO : 

Chúc các bạn thành công.

Download