в 16:40, 26 мая 2010

2010-05-26T16:40:30Z

Admin: 1 версия

2010-05-26T12:55:58Z

1 версия

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

==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>
<pre class=codeResult><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>

</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}</pre>

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

VB.Net Tutorial/Socket Network/Socket Web Client - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия