Function FtpConnect(byval hInet As HINTERNET, ByRef ServerName As String, ByRef UserName As String, ByRef UserPassword As String, byval ServerPort As Integer = 21, byval Flags As Integer = 0) As HINTERNET
Производит соединение с FTP сервером , используя логин и пароль. Функция возвращает хендл соединения, который используется другими функциями и который следует освобождать, когда соединение более не требуется функцией InetFreeHandle.
hInet - хендл , возвращенный функцией InetOpen.
ServerName - строка с именем сервера, к которому следует подключиться
UserName - логин для подключения
UserPassword - строка с паролем для подключения
ServerPort - используемый порт для подключения
Flags - задает работу с сервером. Если нужна работа в пассивном режиме, используйте INTERNET_FLAG_PASSIVE
Windows
#Include "window9.bi"
Dim As HINTERNET hOpen,hConnect
hOpen = InetOpen()
hConnect = FtpConnect(hOpen,"ftp.intel.com","anonymous","anonymous")
If hConnect <> 0 Then
MessBox("Проверка соединения", "Cоединение установлено")
EndIf
InetFreeHandle(hConnect)
InetFreeHandle(hOpen)
Created with the Personal Edition of HelpNDoc: Create iPhone web-based documentation