C# と VB.NET の質問掲示板

InterNetExplorerの「スクリプトを実行しても安全だとマークされていないActiveXコントロールの初期化とスクリプトの実行」は無効
した状態でJavaScriptのActiveXObject使用してDLLを呼び出したのですが、
エラーとなってしまいます。
（有効にするとエラーとはならず処理が行われます。）
あるサイトを参考に呼び出すDLLに対して以下のように
IObjectSafetyをImplementsしたのですが、実装に問題があるのか
うまく動作してくれません。
コーディング方法、設定等に問題がありましたら
ご指摘、ご教示のほどよろしくお願いいたします。


■呼出し方法
	Classic ASPにて以下ように呼出し
	var test = new ActiveXObject("TEST.clTEST");

■環境
	・InterNetExplorer Ver11
		・「スクリプトを実行しても安全だとマークされていないActiveXコントロールの初期化とスクリプトの実行」は無効
		・「スクリプトを実行しても安全だとマークされているActiveXコントロールの初期化とスクリプトの実行」は有効
■その他
	・TEST.dllはクライアントＰＣに配置されている。
	・TEST.dllはGlobalSignにて署名されている。

■インターフェース：IObjectSafety
Imports System.Runtime.InteropServices
<ComImport, Guid("CB5BDC81-93C1-11CF-8F20-00805F2CD123")>
<InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
Public Interface IObjectSafety

    <PreserveSig>
    Function GetInterfaceSafetyOptions(
                ByRef riid As Guid,
                <MarshalAs(UnmanagedType.U4)> ByRef pdwSupportedOptions As Integer,
                <MarshalAs(UnmanagedType.U4)> ByRef pdwEnabledOptions As Integer) As UInteger

    <PreserveSig>
    Function SetInterfaceSafetyOptions(
                ByRef riid As Guid,
                <MarshalAs(UnmanagedType.U4)> dwOptionSetMask As Integer,
                <MarshalAs(UnmanagedType.U4)> dwEnabledOptions As Integer) As UInteger
End Interface

■IObjectSafetyをImplementsしたClass:IObjectSafetyTLB
Public Class IObjectSafetyTLB : Implements IObjectSafety

    Private Const S_OK As UInteger = &H0

    Public Function GetInterfaceSafetyOptions(ByRef riid As Guid, ByRef pdwSupportedOptions As Integer, ByRef pdwEnabledOptions As Integer) As UInteger Implements IObjectSafety.GetInterfaceSafetyOptions
        Return S_OK
    End Function

    Public Function SetInterfaceSafetyOptions(ByRef riid As Guid, dwOptionSetMask As Integer, dwEnabledOptions As Integer) As UInteger Implements IObjectSafety.SetInterfaceSafetyOptions
        Return S_OK
    End Function
End Class

■IObjectSafetyTLBをInheritsしたClass:clTEST
<System.Runtime.InteropServices.ProgId("TEST.clTEST")>
<System.Runtime.InteropServices.Guid("3360D96C-4559-4158-A36A-F27B4CF00327")>
<System.Runtime.InteropServices.ClassInterface(System.Runtime.InteropServices.ClassInterfaceType.None)>
Public Class clTEST : Inherits IObjectSafetyTLB

    Public Function gfInit(param1 As String) As Short

		return 0;
    End Function

End Class

■No88675 (k3user さん) に返信
> InterNetExplorerの
× InterNetExplorer
○ Internet Explorer


>    Public Function gfInit(param1 As String) As Short
>		return 0;
>    End Function
これは Visual Basic の文法では無いような。(^^;


> <ComImport, Guid("CB5BDC81-93C1-11CF-8F20-00805F2CD123")>
これは何の GUID でしょうか?

ObjSafe.h で定められた IID_IObjectSafety のことだとすれば、
{CB5BDC81-93C1-11CF-8F20-00805F2CD064} で無ければなりませんよね。


>> DEFINE_GUID(IID_IObjectSafety, 0xcb5bdc81, 0x93c1, 0x11cf, 0x8f, 0x20, 0x0, 0x80, 0x5f, 0x2c, 0xd0, 0x64);

魔界の仮面弁士様
返信ありがとうございます。

>Public Function gfInit(param1 As String) As Short
>    return 0;
>End Function
> これは Visual Basic の文法では無いような。(^^;
申し訳ございません。上記の関数はVB.Netの文法に則って
いないのでしょうか？

><ComImport, Guid("CB5BDC81-93C1-11CF-8F20-00805F2CD123")>
> これは何の GUID でしょうか?
> ObjSafe.h で定められた IID_IObjectSafety のことだとすれば、
> {CB5BDC81-93C1-11CF-8F20-00805F2CD064} で無ければなりませんよね。
上記に関しては投稿する際にGUIDを変えて投稿しました。本来は{CB5BDC81-93C1-11CF-8F20-00805F2CD064}です。

あれから以下のことを試した所、「安全だとマークされていないActiveXコントロールの実行」を無効にしても
動くようにはなったのですが、１は必須だと思うのですが、２〜５もしないといけないのでしょうか？


１．regasmによる登録
２．HKEY_LOCAL_MACHINE\SOFTWARE\MicroSoft\Windows\CurrentVersion\Ext\PreApproved\{クラスのGUID}への登録
３．HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\MicroSoft\Windows\CurrentVersion\Ext\PreApproved\{クラスのGUID}への登録
４．HKEY_CLASSES_ROOT\CLSID\{クラスのGUID}\Implemented Categories\{7DD95801-9882-11CF-9FA9-00AA006C42C4}
５．HKEY_CLASSES_ROOT\CLSID\{クラスのGUID}\Implemented Categories\{7DD95802-9882-11CF-9FA9-00AA006C42C4}

魔界の仮面弁士様
回答ありがとうございます。
> 申行末しセミコロンを訳付与ございませんする。上記言語文法のは関数、はVB.NetJScript.NET のや 文法に則って
>いないのでしょうか？C# のものですね。
申し訳ございません。元々のサンプルコードがC#だったのを私がVB.Netに置き換えたのですが、
投稿する際に手違いで混同してしまいました。

> もしも、サーバーサイドのスクリプトからの呼び出しである場合には、
> JScript の new ActiveXObject や VBScript の CreateObject の代わりに、
> ASP の Server.CreateObject メソッドを利用する必要があるのですが。

Test.Dllですが、クライアントに配置されているためActiveXObjectを使用しています。

以下のことを試してみました。（もう少し検証をしてみます。）

１．「事前承認済み」とマーク
２．カテゴリマネージャへの登録
３．IObjectSafetyの実装
○は登録または実装
☓は未登録または未実装

----------------------
１   |☓|○|☓|☓
-----------------------
２   |☓|○|☓|☓
----------------------
３   |☓|○|○|☓
----------------------
結果  1  2  1  1 


結果１．．．「スクリプトを実行しても安全だとマークされていないActiveXコントロールの初期化とスクリプトの実行」は無効にするとActiveXObject関数呼び出し時にエラー

結果２．．．「スクリプトを実行しても安全だとマークされていないActiveXコントロールの初期化とスクリプトの実行」は無効にしてもエラーとならず処理が実行される。