vb怎么抓取html的class,VB6.0获取网页源代码

'说明：获取网页源代码

'参数：

'   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.mzwu.com/", "utf-8")

End Sub