Eigenes Programm stürtzt ab

  • VB.NET

Es gibt 21 Antworten in diesem Thema. Der letzte Beitrag () ist von Jopi-Dev.

    Eigenes Programm stürtzt ab

    Hallo liebe User,

    ich habe folgendes Problem:

    Ich habe ein Programm geschrieben das Videos aus dem Internet einbindet und dieses an 5 Leute weitergegeben.

    Alle die Windows Vista oder Windows 7 haben, sagten mir es funktioniere einwandfrei. Bei Windows Xp kommt jedoch schon direkt nach dem Doppelklick auf die .exe, die meldung:

    "Programmname hat ein Problem festegestellt und muss beendet werden"

    woran liegts?


    mfg Lucky66

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Lucky66“ ()

    art des programms

    anhand von buttons werden besstimmte urls in den webbrowser1 geladen,außerdem gibt es einen 2. in dem eine seite angezeigt wird bei der bis zu dem element user_login gescroltl wird,damit man sich dort einloggen kann.eine picturebox , n bischen text. joa, das wars schon

    api funktionen

    glaube nciht:

    Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    4. Do While WebBrowser2.ReadyState <> WebBrowserReadyState.Complete
    5. Application.DoEvents()
    6. Loop
    7. If (WebBrowser2.Document.GetElementById("user_login") IsNot Nothing) Then
    8. WebBrowser2.Document.GetElementById("user_login").ScrollIntoView(True)
    9. End If
    10. If (WebBrowser2.Document.GetElementById("usermgmt_stem") IsNot Nothing) Then
    11. WebBrowser2.Navigate("Zensiert")
    12. End If
    13. Me.AutoScroll = True
    14. End Sub
    16. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    17. WebBrowser1.Visible = False
    18. WebBrowser1.Navigate("about:blank")
    19. AxWindowsMediaPlayer1.URL = "Zensiert"
    20. End Sub
    22. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    23. WebBrowser1.Visible = True
    24. AxWindowsMediaPlayer1.URL = ""
    25. WebBrowser1.Navigate("Zensiert")
    26. End Sub
    28. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    29. WebBrowser1.Visible = True
    30. AxWindowsMediaPlayer1.URL = ""
    31. WebBrowser1.Navigate("Zensiert")
    32. End Sub
    34. Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    35. WebBrowser1.Visible = True
    36. AxWindowsMediaPlayer1.URL = ""
    37. WebBrowser1.Navigate("Zensiert")
    38. End Sub
    40. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    41. WebBrowser1.Visible = False
    42. WebBrowser1.Navigate("about:blank")
    43. AxWindowsMediaPlayer1.URL = "Zensiert"
    44. End Sub
    46. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    47. WebBrowser1.Visible = True
    48. AxWindowsMediaPlayer1.URL = ""
    49. WebBrowser1.Navigate("Zensiert")
    50. End Sub
    52. Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
    53. WebBrowser1.Visible = True
    54. AxWindowsMediaPlayer1.URL = ""
    55. WebBrowser1.Navigate("Zensiert")
    56. End Sub
    58. Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
    59. WebBrowser1.Visible = True
    60. AxWindowsMediaPlayer1.URL = ""
    61. WebBrowser1.Navigate("Zensiert")
    62. End Sub
    64. Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
    65. WebBrowser1.Visible = True
    66. AxWindowsMediaPlayer1.URL = ""
    67. WebBrowser1.Navigate("Zensiert")
    68. End Sub
    70. Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
    71. WebBrowser1.Visible = True
    72. AxWindowsMediaPlayer1.URL = ""
    73. WebBrowser1.Navigate("Zensiert")
    74. End Sub
    76. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    77. WebBrowser1.Visible = True
    78. AxWindowsMediaPlayer1.URL = ""
    79. WebBrowser1.Navigate("Zensiert")
    80. End Sub
    82. Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
    83. WebBrowser1.Visible = True
    84. AxWindowsMediaPlayer1.URL = ""
    85. WebBrowser1.Navigate("Zensiert")
    86. End Sub
    87. End Class

    Setup

    Ich nehme an, dass du das Programm
    entweder
    • Nur als die Exe
    oder
    • mit dem Setup, welches VisualBasic automatisch erstellt
    ausgeliefert hast.
    Ich weiß nicht, ob es daran liegen könnte. aber das ist irgend eine spezielle art von dateiextension oder so.

    Probiers mal mit 'nem Richtigen Setup,
    beispielsweise mit
    dem kostenlosen Setup-Programm InnoSetup
    Der fragt dich beim Programmstart, wied u das Setup erstellen willst.
    Wähle
    • Create a new Setup File using the Script-Wizard
    Der Rest ist selbsterklärend.
    Gib dann die Exe die dabei herauskommt weiter.

    (Bei Main Executable File wählst du die Exe aus, die in der Projektmappe liegt
    C:\Users\Dein_Name\Documents\VisualStudio 2008 / 2010\Projects\Projektname\bin\debug\programm.exe)

    Naja!
    Ich persönlich benutze VisualStudio.
    Da kann man das .NET Framework einstellen.
    Aber du sagtest ja, dass alle die neuste Version haben!?!


    Fazit:

    XP ist einfach zu alt.
    Ich sags eigentlich jedem, der's hören will:

    Kauft Windows 7! Ihr macht GARANTIERT nichts verkehrt!

    Und wenn's dann doch mal brennt, kann man XP
    als Virtuelle Maschine einrichten
    (für Programme, die nicht auf 7 laufen - ja, das gibt's auch!)
    Google mal nach "XP Mode"!

    Was benutzt du eigendlich aus dem FW 4?

    so wie ich das sehe könntest du das FW etwas runterdrehen (im projektmappen explorer auf my project, dann auf kompilieren, erweitetert ;)), vllt. geht es dann, oder wie die vorposter gesgagt haben die DLL mitliefern

Facebook
Telefonspende