有什么方法可以测试远程FTP服务器连接是否可用？高分求解！！！谢谢各位大虾！！！！

2006-09-19 11:13:43 720 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Adaboost入门教程——最通俗易懂的原理介绍（图文实例） Adaboost入门教程——最通俗易懂的原理介绍（图文实例）阅读详情

问题描述：
需要做一个配置ftp服务器的程序，配置的内容包括：IP，用户名，密码，端口号。在保存配置前，需要对所填的配置信息进行测试，以确定所填用户名及密码是否可以成功连上ＦＴＰ服务器。
该功能如何实现？

－－－－－－
我所做的尝试：
　　利用inet控件，设置其URL，User，Passwd 及端口属性
然后用OpenURL的方法：call inet1.OpenURL (.URL)
再通过判断state的返回值，以确定是否成功。返回值为1，表示成功。
但是，不管我输的用户名或密码对不对，state的返回值都是1，晕，郁闷哦！！！！！
各位大虾帮帮小弟吧，有何高见，敬请赐教！

...全文

环境科研人必备：手把手教你用EPISuite 4.1批量预测化合物毒性（附ECOSAR实战）本文详细介绍了EPISuite 4.1在环境毒理学研究中的应用，重点解析了ECOSAR模块的化合物毒性预测技术。通过批量处理实战和科研案例，帮助环境科研人员快速评估化学物质对水生生态系统的风险，提升工作效率。文章还涵盖了EPISuite核心模块的功能分类及ECOSAR模型的技术原理与算法特点。阅读详情

qnn8299

网络编程 1,502 成员 18,427 内容

+ 关注 + 加入社区

切换为时间正序

vinegar111 2006-09-19

打赏
举报

学习

happy_sea 2006-09-19

打赏
举报

楼主可以用下面的代码试验一下：
Private Sub Inet1_StateChanged(ByVal State As Integer)
debug.print state
end sub
可以看到state的变化过程，而不是像楼主说的那样是一个值。

吾非大神 2006-09-19

打赏
举报

学习

province_ 2006-09-19

打赏
举报

扫描一下对方端口（缺省：21）开了没有。（其实就是尝试连接一下该端口，成功说明FTP服务开了）

fyming 2006-09-19

打赏
举报

Option Explicit
Dim strOper As String

Private Sub Command1_Click()
On Error GoTo ConError
Command1.Enabled = False

With Inet1
.URL = txFTP(0).Text
.Protocol = icFTP
.UserName = txFTP(2).Text
.Password = txFTP(3).Text
End With

strOper = "Dir"
Inet1.Execute , strOper
Exit Sub

ConError:
MsgBox "无法与" & txFTP(0).Text & " 网站取得连接! "
End Sub

Private Sub Command2_Click()
strOper = "GetFile"
Inet1.Execute , "Get " & txFTP(1).Text & " " & App.Path & "\" & txFTP(1).Text
End Sub

Private Sub Command3_Click()
Inet1.Execute , "Quit"
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case 4
Command2.Enabled = True
Command3.Enabled = True
txFTP(0).Enabled = False
txFTP(1).Enabled = True
txFTP(2).Enabled = False
txFTP(3).Enabled = False
Case 11
If InStr(Inet1.ResponseInfo, "No such file") > 0 Or _
InStr(Inet1.ResponseInfo, "No such file or directory") Then
MsgBox "符合的文件下载!"
Else
MsgBox Inet1.ResponseInfo
End If
Case 10
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
txFTP(0).Enabled = True
txFTP(1).Enabled = False
txFTP(2).Enabled = True
txFTP(3).Enabled = True
Case 12
If LCase(strOper) = "dir" Then
InetGetDir
MsgBox "已经与主机连接 !"
Else
MsgBox "文件下载成功!"
End If
End Select
Debug.Print 状态常数:" & State & "信息内容:" & Inet1.ResponseInfo
End Sub

Private Sub Form_Unload(Cancel As Integer)
Inet1.Cancel
End Sub

Private Sub InetGetDir()
'vtData 的数量类型为 Variant
Dim vtData
'将接收的文件以二进制的方式打开文件输出
Open App.Path & "\" & txFTP(1).Text & ".txt" For Binary Access Write As #1

vtData = Inet1.GetChunk(1024, icString)
Do While LenB(vtData) > 0
Put #1, , vtData
vtData = Inet1.GetChunk(1024, icString)
Loop
Put #1, , vtData
Close #1
End Sub
------------------------------------------
说明：
cmd1:与FTP主机连接
cmd2:开始下载
cmd3:终止连接

wangjunnjim 2006-09-19

打赏
举报

能不能详细一点

fyming 2006-09-19

打赏
举报

Private Sub Inet1_StateChanged(ByVal State As Integer)

Select Case State
Case 4
MsgBox "ok"
Case 12
Case Else
End Select
End Sub

wangjunnjim 2006-09-19

打赏
举报

顶，我现在也正在向这个问题，求高手帮忙

有什么方法可以测试远程FTP服务器连接是否可用？高分求解！！！谢谢各位大虾！！！！

相关推荐