| 网站首页 | VB.Net实例分析 | .Net技术文摘 | 下载中心 | VB.Net书籍笔记 | .Net源码 | VBS脚本与组件调用 | Windows2008技术文摘 | 给我们留言 | 
最新公告:

  没有公告

您现在的位置: 乐博网 >> VB.Net实例分析 >> 安全编程 >> 实例分析正文
最新推荐 更多内容
SocketPermission.IsUnrestricted方法的实例
SocketPermission.IsUnrestricted方法的实例
作者:佚名    来源:乐博网收集     更新时间:2007-11-3

下面的示例检查 IsUnrestricted 属性,以确定指定的 SocketPermission 是否有任何限制。

  1.   
  2. Dim socketPermission1 As New SocketPermission(PermissionState.Unrestricted)   
  3.   
  4.     'Create a 'SocketPermission' object for two ip addresses.   
  5.     Dim socketPermission2 As New SocketPermission(PermissionState.None)   
  6.     Dim securityElement4 As SecurityElement = socketPermission2.ToXml()   
  7.     ''SocketPermission' object for 'Connect' permission   
  8.     Dim securityElement1 As New SecurityElement("ConnectAccess")   
  9.     'Format to specify ip address are <IP-ADDRESS>#<PORT>#<TRANSPORT-TYPE>   
  10.     'First 'SocketPermission' ip-address is '192.168.144.238' for 'All' transport types and for 'All' ports for the ip-address.   
  11.     Dim securityElement2 As New SecurityElement("URI""192.168.144.238#-1#3")   
  12.     'Second 'SocketPermission' ip-address is '192.168.144.240' for 'All' transport types and for 'All' ports for the ip-address.   
  13.     Dim securityElement3 As New SecurityElement("URI""192.168.144.240#-1#3")   
  14.     securityElement1.AddChild(securityElement2)   
  15.     securityElement1.AddChild(securityElement3)   
  16.     securityElement4.AddChild(securityElement1)   
  17.        
  18.     'Obtain a 'SocketPermission' object using 'FromXml' method.       
  19.     socketPermission2.FromXml(securityElement4)   
  20.        
  21.     'Create another 'SocketPermission' object with two ip addresses.   
  22.     'First 'SocketPermission' ip-address is '192.168.144.238' for 'All' transport types and for 'All' ports for the ip-address.   
  23.     Dim socketPermission3 As New SocketPermission(NetworkAccess.Connect, TransportType.All, "192.168.144.238", SocketPermission.AllPorts)   
  24.        
  25.     'Second 'SocketPermission' ip-address is '192.168.144.239' for 'All' transport types and for 'All' ports for the ip-address.   
  26.     socketPermission3.AddPermission(NetworkAccess.Connect, TransportType.All, "192.168.144.239", SocketPermission.AllPorts)   
  27.   
  28.     Console.WriteLine(ControlChars.Cr + "Checks the Socket permissions using IsUnrestricted method : ")   
  29.     If socketPermission1.IsUnrestricted() Then  
  30.         Console.WriteLine("Socket permission is unrestricted")   
  31.     Else  
  32.         Console.WriteLine("Socket permission is restricted")   
  33.     End If    
  34.     Console.WriteLine()   
  35.        
  36.     Console.WriteLine("Display result of ConnectList property : " + ControlChars.Cr)   
  37.     Dim enumerator As IEnumerator = socketPermission3.ConnectList   
  38.     While enumerator.MoveNext()   
  39.         Console.WriteLine("The hostname is       : {0}"CType(enumerator.Current, EndpointPermission).Hostname)   
  40.         Console.WriteLine("The port is           : {0}"CType(enumerator.Current, EndpointPermission).Port)   
  41.         Console.WriteLine("The Transport type is : {0}"CType(enumerator.Current, EndpointPermission).Transport)   
  42.     End While  
  43.        
  44.     Console.WriteLine("")   
  45.        
  46.     Console.WriteLine("Display Security Elements :" + ControlChars.Cr + " ")   
  47.     PrintSecurityElement(socketPermission2.ToXml(), 0)   
  48.        
  49.     'Get a 'SocketPermission' object which is a union of two other 'SocketPermission' objects.   
  50.     socketPermission1 = CType(socketPermission3.Union(socketPermission2), SocketPermission)   
  51.        
  52.     'Demand that the calling method have the socket permission.   
  53.     socketPermission1.Demand()  
  • 上一篇:

  • 下一篇:
  • 【字体: 】【打印此文】【关闭窗口
      相关文章:(只显示最新16条)
    没有相关实例分析

    | 设为首页 | 加入收藏 | 联系站长 | | 友情链接 | 版权申明 |
    乐博网欢迎各种媒体转载我们的原创作品[转载请注明出处];我们鼓励更多VB.Net开发者一起加入研究与探讨;如发现文章访问错误、内容错误或版权疑问、内容有违相关法律(如涉及政治、色情、反动或散布虚假有害信息)等情况,请及时向我们举报,我们将及时纠正!
    联系邮箱:Shiny#vip.qq.com (#替换为@) QQ交流群: 40797788 [闽ICP备05014267号]