Mega Code Archive

 

Categories / VB.Net / Network Remote

 

WebPermission Class

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