June 17, 2023 DOWNLOAD , Software , Tips , Visual Basic

[VB] Using Google Translator

Hi mọi người, hôm nay mình chia sẽ lại bài viết dịch google trên ứng dụng và dữ liệu được lấy từ " GOOGLE TRANSLATE ". Thủ thuật...

Hi mọi người, hôm nay mình chia sẽ lại bài viết dịch google trên ứng dụng và dữ liệu được lấy từ "GOOGLE TRANSLATE".

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, vì mình chưa tích hợp được list danh sách google dích trên ứng dụng nên mình đang viết tạm thế đã 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