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

VB.NET實(shí)用教程代碼：

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實(shí)用教程對VB.Net實(shí)現(xiàn)登陸Ftp的方法的一個講述，希望大家在平時的工作中總結(jié)出更好的方法。

【編輯推薦】

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