vb获得一页的html代码

领测软件测试网

　　 

　　Private Sub Command1_Click()

　　WebBrowser1.Navigate "http://localhost/"

　　Timer1.Enabled = TrueEnd Sub

　　Private Sub Timer1_Timer()

　　Dim doc, objhtml As Object

　　Dim i As Integer

　　Dim strhtml As String

　　

　　If Not WebBrowser1.Busy Then

　　Set doc = WebBrowser1.Document

　　i = 0

　　Set objhtml = doc.body.createtextrange()

　　If Not IsNull(objhtml) Then

　　Text1.Text = objhtml.htmltext

　　End If

　　Timer1.Enabled = False

　　End IfEnd Sub

文章来源于领测软件测试网 https://www.ltesting.net/