Set var_CreateInstance = DotNetFactory.CreateInstance (TypeName [,Assembly] [,args])

[Description("Enables you to create an instance of a .NET object, and access its methods and properties."), Guid("15494157-E302-4a17-95C7-24C545CA8F53"), ClassInterface(ClassInterfaceType.None), ProgId("Mercury.DotNetFactory.1"), ComVisible(true)]
public class DotNetFactory : IObjFactory, IReflect, IObjFactoryServices
{
 // Fields
 private ArrayList _ArgList;

 // Methods
 static DotNetFactory()

    {
     Trace.WriteLine("ObjectFactory");
     RegistryKey currentUser = Registry.CurrentUser;
     RegistryKey key2 = currentUser.OpenSubKey(@"Software\Mercury Interactive\QuickTest Professional\MicTest\ReservedObjects\DotNetFactory");//见下图

     string str = (string) key2.GetValue("PreloadAssemblies", null);
     if (str != null)
     {
         string[] strArray = str.Split(new char[] { ';' });
         DotNetFactory factory = new DotNetFactory();
         currentUser.Close();
         key2.Close();
         foreach (string str2 in strArray)
         {
             try
             {
                 Trace.WriteLine(str2);
                 factory.LoadAssembly(str2);
                 Trace.WriteLine("Loaded");
             }
             catch
             {
                 Trace.WriteLine("Failed");
             }
         }
     }
    }

 public DotNetFactory();

    {
        this._ArgList = new ArrayList();
    }

 private void AddArg(object arg)
    {
         if (arg is DispWrapper)
         {
             arg = ((DispWrapper) arg)._object;
         }
         this._ArgList.Add(arg);
    }

 private void ClearArgs();

 public object CreateInstance(string TypeName, object assembly, params object[] CtorArgs)

    {
         object obj3;
         ConstructorInfo[] constructors;
         this._ArgList.Clear();
         if (CtorArgs != null)
         {
             foreach (object obj2 in CtorArgs)
             {
                 this.AddArg(obj2);
             }
         }
         if ((assembly is string) && (((string) assembly).Length > 0))
         {
             this.LoadAssembly(assembly as string);
         }
         Assembly[] assemblies = AppDomain.CurrentDomain.GetAssemblies();//获取当前应用程序域加载的所有程序集
         Type conversionType = null;
         foreach (Assembly assembly2 in assemblies)
         {
             conversionType = assembly2.GetType(TypeName);//如果CreateInstance仅有一个参数无须带任何可选参数，帮助里说程序集已在内存中，如例2和例3             

             if (conversionType != null)
             {
                 break;
             }
         }
         if (conversionType == null)
         {
             throw new Exception("Type '" + TypeName + "' not found in any loaded assembly");
         }
         if (this._ArgList.Count == 0)
         {
             constructors = conversionType.GetConstructors();//值来自于如果CreateInstance仅有一个参数
             if ((constructors == null) || (constructors.Length == 0))
             {
                 if (conversionType.IsValueType)
                 {
                     string str = "0";
                     try
                     {
                         obj3 = Convert.ChangeType(str, conversionType);
                     }
                     catch (InvalidCastException)
                     {
                         obj3 = new DispWrapper(conversionType);
                     }
                 }
                 else
                 {
                     obj3 = new DispWrapper(conversionType);
                 }
             }
             else
             {
                 obj3 = conversionType.Assembly.CreateInstance(TypeName);
             }
         }
         else
         {
             object[] args = new object[this._ArgList.Count];
             for (int i = 0; i < this._ArgList.Count; i++)
             {
                 args[i] = this._ArgList[i];
             }
             this.ClearArgs();
             constructors = conversionType.GetConstructors();//值来自于如果CreateInstance仅有一个参数
             if ((constructors == null) || (constructors.Length == 0))
             {
                 obj3 = new DispWrapper(conversionType);
             }
             else
             {
                 obj3 = conversionType.Assembly.CreateInstance(TypeName, false, BindingFlags.CreateInstance, null, args, null, null);//此步能接受例4和例5的输入
             }
             if (obj3 == null)
             {
                 throw new Exception("Cannot create instance of " + TypeName);
             }
         }
         if (!(obj3 is string) && !(obj3 is DispWrapper))
         {
             obj3 = new DispWrapper(obj3);
         }
         return obj3;
    }

