[HASNI14]

السلام عليكم يا ريت مساعدة من فضلكم .

انشأت برنامج و وضعة له LISTVIEW 

اريد عند وضع رابط موقع على TEXBOX يفتح روابط موجودة في موقع M3U على LISTVIEW

[asmarsou]

(01-02-23, 06:30 PM)HASNI14 كتب : السلام عليكم يا ريت مساعدة من فضلكم .

انشأت برنامج و وضعة له LISTVIEW 

اريد عند وضع رابط موقع على TEXBOX يفتح روابط موجودة في موقع M3U على LISTVIEW

 و عليكم السلام و رحمة الله و بركاته
تفضل هذا مثال

PHP كود :

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim searchstring As String = TextBox1.Text
        ListView1.SelectedIndices.Clear()
        For Each lvi As ListViewItem In ListView1.Items
            For Each lvisub As ListViewItem.ListViewSubItem In lvi.SubItems
                If lvisub.Text = searchstring Then
                    ListView1.SelectedIndices.Add(lvi.Index)
                    Exit For
                End If
            Next
        Next
        ListView1.Focus()
        'ضع هنا كود فتح الرابط
    End Sub 


---

(01-02-23, 08:29 PM)asmarsou كتب :

(01-02-23, 06:30 PM)HASNI14 كتب : السلام عليكم يا ريت مساعدة من فضلكم .

انشأت برنامج و وضعة له LISTVIEW 

اريد عند وضع رابط موقع على TEXBOX يفتح روابط موجودة في موقع M3U على LISTVIEW

 و عليكم السلام و رحمة الله و بركاته
تفضل هذا مثال

PHP كود :

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim searchstring As String = TextBox1.Text
        ListView1.SelectedIndices.Clear()
        For Each lvi As ListViewItem In ListView1.Items
            For Each lvisub As ListViewItem.ListViewSubItem In lvi.SubItems
                If lvisub.Text = searchstring Then
                    ListView1.SelectedIndices.Add(lvi.Index)
                    Exit For
                End If
            Next
        Next
        ListView1.Focus()
        'ضع هنا كود فتح الرابط
    End Sub 


وكذلك مثال مختصر

كود :

Dim item = ListView1.FindItemWithText(TextBox1.Text, False, 0, False)
       If item IsNot Nothing Then
           Process.Start(item.Text) 'كمثال
       End If

[HASNI14]

اخي asmarsou لم يشتغل يا ريت تزيد توضح اكثر

[asmarsou]

(01-02-23, 09:16 PM)HASNI14 كتب : اخي asmarsou لم يشتغل يا ريت تزيد توضح اكثر

لو امكنك ترفع مثالك ليتم التعديل عليه  يكون افضل

[HASNI14]

عند وضع رابط m3u في texbox لايضهر شيئ في listview


https://www.mediafire.com/file/ywzfc0mym...7.rar/file

---

(01-02-23, 09:26 PM)asmarsou كتب :

(01-02-23, 09:16 PM)HASNI14 كتب : اخي asmarsou لم يشتغل يا ريت تزيد توضح اكثر

لو امكنك ترفع مثالك ليتم التعديل عليه  يكون افضل

تفضل هدا هو مثال 
اريد عند وضع رابط m3u داخل texbox ان يفتح قنوات في listview

---

(01-02-23, 09:37 PM)HASNI14 كتب : عند وضع رابط m3u في texbox لايضهر شيئ في listview


https://www.mediafire.com/file/ywzfc0mym...7.rar/file

---

(01-02-23, 09:26 PM)asmarsou كتب :

(01-02-23, 09:16 PM)HASNI14 كتب : اخي asmarsou لم يشتغل يا ريت تزيد توضح اكثر

لو امكنك ترفع مثالك ليتم التعديل عليه  يكون افضل

تفضل هدا هو مثال 
اريد عند وضع رابط m3u داخل texbox ان يفتح قنوات في listview

https://www.mediafire.com/file/ywzfc0mym...7.rar/file

[asmarsou]

(01-02-23, 09:37 PM)HASNI14 كتب : عند وضع رابط m3u في texbox لايضهر شيئ في listview


https://www.mediafire.com/file/ywzfc0mym...7.rar/file

---

(01-02-23, 09:26 PM)asmarsou كتب :

(01-02-23, 09:16 PM)HASNI14 كتب : اخي asmarsou لم يشتغل يا ريت تزيد توضح اكثر

لو امكنك ترفع مثالك ليتم التعديل عليه  يكون افضل

تفضل هدا هو مثال 
اريد عند وضع رابط m3u داخل texbox ان يفتح قنوات في listview

---

(01-02-23, 09:37 PM)HASNI14 كتب : عند وضع رابط m3u في texbox لايضهر شيئ في listview


https://www.mediafire.com/file/ywzfc0mym...7.rar/file

---

(01-02-23, 09:26 PM)asmarsou كتب :

(01-02-23, 09:16 PM)HASNI14 كتب : اخي asmarsou لم يشتغل يا ريت تزيد توضح اكثر

لو امكنك ترفع مثالك ليتم التعديل عليه  يكون افضل

تفضل هدا هو مثال 
اريد عند وضع رابط m3u داخل texbox ان يفتح قنوات في listview

