用socket控件做数据传输的问题？

Question

用socket控件能把一个文件下载站服务器里的东西传输到用户端吗？请注意：我说的这个传输并不是指文件下载，而是像cuteFTP软件那样，能把软件的图标包括文件名括展名等信息显示在窗体上一个列表框当中。或者说能用webbrowser控件把文件信息显示出来。请问专家SOCKET控件能做到吗？另外，如果SOCKET控件不能的话，什么控件可以做到？
高手解答下。多谢！

Answer 1

    Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
    Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, _
                                                                                         ByVal sServerName As String, _
                                                                                         ByVal nServerPort As Integer, _
                                                                                         ByVal sUserName As String, _
                                                                                         ByVal sPassword As String, _
                                                                                         ByVal lService As Long, _
                                                                                         ByVal lFlags As Long, _
                                                                                         ByVal lContext As Long) As Long
    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 FtpSetCurrentDirectory Lib "wininet.dll" Alias _
                                                              "FtpSetCurrentDirectoryA" (ByVal hFtpSession As Long, _
                                                                                         ByVal lpszDirectory As String) As Boolean
    Private Declare Function FtpGetCurrentDirectory Lib "wininet.dll" Alias _
                                                              "FtpGetCurrentDirectoryA" (ByVal hFtpSession As Long, _
                                                                                         ByVal lpszCurrentDirectory As String, _
                                                                                               lpdwCurrentDirectory As Long) As Long
    Private Declare Function FtpCreateDirectory Lib "wininet.dll" Alias _
                                                                  "FtpCreateDirectoryA" (ByVal hFtpSession As Long, _
                                                                                         ByVal lpszDirectory As String) As Boolean
    Private Declare Function FtpRemoveDirectory Lib "wininet.dll" Alias "FtpRemoveDirectoryA" (ByVal hFtpSession As Long, _
                                                                                               ByVal lpszDirectory As String) As Boolean
    Private Declare Function FtpDeleteFile Lib "wininet.dll" Alias "FtpDeleteFileA" (ByVal hFtpSession As Long, _
                                                                                     ByVal lpszFileName As String) As Boolean
    Private Declare Function FtpRenameFile Lib "wininet.dll" Alias "FtpRenameFileA" (ByVal hFtpSession As Long, _
                                                                                     ByVal lpszExisting As String, _
                                                                                     ByVal lpszNew As String) As Boolean
    Private Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" (ByVal hConnect As Long, _
                                                                               ByVal lpszRemoteFile As String, _
                                                                               ByVal lpszNewFile As String, _
                                                                               ByVal fFailIfExists As Long, _
                                                                               ByVal dwFlagsAndAttributes As Long, _
                                                                               ByVal dwFlags As Long, _
                                                                               ByRef dwContext As Long) As Boolean
    Private Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hConnect As Long, _
                                                                               ByVal lpszLocalFile As String, _
                                                                               ByVal lpszNewRemoteFile As String, _
                                                                               ByVal dwFlags As Long, _
                                                                               ByVal dwContext As Long) As Boolean
    Private Declare Function InternetGetLastResponseInfo Lib "wininet.dll" Alias _
                                                     "InternetGetLastResponseInfoA" (lpdwError As Long, _
                                                                               ByVal lpszBuffer As String, _
                                                                                     lpdwBufferLength As Long) As Boolean
    Private Declare Function FtpFindFirstFile Lib "wininet.dll" Alias _
                                                          "FtpFindFirstFileA" (ByVal hFtpSession As Long, _
                                                                               ByVal lpszSearchFile As String, _
                                                                                     lpFindFileData As WIN32_FIND_DATA, _
                                                                               ByVal dwFlags As Long, _
                                                                               ByVal dwContent As Long) As Long
    Private Declare Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA" (ByVal hFind As Long, lpvFindData As WIN32_FIND_DATA) As Longapi的ftp函数，连接，打开，更改目录，下载，获取文件信息……等等

Answer 2

InternetCloseHandle 关闭连接差不多意思吧
InternetConnect Lib 连接服务器，后面参数是服务器名，端口，用户名，密码之类的 
InternetOpen 打开   
FtpSetCurrentDirectory 设置ftp当前目录
FtpGetCurrentDirectory 大概是取得目录名的意思？
FtpCreateDirectory 创建目录
FtpRemoveDirectory 移动目录或者删除目录吧？ 
FtpDeleteFile 删除文件
FtpRenameFile 重命名文件 
FtpGetFile 下载文件
FtpPutFile 上传文件
InternetGetLastResponseInfo 获取文件信息
FtpFindFirstFile 
InternetFindNextFile 下一个文件
大概是那么些个意思