重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Dim ftpclient As System.Net.FtpWebRequest = System.Net.FtpWebRequest.Create(New System.Uri("软件"))
创新互联建站主营娄烦网站建设的网络公司,主营网站建设方案,app开发定制,娄烦h5微信小程序开发搭建,娄烦网站营销推广欢迎娄烦等地区企业咨询
ftpclient.UseBinary = True
ftpclient.Credentials = New System.Net.NetworkCredential("upload", "upload")
ftpclient.Method = System.Net.WebRequestMethods.
ftpclient.KeepAlive = False
Dim ftpresponse As System.Net.FtpWebResponse = CType(ftpclient.GetResponse, System.Net.FtpWebResponse)
Console.WriteLine(ftpresponse.StatusCode.ToString + " " + ftpresponse.StatusDescription)
Dim content(1024) As Byte
Dim index_a As Integer = 0
index_a = ftpresponse.GetResponseStream.Read(content, 0, content.Length)
Dim contentstring As String = String.Empty
While index_a 0
index_a = ftpresponse.GetResponseStream.Read(content, 0, content.Length)
contentstring += System.Text.Encoding.UTF8.GetString(content)
End While
ftpresponse.Close()
If contentstring.LastIndexOf("aaa.txt") 0 Then
MsgBox("存在")
Else
MsgBox("不存在")
End If
tcp
还是
udp?
tcp
的话
try
-
catch
就行了,因为
tcp
要求的是稳定的连接,连接一断开直接就
throw
exception
了。
udp
的话,因为它本身是无连接的协议,所以其实不存在断开不断开的,准确的说应该是超时。可以客户端每隔一段时间向服务端发送个心跳包(随便什么数据都行,只是证明客户端还在线),服务端每隔一段时间检测在线的客户端列表,谁已经很久没发来心跳包了就证明它掉线了。
可以使用Get方法先获取目录的文件列表,再分析列表,检测目标文件是否存在。
If Now.Hour 12 Then
'下午
Else
'上午
End If
这个功能一般的供应链软件都有,直接导致到目的服务器上更好,为什么要搜索?