อ่าน HTML ของเว็บเพจที่มีการ MSHTML และ VB6

วัตถุที่ MSHTML ใน Visual Basic 6 ช่วยให้การดำเนินการชุดของการดำเนินงานที่เกี่ยวข้องกับอินเทอร์เน็ตและเว็บเพจ

เราเห็นในบทความวิธีนี้ VB6 ผ่านทางแบบฟอร์มที่สร้างอย่างระมัดระวังอ่านรหัส HTML ในระยะไกลบนเว็บเพจ

เราเปิดสำเนาของ Visual Basic 6 และสร้าง EXE ใหม่ เราสร้างฟอร์มและ disegnamolo เหมือนภาพด้านล่างซึ่งแสดงถึงบทความสุดท้ายในคำถาม :

องค์ประกอบหลักที่มีคุณสมบัติมีการจัดการโดยตรงจาก IDE ของ VB6, คือกล่องข้อความที่มีการควบคุมและปุ่ม textarea

กล่องข้อความที่จะถูกเรียกว่า txtUrl และกำหนดเป็นค่าเริ่มต้นข้อความ"http://"

textarea จะถูกเรียก txtCodiceHTML ลบข้อความที่เราจะตั้งค่าคุณสมบัติ MultiLine เป็น True และเปิดใช้งานแนวนอนและแนวเลื่อน

การควบคุมปุ่มที่เรียกว่า cmdCodiceHTML

ก่อนเพิ่มเติมใด ๆ เราจะต้องนำเข้าการอ้างอิงถึงห้องสมุด MSHTML ซึ่งมีชื่อไลบรารีวัตถุ Microsoft HTML เต็มรูปแบบ

ป้อนเมนู :

 



 โครงการอ้างอิง / ...

 

จำกัด รายการที่เลือกและยืนยันการเลือกการบันทึกไว้ในภาพต่อไปนี้ :

เราดับเบิ้ลคลิกบนปุ่มในการเข้าถึงรหัสประจำที่ย่อยและใส่รหัสต่อไปนี้

 Private Sub cmdCodiceHTML_Click ()



    



 รายการใหม่มซำเป็น MSHTML.HTMLDocument



    



 เอกสารมซำเป็น MSHTML.HTMLDocument



    



 เอกสารกันยายน oggetto.createDocumentFromUrl = (txtUrl.Text, vbNullString)



    



 ทำในขณะที่ documento.readyState <>"สมบูรณ์"



        



 DoEvents



    



 ห่วง



    



 documento.documentElement.outerHTML txtCodiceHTML.Text =



    



 ไม่มีเอกสารกันยายน =



    



 วัตถุกันยายนไม่มีอะไร =







 ย่อยสิ้นสุด

รหัสง่าย : ประกาศเป็นวัตถุสองครั้งที่ให้บริการโดยข้ามการตรวจสอบ, เปิดหน้าเว็บที่ผ่านการ createDocumentFromUrl วิธีการที่

Effetuiamo รอบจนกว่าจะถึงรัฐ"เสร็จ"แล้วจนกว่าจะสิ้นสุดของเอกสาร

การแทรกข้อความลงใน textarea รหัส HTML ผ่านคุณสมบัติอ่านอย่างเดียว (ของหลักสูตร) ​​outerHTML