vb获得一页的html代码

作者： unknow

Private Sub Command1_Click()
    WebBrowser1.Navigate "http://localhost/"
    Timer1.Enabled = True
End 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 If
End Sub

返回顶部

下一篇：下班前一贴,用wsh读取registry. >>

· 网站设计中表单验证
· js:关于document.execCommand()函数可用参数大解析
· html中的特殊字符
· IEWebBrowser组件的execWB方法
· 从数据库中动态选取下拉列表的方法
· 判断判断Cookies是否处于开启状态是否处于开启状态
· asp中的cookie
· 用ASP动态生成javascript的表单验证代码
· HTML在线编辑器的调用方法
· ASP+JS时的
· 利用JS在页面上动态生成直线
· 对连串英文自动换行的解决方法 IE5.5
· 打开页面就是全屏的方法
· 网页过期的问题
· 请看用javascript设置和读取cookie的简单例子
· 一个非常精彩的日历程序
· 一个提交form的小经验
· 给浏览器的滚动条加上颜色
· 如何在网页中存取剪贴板中的内容
· 客户端Cookie中文编程(2)
· 客户端Cookie中文编程(1)
· 在javascript中为String对象添加trim,ltrim,rtrim方法
· 一个使用多选框的小智力题，传教士与野人
· 实现聊天室在线人员无刷新所需要的javascript技术 - 3
· 实现聊天室在线人员无刷新所需要的javascript技术 - 2
· 实现聊天室在线人员无刷新所需要的javascript技术 - 1
· 动态增加\删除物件如(Text,Table)的例子
· session的几个问题
· 动态输入框的三个函数
· 在ASP+中使用Cookie
· Session对象在各浏览器中的有效范围
· session的用法具体解说
· ASP实现多语言支持
· 关于web应用程序的范围与session变量丢失问题的深入研究！
· 判断访问者的浏览器是否支持javascript和Cookies
· 下拉框连动的小例子（.htm版）
· 下拉框连动的小例子（数据库版）
· 一个查看ASP的javascript程序，方便大家学习ASP程序，进来看看吧(JS)