Imports System.Text.RegularExpressions
Imports System.Net
Imports System.Collections
Imports System.Collections.Generic
Module Example
Public Sub Main()
Dim myRegex As New Regex("http://www\.domain\.com/.*")
Dim myWebPermission As New WebPermission(NetworkAccess.Connect, myRegex)
myWebPermission.AddPermission(NetworkAccess.Connect, "http://www.domain.com")
myWebPermission.AddPermission(NetworkAccess.Accept, "http://www.domainA.com/")
myWebPermission.Demand()
Dim myConnectEnum As IEnumerator = myWebPermission.ConnectList
While myConnectEnum.MoveNext()
Console.WriteLine((ControlChars.Tab + myConnectEnum.Current.ToString()))
End While
End Sub
End Module
|
