C# - VB.NET Programı Windows Başlangıcına Eklemek ve Kaldırmak

Ogehan' Alıntı:

Eline sağlık

Genişletmek için tıkla ...

Maveraün Nehr' Alıntı:

Konu güzel bu tarz işlemler önemli. Bir de melt yani eritme kodu vardı hatırlar mısın bilmem hani tıklayınca aniden kapanıp kendini başka klasöre kopyalayan sonra da orada işlemlerine devam ettiren kod dizini RAT serverlerinde olduğu gibi bunun vb6 versiyonu çok vardı zamanında acaba siz de benzer işlemleri bu dillerde yaptırabilir misiniz?

Genişletmek için tıkla ...

My.Computer.FileSystem.CopyFile(Application.ExecutablePath, "C:\Users\" & Environment.UserName & "\appdata\local\temp\dosyaninyeniadi.exe", True)

DarkEmir' Alıntı:

Kod:

My.Computer.FileSystem.CopyFile(Application.ExecutablePath, "C:\Users\" & Environment.UserName & "\appdata\local\temp\dosyaninyeniadi.exe", True)

Şu şekilde bir kod geldi aklıma ama sistem yeniden başlayıncaya dek ana dosyadan çalışmaya devam ediyor düzeltmeyi denedim ama başka bir işlem tarafından kullanılıyor gibi bir hata aldım

Genişletmek için tıkla ...

Imports System.Diagnostics
Imports System.IO
Imports System.Security.Principal
Imports Microsoft.VisualBasic.FileIO

Module Module1
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (
        ByVal hwnd As IntPtr,
        ByVal lpOperation As String,
        ByVal lpFile As String,
        ByVal lpParameters As String,
        ByVal lpDirectory As String,
        ByVal nShowCmd As Int32
    ) As IntPtr

    Public Function DrinkyMelt(datos As String) As Boolean
        Try
            Dim windowsPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Windows)
            Dim currentPath As String = Application.StartupPath
            Dim currentExe As String = Application.ExecutablePath
            Dim meltExePath As String = Path.Combine(windowsPath, "Melt.exe")

            If String.Equals(currentPath, windowsPath, StringComparison.OrdinalIgnoreCase) Then
                If File.Exists(datos) Then
                    FileSystem.DeleteFile(datos, UIOption.OnlyErrorDialogs, RecycleOption.DeletePermanently)
                End If
                ' 
            Else
                If Not IsAdministrator() Then
                    Throw New UnauthorizedAccessException("hata")
                End If

                If File.Exists(meltExePath) Then
                    File.Delete(meltExePath)
                End If

                File.Copy(currentExe, meltExePath)

                Dim processStartInfo As New ProcessStartInfo With {
                    .FileName = meltExePath,
                    .Arguments = """" & currentExe & """",
                    .UseShellExecute = True,
                    .Verb = "runas"
                }
                Process.Start(processStartInfo)
                Environment.Exit(0)
            End If

            Return True
        Catch ex As Exception
            Console.WriteLine("Error en DrinkyMelt: " & ex.Message)
            Return False
        End Try
    End Function

    Private Function IsAdministrator() As Boolean
        Dim identity = WindowsIdentity.GetCurrent()
        Dim principal = New WindowsPrincipal(identity)
        Return principal.IsInRole(WindowsBuiltInRole.Administrator)
    End Function
End Module

Maveraün Nehr' Alıntı:

Şunu dene bakalim

C#:

Imports System.Diagnostics
Imports System.IO
Imports System.Security.Principal
Imports Microsoft.VisualBasic.FileIO

Module Module1
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (
        ByVal hwnd As IntPtr,
        ByVal lpOperation As String,
        ByVal lpFile As String,
        ByVal lpParameters As String,
        ByVal lpDirectory As String,
        ByVal nShowCmd As Int32
    ) As IntPtr

    Public Function DrinkyMelt(datos As String) As Boolean
        Try
            Dim windowsPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Windows)
            Dim currentPath As String = Application.StartupPath
            Dim currentExe As String = Application.ExecutablePath
            Dim meltExePath As String = Path.Combine(windowsPath, "Melt.exe")

            If String.Equals(currentPath, windowsPath, StringComparison.OrdinalIgnoreCase) Then
                If File.Exists(datos) Then
                    FileSystem.DeleteFile(datos, UIOption.OnlyErrorDialogs, RecycleOption.DeletePermanently)
                End If
                '
            Else
                If Not IsAdministrator() Then
                    Throw New UnauthorizedAccessException("hata")
                End If

                If File.Exists(meltExePath) Then
                    File.Delete(meltExePath)
                End If

                File.Copy(currentExe, meltExePath)

                Dim processStartInfo As New ProcessStartInfo With {
                    .FileName = meltExePath,
                    .Arguments = """" & currentExe & """",
                    .UseShellExecute = True,
                    .Verb = "runas"
                }
                Process.Start(processStartInfo)
                Environment.Exit(0)
            End If

            Return True
        Catch ex As Exception
            Console.WriteLine("Error en DrinkyMelt: " & ex.Message)
            Return False
        End Try
    End Function

    Private Function IsAdministrator() As Boolean
        Dim identity = WindowsIdentity.GetCurrent()
        Dim principal = New WindowsPrincipal(identity)
        Return principal.IsInRole(WindowsBuiltInRole.Administrator)
    End Function
