Imports System.Net
Imports System.IO

Public Class HttpDriverClass HttpDriver

    Public Function GetPage()Function GetPage(ByVal url As String, Optional ByRef postPara As String = "", Optional ByRef encType As String = "GB2312") As String
        Return GetPage(url, postPara, Nothing, False, encType)
    End Function

    Public Function GetPage()Function GetPage(ByVal url As String, ByRef postPara As System.Collections.Hashtable, Optional ByRef encType As String = "GB2312") As String
        Return GetPage(url, ColToStr(postPara), encType)
    End Function

    Public Function GetPage()Function GetPage(ByVal url As String, ByRef postPara As String, ByRef cookies As CookieCollection, ByVal hasCookie As Boolean, Optional ByRef encType As String = "GB2312", Optional ByRef refer As String = "") As String
        If (url.StartsWith("http://") = False) Then
            url = "http://" & url
        End If
        Dim hRqst As HttpWebRequest = HttpWebRequest.Create(url)
        If (hasCookie = True AndAlso (Not cookies Is Nothing)) Then
            hRqst.CookieContainer = New CookieContainer
            h

[1] [2] [3] [4] [5] [6] 下一页

在google里搜索更多用来获取网页的类（转！vb.net参考）

	Web www.51ec.org