12-11-18, 10:21 PM
السلام عليكم يا اصدقاء
ان شاء الله تكونو بخير
ممكن تعديل صغير في هذا الكود
تغيير listbox2 ب listview
ليست فيو فيه 2 columns الاول name و الثاني lien
الاول يسحب الاسم و الثاني الرابط
جربت اضافة هذا الكود فظهر لي الاسم ناقص
ان شاء الله تكونو بخير
ممكن تعديل صغير في هذا الكود
تغيير listbox2 ب listview
كود :
Me.RichTextBox2.Clear()
Me.ListBox2.Items.Clear()
Try
Dim text As String = Me.ListBox5.SelectedItem
Dim requestUriString As String = text.ToString()
Dim checked As Boolean = Me.CheckBox2.Checked
If checked Then
Dim random As Random = New Random()
' The following expression was wrapped in a checked-expression
Dim num As Integer = random.[Next](0, Me.ListBox3.Items.Count - 1)
Dim address As String = Conversions.ToString(Me.ListBox3.Items(num))
Me.ListBox3.SelectedIndex = num
Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create(requestUriString), HttpWebRequest)
httpWebRequest.Proxy = New WebProxy(address)
httpWebRequest.Timeout = Conversions.ToInteger(Me.TextBox3.Text)
httpWebRequest.ReadWriteTimeout = Conversions.ToInteger(Me.TextBox3.Text)
Dim httpWebResponse As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
Dim httpWebResponse2 As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
Dim streamReader As StreamReader = New StreamReader(httpWebResponse2.GetResponseStream())
Dim text2 As String = streamReader.ReadToEnd()
Me.RichTextBox2.Text = text2
Me.ListBox2.Items.AddRange(Me.RichTextBox2.Lines)
Else
Dim httpWebRequest2 As HttpWebRequest = CType(WebRequest.Create(requestUriString), HttpWebRequest)
httpWebRequest2.Timeout = Conversions.ToInteger(Me.TextBox3.Text)
httpWebRequest2.ReadWriteTimeout = Conversions.ToInteger(Me.TextBox3.Text)
Dim httpWebResponse3 As HttpWebResponse = CType(httpWebRequest2.GetResponse(), HttpWebResponse)
Dim httpWebResponse4 As HttpWebResponse = CType(httpWebRequest2.GetResponse(), HttpWebResponse)
Dim streamReader2 As StreamReader = New StreamReader(httpWebResponse4.GetResponseStream())
Dim text3 As String = streamReader2.ReadToEnd()
Me.RichTextBox2.Text = text3
Me.ListBox2.Items.AddRange(Me.RichTextBox2.Lines)
End If
Catch arg_1EF_0 As Exception
ProjectData.SetProjectError(arg_1EF_0)
ProjectData.ClearProjectError()
End Tryالاول يسحب الاسم و الثاني الرابط
جربت اضافة هذا الكود فظهر لي الاسم ناقص
كود :
Try
Dim Lines As String() = RichTextBox2.Text.Split()
Dim row(1) As String
For Each line As String In Lines
If line.Trim.StartsWith("#EXTINF") Then
row(0) = line.Split(",")(1)
ElseIf line.Trim.StartsWith("http://") Then
row(1) = line.Trim
originalItems.Add(New ListViewItem(row))
End If
Next
ListView1.Items.AddRange(originalItems.ToArray)
Catch ex As Exception
MsgBox(ex.Message)
End Try