Hent oplysninger fra http

det er et heste arbejde at lave den HTML parsning

men her er et skelet som kun tester om navn findes eller ej:

Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports System.IO
Imports System.Net

Namespace E
    Public Class MainForm
        Inherits Form
        Private label1 As Label
        Private textBox1 As TextBox
        Private button1 As Button
        Private label2 As Label
       
        Public Shared Sub Main
            Dim fMainForm As New MainForm
            fMainForm.ShowDialog()
        End Sub
       
        Public Sub New()
            MyBase.New
            InitializeComponent
        End Sub
       
        Private Sub InitializeComponent()
            label1 = New Label
            textBox1 = New TextBox
            button1 = New Button
            label2 = New Label
            SuspendLayout
            label1.Location = New Point(50, 50)
            label1.Size = New Size(50, 25)
            label1.Text = "Navn"
            textBox1.Location = New Point(100, 50)
            textBox1.Size = New Size(100, 25)
            button1.Location = New Point(50, 100)
            button1.Size = New Size(150, 50)
            button1.Text = "Hent"
            AddHandler button1.Click, AddressOf Button1Click
            label2.Location = New Point(50, 175)
            label2.Size = New Size(150, 25)
            label2.Text = ""
            ClientSize = New Size(250, 250)
            Controls.Add(label1)
            Controls.Add(textBox1)
            Controls.Add(button1)
            Controls.Add(label2)
            Text = "Hiscore henter"
            ResumeLayout(false)
        End Sub
       
        Private Sub Button1Click(sender As System.Object, e As System.EventArgs)
            label2.Text = "bøh"   
            Dim req As HttpWebRequest = CType(WebRequest.Create("http://hiscore-web.runescape.com/aff/runescape/hiscores.html"), HttpWebRequest)
            Dim resp As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
            Dim sr As StreamReader = New StreamReader(resp.GetResponseStream)
            Dim html As String = sr.ReadToEnd
            If html.IndexOf("username=" & textBox1.Text) >= 0 Then
                label2.Text = "Navn findes"
            Else
                label2.Text = "Navn findes ikke"
            End If
            sr.Close
            resp.Close
        End Sub
    End Class
End Namespace

Nu ved jeg ikke lige hvordan at jeg skal sætte det ind...
Er der mulighed for at du kan gemme det i et projekt, og sende det på mail, eller uploade det et eller andet sted?

nu bruger jeg ikke Visual Studio

men opret et Windows Application projekt og copy paste koden ind, så burde det
virke

Der sker ikke noget når at jeg kører det hvis at jeg bare sætter koden ind i en form....
Skal det ligge i en klasse fil eller sådan noget?

det er et komplet program med det hele

Ahh... Jeg skulle bare deaktiveere application framework :D
Hvis at du smider et svar, så vil jeg forsøge at arbejde videre med dette...

den henter jo hele HTML'en

resten af arbejdet er bare triviel text pardning

og et svar