手机
当前位置:查字典教程网 >网页设计 >脚本HTML教程 >vb获得一页的html代码
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代码】相关文章:

一种简洁的选项卡效果代码

在C++Builder中使用Compress Html Help

hr 水平线样式示例代码

16进制颜色代码 网页色调

把Word转为简洁的html的若干种方法

网页制作中使用规范的HTML代码的几点

看不到网页源代码方法汇总

为什么要使用html的meta标签?

HTML网页头部代码全接触

html无刷新分页前端代码

精品推荐
分类导航