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
VIDEO DEMO:
Chúc mọi người thành công với thủ thuật đơn giản này.
