VBʹÓÃWinInetʵÏÖ¿Í»§¶Ëftp²Ù×÷Óöµ½ÎÊÌ⣬¼±¾È

¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¼ÓÔØWinInetµÄdll 
¡®InternetOpen 
  Public Declare Function InternetOpen Lib "WININET.DLL" Alias "InternetOpenA" _
  (ByVal lpszAgent As String, ByVal dwAccessType As Long, ByVal lpszProxyName As String, _
  ByVal lpszProxyBypass As String, ByVal dwFlags As Long) As Long

¡®InternetConnect 
  Public Declare Function InternetConnect Lib "WININET.DLL" Alias "InternetConnectA" _
  (ByVal HINTERNET As Long, ByVal lpszServerName As String, ByVal nServerPort As Integer, _
  ByVal lpszUsername As String, ByVal lpszPassword As String, ByVal dwService As Long, _
  ByVal dwFlags As Long, ByVal dwContext As Long) As Long

¡®FtpGetCurrentDirectory 
  Public Declare Function FtpGetCurrentDirectory Lib "WININET.DLL" Alias "FtpGetCurrentDirectoryA" _
  (ByVal hConnect As Long, ByVal lpszCurrentDirectory As String, _
  ByRef lpdwCurrentDirectory As Long) As Boolean

¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¡®¿ªÊ¼Ð´ftp²Ù×÷
µÚÒ»²½Á¬½Óµ½ÍøÂç
  hOpen = InternetOpen(vbNullString, 1, vbNullString, vbNullString, 0)
µÚ¶þ²½Á¬½Óµ½ftp
  hConnection = InternetConnect(hOpen, "192.168.1.123", 21,"UserName", "Password", 1, 0, 0)
µÚÈý²