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

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

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

Read a web page with Socket

<source lang="vbnet">Imports System.Net Imports System.Net.Sockets Imports System.IO Imports System.Text Imports System.Text.Encoding Public Class Tester

   Public Shared Sub Main
       Dim serverIP As IPAddress = Dns.Resolve("www.vbex.ru").AddressList(0)
       Dim Port As String = "80"
       Dim serverhost As New IPEndPoint(serverIP, Int32.Parse(Port))
   
       Dim clientSocket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
   
       Try
         clientSocket.Connect(serverhost)
   
         If clientSocket.Connected = False Then
           Console.WriteLine("Connect Error.")
           Exit Sub
         End If
   
         Dim httpReq As String = "GET / HTTP/1.0" & ControlChars.CrLf & ControlChars.CrLf
   
         clientSocket.Send(ASCII.GetBytes(httpReq))
   
         Dim buffer(1024) As Byte
         Dim byteCount As Int16 = clientSocket.Receive(buffer, buffer.Length, 0)
   
         Console.WriteLine(ASCII.GetString(buffer, 0, byteCount))
   
         Do While byteCount > 0
           byteCount = clientSocket.Receive(buffer, buffer.Length, 0)
           Console.WriteLine(ASCII.GetString(buffer, 0, byteCount))
         Loop
       Catch ex As Exception
         Console.WriteLine(ex.StackTrace.ToString())
       End Try
   
   End Sub

End Class</source>

Read from web

<source lang="vbnet">Imports System.Net.Sockets Imports System.Net Imports System.IO Imports System.Text Public Class Tester

   Public Shared Sub Main
       Dim httpReq As System.Net.HttpWebRequest
       Dim httpResp As System.Net.HttpWebResponse
   
       Dim respStream As Stream
       Dim respStreamReader As StreamReader
       Dim strBuff As String = Nothing
       Dim cbuffer(256) As Char
       Dim byteRead As Integer = 0
       Dim index As Integer = 0
   
       Try
         Dim httpURL As New System.Uri("http://www.vbex.ru")
   
         httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)
         httpResp = CType(httpReq.GetResponse(), HttpWebResponse)
   
         respStream = httpResp.GetResponseStream()
         respStreamReader = New StreamReader(respStream, Encoding.UTF8)
   
         byteRead = respStreamReader.Read(cbuffer, 0, 256)
   
         While (byteRead <> 0)
           Dim strResp As New [String](cbuffer, 0, byteRead)
           Console.WriteLine(strResp)
           byteRead = respStreamReader.Read(cbuffer, 0, 256)
         End While
         respStream.Close()
       Catch ex As Exception
         Console.WriteLine(ex.StackTrace.ToString())
       End Try
   End Sub

End Class</source>

<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>
<!--  document.write("<style type="text/css">.script12hide { display: none; }</style>");  -->
</SCRIPT>
<STYLE type=text/css>
.BackgroundTable {BACKGROUND-COLOR: #fff4c2; BORDER-RI
GHT:#ffcc33 1px solid; BORDER-LEFT:#ffcc33 1px solid;BORDER-TOP:#ffcc33 1px solid; BORDER-BOTTOM:#ff
cc33 1px solid}