Произвольное имя сборки / приложения каждый раз при запуске приложения VB. NET code - PullRequest
Новая
       0

Произвольное имя сборки / приложения каждый раз при запуске приложения VB. NET code

0 голосов
/ 27 мая 2020

Я пытался придумать способ сделать так, чтобы каждый раз, когда я запускаю свое приложение, оно переименовывает приложение в случайную строку.

Мое приложение находится в VB. NET

Это мой файл frmLogin.vb (я поместил код в тот же класс, что и логин, так как логин - это мое стартовое окно, я не знал, куда еще его поместить) Код: 

    Private Shared Sub Main(ByVal args As String())
    Const REGISTRY_KEY As String = "HKEY_CURRENT_USER\Prototype"
    Const REGISTY_FIRSTRUN As String = "FirstRun"
    Const REGISTY_LASTNAME As String = "LastName"
    Dim RandomTitle As String = RandomString(RandomShit.[Next](5, 15)) & ".exe"

    Try

        If Convert.ToInt32(Microsoft.Win32.Registry.GetValue(REGISTRY_KEY, REGISTY_FIRSTRUN, 0)) = 0 Then
            Console.Title = RandomTitle
            Dim TempPath As String = Convert.ToString(Microsoft.Win32.Registry.GetValue(REGISTRY_KEY, REGISTY_LASTNAME, 0))

            If AppDomain.CurrentDomain.FriendlyName <> "RandomShit.exe" Then
                File.Delete("RandomShit.exe")
            End If

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

            Microsoft.Win32.Registry.SetValue(REGISTRY_KEY, REGISTY_FIRSTRUN, 1, Microsoft.Win32.RegistryValueKind.DWord)
            Microsoft.Win32.Registry.SetValue(REGISTRY_KEY, REGISTY_LASTNAME, Directory.GetCurrentDirectory() & "\" + AppDomain.CurrentDomain.FriendlyName, Microsoft.Win32.RegistryValueKind.String)
        End If

    Finally
    End Try
End Sub

1 Ответ

1 голос
/ 27 мая 2020

Я не уверен, полностью ли соответствует приведенный ниже код вашим требованиям. Надеюсь, что приведенное ниже сработает для вас, чтобы переименовать исполняемый файл: 

File.Move(System.Diagnostics.Process.GetCurrentProcess().MainModule.FileName, Path.Combine(Path.GetDirectoryName(Process.GetCurrentProcess().MainModule.FileName), "randomstring.exe"))
...