' ******************************************************
' 初期設定
' ******************************************************
Private Sub Form_Load()

    Me.txtパスワード.PasswordChar = "*"
    Me.cmd解除.Enabled = False

End Sub

Global hSes As Long
Global hCon As Long

' ------------------------------------------------------
' セッション
' ------------------------------------------------------
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 InternetCloseHandle Lib "wininet.dll" ( _
    ByVal hInet As Long _
) As Integer

' ******************************************************
' 接続
' ******************************************************
Public Function lbFTPConnect( _
    Server As String, _
    User As String, _
    Password As String, _
    bPassive As Boolean _
) As Boolean

    hSes = InternetOpen("VBFTP", 1, vbNullString, vbNullString, 0)
    If hSes = 0 Then
        lbFTPConnect = False
        Exit Function
    End If

    Dim nPassive As Long

    If bPassive Then
        nPassive = &H8000000
    Else
        nPassive = 0
    End If

    hCon = InternetConnect( _
                hSes, _
                Server, _
                0, _
                User, _
                Password, _
                1, _
                nPassive, _
                0 _
            )

    If hCon = 0 Then
        lbFTPConnect = False
        Call InternetCloseHandle(hSes)
        Exit Function
    End If

    lbFTPConnect = True

End Function

' ******************************************************
' 接続解除
' ******************************************************
Public Function lbFTPDisconnect()

    Call InternetCloseHandle(hCon)
    Call InternetCloseHandle(hSes)

End Function

' ******************************************************
' 接続
' ******************************************************
Private Sub cmd接続_Click()

    Me.cmd接続.Enabled = False

    Dim ret As Boolean

    ret = Module1.lbFTPConnect( _
            Me.txtサーバ.Text, _
            Me.txtユーザ.Text, _
            Me.txtパスワード.Text, _
            False)
            
    If Not ret Then
        Call MsgBox("接続に失敗しました")
        Me.cmd接続.Enabled = True
        Exit Sub
    End If

    Me.cmd解除.Enabled = True

End Sub

' ******************************************************
' 解除
' ******************************************************
Private Sub cmd解除_Click()

    Me.cmd解除.Enabled = False
    
    Call Module1.lbFTPDisconnect
    
    Me.cmd接続.Enabled = True

End Sub