MSHTML ve VB6 ile bir web sayfasının HTML Oku

Visual Basic 6 MSHTML nesne İnternet ve Web sayfaları ile ilgili bir dizi işlemi gerçekleştirmenizi sağlar.

Biz dikkatlice inşa VB6 formu ile, nasıl bu makalede bakın, bir Web sayfasında uzaktan HTML kodunu okumak

Biz Visual Basic 6 bizim kopyasını açık ve yeni bir EXE oluşturun. Biz söz konusu son makale temsil aşağıdaki resim gibi bir form ve disegnamolo oluşturun:

Özelliklerini VB6 IDE doğrudan yönetilen ana unsurlar, metin kutusu, textarea ve düğme kontrol eder.

Metin kutusu txtUrl denir ve varsayılan metin "http://" olarak atamak olacak.

Textarea txtCodiceHTML adı verilecek, metin silme, biz True Multiline özelliğini ayarlayın ve yatay ve dikey kaydırma çubuğu sağlar.

Tuşlarla kontrol cmdCodiceHTML denir.

Başka gitmeden önce biz kimin tam adı Microsoft HTML Nesne Kitaplığı olan MSHTML kitaplığa referans almak gerekir.

Menüsüne girin:

 



 Proje / Referanslar ...

 

giriş yerelleştirmek onu seçin ve seçiminizi onaylamak, aşağıdaki görüntü belgelenmiştir:

Biz çift butonuna bu alt rutin kod erişim ve aşağıdaki kodu ekleyin:

 Private Sub cmdCodiceHTML_Click ()



    



 Yeni MSHTML.HTMLDocument Dim öğe



    



 MSHTML.HTMLDocument Dim belge



    



 Eylül oggetto.createDocumentFromUrl belge = (txtUrl.Text, vbNullString)



    



 Do While documento.readyState <> "tam"



        



 DoEvents



    



 Döngü



    



 txtCodiceHTML.Text = documento.documentElement.outerHTML



    



 Eylül belge = Nothing



    



 Eylül nesne = Nothing







 End Sub

Kod basittir: çapraz kontrol ederek hizmet veren iki objeden, yöntem createDocumentFromUrl ile Web sayfasını açın.

Effetuiamo belgenin sonuna kadar sonra, "tam" devlet bir döngü ulaşana kadar.

Textarea salt okunur özelliği üzerinden HTML kodu (tabii ki) outerHTML içine metin ekleyin.