15-04-16, 09:47 PM
الصفحات : 1 2
16-04-16, 05:04 AM
الأن أنت وضعت اللينك لكل حلقة في ليست بوكس و هنا جميع اليينك اصبحت عبارة عن string ولكي تعمل عليك ان تتاكد انها عبارة عن uri
16-04-16, 05:48 AM
(16-04-16, 05:04 AM)silverlight كتب : [ -> ]الأن أنت وضعت اللينك لكل حلقة في ليست بوكس و هنا جميع اليينك اصبحت عبارة عن string ولكي تعمل عليك ان تتاكد انها عبارة عن uri
اه هى كده ولكن مش عارف المشكلة فين
16-04-16, 11:58 AM
إقتباس :بس فى مشكلة مع الثيم ياريت حد يقولى اعمل ايهاقترح عليك اخي الكريم ان تترك الثيمات الان حتى تنهي التطبيق وبعد ذلك تضيفه وتبدا بالبحث عن حل مشاكله.
إقتباس :اه هى كده ولكن مش عارف المشكلة فيناخي الكريم الاجراء اللي اضفت فيه اسماء الحلقات هو نفسه حيضيف روابط الحلقات الى متغير من نوع مصفوفة .
شوف هذا المثال
وبالتحديد هذا الكود
PHP كود :
For Each nod As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//div[@id='wpcsindex']/ul[@class='cols two']/li/a")
ComboBox1.Items.Add(nod.InnerText.Trim)
lnk.Add("http://www.connectionstrings.com/" & nod.Attributes("href").Value)
Next
هذا يضيف النص للكومبوبوكس بينما يضيف الرابط الى متغير lnk وهو معرف على انه مصفوفة نصية
PHP كود :
Dim lnk As New List(Of String)
16-04-16, 06:48 PM
(16-04-16, 11:58 AM)سعود كتب : [ -> ]إقتباس :بس فى مشكلة مع الثيم ياريت حد يقولى اعمل ايهاقترح عليك اخي الكريم ان تترك الثيمات الان حتى تنهي التطبيق وبعد ذلك تضيفه وتبدا بالبحث عن حل مشاكله.
إقتباس :اه هى كده ولكن مش عارف المشكلة فيناخي الكريم الاجراء اللي اضفت فيه اسماء الحلقات هو نفسه حيضيف روابط الحلقات الى متغير من نوع مصفوفة .
شوف هذا المثال
وبالتحديد هذا الكود
PHP كود :
For Each nod As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//div[@id='wpcsindex']/ul[@class='cols two']/li/a")
ComboBox1.Items.Add(nod.InnerText.Trim)
lnk.Add("http://www.connectionstrings.com/" & nod.Attributes("href").Value)
Next
هذا يضيف النص للكومبوبوكس بينما يضيف الرابط الى متغير lnk وهو معرف على انه مصفوفة نصية
PHP كود :
Dim lnk As New List(Of String)
اخى تفضل المشروع وحضرتك اعمل الكود وكمان الليست بوكس مش بتعمل مسح
16-04-16, 06:55 PM
اعتذر اخي الكريم
حملت المثال وظهرت هذه الرسالة
واذكر مرات عديدة اتجاهل هذه الرسالة وانقر موافق واواجه مشاكل لاحقا لذلك لا اقوى على فتح المشروع
انتظر احد الاخوة يرى المشروع
16-04-16, 07:09 PM
(16-04-16, 06:55 PM)سعود كتب : [ -> ]
اعتذر اخي الكريمحملت المثال وظهرت هذه الرسالةواذكر مرات عديدة اتجاهل هذه الرسالة وانقر موافق واواجه مشاكل لاحقا لذلك لا اقوى على فتح المشروعانتظر احد الاخوة يرى المشروع
تفضل جرب ده
http://up.top4top.net/downloadf-10484vj1-rar.html
16-04-16, 08:48 PM
عدلت لك الكود
جرب واخبرني بالنتيجة
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
جرب واخبرني بالنتيجة
16-04-16, 09:29 PM
(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
جرب واخبرني بالنتيجة
اخى ينفع الضغط يبقى على الحلقة تفتح فى الويب على طول مش الضغط على البوتن
16-04-16, 10:17 PM
حسب الثيم المستخدم لم اجد حدث يسمح بذلك
الصفحات : 1 2