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í)。可以客戶端每隔一段時(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ù)器上更好,為什么要搜索?
分享題目:vb.net服務(wù)器檢測 vbnet http服務(wù)器
文章URL:http://aaarwkj.com/article22/hhphcc.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站收錄、品牌網(wǎng)站制作、網(wǎng)站排名、Google、外貿(mào)網(wǎng)站建設(shè)、定制網(wǎng)站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)