в 16:40, 26 мая 2010

2010-05-26T16:40:06Z

Admin: 1 версия

2010-05-26T12:45:36Z

1 версия

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

==Download Data from a URI==

<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()
Dim stream As Stream = response.GetResponseStream()
Dim reader As New StreamReader(stream)
Dim data As String = reader.ReadToEnd()
reader.Close()
stream.Close()
Console.WriteLine(data)
End Sub
End Class

</source>

==Get response and response stream from WebRequest==

<source lang="vbnet">
Imports System.Net
Imports System.IO
Public Class MainClass
Public Shared Sub Main()
Dim PageRequest As HttpWebRequest = WebRequest.Create("www.google.ru")
Dim PageResponse As WebResponse = PageRequest.GetResponse()
Dim PageReader As New StreamReader(PageResponse.GetResponseStream())
Dim PageString As String = PageReader.ReadToEnd()
PageReader.Close()
System.Console.WriteLine(PageString)
End Sub
End Class

</source>

==Google Client==

<source lang="vbnet">
Imports System.IO
Imports System.Net
Imports System.Web
Imports System.Collections.Generic
Public Class GoogleClient
Public Function Define(ByVal word As String) As String()
Dim req As HttpWebRequest = Nothing
Dim resp As HttpWebResponse
Dim query As String
Dim result As New List(Of String)
query = "http://www.google.ru/search?q=define%3A" & HttpUtility.UrlEncode(word)
Try
req = DirectCast(WebRequest.Create(query), HttpWebRequest)
With req
.Method = "GET"
resp = req.GetResponse
If resp.StatusCode = HttpStatusCode.OK Then
ParseResponse(resp.GetResponseStream, result)
Else
System.Console.WriteLine("Error calling definition service")
End If
End With
Catch ex As Exception
System.Console.WriteLine("Error getting definitions")
End Try
Return result.ToArray()
End Function
Private Sub ParseResponse(ByVal input As System.IO.Stream, ByRef output As List(Of String))
Dim reader As New StreamReader(input)
Dim work As String = reader.ReadToEnd
System.Console.WriteLine(work)
End Sub
End Class

</source>

==Is Connection Available==

<source lang="vbnet">
Public Class MainClass
Public Shared Sub Main()
System.Console.WriteLine(IsConnectionAvailable())
End Sub
Public Shared Function IsConnectionAvailable() As Boolean
Dim objUrl As New System.Uri("http://www.yoursite.ru/")
Dim objWebReq As System.Net.WebRequest
objWebReq = System.Net.WebRequest.Create(objUrl)
Dim objResp As System.Net.WebResponse
Try
objResp = objWebReq.GetResponse
objResp.Close()
objWebReq = Nothing
Return True
Catch ex As Exception
Return False
End Try
End Function
End Class

</source>

==Web Request and Response: type and content type, length==

<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>

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

VB.Net/Network Remote/Web Request - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия