Question

VB 获取网页源码 你的这个是怎么解决的.能和我说一下吗.谢谢

得到代码后,我做了修改,又怎样以网页形式显示呢

Answer 1

1、提取：用这个vb小程序可以！

2、网页显示(必须先用上面程序将源码保存为txt，并且在打开窗口里选择该txt文件！)：

拖进一个webbrowser1，一个commondialog1，一个command1.

Private  Sub Command1_Click()

CommonDialog1.ShowOpen

WebBrowser1.Navigate (CommonDialog1.FileName)

End Sub

Answer 2

很容易啊：

'说明：获取网页源代码
'参数：
'   url: 链接地址
'   encoding: 页面编码,gb2312、utf-8等
Public Function GetResponse(ByVal url As String, ByVal encoding As String) As String
    Dim xmlHTTP As Object
    Dim content As Variant
    On Error Resume Next
    Set xmlHTTP = CreateObject("Microsoft.XMLHTTP")
    xmlHTTP.Open "GET", url, True
    xmlHTTP.send
    While xmlHTTP.readyState <> 4
        DoEvents
    Wend
    content = xmlHTTP.responseBody
    If CStr(content) <> "" Then GetResponse = EncodingConvertor(content, encoding)
    Set xmlHTTP = Nothing
    If Err.Number <> 0 Then
        GetResponse = ""
    End If
    On Error GoTo 0
End Function

'说明：字符串编码转换
'参数：
'   content: 文本
'   encoding:编码
Public Function EncodingConvertor(ByVal content As Variant, ByVal encoding As String) As String
    Dim objStream As Object
    On Error Resume Next
    Set objStream = CreateObject("Adodb.Stream")
    With objStream
        .Type = 1
        .Mode = 3
        .Open
        .Write content
        .Position = 0
        .Type = 2
        .Charset = encoding
        EncodingConvertor = .ReadText
        .Close
    End With
    Set objStream = Nothing
    If Err.Number <> 0 Then
        EncodingConvertor = ""
    End If
    On Error GoTo 0
End Function


'获取指定页面源代码
Private Sub Command1_Click()
    Text1.Text = GetResponse("http://www.baidu.com/", "utf-8")
End Sub

追问

得到代码后,我做了修改,又怎样以网页形式显示我修改的结果呢

追答

你用个webbrowser，然后把修改过的网页保存到一个文件，然后用webbrowser打开你保存的文件就OK了。

追问

必须要保存成文件吗....

追答

保存比较容易，如果你不想保存，也可以直接把内容送到webbrowser里显示，这个就比较麻烦了。

Answer 3

inet控件可以获取源码

Answer 4

vhvjh抚育费发育蜂屯蚁附受到他人的和hi帍