Dim?ftpclient?As?System.Net.FtpWebRequest?=?System.Net.FtpWebRequest.Create(New?System.Uri("軟件"))
創(chuàng)新互聯(lián)建站主營婁煩網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營網(wǎng)站建設(shè)方案,app開發(fā)定制,婁煩h5微信小程序開發(fā)搭建,婁煩網(wǎng)站營銷推廣歡迎婁煩等地區(qū)企業(yè)咨詢
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
就行了,因?yàn)?/p>
tcp
要求的是穩(wěn)定的連接,連接一斷開直接就
throw
exception
了。
udp
的話,因?yàn)樗旧硎菬o連接的協(xié)議,所以其實(shí)不存在斷開不斷開的,準(zhǔn)確的說應(yīng)該是超時(shí)??梢钥蛻舳嗣扛粢欢螘r(shí)間向服務(wù)端發(fā)送個(gè)心跳包(隨便什么數(shù)據(jù)都行,只是證明客戶端還在線),服務(wù)端每隔一段時(shí)間檢測在線的客戶端列表,誰已經(jīng)很久沒發(fā)來心跳包了就證明它掉線了。
可以使用Get方法先獲取目錄的文件列表,再分析列表,檢測目標(biāo)文件是否存在。
If Now.Hour 12 Then
'下午
Else
'上午
End If
這個(gè)功能一般的供應(yīng)鏈軟件都有,直接導(dǎo)致到目的服務(wù)器上更好,為什么要搜索?