|
|
' ******************************************************
' 初期設定
' ******************************************************
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
| |
|
|
|