学步园

1、新建一个类库项目

2、将Class1.cs改为我们想要的名字

问是否同时给类改名，确定

3、修改Properties目录下面的AssemblyInfo.cs
ComVisible属性设置为True

4、项目菜单->MyLib属性
找到“生成”选项卡

往下看，找到“为 COM Interop 注册”勾上

5、继续往下，找到“签名”选项卡
  勾上“为程序集签名”
  在下面的下拉框里面选择“ <新建...>”

6、在弹出的对话框里面，输入MyLib。。或者随便取个名字
  去掉使用密码保护文件的选项

7、开始编码，任何一个公开的类，必须有一个 I开通的接口定义

C# code

using System;
using System.Collections.Generic;
using System.Text;
using System.Runtime.InteropServices;

namespace MyLib
{
    [ComVisible(true)]
    [Guid("2CBD3D76-35F1-4f9d-9C1B-9DBFEE412F76")]
    public interface IMyClass
    {
        void Initialize();
        void Dispose();
        int Add(int x, int y);
    }
    [ComVisible(true)]
    [Guid("EA2F140A-108F-47ae-BBD5-83EEE646CC0D")]
    [ProgId("MyLib.MyClass")]
    public class MyClass : IMyClass
    {
        public void Initialize()
        {
            //nothing todo
        }
        public void Dispose()
        {
            //nothing todo
        }
        public int Add(int x, int y)
        {
            return x + y;
        }
    }
}

8、GUID属性里面的那个字符串，在“工具”菜单下面，“创建 GUID”
  选择 Registry Format，然后复制
 

  注意在[Guid("....... 这个里面要去掉GUID前后的花括号

9、编译它
在命令提示符下面，进入Dll所在的目录
用 gacutil /i MyLib.dll 将这个DLL加入的全局缓存里
然后用 regasm MyLib.dll 注册这个dll

10、在VBScript里面试试。。。

HTML code

<script language="VBScript">
Dim o : Set o=CreateObject("MyLib.MyClass")  
  o.Initialize
    MsgBox "1 + 2 = " & o.Add(1,2)
    o.Dispose
    Set o=Nothing
</script>