[VB.NET]Program kapatıldıktan sonra random exe ismi

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Seçkin Üye
Katılım
9 Tem 2017
Mesajlar
561
Tepki puanı
80
8 HİZMET YILI
Kod:
    Dim strr As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
    Dim ra As New Random
    Dim sbc As New StringBuilder
  
    Private Sub isimdegis()
        Dim Info As New ProcessStartInfo()
        Info.Arguments = "/C ren " & IO.Path.GetFileName(Application.ExecutablePath) & " " & sbc.ToString & ".exe"
        Info.WindowStyle = ProcessWindowStyle.Hidden
        Info.CreateNoWindow = True
        Info.FileName = "cmd.exe"
        Process.Start(Info)
    End Sub
    Private Sub Form1_Closing(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        For i As Integer = 1 To 20
            Dim idx As Integer = ra.Next(0, 35)
            sbc.Append(strr.Substring(idx, 1))
        Next
        isimdegis()
    End Sub
 
Moderatörün son düzenlenenleri:
♥ Kusursuz ♥
Ultra Üye
Katılım
26 Nis 2018
Mesajlar
1,985
Çözümler
3
Tepki puanı
524
Ödüller
10
8 HİZMET YILI
Nasıl yapıldığı hakkında Birde video paylaşssan güzel olur :)
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst