如何在VB中实现ActiveX控件的IobjectSafety接口

最新推荐文章于 2016-03-01 10:30:09 发布
最新推荐文章于 2016-03-01 10:30:09 发布
阅读量148 收藏
点赞数
文章标签： c# shell javascript ViewUI
原文链接：http://www.cnblogs.com/hbbpb/archive/2007/10/05/914608.html
版权

总述
本文叙述了如何在VB中实现控件的IobjectSafety接口，以标志该控件是脚本安全和初始化安全的。VB控件默认的处理方式是在注册表中注册组件类来标识其安全性，但实现IobjectSafety接口是更好的方法。本言语包括了实现过程中所需的所有代码。

请注意，控件只有确确实实是安全的，才能被标识为“安全的”。本文并未论及如何确保控件的安全性，这个问题请参阅Internet Client Software Development Kit (SDK)中的相关文档 "Safe Initialization and Scripting for ActiveX Controls"，它在Component Development 栏目中。

 

相关信息：
<此处略去了一段也许无关紧要的警告>

现在开始循序渐进地举例说明怎样创建一个简单的VB控件，以及怎样将它标识为脚本安全和初始化安全。
首先新建一个文件夹来存放在本例中所产生的文件。

从VB CD-ROM取得OLE 自动化类库的制作工具。将VB安装光盘中\Common\Tools\VB\Unsupprt\Typlib\目录下所有内容一并拷贝到前面新建的项目文件夹中。


把下列内容拷贝到“记事本”中，然后保存到上述文件夹，文件名为Objsafe.odl：


      [
          uuid(C67830E0-D11D-11cf-BD80-00AA00575603),
          helpstring("VB IObjectSafety Interface"),
          version(1.0)
      ]
      library IObjectSafetyTLB
      {
          importlib("stdole2.tlb");
          [
              uuid(CB5BDC81-93C1-11cf-8F20-00805F2CD064),
              helpstring("IObjectSafety Interface"),
              odl
          ]
          interface IObjectSafety:IUnknown {
              [helpstring("GetInterfaceSafetyOptions")]
              HRESULT GetInterfaceSafetyOptions(
                        [in]  long  riid,
                        [in]  long *pdwSupportedOptions,
                        [in]  long *pdwEnabledOptions);

              [helpstring("SetInterfaceSafetyOptions")]
              HRESULT SetInterfaceSafetyOptions(
                        [in]  long  riid,
                        [in]  long  dwOptionsSetMask,
                        [in]  long  dwEnabledOptions);
           }
       }
在命令行提示符下切换到项目文件夹，输入下列命令创建一个.tlb 文件：


MKTYPLIB objsafe.odl /tlb objsafe.tlb
在VB中新建一个ActiveX Control 项目。修改属性，把项目命名为IobjSafety，控件命名为DemoCtl。在控件上放置一个按钮，命名为cmdTest，在它的Click事件中加入一句代码 MsgBox "Test" 。


打开菜单“工程->引用”，点“浏览”，找到刚刚建立的Objsafe.tlb，把它加入到引用中。


增加一个新module名为basSafeCtl，并在其中加入下列代码：


      Option Explicit

      Public Const IID_IDispatch = "{00020400-0000-0000-C000-000000000046}"
      Public Const IID_IPersistStorage = _
        "{0000010A-0000-0000-C000-000000000046}"
      Public Const IID_IPersistStream = _
        "{00000109-0000-0000-C000-000000000046}"
      Public Const IID_IPersistPropertyBag = _
        "{37D84F60-42CB-11CE-8135-00AA004BB851}"

      Public Const INTERFACESAFE_FOR_UNTRUSTED_CALLER = &H1
      Public Const INTERFACESAFE_FOR_UNTRUSTED_DATA = &H2
      Public Const E_NOINTERFACE = &H80004002
      Public Const E_FAIL = &H80004005
      Public Const MAX_GUIDLEN = 40

      Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
         (pDest As Any, pSource As Any, ByVal ByteLen As Long)
      Public Declare Function StringFromGUID2 Lib "ole32.dll" (rguid As _
         Any, ByVal lpstrClsId As Long, ByVal cbMax As Integer) As Long

      Public Type udtGUID
          Data1 As Long
          Data2 As Integer
          Data3 As Integer
          Data4(7) As Byte
      End Type

      Public m_fSafeForScripting As Boolean
      Public m_fSafeForInitializing As Boolean

      Sub Main()
          m_fSafeForScripting = True
          m_fSafeForInitializing = True
      End Sub
