[mostfa1995]

(16-04-16, 08:48 PM)derham كتب : عدلت لك الكود

PHP كود :

Imports System.Net

Public Class Form1

    Dim ds As New Net.WebClient() With {.Credentials = New Net.NetworkCredential("hkda_17821442", "11223300")}
    Dim lnk As String = "ftp://hkda_17821442@ftp.hostkda.com/htdocs/m/"

    Dim dictionary As New Dictionary(Of String, String)

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Try
            FlatComboBox1.Items.AddRange(ds.DownloadString(lnk & "مسلسلات.txt").Split(vbLf))
        Catch ex As Exception
            MsgBox("يوجد خطا")
            End
        End Try

    End Sub

    Private Sub FlatComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatComboBox1.SelectedIndexChanged
        FlatComboBox1.Enabled = False

        FlatListBox1.Clear()
        dictionary.Clear()

        Dim t As New List(Of String)(ds.DownloadString(lnk & FlatComboBox1.Text & ".txt").Split(vbLf))

        For i = 0 To t.Count - 1 Step 2
            dictionary.Add(t(i), t(i + 1))
            FlatListBox1.AddItem(t(i))
        Next

        FlatComboBox1.Enabled = True
    End Sub

    Private Sub FlatButton1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles FlatButton1.Click
        WebBrowser1.Navigate(dictionary(FlatListBox1.SelectedItem).Replace("watch?v=", "v/") & "&autoplay=1&rel=0")
    End Sub

    Private Sub FlatButton2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles FlatButton2.Click
        FlatComboBox1.Items.Clear()
        Try
            FlatComboBox1.Items.AddRange(ds.DownloadString(lnk & "مسلسلات.txt").Split(vbLf))
        Catch ex As Exception
            MsgBox("يوجد خطا")
            End
        End Try
    End Sub

End Class 


---

جرب واخبرني بالنتيجة

اخى ينفع الضغط يبقى على الحلقة تفتح فى الويب على طول مش الضغط على البوتن