ftp连接问题

Question

我在窗体中添加了inet1控件
代码：
inet1.urp ="ftp/***.***.***.***"
inet1.user = "***"
inet1.password = "***"               '用*号屏蔽了
请问怎么判断inet1是不是连接上ftp了

Answer 1

Private Sub Inet1_StateChanged(ByVal State As Integer)    Select Case State
        Case 0
        Case 1
        Case 2
        Case 3
        Case 4 '已与主机连接成功
             …… 
        Case 5        ……
        
    End Select
End Sub

Answer 2

楼上，请问传输参数state怎么获取？

Answer 3

Inet1在其Inet1_StateChanged事件中给出，可以把上面的改一下就清楚了：Private Sub Inet1_StateChanged(ByVal State As Integer)    Select Case State
        Case 4
             MsgBox "ok"
        Case 12
            
    End Select
    
    Debug.Print "状态常数:" & State & "信息内容:" & Inet1.ResponseInfoEnd Sub

Answer 4

Private Sub Command1_Click()
Inet1.URL = "ftp://172.**.**.**"
Inet1.Protocol = 2
Inet1.UserName = "**"
Inet1.Password = "***" 
 
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)    Select Case State
        Case 4
             MsgBox "ok"
        Case 12
            
    End Select
    
    Debug.Print "状态常数:" & State & "信息内容:" & Inet1.ResponseInfoEnd Sub请教一下这样写还要怎么改吗？