Option
Explicit
Public 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
Public 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
Public Declare Function FtpGetFile Lib " wininet.dll " Alias " FtpGetFileA " _
(ByVal hFtpSession As Long , ByVal lpszRemoteFile As String , _
ByVal lpszNewFile As String , ByVal fFailIfExists As Boolean , _
ByVal dwFlagsAndAttributes As Long , ByVal dwFlags As Long , _
ByVal dwContext As Long ) As Boolean
Public Declare Function FtpPutFile Lib " wininet.dll " Alias " FtpPutFileA " _
(ByVal hFtpSession As Long , ByVal lpszLocalFile As String , _
ByVal lpszRemoteFile As String
Public 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
Public 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
Public Declare Function FtpGetFile Lib " wininet.dll " Alias " FtpGetFileA " _
(ByVal hFtpSession As Long , ByVal lpszRemoteFile As String , _
ByVal lpszNewFile As String , ByVal fFailIfExists As Boolean , _
ByVal dwFlagsAndAttributes As Long , ByVal dwFlags As Long , _
ByVal dwContext As Long ) As Boolean
Public Declare Function FtpPutFile Lib " wininet.dll " Alias " FtpPutFileA " _
(ByVal hFtpSession As Long , ByVal lpszLocalFile As String , _
ByVal lpszRemoteFile As String