تقييم الموضوع :
  • 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 ك ب / التحميلات : 170)
توقيع
نصيحة!
لا تكتب موضوع جديد اذا كان نفس محتوى الموضوع الاول وانما اكتب (رد)  للرفع بشرط اذا غاب موضوعك عن الواجهة لان تكرار المحتوى يعتبر مكروه.
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مثال عن الباركود asemshahen5 20 2,698 22-03-20, 07:05 PM
آخر رد: asemshahen5
Rainbow [مشروع] قراءة السيريال نمبر للهارد دسك لاستخدامه في حماية برامجك وعد مولود 2 176 17-03-20, 01:24 PM
آخر رد: أمجد وضاح
  [مثال] قراءة بيانات ملف نصي في الليست بوكس والبحث داخلها والحفظ سعود الشامان 1 806 08-03-20, 05:46 PM
آخر رد: وعد مولود
Smile [VB.NET] {تم التعديل}مثال حول استخدام مكتبات جوجل درايف معاند الحظ 2 145 07-03-20, 01:47 PM
آخر رد: معاند الحظ
  مطلوب مثال لعمل جرد بالبار كود new_programer 3 172 07-03-20, 01:03 AM
آخر رد: asemshahen5
  [VB.NET] مثال بسيط عن كيفية عمل برنامج المصحف كمثال موقع [ quran.ksu.edu.sa ] elgokr 10 1,997 01-02-20, 09:35 PM
آخر رد: egypt 2020
  ابسط مثال للتصاريح سعود 44 18,602 25-11-19, 01:06 AM
آخر رد: EMADSSS
  مثال لانشاء برنامج تجريبي او جعل البرنامج الخاص بك نسخة تجريبية ahmadpal 5 1,159 06-11-19, 01:58 PM
آخر رد: nasrey1987
  [VB.NET] مثال على بحث الملفات في نظام الوندوز 3booody 3 437 27-10-19, 02:04 AM
آخر رد: 3booody
  [مثال] مثال لنسخ وإستعادة قاعدة البيانات ( تحديث) نسخ تلقائي للقاعدة حسب اليوم والساعة جميل علي 75 21,688 24-10-19, 03:47 PM
آخر رد: nouribenyahia

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


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