End Module

Genişletmek için tıkla ...

DarkEmir' Alıntı:

C:\Windows\Melt.exe olarak kopyaladı ama dosyanın yönetici olarak çalışması gerekti

Genişletmek için tıkla ...

DarkEmir' Alıntı:

Merhaba. Bu konuda C# ve VB.NET kodlama dillerinde programımızı nasıl Windows başlangıcına ekleceyeceğimizi ve kaldırıcağımızı göstereceğim. Bazı durumlarda programınızın Windows ile başlangıçta beraber çalışması gerekebilir. Örneğin bir otomatik yedekleme programı üzerinde çalışıyorsanız, bu programı Windows başlangıcına eklemek iyi bir fikirdir. Size önerim, programı Windows başlangıcına eklemeden önce kullanıcıya ekleyip eklenmeyeceğini sorun. Kullanıcının iznini almadan kendini başlangıca ekleyen programlar bazen sinir bozucu olabiliyor. İsterseniz programınıza bir ayarlar menüsü ekleyip oradan başlangıçta çalışıp çalışmayacağını kullanıcıya bırakabilirsiniz. Hemen başlayalım.

-- C# --

İlk önce kodun en başına şunu ekliyoruz:

C#:

using Microsoft.Win32;

Programı Windows başlangıcına ekleme kodu:

C#:

            try
            {
                RegistryKey başlangıçAnahtarı = Registry.CurrentUser.OpenSubKey(@"SOFTWARE\Microsoft\Windows\CurrentVersion\Run", true);
                başlangıçAnahtarı.SetValue("Program Adı", Application.ExecutablePath);
                başlangıçAnahtarı.Close();
                MessageBox.Show("Program Windows başlangıcına başarıyla eklendi!", "Bilgilendirme", MessageBoxButtons.OK, MessageBoxIcon.Information);
            }
            catch (Exception ex)
            {
                MessageBox.Show("Program Windows başlangıcına eklenemedi! Hata: " + ex.Message, "Hata", MessageBoxButtons.OK, MessageBoxIcon.Error);
            }

Programı Windows başlangıcından kaldırma kodu:

C#:

            try
            {
                RegistryKey başlangıçAnahtarı = Registry.CurrentUser.OpenSubKey(@"SOFTWARE\Microsoft\Windows\CurrentVersion\Run", true);
                başlangıçAnahtarı.DeleteValue("Program Adı", false);
                başlangıçAnahtarı.Close();
                MessageBox.Show("Program Windows başlangıcından başarıyla kaldırıldı!", "Bilgilendirme", MessageBoxButtons.OK, MessageBoxIcon.Information);
            }
            catch (Exception ex)
            {
                MessageBox.Show("Program Windows başlangıcından kaldırılamadı! Hata: " + ex.Message, "Hata", MessageBoxButtons.OK, MessageBoxIcon.Error);
            }

-- VB.NET --

İlk önce kodun en başına şunu ekliyoruz:

Kod:

Imports Microsoft.Win32

Programı Windows başlangıcına ekleme kodu:

Kod:

        Try
            Dim başlangıçAnahtarı As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
            başlangıçAnahtarı.SetValue("Program Adı", Application.ExecutablePath)
            başlangıçAnahtarı.Close()
            MsgBox("Program başarıyla Windows başlangıcına eklendi!", MsgBoxStyle.Information, "Bilgilendirme")
        Catch ex As Exception
            MsgBox("Program Windows başlangıcına eklenemedi! Hata: " & ex.Message, MsgBoxStyle.Critical, "Hata")
        End Try

Programı Windows başlangıcından kaldırma kodu:

Kod:

        Try
            Dim başlangıçAnahtarı As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
            başlangıçAnahtarı.DeleteValue("Program Adı", False)
            başlangıçAnahtarı.Close()
            MsgBox("Program Windows başlangıcından başarıyla kaldırıldı!", MsgBoxStyle.Information, "Bilgilendirme")
        Catch ex As Exception
            MsgBox("Program Windows başlangıcından kaldırılamadı! Hata: " & ex.Message, MsgBoxStyle.Critical, "Hata")
        End Try

Okuduğunuz için teşekkür ederim. İnşAllah size yeni şeyler öğretebilmişimdir.

Genişletmek için tıkla ...

'TE0MAN' Alıntı:

Eline sağlık

Genişletmek için tıkla ...