[FRAGE]Vb 08 Datei in Autostart

01/12/2011 20:00 Firework#1
Ich würde gerne ne Datei in den Ressource in den Autostart verschieben lassen. Also wenn die Form startet.

Ist nicht für keylogger etc. ist dafür da das er die Hostverbindung am anfang ausführen soll. Also n Programm was ne verbidung mit meinem Upate server herstellt.
01/12/2011 20:13 xNopex#2
Code:
Imports Microsoft.Win32
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text


''' <summary>
''' Utility.
''' </summary>
Public Class Util
    Private Const RUN_LOCATION As String = "Software\Microsoft\Windows\CurrentVersion\Run"

    ''' <summary>
    ''' Sets the autostart value for the assembly.
    ''' </summary>
    ''' <param name="keyName">Registry Key Name</param>
    ''' <param name="assemblyLocation">Assembly location (e.g. Assembly.GetExecutingAssembly().Location)</param>
    Public Shared Sub SetAutoStart(ByVal keyName As String, ByVal assemblyLocation As String)
        Dim key As RegistryKey = Registry.CurrentUser.CreateSubKey(RUN_LOCATION)
        key.SetValue(keyName, assemblyLocation)
    End Sub

    ''' <summary>
    ''' Returns whether auto start is enabled.
    ''' </summary>
    ''' <param name="keyName">Registry Key Name</param>
    ''' <param name="assemblyLocation">Assembly location (e.g. Assembly.GetExecutingAssembly().Location)</param>
    Public Shared Function IsAutoStartEnabled(ByVal keyName As String, ByVal assemblyLocation As String) As Boolean
        Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey(RUN_LOCATION)
        If key Is Nothing Then
            Return False
        End If

        Dim value As String = DirectCast(key.GetValue(keyName), String)
        If value Is Nothing Then
            Return False
        End If

        Return (value = assemblyLocation)
    End Function

    ''' <summary>
    ''' Unsets the autostart value for the assembly.
    ''' </summary>
    ''' <param name="keyName">Registry Key Name</param>
    Public Shared Sub UnSetAutoStart(ByVal keyName As String)
        Dim key As RegistryKey = Registry.CurrentUser.CreateSubKey(RUN_LOCATION)
        key.DeleteValue(keyName)
    End Sub
End Class
Klasse stammt nicht von mir. Iwann man über Google gefunden und in VB übersetzt.

Usage:
Code:
Util.SetAutoStart("MeinProgramm", pfadZurExe)
01/12/2011 20:16 Firework#3
Geht net -.-

Also imports ganz oben wird als fehlerhaft angezeigt und registrykey
01/12/2011 20:24 xNopex#4
Interessant. Dann zeig mir doch mal ein Bildchen von deinen Fehlern. Ich könnte natürlich auch versuchen durch meine Telepatischen Fähigkeiten zu erraten, wie deine Bildschirmausgabe aussieht...
Vllt. fehlen dir einfach die entsprechenden Verweise, wenn die Imports so schön unterkringelt sind. Evtl. hinzufügen.
01/13/2011 15:01 bestora#5
arbeite so
Setzt eine Datei an einen guten platzt schön versteckt wie z.b. %appdata%\blabla\datei.data

und dann musst du versuchen die Registrierungseinträge so zu verändern das der dann diesen path als Autostart mitöffnet
01/13/2011 17:42 Al Kappaccino#6
Quote:
Originally Posted by Firework View Post
Ich würde gerne ne Datei in den Ressource in den Autostart verschieben lassen. Also wenn die Form startet.

Ist nicht für keylogger etc. Nein gar nicht... ist dafür da das er die Hostverbindung am anfang ausführen soll. Also n Programm was ne verbidung mit meinem Upate server herstellt. Genau, keine Ahnung von Autostart aber sowas..
Srsly ich finde es einfach nur dreist, einfach irgendeinen Code zu verlangen, nur weil du selber zu faul bist
1. Die Sprache zu lernen (Nicht einmal Grundlagen kannst du...)
oder
2. Google zu benutzen (Selbst das scheint dir zuviel sein)

Zeig doch mal was du bisher geschrieben hast, dann kann man dir Vorschläge machen.