VB.Net by API/System.Net/WebResponse — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
Admin (обсуждение | вклад) м (1 версия) |
(нет различий)
|
Текущая версия на 15:49, 26 мая 2010
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>