设计浏览器不弹出警告地ActiveX控件

文章作者 100test 发表时间 2007:10:31 13:58:56
来源 100Test.Com百考试题网

　　我们在编写ActiveX控件时，如果用在浏览器中，经常都会弹出现在运行的脚本不安全的提示，如果给客户使用，将会带来极大不便。

　　按照MSDN的介绍通常有两种一种是实现IObjectSafe接口，一种是通过修改注册表的方法。一般如果用ATL开发ActiveX控件，就用实现IObjectSafe接口的方法。如果用MFC开发，我觉得还是用修改注册表的方法比较方便。下面我们将第二种方法：

要包括两个文件
#include "comcat.h"
#include "Objsafe.h"

// 本控件的CLSID,注册表用
const GUID CDECL CLSID_SafeItem ={ 0x7AE7497B, 0xCAD8, 0x4E66,
{ 0xA5,0x8B,0xDD,0xE9,0xBC,0xAF,0x6B,0x61 } }.
// 版本控制
const WORD _wVerMajor = 1.
// 次版本号
const WORD _wVerMinor = 0.


/////////////////////////////////////////////////////////////////////
// CICCardApp::InitInstance - DLL initialization

BOOL CICCardApp::InitInstance()
{
BOOL bInit = COleControlModule::InitInstance().

if (bInit)
{

}

return bInit.
}


//////////////////////////////////////////////////////////////////////
// CICCardApp::ExitInstance - DLL termination

int CICCardApp::ExitInstance()
{
return COleControlModule::ExitInstance().
}


//////////////////////////////////////////////////////////////////////

// 创建组件种类
HRESULT CreateComponentCategory(CATID catid, WCHAR* catDescription)
{
ICatRegister* pcr = NULL .
HRESULT hr = S_OK .

hr = CoCreateInstance(CLSID_StdComponentCategoriesMgr,
NULL, CLSCTX_INPROC_SERVER, IID_ICatRegister, (void**)&.pcr).
if (FAILED(hr))
return hr.

// Make sure the HKCR\Component Categories\{..catid...}
// key is registered.
CATEGORYINFO catinfo.
catinfo.catid = catid.
catinfo.lcid = 0x0409 . // english

// Make sure the provided description is not too long.
// Only copy the first 127 characters if it is.
int len = wcslen(catDescription).
if (len>127)
len = 127.
wcsncpy(catinfo.szDescription, catDescription, len).
// Make sure the description is null terminated.
catinfo.szDescription[len] = ’\0’.

hr = pcr->RegisterCategories(1, &.catinfo).
pcr->Release().

return hr.
}