Mega Code Archive

 

Categories / VB.Net / Network Remote

 

WebPermission AcceptList Property returns accept permissions

Imports System.Text.RegularExpressions Imports System.Net Imports System.Security.Permissions Imports System.Collections Imports System.Collections.Generic 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()         Dim myEnum1 As IEnumerator = myWebPermission1.AcceptList         While myEnum1.MoveNext()            Console.WriteLine((ControlChars.Tab + "The URI is : " + myEnum1.Current))         End While    End Sub End Module