تقييم الموضوع :
  • 1 أصوات - بمعدل 1
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] مثال بسيط (حتى لا يكون مجرد ملف تنفيذي) قراءة من موقع connectionstrings
#1
PHP كود :
Imports System.Net
Imports System
.Text

Public Class Form1


    
'http://www.connectionstrings.com/
    Dim lnk As New List(Of String)



    Private Function ghtml(ByVal url As String) As String
        Dim html As String = ""
        Dim wc As New WebClient
        wc.Encoding = Encoding.UTF8
        html = wc.DownloadString(url)
        Return html
    End Function

    Private Function gstring(ByVal html As String) As String
        Dim doc As New HtmlAgilityPack.HtmlDocument
        doc.LoadHtml(html)
        Return doc.DocumentNode.SelectSingleNode("//div[@id='
main']").InnerText
    End Function



    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim html As String = ""
        Dim wc As New WebClient
        wc.Encoding = Encoding.UTF8
        html = wc.DownloadString("http://www.connectionstrings.com")

        Dim doc As New HtmlAgilityPack.HtmlDocument
        doc.LoadHtml(html)

        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
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.SelectedIndex = -1 Then Exit Sub
        TextBox1.Text = gstring(ghtml(lnk(ComboBox1.SelectedIndex)))
    End Sub
End Class 


الملفات المرفقة
.zip   Justu.zip (الحجم : 130.48 ك ب / التحميلات : 90)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: الراجية عفو ربها


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مثال] مثال لنسخ وإستعادة قاعدة البيانات ( تحديث) نسخ تلقائي للقاعدة حسب اليوم والساعة جميل علي 27 2,247 30-11-16, 11:25 AM
آخر رد: جميل علي
Brick [VB.NET] مثال بسيط على تسجيل الدخول الى الفيسبوك من خلال البرنامج elhon.tec 1 118 23-11-16, 07:16 PM
آخر رد: bahgat okasha
  موقع عربي يحتوي على مشاريع مجانية adel2012 2 225 20-11-16, 11:32 PM
آخر رد: شمس الدين 03
  [مثال] مثال صغير .. لعرض داتا جريد لقاعدة بيانات وطباعتها boudyonline 3 905 15-11-16, 02:15 PM
آخر رد: marwen
Rainbow مثال - جلب رقم المعالج لإستخدامه في حماية البرامج من النسخ Genius Live 13 4,525 03-11-16, 11:01 AM
آخر رد: أبووسم
  [كود] مثال بسيط للبحث عن كلمة او حرف داخل نص vb_net 4 1,593 17-10-16, 09:48 PM
آخر رد: adad
  مثال لنسخ وإستعادة قاعدة البيانات mysql صبري زينوبي 2 210 29-09-16, 05:06 PM
آخر رد: صبري زينوبي
Rainbow مثال - استيراد البيانات من Excel إلي ListView Genius Live 7 3,429 28-09-16, 01:16 AM
آخر رد: adel27
  ابسط مثال للتصاريح (سعود) (تحديث) جميل علي 3 449 13-09-16, 11:49 PM
آخر رد: جميل علي
  [مثال] @@@ تعتيم الفورم عندما يكون غير نشط @@@ @@أبورائد@@ 12 3,298 17-08-16, 11:34 AM
آخر رد: Qutibah

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم