vb.net تىن پايدىلىنىپ خالىغان تور بەتكە مەزمۇن يوللاش ۋە ئوقۇش

ئەسسالامۇ ئەلەيكۇم
پروگرامما تۈزۈش جەريانىدا بەزىدە تور بەتكە ئۇچۇر يوللاش ۋە قوبۇل توغرا كىلىدۇ، تۆۋەندە بۇ تېمىدىكى ئۇيغۇرچە - خەنزۇچە قوش يۈنىلىشلىك تەرجىمە سىستېمىسىغا vb.net تىن پايدىلىنىپ ئۇچۇر يېزىش - ئوقۇش كودى بېرىلدى، بۇ كودتىن پايدىلىنىپ http://www.misiran.net تور بېتىنىڭ ئاددى بولغان ئەپ نۇسخىسىنى ياساشقا بولىدۇ.

1. Public Class Form1
   
2.     Dim i As Integer = 0
   
3.     Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
   
4.         If i = 0 Then
   
5.             Me.Button1.Enabled = True
   
6.             Me.Button2.Enabled = True
   
7.             Me.Label1.Visible = True
   
8.         End If
   
9.         i += 1
   
10.     End Sub
    
11. 
    
12.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
13.         Me.WebBrowser1.Navigate("http://www.misiran.net/")
    
14.     End Sub
    
15. 
    
16.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    
17.         If Me.TextBox1.Text = "" Then Exit Sub
    
18.         If Me.TextBox2.Text <> "" Then
    
19.             Me.TextBox2.Text = ""
    
20.         End If
    
21.         Me.WebBrowser1.Document.GetElementById("FeaturedContent_TextBox2").SetAttribute("value", "")
    
22.         Me.WebBrowser1.Document.GetElementById("FeaturedContent_TextBox1").SetAttribute("value", Me.TextBox1.Text)
    
23.         Me.WebBrowser1.Document.GetElementById("FeaturedContent_Button2").InvokeMember("click")
    
24.         Do
    
25.             Application.DoEvents()
    
26.         Loop Until WebBrowser1.Document.GetElementById("FeaturedContent_TextBox2").GetAttribute("value") <> ""
    
27.         Me.TextBox2.Text = WebBrowser1.Document.GetElementById("FeaturedContent_TextBox2").GetAttribute("value")
    
28.     End Sub
    
29. 
    
30.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    
31.         If Me.TextBox1.Text = "" Then Exit Sub
    
32.         If Me.TextBox2.Text <> "" Then
    
33.             Me.TextBox2.Text = ""
    
34.         End If
    
35.         Me.WebBrowser1.Document.GetElementById("FeaturedContent_TextBox2").SetAttribute("value", "")
    
36.         Me.WebBrowser1.Document.GetElementById("FeaturedContent_TextBox1").SetAttribute("value", Me.TextBox1.Text)
    
37.         Me.WebBrowser1.Document.GetElementById("FeaturedContent_Button1").InvokeMember("click")
    
38.         Do
    
39.             Application.DoEvents()
    
40.         Loop Until WebBrowser1.Document.GetElementById("FeaturedContent_TextBox2").GetAttribute("value") <> ""
    
41.         Me.TextBox2.Text = WebBrowser1.Document.GetElementById("FeaturedContent_TextBox2").GetAttribute("value")
    
42.     End Sub
    
43. End Class
    

مەزمۇننى كۆچۈرۈۋېلىش

كۆرۈنمە يۈزى:

بۇ ئاددى كود بولۇپ يېڭى ئۆگەنگۈچىلەر بىلەن پىكىر ئالماشتۇرۇش مەقسىتىدە يېزىلدى، قۇرۇلۇش ھۆججىتىنى چۈشۈرۈش ئادرېسى: Terjime.rar (85.64 KB, چۈشۈرۈش سانى: 97)

2014-12-5 12:34 چىقىرىش

ھۆججەت ئىسمىنى بېسىپ قوشۇمچىنى چۈشۈرۈش
ئىجرا ھۆججىتىنى سىنىماقچى بولسىڭىز ھۆججەتىنى چۈشۈرۈپ پىرسىتىن يەشكەندىن كېيىن Terjime\Terjime\bin\Debug مۇندەرىجىسىدىكى ئىجرا ھۆججتىنى ئاچسىڭىز بولىدۇ.

ئاندىرويىت ئەپ قىلىپ ياساپ قۇيسىڭىز تخمۇ ياخشى بۇلاتتى،

بۇ تىلنىڭ ئۇيغۇرچە دىتال ئيچىشتىكى قۇلايلىقلىقى ئالاھىدە.

رەھمەت ،تېخىمۇ تىرىشىڭ!

ئادەتتە تىز سۈرەتتە توربەت دىتاللىرىنى ئېچىشقا نىسبەتەن api ياساشقا قۇربىمىز يەتمىگەندە ماۋۇ ئۇسسۇلدىن يايدىلانساقمۇ بولىدىكەن راسىت..

Google翻译也能做成软件吗