Schnellstart Leiste

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Schnellstart Leiste

    Hallo zusammen

    Habe jetzt mal eine ganz doofe Frage.

    Ich habe eine Datei x. Diese soll einfach durch ein Visual Basic Code an die Schnellstartleiste von Windows geheftet werden. Geht das irgendwie??

    Datei X befindet sich im selben Ordner wie dann das Programm von visual Basic

    Gruß Skyjazz

    Jupp die Seite hatte ich auch gefunden aber das geht nciht

    Es scheitert schon bei

    VB.NET-Quellcode

    1. On Local Error Resume Next



    Es kommt die Fehlermeldung


    Die Anweisungen "On GoTo" und "On GoSub" werden nicht mehr unterstützt.

    Was kann ich jetzt noch tun

    Gruß Skyjazz

    Skyjazz schrieb:

    werden nicht mehr unterstützt.
    Dann greif Dir den logischen Inhalt ab und bemühe Dich, den VB6-Kram draußen zu lassen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hallo zusammen

    Ich bekomms nicht gebacken

    Wäre jemand so nett und schreibt mir den Code entsprechend um??

    VB.NET-Quellcode

    1. Option ExplicitDim WshShell As Object
    3. ' Prüfen, ob Schnellstart-Leiste verfügbar
    4. Public Function QuickLaunch_Available() As Boolean
    6. ' Fehlerbehandlung einschalten
    7. On Local Error Resume Next
    8. QuickLaunch_Available = True
    10. Dim strFile As String
    12. ' WSH-Objekt referenzieren
    13. Set WshShell = New IWshShell_Class
    15. strFile = WshShell.SpecialFolders.Item("AppData") & _
    16. "\Microsoft\Internet Explorer\Quick Launch\" & _
    17. "Test.lnk"
    19. If Err Then
    20. ' WSH or QuickLaunch nicht verfügbar
    21. QuickLaunch_Available = False
    22. End If
    23. End Function
    26. ' Prüfen, ob Link in der Schnellstart-Leiste vorhanden
    27. Public Function QuickLaunch_LinkExists(ByVal strLinkFile _
    28. As String) As Boolean
    30. Dim strFile As String
    32. QuickLaunch_LinkExists = False
    33. If Not WshShell Is Nothing Then
    34. strFile = WshShell.SpecialFolders.Item("AppData") & _
    35. "\Microsoft\Internet Explorer\Quick Launch\" & _
    36. strLinkFile
    38. If Len(Dir(strFile)) > 0 Then
    39. ' Link existiert!
    40. QuickLaunch_LinkExists = True
    41. End If
    42. End If
    43. End Function
    46. ' Link in Schnellstart-Leiste erstellen
    47. Public Function QuickLaunch_CreateLink(ByVal strFilename _
    48. As String, ByVal strLinkFile As String, _
    49. ByVal strDescription As String) As Boolean
    51. ' Fehlerbehandlung einschalten
    52. On Local Error Resume Next
    53. QuickLaunch_CreateLink = False
    55. Dim oShellLink As IWshShortcut_Class
    56. Dim strFile As String
    58. If Not WshShell Is Nothing Then
    59. strFile = WshShell.SpecialFolders.Item("AppData") & _
    60. "\Microsoft\Internet Explorer\Quick Launch\" & _
    61. strLinkFile
    63. If Err Then
    64. ' QuickLaunch nicht verfügbar
    65. Else
    66. ' Link hinzufügen
    67. Set oShellLink = WshShell.CreateShortcut(strFile)
    68. With oShellLink
    69. .TargetPath = strFilename
    70. .Description = strDescription
    71. .Save
    72. End With
    74. If Err.Number = 0 Then
    75. QuickLaunch_CreateLink = True
    76. End If
    77. End If
    78. End If
    79. End Function
    82. ' Link in der Schnellstart-Leiste entfernen
    83. Public Function QuickLaunch_RemoveLink(ByVal strLinkFile _
    84. As String) As Boolean
    86. Dim strFile As String
    88. QuickLaunch_RemoveLink = False
    89. If Not WshShell Is Nothing THEN
    90. strFile = WshShell.SpecialFolders.Item("AppData") & _
    91. "\Microsoft\Internet Explorer\Quick Launch\" & _
    92. strLinkFile
    94. If Len(Dir(strFile)) > 0 Then
    95. ' Link existiert - also löschen
    96. Kill strFile
    97. QuickLaunch_RemoveLink = True
    98. End If
    99. End If
    100. End Function



    VB.NET-Quellcode

    1. Dim mstrLinkFile As String ' Link-DateinameDim mstrAppFile As String ' Link-Beschreibungen
    2. Dim mstrLinkDesc As String ' Programm-Dateiname
    4. ' Initialisieren
    5. Private Sub Form_Load()
    6. mnuVQuickLaunchInit
    7. End Sub
    9. ' Menü-Ereignis
    10. Private Sub mnuVQuickLaunch_Click()
    11. If mnuVQuickLaunch.Checked Then
    12. ' Link existiert - also löschen
    13. QuickLaunch_RemoveLink mstrLinkFile
    14. Else
    15. ' Link existiert nicht nicht - Erstellen!
    16. QuickLaunch_CreateLink mstrAppFile, _
    17. mstrLinkFile, mstrLinkDesc
    18. End If
    19. End Sub
    21. ' Link initialisieren
    22. Private Sub mnuVQuickLaunchInit()
    23. mstrLinkFile = App.EXEName & ".lnk"
    24. mstrAppFile = App.Path & "\" & App.EXEName & ".exe"
    25. mstrLinkDesc = App.Description
    27. If Not QuickLaunch_Available() Then
    28. ' WSH oder Schnellstart-Leiste nicht verfügbar
    29. mnuVQuickLaunch.Visible = False
    30. Else
    31. mnuVQuickLaunch.Checked = _
    32. QuickLaunch_LinkExists(mstrLinkFile)
    33. End If
    34. End Sub


    Danke schon mal

    Gruß Skyjazz

    Skyjazz schrieb:

    Wäre jemand so nett und schreibt mir den Code entsprechend um??
    Und was machst Du in der Zwischenzeit :?: :thumbdown:

    Skyjazz schrieb:

    VB.NET-Quellcode

    1. On Local Error Resume Next
    ist echt böse :!:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende