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: