以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问如何检测某个IP地址开了21端口  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=152396)
--  作者：明天的灵
--  发布时间：2020/7/11 14:26:00
--  请问如何检测某个IP地址开了21端口
有个项目中需要检测某段IP地址是否开了21端口（即FTP服务），请问有类似例子吗？
--  作者：有点蓝
--  发布时间：2020/7/11 14:35:00
--  

Connect

连接FTP，如果连接成功，返回True，否则返回False。
FTP默认是自动判断并连接的，正如前面的示例代码，并不需要先连接FTP再进行操作。
如果愿意，也可以Connected属性判断FTP是否已经连通，用Connect方法显式连接FTP。

示例

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
ftp1.Changedir("\\photo") 
If ftp1.Connected = False \'如果FTP没有连接
    If ftp1.Connect Then \'连接FTP
        ftp1.OpenManager() \'如果连接成功,打开FTP客户端
    Else
        Messagebox.show("连接FTP失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If
--  作者：明天的灵
--  发布时间：2020/7/11 20:16:00
--  
这个例子是已知FTP的户名与密码，我只是想检测是否打开了21端口
--  作者：有点蓝
--  发布时间：2020/7/12 20:10:00
--  
参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=116332&skin=0

try
    Dim tcp As New System.Net.Sockets.TcpClient
    tcp.connect("192.168.9.9", 21)
    msgbox(“成功”)
catch ex As exception
    msgbox(ex.message)
End try