RegAutostart 1.1 [Last Update 07.11]

    • Release

    Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Dancger.

      RegAutostart 1.1 [Last Update 07.11]

      Beschreibung:
      Diese DLL habe ich gerade geschrieben, da ich bei fast allen meinen Programmen die Autostartfunktion per Registry brauche.
      Ermöglicht das einfache aktivieren und deaktivieren vom Autostart eines Programmes. Ausserdem kann man sich zwischen dem Autostart nur für den Benutzer oder für den ganzen Computer entscheiden.

      Screenshot:


      Anforderungen:
      Microsoft .NET Framework Version 2.0

      Informationen:
      Entwicklungsumgebung: Visual Basic 2008 Express Edition
      Aktuelle Version: 1.1

      Versionen:
      • Version 1.0 [Funktionen]
        • Autostart für alle Benutzer aktivieren / deaktivieren
        • Autostart für aktuellen Benutzer aktivieren / deaktivieren

      • Version 1.1 [Funktionen]
        • Autostart mit optionalen Parametern
      Download
      Todo
      • Eigene Parameter [Version 1.1]
      Lizenz


      Mfg Dancger

      *Topic verschoben*
      MESS WITH THE BEST, DIE LIKE THE REST! :evil:
      n'paar Links: DNS Tools, Steal WA DB, Droidsheep...

      Dieser Beitrag wurde bereits 7 mal editiert, zuletzt von „Dancger“ ()

      Sicher, dass hier ein CC-BY-ND nötig ist ? Ansonsten könntest du das Ganze lieber in den Sourcecodeaustausch packen. Hast du mehr von.

      Warum habe die Funktionen keine Parameter ? Ich würde ja gerne meine eigenen Angaben machen (evtl. auch die .exe).

      Mangafreak1995 schrieb:

      Sicher, dass hier ein CC-BY-ND nötig ist ? Ansonsten könntest du das Ganze lieber in den Sourcecodeaustausch packen. Hast du mehr von.

      Imho ja. Mir ging's darum nicht immer diesen Code schreiben zu müssen. Mit der DLL brauch ich 2 Zeilen (Import & Anweisung).

      Mangafreak1995 schrieb:

      Warum habe die Funktionen keine Parameter ? Ich würde ja gerne meine eigenen Angaben machen (evtl. auch die .exe).

      Stimmt, gute Idee. Wird bei Version 1.1 eingebaut.

      Mfg Dancger
      MESS WITH THE BEST, DIE LIKE THE REST! :evil:
      n'paar Links: DNS Tools, Steal WA DB, Droidsheep...

      @sirgiuseppe
      Du hast Glück, ich hab das Projekt noch von einem der ältesten Backups.

      Der Code ist zwar schon älter, ab er tat seinen Zweck.

      Hier ist der Sourcecode:

      VB.NET-Quellcode

      1. Imports System.IO
      2. Imports Microsoft.Win32
      4. Public Class RegAutostart
      6. #Region "Enums"
      8. '//Enum
      9. Public Enum Role
      10. User = 0
      11. System = 1
      12. End Enum
      14. #End Region
      16. #Region "Variablen"
      18. '//Variablen
      19. Private Shared Path_Program As String = Nothing
      20. Private Shared Application_Name As String = Nothing
      21. Private Shared Registry_Base As RegistryKey = Nothing
      22. Private Shared Registry_Key As RegistryKey = Nothing
      24. #End Region
      26. #Region "Konstruktor"
      28. '//Konstruktor
      29. Public Sub New()
      31. '//Programmpfad laden
      32. Path_Program = System.Reflection.Assembly.GetEntryAssembly.Location
      33. 'System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase)
      35. '//Programmnamen laden
      36. Dim location As String = System.Environment.GetCommandLineArgs()(0)
      37. Application_Name = System.IO.Path.GetFileName(location)
      39. End Sub
      41. #End Region
      43. #Region "Methoden"
      45. Public Shared Function removeAutostart()
      46. Try
      48. '//Computer
      49. Registry_Base = Registry.LocalMachine
      50. Registry_Key = Registry_Base.OpenSubKey(Application_Name, True)
      51. Registry_Key.DeleteValue(Application_Name)
      53. '//Benutzer
      54. Registry_Base = Registry.CurrentUser
      55. Registry_Key = Registry_Base.OpenSubKey(Application_Name, True)
      56. Registry_Key.DeleteValue(Application_Name)
      58. Return True
      59. Catch ex As Exception
      60. Return False
      61. End Try
      62. End Function
      64. Public Shared Function setAutostart(ByVal role As Role, Optional ByVal param As String = "") As Boolean
      65. Try
      66. Select Case role
      67. Case RegAutostart.Role.System
      68. Registry_Base = Registry.LocalMachine
      69. Registry_Key = Registry_Base.OpenSubKey(Application_Name, True)
      70. Registry_Key.SetValue(Application_Name, Path_Program & IIf(param = "", "", " " & param))
      71. Case RegAutostart.Role.User
      72. Registry_Base = Registry.CurrentUser
      73. Registry_Key = Registry_Base.OpenSubKey(Application_Name, True)
      74. Registry_Key.SetValue(Application_Name, Path_Program & IIf(param = "", "", " " & param))
      75. End Select
      76. Return True
      77. Catch ex As Exception
      78. Return False
      79. End Try
      80. Return False
      81. End Function
      83. Public Shared Function getAutostart(ByVal role As Role) As Boolean
      84. Try
      85. Select Case role
      86. Case RegAutostart.Role.System
      87. Registry_Base = Registry.LocalMachine
      88. Registry_Key = Registry_Base.OpenSubKey(Application_Name, True)
      89. Return If(Registry_Key.GetValue(Application_Name) = "", False, True)
      90. Case RegAutostart.Role.User
      91. Registry_Base = Registry.CurrentUser
      92. Registry_Key = Registry_Base.OpenSubKey(Application_Name, True)
      93. Return If(Registry_Key.GetValue(Application_Name) = "", False, True)
      94. End Select
      95. Catch ex As Exception
      96. Return False
      97. End Try
      98. Return False
      99. End Function
      101. #End Region
      103. End Class


      Falls du nur die .dll möchtest, hier kannst du sie herunterladen:

      RegAutostart.dll

      Greez
      Dancger
      MESS WITH THE BEST, DIE LIKE THE REST! :evil:
      n'paar Links: DNS Tools, Steal WA DB, Droidsheep...

    Facebook
    Telefonspende