vb获得一页的html代码
摘要：PrivateSubCommand1_Click()WebBrowser1.Navigate"http://localhost/"Timer...
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
【vb获得一页的html代码】相关文章：
上一篇：
如何禁用HTML页面的上下文菜单
下一篇：
用VB压缩Html