[VB] Webbrowser Seite Speichern auf Festplatte

07/02/2012 17:39 maxasoft#1
Hallo Coders ich hab 2 fragen zu meinem webbrowser:

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

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

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

Code:
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 ;)
07/02/2012 21:18 ЙôČhěάŧĪмPĞM-hacked#2
No you have already lunch this file
07/02/2012 21:29 Kraizy​#3
Quote:
Originally Posted by maxasoft View Post
Was bedeutet das False bzw. True am ende des Codes hinter dem Komma
Die IntelliSense gibts nicht umsonst..
07/04/2012 02:23 ЙôČhěάŧĪмPĞM-hacked#4
I have work for you ;)

Code:
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 :

[Only registered and activated users can see links. Click Here To Register...]

Screen 2 without Richtextbox :

[Only registered and activated users can see links. Click Here To Register...]
07/04/2012 14:40 MoepMeep#5
Dieser MSDN artikel sollte dir helfen [Only registered and activated users can see links. Click Here To Register...]

@special character kid You did complete bullshit again.
07/04/2012 21:07 ЙôČhěάŧĪмPĞM-hacked#6
No my program work !