Bron weergeven

[wicherh]

Ik wil een bron van een webpage weergeven, hoe doet ik dat?

Ik heb dit op het internet gevonden maar het werkt niet (op mijn computer).

Imports System
Imports System.IO
Imports System.Net
Module Module1
    Sub Main()
        'Address of URL
        Dim URL As String = "http://www.hacker.org/challenge/misc/one.php"
        ' Get HTML data
        Dim client As WebClient = New WebClient()
        Dim data As Stream = client.OpenRead(URL)
        Dim reader As StreamReader = New StreamReader(data)
        Dim str As String = ""
        str = reader.ReadLine()
        Do While str.Length > 0
            Console.WriteLine(str)
            str = reader.ReadLine()
        Loop
    End Sub
End Module

 

[C Windows]

Misschien zo:

Dim client As WebClient = New WebClient()
Dim data As Stream = client.OpenRead("http://www.hacker.org/challenge/misc/one.php")
Dim reader As StreamReader = New StreamReader(data)
Console.Write(reader.ReadToEnd())