编写安全控件

最新推荐文章于 2019-01-08 00:56:41 发布

德码小王子

最新推荐文章于 2019-01-08 00:56:41 发布

阅读量620

点赞数

文章标签： integer function interface vb.net module dll

本文链接：https://blog.csdn.net/awrhyme/article/details/1855975

版权

语言:VB.net

建立一个objsafe.vb文件

内容为

Imports System.Runtime.InteropServices
Module objsafe

<ComImport(), Guid("CB5BDC81-93C1-11CF-8F20-00805F2CD064"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)> _
Public Interface IObjectSafety

Function GetInterfaceSafetyOptions(ByRef iid As Guid, ByRef pdwSupportedOptions As Integer, ByRef pdwEnabledOptions As Integer) As Integer
Function SetInterfaceSafetyOptions(ByRef iid As Guid, ByVal dwOptionSetMask As Integer, ByVal dwEnabledOptions As Integer) As Integer

End Interface
End Module

在你的DLL主文件中写入以下代码

<ComClass(FluxRadio.ClassId, FluxRadio.InterfaceId, FluxRadio.EventsId)> _
Public Class FluxRadio

     '********************控件安全接口代码开始*************************
     Implements IObjectSafety
     Private Const INTERFACESAFE_FOR_UNTRUSTED_CALLER As Integer = &H1
     Private Const INTERFACESAFE_FOR_UNTRUSTED_DATA As Integer = &H2
     Public Function GetInterfaceSafetyOptions(ByRef iid As Guid, ByRef pdwSupportedOptions As Integer, ByRef pdwEnabledOptions As Integer) As Integer Implements IObjectSafety.GetInterfaceSafetyOptions
         pdwSupportedOptions = INTERFACESAFE_FOR_UNTRUSTED_CALLER Or INTERFACESAFE_FOR_UNTRUSTED_DATA
         pdwEnabledOptions = INTERFACESAFE_FOR_UNTRUSTED_CALLER Or INTERFACESAFE_FOR_UNTRUSTED_DATA
         Return 0
     End Function
     Public Function SetInterfaceSafetyOptions(ByRef iid As Guid, ByVal dwOptionSetMask As Integer, ByVal dwEnabledOptions As Integer) As Integer Implements IObjectSafety.SetInterfaceSafetyOptions
         Return 0
     End Function

'********************控件安全接口代码结束*************************

就可以实现安全控件了