怎样在image控件里显示internet上的图片（知道路径和图片名）或怎么下载到本地硬盘，

Question

访问网络数据http方式
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" ( _
                                                ByVal sAgent As String, _
                                                ByVal lAccessType As Long, _
                                                ByVal sProxyName As String, _
                                                ByVal sProxyBypass As String, _
                                                ByVal lFlags As Long) As Long
                                                
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" ( _
                                                ByVal hInternetSession As Long, _
                                                ByVal sURL As String, _
                                                ByVal sHeaders As String, _
                                                ByVal lHeadersLength As Long, _
                                                ByVal lFlags As Long, _
                                                ByVal lContext As Long) As Long
                                                
Private Declare Function InternetReadFile Lib "wininet.dll" ( _
                                                ByVal hFile As Long, _
                                                ByVal sBuffer As String, _
                                                ByVal lNumBytesToRead As Long, _
                                                lNumberOfBytesRead As Long) As Integer
                                                
Private Declare Function InternetCloseHandle Lib "wininet.dll" ( _
                                                ByVal hInet As Long) As Integer
Private Function GetUrlSource(sURL As String) As String
    Dim sBuffer As String * 256, iResult As Integer, sData As String
    Dim hInternet As Long, hSession As Long, lReturn As Long    'get the handle of the current internet connection
    hSession = InternetOpen("vb wininet", 1, vbNullString, vbNullString, 0)
    'get the handle of the url
    If hSession Then
        hInternet = InternetOpenUrl(hSession, sURL, vbNullString, 0, &H4000000, 0)
    End If
    'if we have the handle, then start reading the web page
    If hInternet Then
        'get the first chunk & buffer it.
        iResult = InternetReadFile(hInternet, sBuffer, 256, lReturn)
        sData = sBuffer
        'if there's more data then keep reading it into the buffer
        Do While lReturn <> 0
            iResult = InternetReadFile(hInternet, sBuffer, 256, lReturn)
            sData = sData + Mid(sBuffer, 1, lReturn)
        Loop
    End If
   
    'close the URL
    iResult = InternetCloseHandle(hInternet)     GetUrlSource = VBA.Replace(sData, VBA.Chr(0), "")
End Function

Answer 1

[email protected]可以和你讨论！