日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

上一章對與VB.NET抓取網(wǎng)頁亂碼的問題的解決方案，今天VB.NET實用教程教你對于VB.NET實現(xiàn)登陸Ftp的方法，快看看學(xué)習(xí)一下吧。我們都知道遠(yuǎn)程視頻傳輸可以采用線程下載、圖片壓縮，還可以考慮先儲存進(jìn)數(shù)據(jù)庫中

目前成都創(chuàng)新互聯(lián)公司已為1000+的企業(yè)提供了網(wǎng)站建設(shè)、域名、雅安服務(wù)器托管、網(wǎng)站托管運營、企業(yè)網(wǎng)站設(shè)計、源城網(wǎng)站維護(hù)等服務(wù)，公司將堅持客戶導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長，共同發(fā)展。

VB.NET實用教程代碼：

 
 
 
  
  
  
Private   sckConnect   As   New   Socket(AddressFamily.InterNetwork,   SocketType.Stream,   ProtocolType.Tcp)   
  
  
  
Private   RemoteIp   As   IPEndPoint   
  
  
  
Private   thd   As   Thread   
  
  
  
Private   blnExt   As   Boolean   =   True   
  
  
  
Private   _Quality   As   Int16   =   50   
  
  
  
Public   WriteOnly   Property   Quality()   As   Int16　’這個函數(shù)表示服務(wù)器要求的圖片質(zhì)量   
  
  
  
Set(ByVal   value   As   Int16)   
  
  
  
_Quality   =   value   
  
  
  
End   Set   
  
  
  
End   Property   
  
  
  
Private   Sub   run()   
  
  
  
Dim   byt()   As   Byte   
  
  
  
Dim   stream   As   MemoryStream   
  
  
  
Dim   bmp   As   Bitmap   
  
  
  
While   blnExt   
  
  
  
Try   
  
  
  
bmp   =   getGrcToBmp()　　　 '這是獲取圖片   
  
  
  
stream   =   New   MemoryStream   
  
  
  
Compress(bmp,   stream,   _Quality)   '這里對圖片進(jìn)行壓縮函數(shù)   
  
  
  
byt   =   stream.ToArray   
  
  
  
sckConnect.Send(byt,   byt.Length,   SocketFlags.None)   
  
  
  
byt.Initialize()   
  
  
  
stream   =   Nothing   
  
  
  
Thread.Sleep(30)　　 '30毫秒，也就是１秒中傳送33次圖片   
  
  
  
Catch   ex   As   Exception   
  
  
  
Call   Ext()   
  
  
  
End   Try   
  
  
  
End   While   
  
  
  
End   Sub   
  
  
  
Public   Sub   Send(ByVal   ip   As   String,   ByVal   port   As   Integer)　 '服務(wù)器的IP和Port   
  
  
  
Try   
  
  
  
RemoteIp   =   New   IPEndPoint(IPAddress.Parse(ip),   port)   
  
  
  
sckConnect.SendTimeout   =   100   
  
  
  
sckConnect.Connect(RemoteIp)   
  
  
  
If   sckConnect.Connected   Then   
  
  
  
thd   =   New   Thread(AddressOf   run)   
  
  
  
thd.Start()   
  
  
  
End   If   
  
  
  
Catch   ex   As   Exception   
  
  
  
MsgBox(ex.Message)   
  
  
  
Exit   Sub   
  
  
  
End   Try   
  
  
  
End   Sub   
  
  
  
Public   Sub   Ext()   
  
  
  
Try   
  
  
  
blnExt   =   False   
  
  
  
thd   =   Nothing   
  
  
  
sckConnect.Disconnect(True)   
  
  
  
sckConnect.Close()   
  
  
  
Catch   ex   As   Exception   
  
  
  
End   Try   
  
  
  
End   Sub  
 
 

以上是VB.NET實用教程對VB.Net實現(xiàn)登陸Ftp的方法的一個講述，希望大家在平時的工作中總結(jié)出更好的方法。

【編輯推薦】

1. 淺析VB.NET語言與VB語言對比
2. 你是否了解VB.NET集成開發(fā)環(huán)境
3. 深入分析VB.NET條件語句中的兩類
4. 五大類VB.NET運算符全面介紹
5. 全面討論VB.NET申明Windows API函數(shù)

文章標(biāo)題：VB.NET實用教程之VB.NET實現(xiàn)登陸Ftp經(jīng)典方案講解
文章轉(zhuǎn)載：http://www.dlmjj.cn/article/cogchdg.html