C#编写COM组件[转]
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; } } }
<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>