VB.Net Tutorial/Socket Network/URL — различия между версиями

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

Текущая версия на 12:55, 26 мая 2010

Create StreamReader from URL

Imports System.Net
Imports System.IO
Module Test
    Sub Main()
        Dim sURL As String
        sURL = "http://msdn.microsoft.ru"
        Try
            Dim objNewRequest As WebRequest = HttpWebRequest.Create(sURL)
            Dim objResponse As WebResponse = objNewRequest.GetResponse
            Dim objStream As New StreamReader(objResponse.GetResponseStream())
            
            Console.WriteLine(objStream.ReadToEnd())
        Catch eUFE As UriFormatException
            Console.WriteLine(eUFE.Message)
        Catch eWEB As WebException
            Console.WriteLine(eWEB.Message)
        Catch e As Exception
            Console.WriteLine(e.ToString)
        End Try
    End Sub
End Module
<?xml version="1.0" encoding="UTF-8" ?>
<!-- MTPS 0606 -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtm
l1-transitional.dtd">
<html id="ctl00_Html1" xmlns="http://www.w3.org/1999/xhtml" dir="ltr" lang="en-us">
   <head id="ctl00_Head1"><meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="ms.locale" content="en-us" />

Read from a URL

Imports System
Imports System.Net
Imports System.IO
Imports System.Environment
Module GetURL
    Sub Main()
        Dim sOutput As String
        Dim sURL As String = "http://www.vbex.ru"
        Try
           Dim objNewRequest As WebRequest = HttpWebRequest.Create(sURL)
           Dim objResponse As WebResponse = objNewRequest.GetResponse
           Dim objStream As New StreamReader(objResponse.GetResponseStream())
           sOutput = objStream.ReadToEnd()
        Catch eUFE As UriFormatException
            sOutput = "Error in URL Format: [" & sURL & "]" & NewLine() & eUFE.Message
        Catch eWEB As WebException
            sOutput = "Error With Web Request: " & NewLine() & eWEB.Message
        Catch e As Exception
            sOutput = e.ToString
        Finally
            Console.Write(sOutput)
        End Try
    End Sub
End Module
<HTML>
<HEAD>
     Java examples (example source code) Organized by topic </title>
    <meta http-equiv="content-type" content="text/html; charset=UTF-8">    <meta http-equiv="content
-style-type" content="text/css"/>
    <meta name="author" content="Demo Source and Support Ltd."/>
    <meta name="copyright" content="2006 Demo Source and Support Ltd."/>
    <meta name="description" CONTENT=" Java examples (example source code) Organized by topic " />
    <meta name="keywords" CONTENT=" Java examples (example source code) Organized by topic "/>
<SCRIPT language=javascript1.2>
Источник — «http://vbex.ru/index.php?title=VB.Net_Tutorial/Socket_Network/URL&oldid=3533»