本文整理匯總了VB.NET中System.Net.SocketPermission.ToXml方法的典型用法代碼示例。如果您正苦於以下問題：VB.NET SocketPermission.ToXml方法的具體用法？VB.NET SocketPermission.ToXml怎麽用？VB.NET SocketPermission.ToXml使用的例子？那麽, 這裏精選的方法代碼示例或許可以為您提供幫助。您也可以進一步了解該方法所在類System.Net.SocketPermission的用法示例。
在下文中一共展示了SocketPermission.ToXml方法的1個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: SocketPermission
Dim socketPermission1 As New SocketPermission(PermissionState.Unrestricted)
'Create a 'SocketPermission' object for two ip addresses.
Dim socketPermission2 As New SocketPermission(PermissionState.None)
Dim securityElement4 As SecurityElement = socketPermission2.ToXml()
''SocketPermission' object for 'Connect' permission
Dim securityElement1 As New SecurityElement("ConnectAccess")
'Format to specify ip address are <ip-address>#<port>#<transport-type>
'First 'SocketPermission' ip-address is '192.168.144.238' for 'All' transport types and for 'All' ports for the ip-address.
Dim securityElement2 As New SecurityElement("URI", "192.168.144.238#-1#3")
'Second 'SocketPermission' ip-address is '192.168.144.240' for 'All' transport types and for 'All' ports for the ip-address.
Dim securityElement3 As New SecurityElement("URI", "192.168.144.240#-1#3")
securityElement1.AddChild(securityElement2)
securityElement1.AddChild(securityElement3)
securityElement4.AddChild(securityElement1)
'Obtain a 'SocketPermission' object using 'FromXml' method.
socketPermission2.FromXml(securityElement4)
'Create another 'SocketPermission' object with two ip addresses.
'First 'SocketPermission' ip-address is '192.168.144.238' for 'All' transport types and for 'All' ports for the ip-address.
Dim socketPermission3 As New SocketPermission(NetworkAccess.Connect, TransportType.All, "192.168.144.238", SocketPermission.AllPorts)
'Second 'SocketPermission' ip-address is '192.168.144.239' for 'All' transport types and for 'All' ports for the ip-address.
socketPermission3.AddPermission(NetworkAccess.Connect, TransportType.All, "192.168.144.239", SocketPermission.AllPorts)
Console.WriteLine(ControlChars.Cr + "Checks the Socket permissions using IsUnrestricted method : ")
If socketPermission1.IsUnrestricted() Then
Console.WriteLine("Socket permission is unrestricted")
Else
Console.WriteLine("Socket permission is restricted")
End If
Console.WriteLine()
Console.WriteLine("Display result of ConnectList property : " + ControlChars.Cr)
Dim enumerator As IEnumerator = socketPermission3.ConnectList
While enumerator.MoveNext()
Console.WriteLine("The hostname is : {0}", CType(enumerator.Current, EndpointPermission).Hostname)
Console.WriteLine("The port is : {0}", CType(enumerator.Current, EndpointPermission).Port)
Console.WriteLine("The Transport type is : {0}", CType(enumerator.Current, EndpointPermission).Transport)
End While
Console.WriteLine("")
Console.WriteLine("Display Security Elements :" + ControlChars.Cr + " ")
PrintSecurityElement(socketPermission2.ToXml(), 0)
'Get a 'SocketPermission' object which is a union of two other 'SocketPermission' objects.
socketPermission1 = CType(socketPermission3.Union(socketPermission2), SocketPermission)
'Demand that the calling method have the socket permission.
socketPermission1.Demand()