title image


Smiley Re: HTML-Seite laden und speichern in VB.NET.
Hi,



Du lädst eine Seite mit:



********************************************************************



'DIESE 3 ZEILEN ÜBER DER KLASSENDEKLARATION IM

'FORMULAR POSITIONIEREN



Imports System.Net

Imports System.Net.Sockets

Imports System.Text.Encoding



----------------------------------------------------------



'DIESER CODE HINTER EINEM BUTTON-CLICK



Dim strbuf As String = ""

Dim EPIP As IPEndPoint = New IPEndPoint(Dns.Resolve("www.schlotsoft.de").AddressList(0), 80)

Dim Sck As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)

Try

Sck.Connect(EPIP)

If Sck.Connected = False Then

MsgBox("Kann die Adresse nicht erreichen!")

Exit Sub

End If

'Lädt das Startdokument

'Sck.Send(ASCII.GetBytes("GET / HTTP/1.0" & vbCrLf & vbCrLf))



'Lädt eine andere Seite vom Host

Sck.Send(ASCII.GetBytes("GET /quellcodes.htm HTTP/1.0" & vbCrLf & vbCrLf))

Dim Buffer(1024) As Byte

Dim ByteCount As Int16 = Sck.Receive(Buffer, Buffer.Length, 0)

strbuf = ASCII.GetString(Buffer, 0, ByteCount)

Do While ByteCount > 0

ByteCount = Sck.Receive(Buffer, Buffer.Length, 0)

strbuf &= ASCII.GetString(Buffer, 0, ByteCount)

Loop

Catch

MsgBox(Err.Description)

End Try



MsgBox(strbuf)



********************************************************************



In strbuf steht jetzt der Seitenquelltext...dann kannst Du mit den

FileIO-Funktionen speichern.



bye,

schloti


 



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: