в 16:40, 26 мая 2010

2010-05-26T16:40:16Z

Admin: 1 версия

2010-05-26T12:49:46Z

1 версия

Новая страница

==WebResponse.ContentType==

<source lang="vbnet">
Imports System.IO
Imports System.Net
Imports System.Text
public class MainClass
Shared Sub Main()
Dim uri As New Uri("http://www.vbex.ru/index.htm")
Dim request As WebRequest = WebRequest.Create(uri)
Dim response As WebResponse = request.GetResponse()
Console.WriteLine("Request type: " & request.GetType().ToString() )
Console.WriteLine("Response type: " & response.GetType().ToString() )
Console.WriteLine("Content length: " & response.ContentLength & " bytes" )
Console.WriteLine("Content type: " & response.ContentType )
End Sub
End Class

</source>

==WebResponse.GetResponseStream()==

<source lang="vbnet">

" Cryptography/GetWeb.vb
Imports System
Imports System.IO
Imports System.Net
Imports System.Text
Public Class GetWeb
Dim MaxContentLength As Integer = 16384 " 16k
Public Shared Sub Main(ByVal CmdArgs() As String)
If CmdArgs.Length <> 1 Then
Console.WriteLine("usage: GetWeb url")
Console.WriteLine("example: GetWeb https://www.vbex.ru")
End
End If
Dim ms As String = ""
Try
Dim req As WebRequest = WebRequest.Create(CmdArgs(0))
Dim result As WebResponse = req.GetResponse()
Dim ReceiveStream As Stream = result.GetResponseStream()
Dim enc As Encoding = System.Text.Encoding.GetEncoding("utf-8")
Dim sr As StreamReader = New StreamReader(ReceiveStream, enc)
ms = sr.ReadToEnd()
Catch x As Exception
Console.WriteLine(x.StackTrace)
Console.WriteLine("Bad URL: {0}", CmdArgs(0))
End Try
Console.WriteLine(ms)
End Sub
End Class

</source>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net by API/System.Net/WebResponse - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия