using System;
using Microsoft.Vsa;
using Microsoft.VisualBasic.Vsa;

namespace VsaEngine
{

    public class ScriptHost : Microsoft.Vsa.IVsaSite
    {
        private byte[] code = new byte[1024];

        private Microsoft.Vsa.IVsaEngine engine = null;
        private Microsoft.Vsa.IVsaItems items = null;

        public ScriptHost() //  设置vsa引擎的一些参数
        {
            engine = new Microsoft.VisualBasic.Vsa.VsaEngine();
            engine.RootMoniker = "test://cnblogs.com/VsaEngine";
            engine.Name = "VsaEngine";
            engine.RootNamespace = "VsaEngine";
            engine.Site = this;
            items = engine.Items;
            IVsaReferenceItem refItem = items.CreateItem("VsaEngine", Microsoft.Vsa.VsaItemType.Reference, VsaItemFlag.None) as IVsaReferenceItem;
            refItem.AssemblyName = System.IO.Directory.GetCurrentDirectory() + "\VsaEngine.dll";
            IVsaGlobalItem globalItem = items.CreateItem("HostObject", VsaItemType.AppGlobal, VsaItemFlag.None) as IVsaGlobalItem;
            globalItem.TypeString = "VsaEngine.ScriptHost";
        }

        public bool SetScript(string scriptString) // 设置脚本，并进行语法检查
        {
            IVsaCodeItem codeItem = items.CreateItem("testCode", Microsoft.Vsa.VsaItemType.Code, Microsoft.Vsa.VsaItemFlag.Class) as IVsaCodeItem;
            codeItem.SourceText = scriptString;
            return engine.Compile();
        }

        public void Run() // 执行脚本
        {
            engine.Run();
        }

        private string _testMember = "Test";
        public string TestMember // 用来测试的一个属性
        {
            get
            {
                return _testMember;
            }
            set
            {
                _testMember = value;
            }
        }

        public string GetResult() // 获取脚本执行结果
        {
            System.Type type = engine.Assembly.GetType("VsaEngine.myModule", true, true);
            System.Reflection.MethodInfo[] mi = type.GetMethods();
            System.Collections.IEnumerator enu = mi.GetEnumerator();
            System.Reflection.MethodInfo method = type.GetMethod("myMethod");
            object result = method.Invoke(this, null);

            return result.ToString();
        }

        IVsaSite 成员
    }
}

        private void button1_Click(object sender, System.EventArgs e)
        {
            System.Text.StringBuilder sbScript = new System.Text.StringBuilder();
            sbScript.Append("Module myModule ");
            sbScript.Append("Public Function myMethod As String ");
            sbScript.Append("With HostObject ");
            sbScript.Append(".TestMember="Hello World!" ");
            sbScript.Append("End With ");
            sbScript.Append("Return " OK" ");
            sbScript.Append("End Function ");
            sbScript.Append("End Module ");

            ScriptHost host = new ScriptHost();
            if(host.SetScript(sbScript.ToString()))
            {
                host.Run();

                MessageBox.Show("VB script return value: " + host.GetResult() + " Local member value: " + host.TestMember);
            }
            else
                MessageBox.Show("Compile Error");
        }