在工程属性中把启动对象改成Sub Main确保上述代码会被执行。m_fSafeForScripting 和m_fSafeForInitializing两件变量的值分别指定了脚本安全和初始化安全取值。


打开控件代码窗口，在声明部分加入如下代码(如果有Option Explicit语句，当然要保证代码放在其后)：


Implements IObjectSafety
把下面两个过程代码拷贝到控件代码中：


      Private Sub IObjectSafety_GetInterfaceSafetyOptions(ByVal riid As _
      Long, pdwSupportedOptions As Long, pdwEnabledOptions As Long)

          Dim Rc      As Long
          Dim rClsId  As udtGUID
          Dim IID     As String
          Dim bIID()  As Byte

          pdwSupportedOptions = INTERFACESAFE_FOR_UNTRUSTED_CALLER Or _
                                INTERFACESAFE_FOR_UNTRUSTED_DATA

          If (riid <> 0) Then
              CopyMemory rClsId, ByVal riid, Len(rClsId)

              bIID = String$(MAX_GUIDLEN, 0)
              Rc = StringFromGUID2(rClsId, VarPtr(bIID(0)), MAX_GUIDLEN)
              Rc = InStr(1, bIID, vbNullChar) - 1
              IID = Left$(UCase(bIID), Rc)

              Select Case IID
                  Case IID_IDispatch
                      pdwEnabledOptions = IIf(m_fSafeForScripting, _
                    INTERFACESAFE_FOR_UNTRUSTED_CALLER, 0)
                      Exit Sub
                  Case IID_IPersistStorage, IID_IPersistStream, _
                     IID_IPersistPropertyBag
                      pdwEnabledOptions = IIf(m_fSafeForInitializing, _
                    INTERFACESAFE_FOR_UNTRUSTED_DATA, 0)
                      Exit Sub
                  Case Else
                      Err.Raise E_NOINTERFACE
                      Exit Sub
              End Select
          End If
      End Sub

      Private Sub IObjectSafety_SetInterfaceSafetyOptions(ByVal riid As _
      Long, ByVal dwOptionsSetMask As Long, ByVal dwEnabledOptions As Long)
          Dim Rc          As Long
          Dim rClsId      As udtGUID
          Dim IID         As String
          Dim bIID()      As Byte

          If (riid <> 0) Then
              CopyMemory rClsId, ByVal riid, Len(rClsId)

              bIID = String$(MAX_GUIDLEN, 0)
              Rc = StringFromGUID2(rClsId, VarPtr(bIID(0)), MAX_GUIDLEN)
              Rc = InStr(1, bIID, vbNullChar) - 1
              IID = Left$(UCase(bIID), Rc)

              Select Case IID
                  Case IID_IDispatch
                      If ((dwEnabledOptions And dwOptionsSetMask) <> _
                   INTERFACESAFE_FOR_UNTRUSTED_CALLER) Then
                          Err.Raise E_FAIL
                          Exit Sub
                      Else
                          If Not m_fSafeForScripting Then
                              Err.Raise E_FAIL
                          End If
                          Exit Sub
                      End If

                  Case IID_IPersistStorage, IID_IPersistStream, _
                IID_IPersistPropertyBag
                      If ((dwEnabledOptions And dwOptionsSetMask) <> _
                    INTERFACESAFE_FOR_UNTRUSTED_DATA) Then
                          Err.Raise E_FAIL
                          Exit Sub
                      Else
                          If Not m_fSafeForInitializing Then
                              Err.Raise E_FAIL
                          End If
                          Exit Sub
                      End If

                  Case Else
                      Err.Raise E_NOINTERFACE
                      Exit Sub
              End Select
          End If
      End Sub
保存后，把工程编译成OCX文件。现在控件已经实现了IObjectSafety 接口。在.htm中加入这件控件试一试吧。

Objsafe.odl
      [
          uuid(C67830E0-D11D-11cf-BD80-00AA00575603),
          helpstring("VB IObjectSafety Interface"),
          version(1.0)
      ]
      library IObjectSafetyTLB
      {
          importlib("stdole2.tlb");
          [
              uuid(CB5BDC81-93C1-11cf-8F20-00805F2CD064),
              helpstring("IObjectSafety Interface"),
              odl
          ]
          Interface IObjectSafetyinterface IObjectSafety:IUnknown {
              [helpstring("GetInterfaceSafetyOptions")]
              HRESULT GetInterfaceSafetyOptions(
                        [in]  long  riid,
                        [in]  long *pdwSupportedOptions,
                        [in]  long *pdwEnabledOptions);

              [helpstring("SetInterfaceSafetyOptions")]
              HRESULT SetInterfaceSafetyOptions(
                        [in]  long  riid,
                        [in]  long  dwOptionsSetMask,
                        [in]  long  dwEnabledOptions);
           }
       }


basSafeCtl
Option Explicit

'IE内部GUID、変更してはいけません
Public Const IID_IDispatch = "{00020400-0000-0000-C000-000000000046}"
Public Const IID_IPersistStorage = "{0000010A-0000-0000-C000-000000000046}"
Public Const IID_IPersistStream = "{00000109-0000-0000-C000-000000000046}"
Public Const IID_IPersistPropertyBag = "{37D84F60-42CB-11CE-8135-00AA004BB851}"

Public Const INTERFACESAFE_FOR_UNTRUSTED_CALLER = &H1
Public Const INTERFACESAFE_FOR_UNTRUSTED_DATA = &H2
Public Const E_NOINTERFACE = &H80004002
Public Const E_FAIL = &H80004005
Public Const MAX_GUIDLEN = 40

Public Declare Sub CopyMemory()Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal ByteLen As Long)
Public Declare Function StringFromGUID2()Function StringFromGUID2 Lib "ole32.dll" (rguid As Any, ByVal lpstrClsId As Long, ByVal cbMax As Integer) As Long

Public Type udtGUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(7) As Byte
End Type

Public m_fSafeForScripting As Boolean
Public m_fSafeForInitializing As Boolean

'ｽﾀｰﾄｱｯﾌﾟの設定
Sub Main()Sub Main()
    m_fSafeForScripting = True
    m_fSafeForInitializing = True
End Sub



CallExe
'参照するインターフェイス、外で定義
Implements IObjectSafety

'主要な関数
Public Sub Run()Sub Run(ByVal app As String)
    Shell (app)
End Sub

'実現しなければならない安全なインターフェイス
Private Sub IObjectSafety_GetInterfaceSafetyOptions()Sub IObjectSafety_GetInterfaceSafetyOptions(ByVal riid As Long, pdwSupportedOptions As Long, pdwEnabledOptions As Long)

    Dim Rc      As Long
    Dim rClsId  As udtGUID
    Dim IID     As String
    Dim bIID()  As Byte

    pdwSupportedOptions = INTERFACESAFE_FOR_UNTRUSTED_CALLER Or INTERFACESAFE_FOR_UNTRUSTED_DATA

    If (riid <> 0) Then
        CopyMemory rClsId, ByVal riid, Len(rClsId)

        bIID = String$(MAX_GUIDLEN, 0)
        Rc = StringFromGUID2(rClsId, VarPtr(bIID(0)), MAX_GUIDLEN)
        Rc = InStr(1, bIID, vbNullChar) - 1
        IID = Left$(UCase(bIID), Rc)

        Select Case IID
            Case IID_IDispatch
                pdwEnabledOptions = IIf(m_fSafeForScripting, INTERFACESAFE_FOR_UNTRUSTED_CALLER, 0)
                Exit Sub
            Case IID_IPersistStorage, IID_IPersistStream, IID_IPersistPropertyBag
                pdwEnabledOptions = IIf(m_fSafeForInitializing, INTERFACESAFE_FOR_UNTRUSTED_DATA, 0)
                Exit Sub
            Case Else
                Err.Raise E_NOINTERFACE
                Exit Sub
        End Select
    End If
End Sub

'実現しなければならない安全なインターフェイス
Private Sub IObjectSafety_SetInterfaceSafetyOptions()Sub IObjectSafety_SetInterfaceSafetyOptions(ByVal riid As Long, ByVal dwOptionsSetMask As Long, ByVal dwEnabledOptions As Long)
      
    Dim Rc          As Long
    Dim rClsId      As udtGUID
    Dim IID         As String
    Dim bIID()      As Byte

    If (riid <> 0) Then
        CopyMemory rClsId, ByVal riid, Len(rClsId)

        bIID = String$(MAX_GUIDLEN, 0)
        Rc = StringFromGUID2(rClsId, VarPtr(bIID(0)), MAX_GUIDLEN)
        Rc = InStr(1, bIID, vbNullChar) - 1
        IID = Left$(UCase(bIID), Rc)

        Select Case IID
            Case IID_IDispatch
                If ((dwEnabledOptions And dwOptionsSetMask) <> INTERFACESAFE_FOR_UNTRUSTED_CALLER) Then
                    Err.Raise E_FAIL
                    Exit Sub
                Else
                    If Not m_fSafeForScripting Then
                        Err.Raise E_FAIL
                    End If
                    Exit Sub
                End If

            Case IID_IPersistStorage, IID_IPersistStream, IID_IPersistPropertyBag
                If ((dwEnabledOptions And dwOptionsSetMask) <> INTERFACESAFE_FOR_UNTRUSTED_DATA) Then
                    Err.Raise E_FAIL
                    Exit Sub
                Else
                    If Not m_fSafeForInitializing Then
                        Err.Raise E_FAIL
                    End If
                    Exit Sub
                End If

            Case Else
                Err.Raise E_NOINTERFACE
                Exit Sub
        End Select
    End If
