VB.Net by API/System.Net/WebClient

Материал из VB Эксперт
Перейти к: навигация, поиск

WebClient.DownloadData

<source lang="vbnet"> Imports System.Net Imports System.IO Imports System.Text

Public Class Tester

   Public Shared Sub Main
       Dim myWebClient As New WebClient()
       Dim mybyte() As Byte
       mybyte = myWebClient.DownloadData("http://www.vbex.ru")
       myWebClient.DownloadFile("http://www.vbex.ru", "test.txt")
   End Sub

End Class


 </source>


WebClient.DownloadFile

<source lang="vbnet"> Imports System.Net Imports System.IO Imports System.Text

Public Class Tester

   Public Shared Sub Main
       Dim myWebClient As New WebClient()
       Dim mybyte() As Byte
       mybyte = myWebClient.DownloadData("http://www.vbex.ru")
       myWebClient.DownloadFile("http://www.vbex.ru", "test.txt")
   End Sub

End Class


 </source>


WebClient.OpenRead

<source lang="vbnet"> Imports System.Net Imports System.IO Imports System.Text

Public Class Tester

   Public Shared Sub Main
       Dim myWebClient As New WebClient()
       Dim myStream As Stream
       Dim myByte() As Byte
       Try
           myWebClient = New WebClient()
           myStream = myWebClient.OpenRead("http://www.vbex.ru")
           Dim myStreamReader As New StreamReader(myStream)
           Console.WriteLine(myStreamReader.ReadToEnd)
       Catch ex As Exception
           Console.WriteLine(ex.Message)
       End Try
   End Sub

End Class


 </source>