日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷解決方案
VB.NET實(shí)用教程之VB.NET實(shí)現(xiàn)登陸Ftp經(jīng)典方案講解

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

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

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

 
 
 
      
  
  
  1. Private   sckConnect   As   New   Socket(AddressFamily.InterNetwork,   SocketType.Stream,   ProtocolType.Tcp)   
    2.   
  
  
  2. Private   RemoteIp   As   IPEndPoint   
    3.   
  
  
  3. Private   thd   As   Thread   
    4.   
  
  
  4. Private   blnExt   As   Boolean   =   True   
    5.   
  
  
  5. Private   _Quality   As   Int16   =   50   
    6.   
  
  
  6. Public   WriteOnly   Property   Quality()   As   Int16　’這個(gè)函數(shù)表示服務(wù)器要求的圖片質(zhì)量   
    7.   
  
  
  7. Set(ByVal   value   As   Int16)   
    8.   
  
  
  8. _Quality   =   value   
    9.   
  
  
  9. End   Set   
    10.   
  
  
  10. End   Property   
    11.   
  
  
  11. Private   Sub   run()   
    12.   
  
  
  12. Dim   byt()   As   Byte   
    13.   
  
  
  13. Dim   stream   As   MemoryStream   
    14.   
  
  
  14. Dim   bmp   As   Bitmap   
    15.   
  
  
  15. While   blnExt   
    16.   
  
  
  16. Try   
    17.   
  
  
  17. bmp   =   getGrcToBmp()　　　 '這是獲取圖片   
    18.   
  
  
  18. stream   =   New   MemoryStream   
    19.   
  
  
  19. Compress(bmp,   stream,   _Quality)   '這里對(duì)圖片進(jìn)行壓縮函數(shù)   
    20.   
  
  
  20. byt   =   stream.ToArray   
    21.   
  
  
  21. sckConnect.Send(byt,   byt.Length,   SocketFlags.None)   
    22.   
  
  
  22. byt.Initialize()   
    23.   
  
  
  23. stream   =   Nothing   
    24.   
  
  
  24. Thread.Sleep(30)　　 '30毫秒，也就是１秒中傳送33次圖片   
    25.   
  
  
  25. Catch   ex   As   Exception   
    26.   
  
  
  26. Call   Ext()   
    27.   
  
  
  27. End   Try   
    28.   
  
  
  28. End   While   
    29.   
  
  
  29. End   Sub   
    30.   
  
  
  30. Public   Sub   Send(ByVal   ip   As   String,   ByVal   port   As   Integer)　 '服務(wù)器的IP和Port   
    31.   
  
  
  31. Try   
    32.   
  
  
  32. RemoteIp   =   New   IPEndPoint(IPAddress.Parse(ip),   port)   
    33.   
  
  
  33. sckConnect.SendTimeout   =   100   
    34.   
  
  
  34. sckConnect.Connect(RemoteIp)   
    35.   
  
  
  35. If   sckConnect.Connected   Then   
    36.   
  
  
  36. thd   =   New   Thread(AddressOf   run)   
    37.   
  
  
  37. thd.Start()   
    38.   
  
  
  38. End   If   
    39.   
  
  
  39. Catch   ex   As   Exception   
    40.   
  
  
  40. MsgBox(ex.Message)   
    41.   
  
  
  41. Exit   Sub   
    42.   
  
  
  42. End   Try   
    43.   
  
  
  43. End   Sub   
    44.   
  
  
  44. Public   Sub   Ext()   
    45.   
  
  
  45. Try   
    46.   
  
  
  46. blnExt   =   False   
    47.   
  
  
  47. thd   =   Nothing   
    48.   
  
  
  48. sckConnect.Disconnect(True)   
    49.   
  
  
  49. sckConnect.Close()   
    50.   
  
  
  50. Catch   ex   As   Exception   
    51.   
  
  
  51. End   Try   
    52.   
  
  
  52. End   Sub  
    53.

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

【編輯推薦】

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

文章名稱：VB.NET實(shí)用教程之VB.NET實(shí)現(xiàn)登陸Ftp經(jīng)典方案講解
文章分享：http://m.5511xx.com/article/cogchdg.html