https://www.mediafire.com/file/ywzfc0mym...7.rar/file

 هذا مثال مشابه بكلا الكودين السابقين عسايا فهمت قصدك من السؤال

[HASNI14]

(01-02-23, 10:33 PM)asmarsou كتب :

(01-02-23, 09:37 PM)HASNI14 كتب : عند وضع رابط m3u في texbox لايضهر شيئ في listview


https://www.mediafire.com/file/ywzfc0mym...7.rar/file

---

(01-02-23, 09:26 PM)asmarsou كتب :

(01-02-23, 09:16 PM)HASNI14 كتب : اخي asmarsou لم يشتغل يا ريت تزيد توضح اكثر

لو امكنك ترفع مثالك ليتم التعديل عليه  يكون افضل

تفضل هدا هو مثال 
اريد عند وضع رابط m3u داخل texbox ان يفتح قنوات في listview

---

(01-02-23, 09:37 PM)HASNI14 كتب : عند وضع رابط m3u في texbox لايضهر شيئ في listview


https://www.mediafire.com/file/ywzfc0mym...7.rar/file

---

(01-02-23, 09:26 PM)asmarsou كتب :

(01-02-23, 09:16 PM)HASNI14 كتب : اخي asmarsou لم يشتغل يا ريت تزيد توضح اكثر

لو امكنك ترفع مثالك ليتم التعديل عليه  يكون افضل

تفضل هدا هو مثال 
اريد عند وضع رابط m3u داخل texbox ان يفتح قنوات في listview

https://www.mediafire.com/file/ywzfc0mym...7.rar/file

 هذا مثال مشابه بكلا الكودين السابقين عسايا فهمت قصدك من السؤال

اخي ليسا البحث 

بل انا معايا رابط m3u و اريد عند و ضعه في texbox  

رازم يعرض لي القنوات الي داخل في الرابط على listview

[asmarsou]

(01-02-23, 11:47 PM)HASNI14 كتب :

(01-02-23, 10:33 PM)asmarsou كتب :

(01-02-23, 09:37 PM)HASNI14 كتب : عند وضع رابط m3u في texbox لايضهر شيئ في listview


https://www.mediafire.com/file/ywzfc0mym...7.rar/file

---

(01-02-23, 09:26 PM)asmarsou كتب :

(01-02-23, 09:16 PM)HASNI14 كتب : اخي asmarsou لم يشتغل يا ريت تزيد توضح اكثر

لو امكنك ترفع مثالك ليتم التعديل عليه  يكون افضل

تفضل هدا هو مثال 
اريد عند وضع رابط m3u داخل texbox ان يفتح قنوات في listview

---

(01-02-23, 09:37 PM)HASNI14 كتب : عند وضع رابط m3u في texbox لايضهر شيئ في listview


https://www.mediafire.com/file/ywzfc0mym...7.rar/file

---

(01-02-23, 09:26 PM)asmarsou كتب : لو امكنك ترفع مثالك ليتم التعديل عليه  يكون افضل

تفضل هدا هو مثال 
اريد عند وضع رابط m3u داخل texbox ان يفتح قنوات في listview

https://www.mediafire.com/file/ywzfc0mym...7.rar/file

 هذا مثال مشابه بكلا الكودين السابقين عسايا فهمت قصدك من السؤال

اخي ليسا البحث 

بل انا معايا رابط m3u و اريد عند و ضعه في texbox  

رازم يعرض لي القنوات الي داخل في الرابط على listview

شوف الموضوع في الرابط التالي
http://vb4arb.com/vb/thread-44497.html

[trakktour]

(01-02-23, 06:30 PM)HASNI14 كتب : السلام عليكم يا ريت مساعدة من فضلكم .

انشأت برنامج و وضعة له LISTVIEW 

اريد عند وضع رابط موقع على TEXBOX يفتح روابط موجودة في موقع M3U على LISTVIEW

و عليكم السلام
تفضل

كود :

Imports System.Net
Imports System.Reflection
Imports System

Public Class Form1

  Private Function read_m3u() As String
      Dim Encoding As New Text.UTF8Encoding
      Dim Bytes As Byte() = Encoding.GetBytes("")
      Dim AJ As Net.HttpWebRequest = DirectCast(Net.WebRequest.Create("http://62.171.175.99:25461/get.php?username=6H8p5AOYS9&password=GNFkHrKCOp&type=m3u"), Net.HttpWebRequest)
      With AJ
          .Method = "GET"
          .Proxy = Nothing
          .UserAgent = "Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/90.0.4430.93 Safari/537.36"
          .ContentLength = Bytes.Length
      End With
      Dim Response As Net.HttpWebResponse = DirectCast(AJ.GetResponse, Net.HttpWebResponse)
      Dim reader As New IO.StreamReader(Response.GetResponseStream) : Dim m3u As String = reader.ReadToEnd : reader.Dispose() : reader.Close() : Response.Dispose() : Response.Close()
      Return m3u
  End Function

  Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
      Dim list As New List(Of ListViewItem)
      Dim Lines As String() = read_m3u.Split(Global.Microsoft.VisualBasic.ChrW(10))
      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
              list.Add(New ListViewItem(row))
          End If
      Next
      ListView1.Items.AddRange(list.ToArray)
  End Sub

End Class