تقييم الموضوع :
  • 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 ك ب / التحميلات : 100)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة: الراجية عفو ربها


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مثال] مثال لنسخ وإستعادة قاعدة البيانات ( تحديث) نسخ تلقائي للقاعدة حسب اليوم والساعة جميل علي 42 4,480 14-05-17, 09:58 AM
آخر رد: جميل علي
  [مشروع] مثال حجز من المنتدى القديم سعود 14 3,536 05-04-17, 03:31 AM
آخر رد: naderalbanna
  مشروع بسيط باستخدام تقنية ADO.net يوضح فيه اضافة تعديل وحذف adel2012 5 610 23-03-17, 08:36 AM
آخر رد: masry700
  ابسط مثال للتصاريح سعود 39 6,886 17-03-17, 09:35 AM
آخر رد: IBRA939
Lightbulb [مثال] مثال ابلاغ عملائك بوجود تحديث للبرنامج Basil Abdallah 13 939 08-03-17, 01:13 PM
آخر رد: Basil Abdallah
  [مشروع] مثال لنشر تحديثات تطبيقك للعملاء سعود 15 8,324 23-01-17, 10:43 PM
آخر رد: ausamaxp
  مثال تغيير ثيم البرنامج وقت التشغيل honest 3 823 26-12-16, 04:44 PM
آخر رد: IBRA939
  [مثال] مثال لإرسال الرسائل من الاجهزة الفرعية الى برنامج سيرفر ابو ليلى 0 331 25-12-16, 07:14 PM
آخر رد: ابو ليلى
Smile مثال دلع عميلك سعود 16 7,130 25-12-16, 08:28 AM
آخر رد: Famo15385
Brick [VB.NET] مثال بسيط على تسجيل الدخول الى الفيسبوك من خلال البرنامج elhon.tec 3 453 10-12-16, 04:11 AM
آخر رد: elhon.tec

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


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