[hamada558]

تأكد من المرفق عزيزي

---

شايف العالم هون كله VB

اعمل مشروع جديد وضع فيه واحد textBox واتنين comboBox وواحد button وواحد listBox وجرب هاد الكود

كود :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.AddRange(New String() {"NL", "EN", "DE", "FR", "ES"})
        ComboBox2.Items.AddRange(New String() {"NL", "EN", "DE", "FR", "ES"})
        ComboBox1.SelectedIndex = 0
        ComboBox2.SelectedIndex = 1
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try

            Using client As New Net.WebClient
                Dim parms As New Specialized.NameValueCollection
                parms.Add("src", ComboBox1.Text)
                parms.Add("des", ComboBox2.Text)
                parms.Add("woord", TextBox1.Text.Trim)
                Dim responsebytes = client.UploadValues("http://www.mijnwoordenboek.nl/", "POST", parms)
                Dim responsestring = System.Text.Encoding.UTF8.GetString(responsebytes)

                ListBox1.Items.Clear()
                Dim s1() As String = Split(responsestring, "<div class=aaa>")
                If s1.Count > 1 Then
                    Dim url As String = "http://www.mijnwoordenboek.nl/vertaal/" & ComboBox1.Text & "/" & ComboBox2.Text & "/"
                    Dim s2() As String = Split(s1(2), url)
                    For i = 1 To s2.Count - 1
                        ListBox1.Items.Add(Split(s2(i), Chr(34))(0))
                    Next
                End If

            End Using

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

End Class