Webbrowser will nicht starten

  • VB.NET

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von gfcwfzkm.

    Webbrowser will nicht starten

    Hi, ich hab ein Problem...

    Mein Browser will wirklich nirgends ausser auf meinem PC starten. Das versteh ich nicht...
    Vielleicht könnt ihr mir helfen.
    Ich verwende .net 3.5 und Krypton Toolkit.
    GesiBrowser v2

    ("Bin nicht sicher, ob es hier gehört, fals nicht, bitte verschieben")

    thx im vorraus...


    gfcwfzkm

    Haben die anderen Rechner auch Net.Framework 3.5 oder höher ??

    Für alle VB Programme muss NetFramework vorhanden sein soviel ich weiss.

    Wenn du die .exe Datei starten tust mittels Doppelklick bekommst du dann eine Meldung auf deinem Bildschirm angezeigt ??

    Also es kommt:
    Das Programm reagiert nicht. - Fenster

    Also, bei mir reagiert's eins A...

    Also tut sich das Fenster öffnen friert ein und gibt keine Rückmeldung ?

    genau. Es öffnet sich nicht einmal. Also bevor das fenster erst kommt, regiert es schon net mehr...

    Hast du es als Administrator ausgeführt oder als normaler Benutzer ??

    einmal als administrator...

    Aber nen Webbrowser muss man ja nicht als admin ausführen...

    Geht es bei dir?

    Ich habe NetFramework 4 also sollte es bei mir laufen dies ist aber nicht der Fall.

    Hast du die Applikation auch erstellt ??
    Projekt --> Dein Projektname erstellen

    Poste mal deinen Code.

    //Dies ist nun an einen Moderator gerichtet//
    Bitte Verschieben in Grundlagen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim AktiverBrowser As Module1.ExtendedWebBrowser
    3. Dim StrgGedrückt As Boolean = False
    4. Dim PressTime As Integer
    5. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer
    6. Dim Taste As Integer
    7. Dim Startseite As String = My.Settings.Startseite
    9. #Region "Tab/Browser/Modul/Taste/Ladefortschritt"
    10. Private Sub LesezeichenAuslesen()
    11. Me.ComboBox1.Items.Clear()
    12. Dim AlleEinträge() As String = Split(My.Settings.Lesezeichen, "||")
    13. For i = 0 To (AlleEinträge.Length - 1)
    14. If AlleEinträge(i) <> "" Then
    15. Me.ComboBox1.Items.Add(AlleEinträge(i))
    16. End If
    17. Next
    18. End Sub
    20. Private Sub ProgressChangedSub(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs)
    21. Try
    22. Me.ToolStripProgressBar1.Maximum = e.MaximumProgress
    23. Me.ToolStripProgressBar1.Value = e.CurrentProgress
    24. Catch
    25. Me.ToolStripProgressBar1.Value = 0
    26. End Try
    27. End Sub
    29. Private Sub NeuesFenster(ByVal sender As Object, ByVal e As WebBrowserNewWindowExtendedEventArgs)
    30. e.Cancel = True
    31. Dim url As String = e.Url
    32. AddTab("Neuer Tab...", url)
    33. End Sub
    35. Private Sub StrgTTastendruck(ByVal sender As Object, ByVal e As System.Windows.Forms.PreviewKeyDownEventArgs)
    36. If My.Computer.Keyboard.CtrlKeyDown = True Then
    37. For i = 0 To 255
    38. Taste = GetAsyncKeyState(i)
    39. If Taste = -32767 And i = 84 Then
    40. AddTab("Neuer Tab", "about:blank")
    41. End If
    42. Next
    43. End If
    44. End Sub
    46. Private Sub BrowserFertig()
    47. If Not AktiverBrowser.DocumentTitle.ToString = Nothing Then
    48. Me.TabControl1.SelectedTab.Text = AktiverBrowser.DocumentTitle
    49. TextBox2.Text = AktiverBrowser.Url.ToString
    50. My.Settings.Chronik.Add(AktiverBrowser.Url.ToString)
    51. End If
    52. End Sub
    54. Private Sub BrowserSeiteLaden()
    55. Me.TabControl1.SelectedTab.Text = "Laden"
    56. End Sub
    58. Public Sub AddTab(ByVal name As String, ByVal url As String)
    59. Dim tab As TabPage = New TabPage(name)
    60. Dim wb As ExtendedWebBrowser = New ExtendedWebBrowser
    61. wb.ScriptErrorsSuppressed = True
    62. wb.Navigate(url)
    63. wb.Dock = DockStyle.Fill
    64. tab.Controls.Add(wb)
    65. AddHandler wb.DocumentCompleted, AddressOf BrowserFertig
    66. AddHandler wb.Navigating, AddressOf BrowserSeiteLaden
    67. AddHandler wb.PreviewKeyDown, AddressOf StrgTTastendruck
    68. AddHandler wb.NewWindowExtended, AddressOf NeuesFenster
    69. AddHandler wb.ProgressChanged, AddressOf ProgressChangedSub
    70. Me.TabControl1.TabPages.Add(tab)
    71. Me.TabControl1.SelectedTab = tab
    72. Me.TextBox2.Focus()
    73. End Sub
    75. Public Sub GetAktiverBrowser()
    76. Try
    77. For Each wb As ExtendedWebBrowser In Me.TabControl1.SelectedTab.Controls
    78. wb.ScriptErrorsSuppressed = True
    79. AktiverBrowser = wb
    80. Exit For
    81. Next
    82. Catch
    83. End Try
    84. End Sub
    85. #End Region
    87. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    88. AddTab("neuer Tab...", "about:blank")
    89. GetAktiverBrowser()
    90. End Sub
    92. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    93. GetAktiverBrowser()
    94. AktiverBrowser.GoBack()
    95. End Sub
    97. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    98. GetAktiverBrowser()
    99. AktiverBrowser.GoForward()
    100. End Sub
    102. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    103. GetAktiverBrowser()
    104. AktiverBrowser.Navigate(TextBox2.Text)
    105. End Sub
    107. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    108. GetAktiverBrowser()
    109. Dim SelectedTabIndex As Integer
    110. SelectedTabIndex = Me.TabControl1.SelectedIndex
    111. AktiverBrowser.DocumentText = Nothing
    112. Me.TabControl1.TabPages.Remove(Me.TabControl1.SelectedTab)
    113. GetAktiverBrowser()
    114. End Sub
    116. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    117. Try
    118. AddTab("Neuer Tab...", Startseite)
    119. GetAktiverBrowser()
    120. Me.TextBox2.Text = Startseite
    121. Catch
    122. MsgBox("Keine Internetverbindung vorhanden", MsgBoxStyle.Information, "Error")
    123. End Try
    124. End Sub


    Das ist so das Wichtigste von Browser...
    Ich kapier den fehler nicht...

    Edit:// Könnte es am Krypton Design Toolkit liegen?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „gfcwfzkm“ ()

    oh, danke.

    Jetzt funzt's ;)

    Edit:// Sry, aber welche Dll, und wo ist diese?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „gfcwfzkm“ ()

Facebook