VB noob braucht Hilfe :D

[th3p0is0n]

Tag,

ich hab erst mit VB angefangen und bin dementsprechend noch ein extremer noob

Nungut, ich würd gerne ein kleines Tool schreiben, dass mit den Quelltext einer Seite ausliest und dann in eine .txt schreibt.

Bisher klappt das auch, aber ich hab keine Lust, dass bei jeder Seite neu zu compilen

Ergo würde ich gerne die URL in eine Textbox schreiben und diese URL verwenden.

mein bisheriger Erfolg:

Public Class Form1



    Dim HTMLQuelltext As String
    Const web As String = "http://google.de/index.php"



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                        Handles MyBase.Load


        Try
            WebBrowser1.Navigate(web)
        Catch ex As Exception
            MessageBox.Show("Failed")
        End Try

    End Sub


    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, _
                            ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) _
                            Handles WebBrowser1.DocumentCompleted

        HTMLQuelltext = WebBrowser1.DocumentText
    End Sub


    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        My.Computer.FileSystem.WriteAllText("C:\Users\poison\Desktop\Quelltext.txt", HTMLQuelltext, True)

    End Sub
End Class 

Hat jemand nen Vorschlag, wie das umzusetzen ist?
Also kurz gesagt den Inhalt der Textbox als Variable speichern, diese Variable dann als Url hernehmen.

Freue mich schon auf euer Antworten.

mfg
th3p0is0n

//Edit: hab ma meinen pc namen geändert^^ InYourFace heißt hier schon jemand

[Archy]

Dim link As String = TextBox1.text .net
  
     
  
       
     
  
     
  
          
 Const web As String = TextBox1.text ? :>
  
     
  

[th3p0is0n]

Danke dir

hab mal angepasst....

Public Class Form1


    Dim link As String = TextBox1.Text
    Dim HTMLQuelltext As String
    Dim web As String = link



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                        Handles MyBase.Load


        Try
            WebBrowser1.Navigate(web)
        Catch ex As Exception
            MessageBox.Show("Failed")
        End Try

    End Sub


    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, _
                            ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) _
                            Handles WebBrowser1.DocumentCompleted

        HTMLQuelltext = WebBrowser1.DocumentText
    End Sub


    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        My.Computer.FileSystem.WriteAllText("C:\Users\InYourFace\Desktop\Quelltext.txt", HTMLQuelltext, True)

    End Sub
End Class 

Fehler:

Fehler beim Erstellen des Formulars. Weitere Informationen finden Sie in Exception.InnerException. Fehler: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt..

//Edit: auch bei
Const web As String = TextBox1.text

[L!x]

Heißt deine Textbox wo der Link drin ist "TextBox1"?


Dim link As String = TextBox1.Text
Dim HTMLQuelltext As String
Dim web As String = link

Warum so Komplitziert?

Mach doch einfach ..

Dim HTMLQuelltext As String
Dim web As String = TextBox1.Text

[th3p0is0n]

ja die heißt TextBox1

Folgender fehler kommt immer ^^

http://www.xup.in/exec/ximg.php?fid=18817579

[Archy]

Was spricht eigtl. gegen WebClient.DownloadData ?

[Apfel]

Hier mein Code:

Imports System.Net, System.IO
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim path As String = "C:\irgendwas\dateiname.txt"
            Dim link As String = TextBox1.Text
            Dim request As HttpWebRequest = WebRequest.Create(link)
            Dim response As HttpWebResponse = request.GetResponse
            Dim reader As StreamReader = New StreamReader(response.GetResponseStream)
            My.Computer.FileSystem.WriteAllText(path, reader.ReadToEnd, True)
            End Sub
End Class 

Edit: um mögliche Fehler auszuschließen am besten alles auch noch in einen Try ... Catch-Block setzen.

Und zu deinem Fehler:
Es könnte auch davon kommen, dass du die Website gleich im Form1_Load Event aufrufst, jedoch müsste erst ein Link in die Textbox1 eingegeben werden. Ändere es doch so, dass du beim Button1_Click Event die Homepage erst aufrufst.
Gruß Apfel