نحوه اجرای فایل قفل(رمزگذاری) شده در حساب کاربری دیگر با ویژوال بیسیک
Dim Password As New System.Security.SecureString
For Each C As Char In Me.TextBox1.Text
Password.AppendChar(C)
Next
Dim SINFO As New ProcessStartInfo
Try
With SINFO
.UseShellExecute = False
.FileName = "notepad.exe"
.Arguments = "C:Text1.txt"
.Password = Password
.UserName = "Administrator"
End With
Process.Start(SINFO)
Catch ex As Exception
MsgBox(ex.Message)
End Try