VB里面有什么控件可以下载网页的源码不？

Question

我想做个东西，要下载网页的HTML源码，有什么控件不，各位把代码也贴一点上来好不，谢谢啦

Answer 1

' Internet Session Handle (InternetOpen)
Dim hInternet As Long
    
' Internet Open URL Handle (InternetOpenURL)
Dim hOpenUrl As Long
    
Private Sub cmdOpen_Click()
    Dim bLoop, bReadFile As Boolean
    Dim lpdwNumberOfBytesRead As Long
    Dim lpBuffer As String * 2048
    Dim sBuffer As String
    
    ' 产生Internet Session Handle
    ' INTERNET_OPEN_TYPE_PRECONFIG = 0
    ' {依Internet Option中之预设Proxy服务器设定为主}
    '
    ' INTERNET_FLAG_NO_CACHE_WRITE = &H04000000
    ' {不将Internet连结之信息写入Cache中}
    hInternet = InternetOpen("Open URL Application", _
                        INTERNET_OPEN_TYPE_PRECONFIG, _
                        vbNullString, _
                        vbNullString, _
                        INTERNET_FLAG_NO_CACHE_WRITE)    ' If Internet Session Handle created OK
    If (hInternet <> 0) Then
        ' Begin reading a complete HTTP URL
        hOpenUrl = InternetOpenUrl(hInternet, _
                        txtURL.Text, _
                        vbNullString, _
                        0, _
                        INTERNET_FLAG_RELOAD, _
                        0)
        
        ' If Open URL OK
        If (hOpenUrl <> 0) Then
            bLoop = True
            
            sBuffer = ""
            
            Do While bLoop
                lpBuffer = vbNullString
            
                ' InternetReadFile
                bReadFile = InternetReadFile(hOpenUrl, _
                                        lpBuffer, _
                                        Len(lpBuffer), _
                                        lpdwNumberOfBytesRead)
            
                If lpdwNumberOfBytesRead = 0 Then
                    bLoop = False
                Else
                    sBuffer = sBuffer + Left(lpBuffer, lpdwNumberOfBytesRead)
                End If
            Loop            txtContent.Text = sBuffer            StatusBar1.Panels(1).Text = "Open URL OK."
        Else
            StatusBar1.Panels(1).Text = "Error: Can not open URL."
        End If
    Else
        StatusBar1.Panels(1).Text = "Error: Can not create Internet Session."
    End If    ' close Open URL
    If (hOpenUrl <> 0) Then
        InternetCloseHandle hOpenUrl
        hOpenUrl = 0
    End If
    
    ' close internet session
    If (hInternet <> 0) Then
        InternetCloseHandle hInternet
        hInternet = 0
    End If
End Sub

Answer 2

inet.open url用inet就能得到的