| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298 |
- #include-once
- Global Const $sCLSID_CorRuntimeHost = "{CB2F6723-AB3A-11D2-9C40-00C04FA30A3E}"
- Global Const $tCLSID_CorRuntimeHost = CLSIDFromString( $sCLSID_CorRuntimeHost )
- Global Const $sIID_ICorRuntimeHost = "{CB2F6722-AB3A-11D2-9C40-00C04FA30A3E}"
- Global Const $tIID_ICorRuntimeHost = CLSIDFromString( $sIID_ICorRuntimeHost )
- Global Const $sTag_ICorRuntimeHost = _
- "CreateLogicalThreadState hresult();" & _
- "DeleteLogicalThreadState hresult();" & _
- "SwitchInLogicalThreadState hresult();" & _
- "SwitchOutLogicalThreadState hresult();" & _
- "LocksHeldByLogicalThread hresult();" & _
- "MapFile hresult();" & _
- "GetConfiguration hresult();" & _
- "Start hresult();" & _
- "Stop hresult();" & _
- "CreateDomain hresult();" & _
- "GetDefaultDomain hresult(ptr*);" & _
- "EnumDomains hresult(ptr*);" & _
- "NextDomain hresult(ptr;ptr*);" & _
- "CloseEnum hresult();" & _
- "CreateDomainEx hresult();" & _
- "CreateDomainSetup hresult();" & _
- "CreateEvidence hresult();" & _
- "UnloadDomain hresult(ptr);" & _
- "CurrentDomain hresult();"
- Global Const $sIID_IDispatch = "{00020400-0000-0000-C000-000000000046}"
- Global Const $sTag_IDispatch = _
- "GetTypeInfoCount hresult(dword*);" & _
- "GetTypeInfo hresult(dword;dword;ptr*);" & _
- "GetIDsOfNames hresult(ptr;ptr;dword;dword;ptr);" & _
- "Invoke hresult(dword;ptr;dword;word;ptr;ptr;ptr;ptr);"
- ; The interfaces _AppDomain, _Type and _Assembly below that starts with
- ; an underscore are the interfaces that can be used from unmanaged code.
- Global Const $sIID__AppDomain = "{05F696DC-2B29-3663-AD8B-C4389CF2A713}"
- Global Const $sTag__AppDomain = _
- $sTag_IDispatch & _
- "get_ToString hresult();" & _
- "Equals hresult();" & _
- "GetHashCode hresult();" & _
- "GetType hresult(ptr*);" & _
- "InitializeLifetimeService hresult();" & _
- "GetLifetimeService hresult();" & _
- "get_Evidence hresult();" & _
- "add_DomainUnload hresult();" & _
- "remove_DomainUnload hresult();" & _
- "add_AssemblyLoad hresult();" & _
- "remove_AssemblyLoad hresult();" & _
- "add_ProcessExit hresult();" & _
- "remove_ProcessExit hresult();" & _
- "add_TypeResolve hresult();" & _
- "remove_TypeResolve hresult();" & _
- "add_ResourceResolve hresult();" & _
- "remove_ResourceResolve hresult();" & _
- "add_AssemblyResolve hresult();" & _
- "remove_AssemblyResolve hresult();" & _
- "add_UnhandledException hresult();" & _
- "remove_UnhandledException hresult();" & _
- "DefineDynamicAssembly hresult();" & _
- "DefineDynamicAssembly_2 hresult();" & _
- "DefineDynamicAssembly_3 hresult();" & _
- "DefineDynamicAssembly_4 hresult();" & _
- "DefineDynamicAssembly_5 hresult();" & _
- "DefineDynamicAssembly_6 hresult();" & _
- "DefineDynamicAssembly_7 hresult();" & _
- "DefineDynamicAssembly_8 hresult();" & _
- "DefineDynamicAssembly_9 hresult();" & _
- "CreateInstance hresult(bstr;bstr;object*);" & _
- "CreateInstanceFrom hresult();" & _
- "CreateInstance_2 hresult();" & _
- "CreateInstanceFrom_2 hresult();" & _
- "CreateInstance_3 hresult(bstr;bstr;bool;int;ptr;ptr;ptr;ptr;ptr;ptr*);" & _
- "CreateInstanceFrom_3 hresult();" & _
- "Load hresult();" & _
- "Load_2 hresult();" & _
- "Load_3 hresult();" & _
- "Load_4 hresult();" & _
- "Load_5 hresult();" & _
- "Load_6 hresult();" & _
- "Load_7 hresult();" & _
- "ExecuteAssembly hresult();" & _
- "ExecuteAssembly_2 hresult();" & _
- "ExecuteAssembly_3 hresult();" & _
- "get_FriendlyName hresult(bstr*);" & _
- "get_BaseDirectory hresult(bstr*);" & _
- "get_RelativeSearchPath hresult();" & _
- "get_ShadowCopyFiles hresult();" & _
- "GetAssemblies hresult(ptr*);" & _
- "AppendPrivatePath hresult();" & _
- "ClearPrivatePath ) = 0; hresult();" & _
- "SetShadowCopyPath hresult();" & _
- "ClearShadowCopyPath ) = 0; hresult();" & _
- "SetCachePath hresult();" & _
- "SetData hresult();" & _
- "GetData hresult();" & _
- "SetAppDomainPolicy hresult();" & _
- "SetThreadPrincipal hresult();" & _
- "SetPrincipalPolicy hresult();" & _
- "DoCallBack hresult();" & _
- "get_DynamicDirectory hresult();"
- Global Const $sIID__Type = "{BCA8B44D-AAD6-3A86-8AB7-03349F4F2DA2}"
- Global Const $sTag__Type = _
- $sTag_IDispatch & _
- "get_ToString hresult(bstr*);" & _
- "Equals hresult(variant;short*);" & _
- "GetHashCode hresult(int*);" & _
- "GetType hresult(ptr);" & _
- "get_MemberType hresult(ptr);" & _
- "get_name hresult(bstr*);" & _
- "get_DeclaringType hresult(ptr);" & _
- "get_ReflectedType hresult(ptr);" & _
- "GetCustomAttributes hresult(ptr;short;ptr);" & _
- "GetCustomAttributes_2 hresult(short;ptr);" & _
- "IsDefined hresult(ptr;short;short*);" & _
- "get_Guid hresult(ptr);" & _
- "get_Module hresult(ptr);" & _
- "get_Assembly hresult(ptr*);" & _
- "get_TypeHandle hresult(ptr);" & _
- "get_FullName hresult(bstr*);" & _
- "get_Namespace hresult(bstr*);" & _
- "get_AssemblyQualifiedName hresult(bstr*);" & _
- "GetArrayRank hresult(int*);" & _
- "get_BaseType hresult(ptr);" & _
- "GetConstructors hresult(ptr;ptr);" & _
- "GetInterface hresult(bstr;short;ptr);" & _
- "GetInterfaces hresult(ptr);" & _
- "FindInterfaces hresult(ptr;variant;ptr);" & _
- "GetEvent hresult(bstr;ptr;ptr);" & _
- "GetEvents hresult(ptr);" & _
- "GetEvents_2 hresult(int;ptr);" & _
- "GetNestedTypes hresult(int;ptr);" & _
- "GetNestedType hresult(bstr;ptr;ptr);" & _
- "GetMember hresult(bstr;ptr;ptr;ptr);" & _
- "GetDefaultMembers hresult(ptr);" & _
- "FindMembers hresult(ptr;ptr;ptr;variant;ptr);" & _
- "GetElementType hresult(ptr);" & _
- "IsSubclassOf hresult(ptr;short*);" & _
- "IsInstanceOfType hresult(variant;short*);" & _
- "IsAssignableFrom hresult(ptr;short*);" & _
- "GetInterfaceMap hresult(ptr;ptr);" & _
- "GetMethod hresult(bstr;ptr;ptr;ptr;ptr;ptr);" & _
- "GetMethod_2 hresult(bstr;ptr;ptr);" & _
- "GetMethods hresult(int;ptr);" & _
- "GetField hresult(bstr;ptr;ptr);" & _
- "GetFields hresult(int;ptr);" & _
- "GetProperty hresult(bstr;ptr;ptr);" & _
- "GetProperty_2 hresult(bstr;ptr;ptr;ptr;ptr;ptr;ptr);" & _
- "GetProperties hresult(ptr;ptr);" & _
- "GetMember_2 hresult(bstr;ptr;ptr);" & _
- "GetMembers hresult(int;ptr*);" & _
- "InvokeMember hresult(bstr;ptr;ptr;variant;ptr;ptr;ptr;ptr;variant*);" & _
- "get_UnderlyingSystemType hresult(ptr);" & _
- "InvokeMember_2 hresult(bstr;int;ptr;variant;ptr;ptr;variant*);" & _
- "InvokeMember_3 hresult(bstr;int;ptr;variant;ptr;variant*);" & _
- "GetConstructor hresult(ptr;ptr;ptr;ptr;ptr;ptr);" & _
- "GetConstructor_2 hresult(ptr;ptr;ptr;ptr;ptr);" & _
- "GetConstructor_3 hresult(ptr;ptr);" & _
- "GetConstructors_2 hresult(ptr);" & _
- "get_TypeInitializer hresult(ptr);" & _
- "GetMethod_3 hresult(bstr;ptr;ptr;ptr;ptr;ptr;ptr);" & _
- "GetMethod_4 hresult(bstr;ptr;ptr;ptr);" & _
- "GetMethod_5 hresult(bstr;ptr;ptr);" & _
- "GetMethod_6 hresult(bstr;ptr);" & _
- "GetMethods_2 hresult(ptr);" & _
- "GetField_2 hresult(bstr;ptr);" & _
- "GetFields_2 hresult(ptr);" & _
- "GetInterface_2 hresult(bstr;ptr);" & _
- "GetEvent_2 hresult(bstr;ptr);" & _
- "GetProperty_3 hresult(bstr;ptr;ptr;ptr;ptr);" & _
- "GetProperty_4 hresult(bstr;ptr;ptr;ptr);" & _
- "GetProperty_5 hresult(bstr;ptr;ptr);" & _
- "GetProperty_6 hresult(bstr;ptr;ptr);" & _
- "GetProperty_7 hresult(bstr;ptr);" & _
- "GetProperties_2 hresult(ptr);" & _
- "GetNestedTypes_2 hresult(ptr);" & _
- "GetNestedType_2 hresult(bstr;ptr);" & _
- "GetMember_3 hresult(bstr;ptr);" & _
- "GetMembers_2 hresult(ptr);" & _
- "get_Attributes hresult(ptr);" & _
- "get_IsNotPublic hresult(short*);" & _
- "get_IsPublic hresult(short*);" & _
- "get_IsNestedPublic hresult(short*);" & _
- "get_IsNestedPrivate hresult(short*);" & _
- "get_IsNestedFamily hresult(short*);" & _
- "get_IsNestedAssembly hresult(short*);" & _
- "get_IsNestedFamANDAssem hresult(short*);" & _
- "get_IsNestedFamORAssem hresult(short*);" & _
- "get_IsAutoLayout hresult(short*);" & _
- "get_IsLayoutSequential hresult(short*);" & _
- "get_IsExplicitLayout hresult(short*);" & _
- "get_IsClass hresult(short*);" & _
- "get_IsInterface hresult(short*);" & _
- "get_IsValueType hresult(short*);" & _
- "get_IsAbstract hresult(short*);" & _
- "get_IsSealed hresult(short*);" & _
- "get_IsEnum hresult(short*);" & _
- "get_IsSpecialName hresult(short*);" & _
- "get_IsImport hresult(short*);" & _
- "get_IsSerializable hresult(short*);" & _
- "get_IsAnsiClass hresult(short*);" & _
- "get_IsUnicodeClass hresult(short*);" & _
- "get_IsAutoClass hresult(short*);" & _
- "get_IsArray hresult(short*);" & _
- "get_IsByRef hresult(short*);" & _
- "get_IsPointer hresult(short*);" & _
- "get_IsPrimitive hresult(short*);" & _
- "get_IsCOMObject hresult(short*);" & _
- "get_HasElementType hresult(short*);" & _
- "get_IsContextful hresult(short*);" & _
- "get_IsMarshalByRef hresult(short*);" & _
- "Equals_2 hresult(ptr;short*);"
- ; Binding flags for InvokeMember, InvokeMember_2
- ; and InvokeMember_3 methods of _Type interface.
- Global Const $BindingFlags_Default = 0x0000
- Global Const $BindingFlags_IgnoreCase = 0x0001
- Global Const $BindingFlags_DeclaredOnly = 0x0002
- Global Const $BindingFlags_Instance = 0x0004
- Global Const $BindingFlags_Static = 0x0008
- Global Const $BindingFlags_Public = 0x0010
- Global Const $BindingFlags_NonPublic = 0x0020
- Global Const $BindingFlags_FlattenHierarchy = 0x0040
- Global Const $BindingFlags_InvokeMethod = 0x0100
- Global Const $BindingFlags_CreateInstance = 0x0200
- Global Const $BindingFlags_GetField = 0x0400
- Global Const $BindingFlags_SetField = 0x0800
- Global Const $BindingFlags_GetProperty = 0x1000
- Global Const $BindingFlags_SetProperty = 0x2000
- Global Const $BindingFlags_PutDispProperty = 0x4000
- Global Const $BindingFlags_PutRefDispProperty = 0x8000
- Global Const $BindingFlags_ExactBinding = 0x00010000
- Global Const $BindingFlags_SuppressChangeType = 0x00020000
- Global Const $BindingFlags_OptionalParamBinding = 0x00040000
- Global Const $BindingFlags_IgnoreReturn = 0x01000000
- Global Const $BindingFlags_DefaultValue = $BindingFlags_Static + $BindingFlags_Public + $BindingFlags_FlattenHierarchy + $BindingFlags_InvokeMethod
- Global Const $sIID__Assembly = "{17156360-2F1A-384A-BC52-FDE93C215C5B}"
- Global Const $sTag__Assembly = _
- $sTag_IDispatch & _
- "get_ToString hresult(bstr*);" & _
- "Equals hresult();" & _
- "GetHashCode hresult();" & _
- "GetType hresult(ptr*);" & _
- "get_CodeBase hresult();" & _
- "get_EscapedCodeBase hresult();" & _
- "GetName hresult();" & _
- "GetName_2 hresult();" & _
- "get_FullName hresult(bstr*);" & _
- "get_EntryPoint hresult();" & _
- "GetType_2 hresult(bstr;ptr*);" & _
- "GetType_3 hresult();" & _
- "GetExportedTypes hresult();" & _
- "GetTypes hresult(ptr*);" & _
- "GetManifestResourceStream hresult();" & _
- "GetManifestResourceStream_2 hresult();" & _
- "GetFile hresult();" & _
- "GetFiles hresult();" & _
- "GetFiles_2 hresult();" & _
- "GetManifestResourceNames hresult();" & _
- "GetManifestResourceInfo hresult();" & _
- "get_Location hresult(bstr*);" & _
- "get_Evidence hresult();" & _
- "GetCustomAttributes hresult();" & _
- "GetCustomAttributes_2 hresult();" & _
- "IsDefined hresult();" & _
- "GetObjectData hresult();" & _
- "add_ModuleResolve hresult();" & _
- "remove_ModuleResolve hresult();" & _
- "GetType_4 hresult();" & _
- "GetSatelliteAssembly hresult();" & _
- "GetSatelliteAssembly_2 hresult();" & _
- "LoadModule hresult();" & _
- "LoadModule_2 hresult();" & _
- "CreateInstance hresult(bstr;variant*);" & _
- "CreateInstance_2 hresult(bstr;bool;variant*);" & _
- "CreateInstance_3 hresult(bstr;bool;int;ptr;ptr;ptr;ptr;variant*);" & _
- "GetLoadedModules hresult();" & _
- "GetLoadedModules_2 hresult();" & _
- "GetModules hresult();" & _
- "GetModules_2 hresult();" & _
- "GetModule hresult();" & _
- "GetReferencedAssemblies hresult();" & _
- "get_GlobalAssemblyCache hresult(bool*);"
- Func CLSIDFromString( $sGUID )
- Static $hOle32Dll = "ole32.dll", $tGUID = DllStructCreate( "ulong Data1;ushort Data2;ushort Data3;byte Data4[8]" ), $pGUID = DllStructGetPtr( $tGUID )
- DllCall( $hOle32Dll, "uint", "CLSIDFromString", "wstr", $sGUID, "ptr", $pGUID )
- Return $tGUID
- EndFunc
- Func GUIDFromStringEx( $sGUID, $tGUID )
- Static $hOle32Dll = "ole32.dll"
- DllCall( $hOle32Dll, "long", "CLSIDFromString", "wstr", $sGUID, "struct*", $tGUID )
- EndFunc
|