VB.Net by API/System.Net/WebClient

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

WebClient.DownloadData

  
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


WebClient.DownloadFile

  
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


WebClient.OpenRead

  
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