Autostart

  • VB.NET

Es gibt 29 Antworten in diesem Thema. Der letzte Beitrag () ist von Blackbird88.

    Autostart

    Hallo

    Ich brauche Hilfe und zwar:

    ich möchte, dass sich mein Programm durch klick eines buttons, von selbst in die registy einträgt, so das sich mein programm beim nächsten system start öffnet.

    Kann mir da Jemand weiterhelfen ?

    Lg

    msdn.microsoft.com/de-de/library/bb979300.aspx
    codeproject.com/KB/dotnet/csregistry01.aspx

    HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
    HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Erstmal Danke

    habe folgenden code




    VB.NET-Quellcode

    1. Private Declare Function RegOpenKeyEx Lib "advapi32.dll" _
    2. Alias "RegOpenKeyExA" ( _
    3. ByVal hKey As Long, _
    4. ByVal lpSubKey As String, _
    5. ByVal ulOptions As Long, _
    6. ByVal samDesired As Long, _
    7. phkResult As Long) As Long
    9. Private Declare Function RegCloseKey Lib "advapi32.dll" ( _
    10. ByVal hKey As Long) As Long
    12. Private Declare Function RegSetValueEx_String Lib "advapi32.dll" _
    13. Alias "RegSetValueExA" ( _
    14. ByVal hKey As Long, _
    15. ByVal lpValueName As String, _
    16. ByVal Reserved As Long, _
    17. ByVal dwType As Long, _
    18. ByVal lpData As String, _
    19. ByVal cbData As Long) As Long
    21. Private Declare Function RegDeleteValue Lib "advapi32.dll" _
    22. Alias "RegDeleteValueA" ( _
    23. ByVal hKey As Long, _
    24. ByVal lpValueName As String) As Long
    26. Public Const HKEY_CURRENT_USER = &H80000001
    27. Public Const HKEY_LOCAL_MACHINE = &H80000002
    29. Const KEY_QUERY_VALUE = &H1
    30. Const KEY_SET_VALUE = &H2
    31. Const KEY_CREATE_SUB_KEY = &H4
    32. Const KEY_ENUMERATE_SUB_KEYS = &H8
    33. Const KEY_NOTIFY = &H10
    34. Const KEY_CREATE_LINK = &H20
    35. Const KEY_ALL_ACCESS = KEY_QUERY_VALUE Or KEY_SET_VALUE _
    36. Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or _
    37. KEY_NOTIFY Or KEY_CREATE_LINK
    39. Const ERROR_SUCCESS = 0&
    41. Const REG_NONE = 0
    42. Const REG_SZ = 1
    44. ' Anwendung in Registry eintragen
    45. '
    46. ' sDescr: Beschreibung/Bezeichnung
    47. ' sPath : Pfad inkl. Dateiname der Anwendung
    48. ' ===========================================
    49. Public Function SetAutoRun(sDescr As String, _
    50. sPath As String) As Boolean
    52. Dim lResult As Long
    53. Dim KeyHandle As Long
    54. Dim Key As String
    56. Const root = HKEY_CURRENT_USER
    57. Key = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
    59. lResult = RegOpenKeyEx(root, Key, 0, KEY_ALL_ACCESS, _
    60. KeyHandle)
    61. If lResult <> ERROR_SUCCESS Then
    62. SetAutoRun = False
    63. Exit Function
    64. End If
    66. ' +1 für die Null am Ende
    67. lResult = RegSetValueEx_String(KeyHandle, sDescr, 0, _
    68. REG_SZ, sPath, Len(sPath) + 1)
    70. RegCloseKey KeyHandle
    71. SetAutoRun = (lResult = ERROR_SUCCESS)
    72. End Function
    74. ' aus Registry entfernen
    75. '
    76. ' sDescr: Beschreibung/Bezeichnung
    77. ' =================================
    78. Function RemoveAutoRun(sDescr As String) As Boolean
    79. Dim lResult As Long
    80. Dim KeyHandle As Long
    81. Dim Key As String
    83. Const root = HKEY_CURRENT_USER
    84. Key = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
    86. lResult = RegOpenKeyEx(root, Key, 0, _
    87. KEY_ALL_ACCESS, KeyHandle)
    88. If lResult <> ERROR_SUCCESS Then
    89. RemoveAutoRun = False
    90. Exit Function
    91. End If
    92. lResult = RegDeleteValue(KeyHandle, sDescr)
    93. RemoveAutoRun = (lResult = ERROR_SUCCESS)
    94. RegCloseKey KeyHandle
    95. End Function
    97. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    98. If SetAutoRun("Kran iff", "c:\Users\Blackbird\Desktop\VISUAL BASIC\Neuer Ordner\Übungen\Kran iff\Kran if\bin\Debug\Kran iff.exe") Then
    99. MsgBox("Eintrag war erfolgreich.")
    100. Else
    101. MsgBox("Eintrag war nicht erfolgreich.")
    102. End If
    104. End Sub
    105. End Class



    wenn ich jetzt auf Button1 klicke bekomm ich die meldung MsgBox("Eintrag war nicht erfolgreich.") warum ?

    Hi,

    das geht viel einfacher, siehe:

    VB.NET-Quellcode

    1. If My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", Application.ProductName, Application.ExecutablePath) IsNot Nothing Then
    2. My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", Application.ProductName, Application.ExecutablePath)
    3. End If


    Ciao...

    VB.NET-Quellcode

    1. Imports System.Security
    4. Public Class Form1
    6. Public password As SecureString = New SecureString()
    8. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    9. Me.txtUser.Text = System.Environment.UserName
    10. End Sub
    13. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    15. StartNewProcessWithAdminCredentials("C:\MeineAnwendung", Me.txtUser.Text)
    17. If My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "kran iff", "Kran iif") IsNot Nothing Then
    19. My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "kran iff", "Kran iif")
    20. End If
    22. End Sub
    26. Private Function StartNewProcessWithAdminCredentials(ByVal ExecutablePathAndName As String, _
    27. ByVal sUsername As String, _
    28. Optional ByVal StartArguments As String = "") As System.Diagnostics.Process
    31. Dim newProcessStartUpInfo As System.Diagnostics.ProcessStartInfo
    32. Dim ReturnCode As Boolean = False
    34. Try
    36. newProcessStartUpInfo = New System.Diagnostics.ProcessStartInfo(ExecutablePathAndName, StartArguments)
    37. 'XP oder hoeher (Vista = 6)
    38. If System.Environment.OSVersion.Version.Major >= 5 Then
    39. newProcessStartUpInfo.Verb = "runas"
    40. newProcessStartUpInfo.UseShellExecute = False
    41. newProcessStartUpInfo.Password = password
    42. newProcessStartUpInfo.UserName = sUsername
    43. Return System.Diagnostics.Process.Start(newProcessStartUpInfo)
    44. Else
    46. Return System.Diagnostics.Process.Start(newProcessStartUpInfo)
    48. End If
    49. Catch ex As Exception
    50. MsgBox(ex.Message)
    51. Return Nothing
    52. End Try
    53. End Function
    57. Private Sub txtPass_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtPass.Enter
    58. password.Clear()
    59. End Sub
    61. Private Sub txtPass_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPass.KeyPress
    62. Select Case Asc(e.KeyChar)
    63. Case 33 To 126
    64. password.AppendChar(ChrW(Asc(e.KeyChar)))
    65. Case Else
    66. e.Handled = True
    67. End Select
    68. End Sub
    70. End Class


    So hab ich es probiert

    ja ich bin als administrator angemdet

    Stellen Sie sicher ,dass sie über ausreichende Berechtigungen für den Zugriff auf diese Ressource verfügen

    Stellen Sie beim zugreifen auf eine Datei sicher,dass diese nicht schreibgeschütz ist . " Ist sie nicht "

    Probiers mal mit dem Code(autostart zu erstellen)

    VB.NET-Quellcode

    1. Dim key As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Run")
    3. key.SetValue(My.Application.Info.Title, """" & System.Reflection.Assembly.GetEntryAssembly.Location & """")

    bei mir geht er. (Win7 32 Bit)

    @Blackbird88
    muss man da nicht den schlüssel HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run nehmen?

    lg Gugi

    edit by kevin89: ein volles Quote ist hier nicht notwendig!

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

    jvbsl schrieb:

    beides sind(wie von mir bereits gepostet) richtige Schlüssel, das eine ist jedoch für den aktuellen Benutzer und das andere für alle ;)

    muss man nicht wenn man nicht wenn man den schlüssel HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run verwendet, unter projekt -> eigenschaften -> einstellungen für die benutzerkontensteuerung, die zeile

    Quellcode

    1. <requestedExecutionLevel level="asInvoker" uiAccess="false" />

    durch

    Quellcode

    1. <requestedExecutionLevel level="highestAvailable" uiAccess="false" />

    ersetzen?
    bei dem HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run muss man ja nur

    Quellcode

    1. <requestedExecutionLevel level="requireAdministrator" uiAccess="false" />

    schreiben, oder?

    lg Gugi

Facebook