End Sub



WebForm1
<%@ Page language="c#" Codebehind="WebForm1.aspx.cs" AutoEventWireup="false" Inherits="HelloWorld.WebForm1" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
<HTML>
    <HEAD>
        <title>WebForm1</title>
        <meta name="GENERATOR" Content="Microsoft Visual Studio .NET 7.1">
        <meta name="CODE_LANGUAGE" Content="C#">
        <meta name="vs_defaultClientScript" content="JavaScript">
        <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
    </HEAD>
    <body MS_POSITIONING="GridLayout">
        <form id="Form1" method="post">
            <OBJECT id="ActiveX_Test" classid="CLSID:04DA805C-01A2-43E7-BE32-30D2FD263A84"
                VIEWASTEXT>
            </OBJECT>
            <INPUT id="app" style="Z-INDEX: 101; LEFT: 104px; POSITION: absolute; TOP: 112px" type="text">
            <input id="button1" type='submit' onclick='ActiveX_Test.Run(document.getElementById("app").value)'
                value='OK' style="Z-INDEX: 102; LEFT: 280px; WIDTH: 64px; POSITION: absolute; TOP: 112px; HEIGHT: 24px">
            <DIV style="DISPLAY: inline; Z-INDEX: 103; LEFT: 48px; WIDTH: 440px; POSITION: absolute; TOP: 56px; HEIGHT: 40px"
                ms_positioning="FlowLayout">
                <DIV id="BABFT_TextSrcFixed" dir="ltr" style="PADDING-RIGHT: 4px; DISPLAY: block; PADDING-LEFT: 4px; BACKGROUND: #fffef2; PADDING-BOTTOM: 0px; MARGIN: 2px; PADDING-TOP: 0px; TEXT-ALIGN: left">実行するプログラム名、または開くフォルダやドキュメント名、インターネット 
                    リソース名を入力してください。</DIV>
            </DIV>
            <DIV style="DISPLAY: inline; Z-INDEX: 104; LEFT: 48px; WIDTH: 48px; POSITION: absolute; TOP: 112px; HEIGHT: 18px"
                ms_positioning="FlowLayout">名前：</DIV>
        </form>
    </body>
</HTML>

转载于:https://www.cnblogs.com/hbbpb/archive/2007/10/05/914608.html

