Mega Code Archive

 

Categories / VB.Net / Network Remote

 

Create WebPermission that passes all demands or fails all demands

Imports System.Text.RegularExpressions Imports System.Net Imports System.Security.Permissions Module Example    Public Sub Main()         Dim myWebPermission1 As New WebPermission(PermissionState.None)         myWebPermission1.AddPermission(NetworkAccess.Connect, "http://www.microsoft.com/default.htm")         myWebPermission1.AddPermission(NetworkAccess.Connect, "http://www.msn.com")         myWebPermission1.Demand()    End Sub End Module