 public void LoadAssembly(string partialName)

    {
     string str = partialName.ToLower();
     if (str.IndexOf(".dll") > 0)
     {
         this.LoadAssemblyByPath(partialName);
     }
     else if (str.IndexOf(".exe") > 0)
     {
         this.LoadAssemblyByPath(partialName);
     }
     else if (Assembly.LoadWithPartialName(partialName) == null)
     {
         throw new FileNotFoundException("Cannot load Assembly " + partialName);
     }
    }

 private void LoadAssemblyByPath(string path)

    {
     Assembly.LoadFrom(path);
    }

    FieldInfo IReflect.GetField(string name, BindingFlags bindingAttr);
    FieldInfo[] IReflect.GetFields(BindingFlags bindingAttr);
    MemberInfo[] IReflect.GetMember(string name, BindingFlags bindingAttr);
    MemberInfo[] IReflect.GetMembers(BindingFlags bindingAttr);
    MethodInfo IReflect.GetMethod(string name, BindingFlags bindingAttr);
    MethodInfo IReflect.GetMethod(string name, BindingFlags bindingAttr, Binder binder, Type[] types, ParameterModifier[] modifiers);
    MethodInfo[] IReflect.GetMethods(BindingFlags bindingAttr);
    PropertyInfo[] IReflect.GetProperties(BindingFlags bindingAttr);
    PropertyInfo IReflect.GetProperty(string name, BindingFlags bindingAttr);
    PropertyInfo IReflect.GetProperty(string name, BindingFlags bindingAttr, Binder binder, Type returnType, Type[] types, ParameterModifier[] modifiers);
    object IReflect.InvokeMember(string name, BindingFlags invokeAttr, Binder binder, object target, object[] args, ParameterModifier[] modifiers, CultureInfo culture, string[] namedParameters); public object Unwrap(object wrapper); 

// Properties
 protected virtual Type MyType { get; }
 Type IReflect.UnderlyingSystemType { get; }
}

[ComVisible(true), ClassInterface(ClassInterfaceType.AutoDispatch)]
internal class DispWrapper : IReflect
{
 // Fields
 internal Exception _exception;
 internal object _object;
 private Type _ObjectType;

 // Methods
 internal DispWrapper(object obj)
 {
     this._object = obj;
     this._ObjectType = obj.GetType();
 }

 internal DispWrapper(Type t)
 {
     this._object = null;
     this._ObjectType = t;
 }
 public FieldInfo GetField(string name, BindingFlags bindingAttr);
 public FieldInfo[] GetFields(BindingFlags bindingAttr);
 public MemberInfo[] GetMember(string name, BindingFlags bindingAttr);
 public MemberInfo[] GetMembers(BindingFlags bindingAttr);
 public MethodInfo GetMethod(string name, BindingFlags bindingAttr);
 public MethodInfo[] GetMethods(BindingFlags bindingAttr);
 public PropertyInfo[] GetProperties(BindingFlags bindingAttr);  public PropertyInfo GetProperty(string name, BindingFlags bindingAttr, Binder binder, Type returnType, Type[] types, ParameterModifier[] modifiers);
 public object InvokeMember(string name, BindingFlags invokeAttr, Binder binder, object target, object[] args, ParameterModifier[] modifiers, CultureInfo culture, string[] namedParameters); MethodInfo IReflect.GetMethod(string name, BindingFlags bindingAttr, Binder binder, Type[] types, ParameterModifier[] modifiers); PropertyInfo IReflect.GetProperty(string name, BindingFlags bindingAttr);
 
 // Properties
 public Type UnderlyingSystemType { get; }
}