I recently had the idea to make a tool for you guys who dont know how to add something to the startup directory 😏
It's just a fun project though.🤣
Virustotal: h t t p s :// w w w . virustotal. com/de/file/bd20065ebd5d5894a8bfe0759e696fb5e48062ee81294ec5cf1bbf01046cb11f/analysis/1425222160/
Tutorial:
- Type in the name you want the Startup File to have in the Regsitry [NEEDED!]
- Go to "{ FILE }" and open it
- Choose your executable and click "Save"
- Proceed at the override point
Done! 🤗
------
h t t p s : // w w w . dropbox .com / s /1lkoh2y1csi9tbd/ StartupAdder . exe ? dl= 1
------
Source Code:
Public Class Form1
Public Shared Sub StartupDir(ByVal Name As String, ByVal Path As String)
Dim Registry As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
Dim Key As Microsoft.Win32.RegistryKey = Registry.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
Key.SetValue(Name, Path, Microsoft.Win32.RegistryValueKind.String)
End Sub
Public Shared Function AddStartup(ByVal Name As String, ByVal Path As String)
Dim Registry As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
Dim Key As Microsoft.Win32.RegistryKey = Registry.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
Key.SetValue(Name, Path, Microsoft.Win32.RegistryValueKind.String)
End Function
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Try
Dim sfd As New SaveFileDialog With {.Filter = ".exe|*.exe", .ShowHelp = True}
If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
StartupAdder.Text = sfd.FileName
StartupDir(StartupName.Text, StartupAdder.Text)
MessageBox.Show("File added to startup successfully.", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
End Try
End Sub
End Class
It's just a fun project though.🤣
Virustotal: h t t p s :// w w w . virustotal. com/de/file/bd20065ebd5d5894a8bfe0759e696fb5e48062ee81294ec5cf1bbf01046cb11f/analysis/1425222160/
Tutorial:
- Type in the name you want the Startup File to have in the Regsitry [NEEDED!]
- Go to "{ FILE }" and open it
- Choose your executable and click "Save"
- Proceed at the override point
Done! 🤗
------
h t t p s : // w w w . dropbox .com / s /1lkoh2y1csi9tbd/ StartupAdder . exe ? dl= 1
------
Source Code:
Public Class Form1
Public Shared Sub StartupDir(ByVal Name As String, ByVal Path As String)
Dim Registry As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
Dim Key As Microsoft.Win32.RegistryKey = Registry.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
Key.SetValue(Name, Path, Microsoft.Win32.RegistryValueKind.String)
End Sub
Public Shared Function AddStartup(ByVal Name As String, ByVal Path As String)
Dim Registry As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
Dim Key As Microsoft.Win32.RegistryKey = Registry.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
Key.SetValue(Name, Path, Microsoft.Win32.RegistryValueKind.String)
End Function
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Try
Dim sfd As New SaveFileDialog With {.Filter = ".exe|*.exe", .ShowHelp = True}
If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
StartupAdder.Text = sfd.FileName
StartupDir(StartupName.Text, StartupAdder.Text)
MessageBox.Show("File added to startup successfully.", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
End Try
End Sub
End Class