dianxi3836
关注
实现vb activeX控件安全性（IE不提示安全问题） 继承IObjectSafety接口
Mark的专栏
12-03 2397
从 Visual Basic 6.0 CD-ROM（安装目录） 中获取 OLE 自动化类型库生成器。若要执行此操作将所有四个文件从 /Common/Tools/VB/Unsupprt/Typlib/ 文件夹复制到您的项目文件夹中。将以下文本复制到记事本，，将文件保存为 Objsafe.odl 项目文件夹中：[ uuid(C67830E0-D11D-11cf-BD80-00AA00575603), helpstring("VB IObjectSafety Inter
VS2005C#开发ActiveX控件
05-21
在实现ActiveX控件时，主要通过修改或添加控件类（如UserControl1）的代码来完成。首先，需要为控件类创建一个GUID，这是在浏览器中通过客户端调用控件时使用的唯一标识符。其次，需要在控件类中实现“IObjectSafety...
ActiveX控件实现IobjectSafety接口
xuweilmy的专栏
05-06 996
如果没有实现IobjectSafety接口浏览器会提示交互不安全等信息   打开工程名Ctl.h 搜索    class C工程名Ctrl : public COleControl 在其上面添加   #include  搜索    DECLARE_DYNCREATE(C工程名Ctrl) 下面添加 DECLARE_INTERFACE_MAP() BEGIN_I
ActiveX控件安全初始化之一:实现ISafeObject接口(转)
liuyanhuasd的博客
03-01 618
 ActiveX控件安全初始化之一:实现ISafeObject接口(转) ActiveX控件在签名以后，仍然被IE浏览器默认安全级阻止而无法安装。 使用代码签名证书签名后的控件在运行时报“Internet Explorer已经阻止此站点用不安全方式使用ActiveX控件.因此,此页面可能显示不正确”。 这是因为该ActiveX控件没有标记为脚本安全，在IE默认安全级别设
VB6.0开发ActiveX实现IObjectSafety
weixin_34111790的博客
06-04 136
VB6.0开发的ActiveX控件应用与Web程序中时必须实现IObjectSafety接口.否则不能够正常使用.步骤:1:新建文件Objsafe.odl文件 [ uuid(C67830E0-D11D-11cf-BD80-00AA00575603), helpstring("VB IObjectSafety Interface"), ...
修改ActiveX控件的uuid
经验之外
11-22 3956
修改uuid，除了修改.idl文件中的如下部分： //  CScreenGrabCtrl 的类信息  [ uuid(7A98F00A-ACD9-475E-9A32-DDE27F4113C4),    helpstring("ScreenGrab Control"), control ]  coclass ScreenGrab  {   [default] dispinterface _
使用C#开发ActiveX控件
最新发布
06-06
3. 实现 IObjectSafety 接口，用于让 ActiveX 控件获得客户端的信任； 4. 实现控件类，包括控件的逻辑和界面设计。 四、使用 C# 开发 ActiveX 控件的示例 本文提供了一个使用 C# 开发 ActiveX 控件的示例，实现对...
Asp.net中开发使用ActiveX控件
11-17
在实现ActiveX控件时，还需要注意以下几点来保障其安全性： - **安全级别设置**：确保控件在安装到客户端计算机时具有正确的安全级别设置。 - **权限管理**：通过`IObjectSafety`接口管理控件的权限，限制不必要的...
用.NET编写自己的ActiveX 控件
07-01
2. **实现IObjectSafety接口**：在`demoControl`类中实现`IObjectSafety`接口的方法。 ```csharp public void GetInterfaceSafetyOptions(Int32 riid, out Int32 pdwSupportedOptions, out Int32 ...
VB6.0属性过程详解（Property过程）[第一章][《VB6.0 ActiveX 控件开发详解》附属文章]
几罗星人的专栏
08-01 2万+
这是《VB6.0 ActiveX 控件开发详解》的附属文章，如果没有看过这一篇文章的话应先去看看，除非你认为你已经有了一定的ActiveX控件开发基础。      第一章：认识属性过程        在用VB6.0开发ActiveX部件的过程中，我们难免要接触到一种不太常用
VB6.0 ActiveX 控件开发详解 [第三章：属性的设计，属性映射，属性的初始化，属性的保存]
热门推荐
几罗星人的专栏
08-09 2万+
第三章：属性的设计，属性映射，属性的初始化，属性的保存 第一节：属性的设计        废话不多说，前文再续，书接上一回。上回说到，如何对界面进行布置和写动态修改控件大小的代码；这一回，我来介绍一下如何设计属性，这是难点。        启动我们上次做好的工程，我们需要想想，我们这个控件需要些什么属性？既然是图片框架控件，那么我们就需要一个Picture属性，同时，在以前的代码里，没有调整
ActiveX ocx控件有时在网页中无法显示需要实现IObjectSafety接口
逍遥骏马
03-06 3310
ActiveX ocx控件有时在网页中无法显示需要实现IObjectSafety接口 通过自己调试，可能导致的原因是：          如果没有实现IobjectSafety接口浏览器交互不安全导致的。                  打“开工程名Ctl.h”在最上面添加     #include          在类中的DECLARE_DYNCR
*继承IObjectSafety接口，实现vb activeX控件安全性（IE不提示安全问题）
11级风的博客
04-16 1255
原文http://support.microsoft.com/kb/182598/zh-cn 从 Visual Basic 6.0 CD-ROM（安装目录） 中获取 OLE 自动化类型库生成器。若要执行此操作将所有四个文件从 /Common/Tools/VB/Unsupprt/Typlib/ 文件夹复制到您的项目文件夹中。 将以下文本复制到记事本，，将文件保存为 Objsafe.odl 项目文
在VB控件中怎样导入IObjectSafety
weixin_34122548的博客
09-30 117
转自：http://support.microsoft.com/default.aspx?scid=kb;EN-US;182598 How To Implement IObjectSafety in Visual Basic Controls View products that this article applies to. ...
解决ActiveX控件安全提示问题：实现IObjectSafety接口
确保你的控件继承自IObjectSafety，并在类中实现相应的方法，以设置所需的接口安全选项。 4. 注册和部署：最后，为了使控件能够在不同环境中正常工作，可能还需要进行注册，通常是在发布前使用regsvr32.exe命令注册...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值