欢迎来到皮皮网网站!

【源码八位】【愤怒的小鸟网站源码】【贷款表单网站源码下载】vb 论坛源码_vb论坛源码

时间:2024-12-26 03:14:02 来源:eth 钱包源码

1.如何用vb得到网页的论坛论坛源代码

vb 论坛源码_vb论坛源码

如何用vb得到网页的源代码

       1 先加载网页:

       Private Sub Form_Load()

        WebBrowser1.Navigate "/question/.html"

       End Sub

       2 加载完成后取字符串到文本框:

       Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

        Dim doc As Object, objhtml As Object

        Dim strhtml As String

        On Error GoTo errorsub

        Me.Caption = WebBrowser1.LocationName & " 加载完成"

        If MaxWebNum <= 0 Then

        Set doc = WebBrowser1.Document

        Set objhtml = doc.body.createtextrange()

        If Not IsNull(objhtml) Then

        strhtml = WebBrowser1.Document.body.innertext

        Text1.Text = strhtml

        End If

        End If

        Exit Sub

       errorsub:

        Text1.Text = "错误!!源码源码源码八位!论坛论坛愤怒的小鸟网站源码"

源码源码贷款表单网站源码下载

       End Sub

源码源码贷款表单网站源码下载

更多相关资讯请点击【热点】频道>>>