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

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!