WebkitBrowser Programm wird angehalten.

ProDielerNR(1) · 03/27/2022, 19:57

Ich hab vor kurzem bemerkt das der WebkitBrowser evt das sein könnte
wonach ich gesucht habe.
Nun Folgendes Problem, aus irgendeinem Grund hält es mein Programm an.
Und es gibt keine fehler Meldungen.
was es mir um so schwieriger macht heraus zu finden woran es liegt.
Ich hab die dll in die tolbox importiert und die restlichen datein in den debug Ordner und dann munter gecodet mit der eigenschaft cpu x64 bit.

Code:

Public Class Form1
    Public WithEvents browser As New WebKit.WebKitBrowser
    Public WithEvents Txt As New TextBox
    Public WithEvents BGO As New Button
    Public WithEvents BN As New Button
    Public WithEvents BB As New Button


    Public Sub New()


        MinimumSize = New System.Drawing.Size(1024, 768)
        Size = New Size(1024, 768)
        StartPosition = FormStartPosition.CenterScreen
        Text = "Browser"
        DoubleBuffered = True
        BackColor = Color.Black


        Me.browser = New WebKit.WebKitBrowser()

        browser.Size = New Size(1021, 700)
        browser.Location = New Point(0, 30)
        Me.Controls.Add(browser)

        Me.browser.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or
        System.Windows.Forms.AnchorStyles.Right Or
        System.Windows.Forms.AnchorStyles.Left Or
        System.Windows.Forms.AnchorStyles.Bottom), System.Windows.Forms.AnchorStyles)





        browser.BringToFront()



        BGO = New Button()
        BGO.Size = New Size(35, 25)
        BGO.Location = New Point(950, 5)
        Me.Controls.Add(BGO)
        BGO.ForeColor = Color.OrangeRed
        BGO.BackColor = Color.Black
        Me.BGO.Font = New System.Drawing.Font("Arial", 10.0!,
        System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,
        CType(0, Byte))
        BGO.Text = "Go"
        BGO.BringToFront()

        Me.BGO.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or
            System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)


        BB = New Button()
        BB.Size = New Size(30, 25)
        BB.Location = New Point(900, 5)
        Me.Controls.Add(BB)
        BB.ForeColor = Color.OrangeRed
        BB.BackColor = Color.Black
        Me.BB.Font = New System.Drawing.Font("Arial", 10.0!,
        System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,
        CType(0, Byte))
        BB.Text = "<-"
        BB.BringToFront()

        Me.BB.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or
            System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)

        BN = New Button()
        BN.Size = New Size(30, 25)
        BN.Location = New Point(925, 5)
        Me.Controls.Add(BN)
        BN.ForeColor = Color.OrangeRed
        BN.BackColor = Color.Black
        Me.BN.Font = New System.Drawing.Font("Arial", 10.0!,
        System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,
        CType(0, Byte))
        BN.Text = "->"
        BN.BringToFront()

        Txt = New TextBox()
        Txt.Size = New Size(115, 30)
        Txt.Location = New Point(785, 6)
        Me.Controls.Add(Txt)
        Me.Txt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or
            System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Txt.ForeColor = Color.OrangeRed
        Txt.BackColor = Color.Black
        Me.Txt.Font = New System.Drawing.Font("Arial", 10.0!,
        System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,
        CType(0, Byte))
        Txt.Text = "URL hier eingeben"
        Txt.BringToFront()
        Me.BN.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or
            System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)


        browser.Navigate("Google.de")
    End Sub

    Private Sub BGO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BGO.Click

        If Txt.Text = "" Then
            MsgBox("Gib eine url ein du sau")
        ElseIf Txt.Text = "URL hier eingeben" Then
            MsgBox("Bro Url?")
        Else
            browser.Navigate(Txt.Text.ToString)
        End If
    End Sub
    Private Sub BB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BB.Click
        browser.GoBack()
    End Sub
    Private Sub BN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BN.Click
        browser.GoForward()
    End Sub

    Private Sub Txt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txt.Click
        Txt.Text = ""
    End Sub

    Private Sub Txt_KeyDown(sender As Object, e As KeyEventArgs) Handles Txt.KeyDown

        Select Case e.KeyCode
            Case Keys.Enter
                If Txt.Text = "" Then
                    MsgBox("Gib eine url ein du sau")
                ElseIf Txt.Text = "URL hier eingeben" Then
                    MsgBox("Bro Url?")
                Else
                    e.SuppressKeyPress = True
                    browser.Navigate(Txt.Text.ToString)
                End If

                Exit Select
        End Select
    End Sub
End Class

Wäre nett wen noch irgendwer hier aktiv ist mir helfen würde

Edit;
Wen ich jedoch einen normalen Webbrowser von vb anspreche funktioniert alles.