New RegistryPermission : RegistryPermission « System.Security.Permissions « VB.Net by API






New RegistryPermission

   

Imports System.Security.Principal
Imports System.Security.Permissions
Imports System.IO
Imports System.Diagnostics

public class MainClass
   Shared Sub Main()
        Dim oRp As New RegistryPermission(Security.Permissions.PermissionState.Unrestricted)
        oRp.Deny()
        Dim objLog As New EventLog
        Dim objLogEntryType As EventLogEntryType
        Try
            Throw (New EntryPointNotFoundException)
        Catch objA As System.EntryPointNotFoundException
            Try
                If Not System.Diagnostics.EventLog.SourceExists("Example") Then
                    System.Diagnostics.EventLog.CreateEventSource("Example", "System")
                End If
                objLog.Source = "Example"
                objLog.Log = "System"
                objLogEntryType = EventLogEntryType.Information
                objLog.WriteEntry("Error: " & objA.Message, objLogEntryType)
            Catch objB As System.Exception
                Console.WriteLine(objB.Message)
            End Try
        End Try
   End Sub
End Class

   
    
    
  








Related examples in the same category