VS2012下製作ActiveX控制元件並新增到網頁
為了節省時間，大部分資源取自http://www.cnblogs.com/li-peng/p/3455247.html，感謝作者。
流程概覽
1.建立ActiveX控制元件——按鈕
2.定義一個介面，並在控制元件中實現
3.部署安裝
4.CAB打包
5.新增到網頁中進行測試
一. 建立ActiveX控制元件——按鈕
1.新建一個Window窗體控制元件庫專案，命名為ActiveXDemo.
2.在自動生成的UserControl1頁面上新增一個button
3.點選事件裡我們只彈出一個MesageBox
4.在右邊解決方案資源管理器的ActiveXDemo專案上右鍵→屬性→應用程式→程式集資訊→使程式集COM可見（M）。再切換到“生成”標籤→勾選“為COM互操作註冊”。private void button1_Click(object sender, EventArgs e) { MessageBox.Show("Active is working now!"); }
5.開啟Properties裡面的AssemblyInof.cs檔案，新增如下程式碼：
6.為控制元件建立GUID：工具→建立GUID，選5，點選複製
7.開啟UserControl1.cs，在public partial class UserControl1 : UserControl上面貼上上一步生成的GUID，並新增using System.Runtime.InteropServices;
程式碼如下：
using System; using System.Collections.Generic; using System.ComponentModel; using System.Drawing; using System.Data; using System.Linq; using System.Text; using System.Threading.Tasks; using System.Windows.Forms; using System.Runtime.InteropServices; namespace ActiveXDemo { [Guid("73D3BE6A-E3B3-46F7-AFFE-8673390DA3F6")] public partial class UserControl1: UserControl { public UserControl1() { InitializeComponent(); } private void button1_Click(object sender, EventArgs e) { MessageBox.Show("ActiveX is working now!"); } } }
二、定義一個介面，並在控制元件中實現
建立一個IObjectSafety介面，讓ActiveX 控制元件獲取客戶端的信任。
1.右鍵ActiveXDemo專案—>新增—>新建項→Visual C#項→介面
注意介面內容是固定的不要修改！！！也就是說你直接複製貼上就可以用了，不要管裡面的序列號，跟上面生成的GUID不是一回事。
using System;
using System.Runtime.InteropServices;
namespace ActiveXDemo
{
[ComImport, GuidAttribute("CB5BDC81-93C1-11CF-8F20-00805F2CD064")]
[InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIUnknown)]
public interface IObjectSafety
{
[PreserveSig]
int GetInterfaceSafetyOptions(ref Guid riid, [MarshalAs(UnmanagedType.U4)] ref int pdwSupportedOptions, [MarshalAs(UnmanagedType.U4)] ref int pdwEnabledOptions);
[PreserveSig()]
int SetInterfaceSafetyOptions(ref Guid riid, [MarshalAs(UnmanagedType.U4)] int dwOptionSetMask, [MarshalAs(UnmanagedType.U4)] int dwEnabledOptions);
}
}2.在UserControl1控制元件的後臺程式碼UserControl1.cs中實現這個介面，程式碼如下：
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Drawing;
using System.Data;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
using System.Runtime.InteropServices;
namespace ActiveXDemo
{
[Guid("73D3BE6A-E3B3-46F7-AFFE-8673390DA3F6"), ProgId("ActiveXDemo.UserControl1"), ComVisible(true)]
public partial class UserControl1 : UserControl, IObjectSafety
{
#region IObjectSafety 成員 格式固定
private const string _IID_IDispatch = "{00020400-0000-0000-C000-000000000046}";
private const string _IID_IDispatchEx = "{a6ef9860-c720-11d0-9337-00a0c90dcaa9}";
private const string _IID_IPersistStorage = "{0000010A-0000-0000-C000-000000000046}";
private const string _IID_IPersistStream = "{00000109-0000-0000-C000-000000000046}";
private const string _IID_IPersistPropertyBag = "{37D84F60-42CB-11CE-8135-00AA004BB851}";
private const int INTERFACESAFE_FOR_UNTRUSTED_CALLER = 0x00000001;
private const int INTERFACESAFE_FOR_UNTRUSTED_DATA = 0x00000002;
private const int S_OK = 0;
private const int E_FAIL = unchecked((int)0x80004005);
private const int E_NOINTERFACE = unchecked((int)0x80004002);
private bool _fSafeForScripting = true;
private bool _fSafeForInitializing = true;
public int GetInterfaceSafetyOptions(ref Guid riid, ref int pdwSupportedOptions, ref int pdwEnabledOptions)
{
int Rslt = E_FAIL;
string strGUID = riid.ToString("B");
pdwSupportedOptions = INTERFACESAFE_FOR_UNTRUSTED_CALLER | INTERFACESAFE_FOR_UNTRUSTED_DATA;
switch (strGUID)
{
case _IID_IDispatch:
case _IID_IDispatchEx:
Rslt = S_OK;
pdwEnabledOptions = 0;
if (_fSafeForScripting == true)
pdwEnabledOptions = INTERFACESAFE_FOR_UNTRUSTED_CALLER;
break;
case _IID_IPersistStorage:
case _IID_IPersistStream:
case _IID_IPersistPropertyBag:
Rslt = S_OK;
pdwEnabledOptions = 0;
if (_fSafeForInitializing == true)
pdwEnabledOptions = INTERFACESAFE_FOR_UNTRUSTED_DATA;
break;
default:
Rslt = E_NOINTERFACE;
break;
}
return Rslt;
}
public int SetInterfaceSafetyOptions(ref Guid riid, int dwOptionSetMask, int dwEnabledOptions)
{
int Rslt = E_FAIL;
string strGUID = riid.ToString("B");
switch (strGUID)
{
case _IID_IDispatch:
case _IID_IDispatchEx:
if (((dwEnabledOptions & dwOptionSetMask) == INTERFACESAFE_FOR_UNTRUSTED_CALLER) && (_fSafeForScripting == true))
Rslt = S_OK;
break;
case _IID_IPersistStorage:
case _IID_IPersistStream:
case _IID_IPersistPropertyBag:
if (((dwEnabledOptions & dwOptionSetMask) == INTERFACESAFE_FOR_UNTRUSTED_DATA) && (_fSafeForInitializing == true))
Rslt = S_OK;
break;
default:
Rslt = E_NOINTERFACE;
break;
}
return Rslt;
}
#endregion
public UserControl1()
{
InitializeComponent();
}
private void button1_Click(object sender, EventArgs e)
{
MessageBox.Show("ActiveX is working now!");
}
}
}
注意
[Guid("73D3BE6A-E3B3-46F7-AFFE-8673390DA3F6")]變成了
[Guid("73D3BE6A-E3B3-46F7-AFFE-8673390DA3F6"), ProgId("ActiveXDemo.UserControl1"), ComVisible(true)]到目前為止，ActiveXDemo專案完工了，ActiveXDemo專案右鍵-->生成。
這個時候，我這邊出現了一個錯誤：
錯誤1無法登出程式集“D:\learnActiveX\ActiveXDemo\ActiveXDemo\bin\Debug\ActiveXDemo.dll”- 拒絕訪問。請確保您正在以管理員身份執行應用程式。不允許所請求的登錄檔訪問權。ActiveXDemo
最後發現用管理員身份執行VS2012，然後開啟ActiveXDemo專案，再生成，就不會報錯了。
三、打包部署
1.解決方案ActiveXDemo右鍵-->新增新專案-->其他專案型別-->安裝和部署。如果你沒有安裝過這個，請先安裝。命名為ActiveSetup
2.選擇application information：基本配置，自定義填寫
3.接下來先把Application Files,點選MyCompany下的第一個節點可以自己重新命名
4.點選 Add Project OutPuts，選擇主輸出點ok
5.ActiveSetup專案右鍵，生成。在ActiveSetup\Express\DVD-5\DiskImages\DISK1資料夾下有如下檔案：
四、使用cabarc.exe打包
1.去網上下載cabarc.exe，拷貝到ActiveSetup\Express\DVD-5\DiskImages\DISK1下。
2.在ActiveSetup\Express\DVD-5\DiskImages\DISK1下新建一個install.inf檔案，內容如下：
[version]
signature="$CHICAGO$"
AdvancedINF=2.0
[Setup Hooks]
hook1=hook1
[hook1]
run=msiexec.exe /i "%EXTRACT_DIR%\ActiveXSetup.msi" /qn"cabarc.exe" n test.cab ActiveXSetup.msi install.inf
五、新增到網頁中測試
1.解決方案ActiveXDemo右鍵-->新增新專案-->Visual
C#-->web-->ASP.NET Web窗體應用程式
2.WebApplication1專案右鍵-->新增新項-->Visual C#-->web-->Web窗體
3.開啟WebForm1.aspx，在<div></div>之間新增上面做好的控制元件，程式碼如下
<body>
<form id="form1" runat="server">
<div>
<object id="mytt" classid="clsid:73D3BE6A-E3B3-46F7-AFFE-8673390DA3F6"
codebase="/test.cab"></object>
</div>
</form>
</body>
</html>
將上面的生成的test.cab新增到WebApplication1\bin\目錄下
4.WebForm1.aspx右鍵設為起始頁，WebApplication1專案右鍵設為啟動專案
5.選擇IE啟動
可能遇到的問題
IE上顯示的頁面什麼都沒有，是由於ActiveX控制元件被攔截了。
在Ineternet選項中進行設定，確認“對未標記為可安全執行指令碼的ActiveX控制元件初始化並執行指令碼”項設定為“啟用”，“下載未簽名的ActiveX控制元件”項設定為“提示”
在VS中再來啟動專案，效果如下：