[VB] Webbrowser Seite Speichern auf Festplatte

[maxasoft]

Hallo Coders ich hab 2 fragen zu meinem webbrowser:

1. Was bedeutet das False bzw. True am ende des Codes hinter dem Komma:

My.Computer.FileSystem.WriteAllText(file + ".html", RichTextBox1.Text, False)

??

2. Ich hab hier mal den kommpletten Code vom Webbrowser:

Public Class Form1
    Dim seite As String
    Dim file As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RichTextBox1.Text = WebBrowser1.DocumentText
        SaveFileDialog1.ShowDialog()
        IO.File.Create(SaveFileDialog1.FileName + ".html")
        file = SaveFileDialog1.FileName
        SaveFileDialog1.FileName = ""
        My.Computer.FileSystem.WriteAllText(file + ".html", RichTextBox1.Text, False)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("www.google.com")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        OpenFileDialog1.ShowDialog()
        WebBrowser1.Navigate(OpenFileDialog1.FileName)
    End Sub

    Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyCode = Keys.Enter Then
            Button3.PerformClick()
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        WebBrowser1.Navigate(TextBox1.Text)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        textbox1.text = e.Url.ToString
    End Sub
End Class

Wenn ich jetzt debugge und dann eine Seite speichern will kommt diese Meldung: Der Prozess kann nicht auf die Datei "C:\Users\user\Desktop\html\texst.html" zugreifen, da sie von einem anderen Prozess verwendet wird.

Ich vermute, das der Fehler im Sub vom Button1 ist

Was ist am Code falsch??

Danke im Vorraus

[ЙôČhěάŧĪмPĞM-hacked]

No you have already lunch this file

[Kraizy​]

Originally Posted by maxasoft

Was bedeutet das False bzw. True am ende des Codes hinter dem Komma

Die IntelliSense gibts nicht umsonst..

[ЙôČhěάŧĪмPĞM-hacked]

I have work for you

Public Class Form1
    Dim seite As String
    Dim file As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RichTextBox1.Text = WebBrowser1.DocumentText
        

    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("www.google.com")
        Button5.Hide()
        WebBrowser2.Navigate("www.google.com")
        WebBrowser2.Hide()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        OpenFileDialog1.ShowDialog()
        WebBrowser1.Navigate(OpenFileDialog1.FileName)
    End Sub

    Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyCode = Keys.Enter Then
            Button3.PerformClick()
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        WebBrowser1.Navigate(TextBox1.Text)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        textbox1.text = e.Url.ToString
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        RichTextBox1.Hide()
        Button5.Show()
        Button4.Hide()
        WebBrowser1.Hide()
        WebBrowser2.show()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        RichTextBox1.Show()
        Button4.Show()
        Button5.Hide()
        WebBrowser1.Show()
        WebBrowser2.Hide()
    End Sub

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

    End Sub
End Class

Screen 1 with Richtextbox :



Screen 2 without Richtextbox :

[MoepMeep]

Dieser MSDN artikel sollte dir helfen

@special character kid You did complete bullshit again.

[ЙôČhěάŧĪмPĞM-hacked]

No my program work !