Click here to Skip to main content
15,881,882 members
Articles / General Programming / File

VB 9.0, C# 3.0 API Viewer

Rate me:
Please Sign up or sign in to vote.
4.35/5 (10 votes)
24 May 2012CPOL5 min read 79.8K   4.2K   42  
This is a remake of Pramod Kumar Sing's 2002 API Viewer.
Declare Sub AcceptSecurityContext lib "digest" (ByRef phCredential As Long, ByRef phContext As Long, ByRef pInput As PSecBufferDesc, ByVal fContextReq As Long, ByVal TargetDataRep As Long, ByRef phNewContext As Long, ByRef pOutput As PSecBufferDesc, ByRef pfContextAttr As Long, ByRef ptsExpiry As PTimeStamp)
Declare Sub AccessibleChildren lib "OLEACC" (ByRef paccContainer As IAccessible, ByVal iChildStart As Long, ByVal cChildren As Long, ByRef rgvarChildren As Variant, ByRef pcObtained As Long)
Declare Sub AccessibleObjectFromEvent lib "OLEACC" (ByVal hwnd As Long, ByVal dwId As Long, ByVal dwChildId As Long, ByRef ppacc As IAccessible, ByRef pvarChild As Variant)
Declare Sub AccessibleObjectFromPoint lib "OLEACC" (ByVal ptScreen As Struct_MembersOf_POINT, ByRef ppacc As IAccessible, ByRef pvarChild As Variant)
Declare Sub AccessibleObjectFromWindow lib "OLEACC" (ByVal hwnd As Long, ByVal dwId As Long, ByVal riid As Long, ppvObject As Any)
Declare Sub AcquireCredentialsHandle lib "digest" Alias "AcquireCredentialsHandleA" (ByRef pszPrincipal As SEC_CHAR, ByRef pszPackage As SEC_CHAR, ByVal fCredentialUse As Long, pvLogonId As Any, pAuthData As Any, ByRef pGetKeyFn As SEC_GET_KEY_FN, pvGetKeyArgument As Any, ByRef phCredential As Long, ByRef ptsExpiry As PTimeStamp)
Declare Sub AddCredentials lib "SECUR32" (ByRef hCredentials As PCredHandle, ByRef pszPrincipal As SEC_CHAR, ByRef pszPackage As SEC_CHAR, ByVal fCredentialUse As Long, pAuthData As Any, ByRef pGetKeyFn As SEC_GET_KEY_FN, pvGetKeyArgument As Any, ByRef ptsExpiry As PTimeStamp)
Declare Sub AddSecurityPackage lib "secur32" Alias "AddSecurityPackageA" (ByRef pszPackageName As SEC_CHAR, ByRef Options As SECURITY_PACKAGE_OPTIONS)
Declare Sub AdsFreeAdsValues lib "activeds" (ByRef pAdsValues As PADSVALUE, ByVal dwNumValues As Long)
Declare Sub ADsPropCreateNotifyObj lib "dsprop" (ByRef pAppThdDataObj As DataObject, ByVal pwzADsObjName As String, ByRef phNotifyObj As Long)
Declare Sub ADsSetLastError lib "activeds" (ByVal dwErr As Long, ByVal pszError As String, ByVal pszProvider As String)
Declare Sub ApplyControlToken lib "digest" (ByRef phContext As Long, ByRef pInput As PSecBufferDesc)
Declare Sub AssocCreate lib "shlwapi" (ByVal Clsid As Long, ByVal riid As Long, ppv As Any)
Declare Sub AssocQueryKey lib "shlwapi" Alias "AssocQueryKeyA" (ByRef flags As ASSOCF, ByVal key As Struct_MembersOf_ASSOCKEY, ByVal pszAssoc As String, ByVal pszExtra As String, ByRef phkeyOut As Long)
Declare Sub AssocQueryString lib "shlwapi" Alias "AssocQueryStringA" (ByRef flags As ASSOCF, ByVal str As Struct_MembersOf_ASSOCSTR, ByVal pszAssoc As String, ByVal pszExtra As String, ByVal pszOut As String, ByRef pcchOut As Long)
Declare Sub AssocQueryStringByKey lib "shlwapi" Alias "AssocQueryStringByKeyA" (ByRef flags As ASSOCF, ByVal str As Struct_MembersOf_ASSOCSTR, ByVal hkAssoc As Long, ByVal pszExtra As String, ByVal pszOut As String, ByRef pcchOut As Long)
Declare Sub AtlAdvise lib "atl" (ByVal pUnkCP As Long, ByVal punk As Long, ByRef iid As Guid, ByRef pdw As Long)
Declare Sub AtlFreeMarshalStream lib "atl" (ByVal pStream As Long)
Declare Sub AtlInternalQueryInterface lib "atl" (pThis As Any, ByRef pEntries As ATL_INTMAP_ENTRY, ByVal iid As Long, ppvObject As Any)
Declare Sub AtlMarshalPtrInProc lib "atl" (ByVal punk As Long, ByRef iid As Guid, ByVal ppstream As Long)
Declare Sub AtlModuleAddCreateWndData lib "atl" (ByRef pM As ATL_MODULE, ByRef pData As AtlCreateWndData, pObject As Any)
Declare Sub AtlModuleAddTermFunc lib "atl" (ByRef pM As ATL_MODULE, ByRef pFunc As ATL_TERMFUNC, ByVal dw As Long)
Declare Sub AtlModuleExtractCreateWndData lib "atl" (ByRef pM As ATL_MODULE)
Declare Sub AtlModuleGetClassObject lib "atl" (ByRef pM As ATL_MODULE, ByVal rclsid As Long, ByVal riid As Long, ppv As Any)
Declare Sub AtlModuleInit lib "atl" (ByRef pM As ATL_MODULE, ByRef p As ATL_OBJMAP_ENTRY, ByVal h As Long)
Declare Sub AtlModuleLoadTypeLib lib "atl" (ByRef pM As ATL_MODULE, ByVal lpszIndex As Long, ByVal pbstrPath As Long, ByVal ppTypeLib As Long)
Declare Sub AtlModuleRegisterClassObjects lib "atl" (ByRef pM As ATL_MODULE, ByVal dwClsContext As Long, ByVal dwFlags As Long)
Declare Sub AtlModuleRegisterServer lib "atl" (ByRef pM As ATL_MODULE, ByVal bRegTypeLib As Long, ByRef lNULL As Long)
Declare Sub AtlModuleRegisterTypeLib lib "atl" (ByRef pM As ATL_MODULE, ByVal lpszIndex As Long)
Declare Sub AtlModuleRevokeClassObjects lib "atl" (ByRef pM As ATL_MODULE)
Declare Sub AtlModuleTerm lib "atl" (ByRef pM As ATL_MODULE)
Declare Sub AtlModuleUnregisterServer lib "atl" (ByRef pM As ATL_MODULE, ByRef lNULL As Long)
Declare Sub AtlModuleUnregisterServerEx lib "atl" (ByRef pM As ATL_MODULE, ByVal bUnRegTypeLib As Long, ByRef lNULL As Long)
Declare Sub AtlModuleUnRegisterTypeLib lib "atl" (ByRef pM As ATL_MODULE, ByVal lpszIndex As Long)
Declare Sub AtlModuleUpdateRegistryFromResourceD lib "atl" (ByRef T_ATL_MODULE As ATL_MODULE, ByVal lpszRes As Long, ByVal bRegister As Long, ByRef pMapEntries As ATL_REGMAP_ENTRY, ByRef lNULL As Long)
Declare Sub AtlRegisterClassCategoriesHelper lib "atl" (ByRef T As pEntry, ByRef FunctionCall As pEntry, ByRef TTRUE As Boolean)
Declare Sub AtlSetErrorInfo lib "atl" (ByRef clsid As Long, ByVal lpszDesc As Long, ByVal dwHelpID As Long, ByVal lpszHelpFile As Long, ByRef iid As Guid, ByVal hRes As Long, ByVal hInst As Long)
Declare Sub AtlUnadvise lib "atl" (ByVal pUnkCP As Long, ByRef iid As Guid, ByVal dw As Long)
Declare Sub AtlUnmarshalPtr lib "atl" (ByVal pStream As Long, ByRef iid As Guid, ByVal ppUnk As Long)
Declare Sub AVIBuildFilter lib "avifil32" (ByVal lpszFilter As String, ByVal cbFilter As Long, ByVal fSaving As Long)
Declare Sub AVIClearClipboard lib "avifil32" ()
Declare Sub AVIFileCreateStream lib "avifil32" (ByVal pfile As Long, ByVal ppavi As Long, ByRef psi As AVISTREAMINFOA)
Declare Sub AVIFileEndRecord lib "avifil32" (ByVal pfile As Long)
Declare Sub AVIFileExit lib "avifil32" ()
Declare Sub AVIFileGetStream lib "avifil32" (ByVal pfile As Long, ByVal ppavi As Long, ByVal fccType As Long, ByVal lParam As Long)
Declare Sub AVIFileInfo lib "avifil32" (ByVal pfile As Long, ByRef pfi As AVIFileInfo, ByVal lSize As Long)
Declare Sub AVIFileInit lib "avifil32" ()
Declare Sub AVIFileOpen lib "avifil32" (ByRef ppfile As Long, ByVal szFile As String, ByVal uMode As Long, ByVal lpHandler As Long)
Declare Sub AVIFileReadData lib "avifil32" (ByVal pfile As Long, ByVal ckid As Long, lpData As Any, ByRef lpcbData As Long)
Declare Sub AVIFileWriteData lib "avifil32" (ByVal pfile As Long, ByVal ckid As Long, lpData As Any, ByVal cbData As Long)
Declare Sub AVIGetFromClipboard lib "avifil32" (ByRef lppf As Long)
Declare Sub AVIMakeCompressedStream lib "avifil32" (ByVal ppsCompressed As Long, ByVal ppsSource As Long, ByRef lpOptions As AVICOMPRESSOPTIONS, ByRef pclsidHandler As Long)
Declare Sub AVIMakeFileFromStreams lib "avifil32" (ByRef ppfile As Long, ByVal nStreams As Long, ByVal papStreams As Long)
Declare Sub AVIMakeStreamFromClipboard lib "avifil32" (ByVal cfFormat As Long, ByVal hGlobal As Long, ByVal ppstream As Long)
Declare Sub AVIPutFileOnClipboard lib "avifil32" (ByVal pf As Long)
Declare Sub AVISaveOptions lib "avifil32" (ByVal hwnd As Long, ByVal uiFlags As Long, ByVal nStreams As Long, ByVal ppavi As Long, ByRef plpOptions As AVICOMPRESSOPTIONS)
Declare Sub AVISaveOptionsFree lib "avifil32" (ByVal nStreams As Long, ByRef plpOptions As AVICOMPRESSOPTIONS)
Declare Sub AVISaveV lib "avifil32" (ByVal szFile As String, ByRef pclsidHandler As Long, ByVal lpfnCallback As Long, ByVal nStreams As Long, ByVal ppavi As Long, ByRef plpOptions As AVICOMPRESSOPTIONS)
Declare Sub AVIStreamBeginStreaming lib "avifil32" (ByVal pavi As Long, ByVal lStart As Long, ByVal lEnd As Long, ByVal lRate As Long)
Declare Sub AVIStreamCreate lib "avifil32" (ByVal ppavi As Long, ByVal lParam1 As Long, ByVal lParam2 As Long, ByRef pclsidHandler As Long)
Declare Sub AVIStreamEndStreaming lib "avifil32" (ByVal pavi As Long)
Declare Sub AVIStreamGetFrameClose lib "avifil32" (ByVal pg As Long)
Declare Sub AVIStreamInfo lib "avifil32" (ByVal pavi As Long, ByRef psi As AVISTREAMINFOA, ByVal lSize As Long)
Declare Sub AVIStreamOpenFromFile lib "avifil32" (ByVal ppavi As Long, ByVal szFile As String, ByVal fccType As Long, ByVal lParam As Long, ByVal mode As Long, ByRef pclsidHandler As Long)
Declare Sub AVIStreamRead lib "avifil32" (ByVal pavi As Long, ByVal lStart As Long, ByVal lSamples As Long, lpBuffer As Any, ByVal cbBuffer As Long, ByRef plBytes As Long, ByRef plSamples As Long)
Declare Sub AVIStreamReadData lib "avifil32" (ByVal pavi As Long, ByVal fcc As Long, lp As Any, ByRef lpcb As Long)
Declare Sub AVIStreamReadFormat lib "avifil32" (ByVal pavi As Long, ByVal lPos As Long, lpFormat As Any, ByRef lpcbFormat As Long)
Declare Sub AVIStreamSetFormat lib "avifil32" (ByVal pavi As Long, ByVal lPos As Long, lpFormat As Any, ByVal cbFormat As Long)
Declare Sub AVIStreamWrite lib "avifil32" (ByVal pavi As Long, ByVal lStart As Long, ByVal lSamples As Long, lpBuffer As Any, ByVal cbBuffer As Long, ByVal dwFlags As Long, ByRef plSampWritten As Long, ByRef plBytesWritten As Long)
Declare Sub AVIStreamWriteData lib "avifil32" (ByVal pavi As Long, ByVal fcc As Long, lp As Any, ByVal cb As Long)
Declare Sub bcp_batch lib "ODBCBCP" (ByRef TPDBPROCESS As PDBPROCESS)
Declare Sub bcp_done lib "ODBCBCP" (ByRef TPDBPROCESS As PDBPROCESS)
Declare Sub ber_alloc_t lib "WLDAP32" (ByVal Options As Long)
Declare Sub ber_bvdup lib "WLDAP32" (ByRef pBerVal As BERVAL)
Declare Sub ber_bvecfree lib "WLDAP32" (ByRef pBerVal As pBerVal)
Declare Sub ber_bvfree lib "wldap32" (ByRef bv As Long)
Declare Sub ber_free lib "WLDAP32" (ByRef pBerElement As BerElement, ByVal fbuf As Long)
Declare Sub ber_init lib "WLDAP32" (ByRef pBerVal As BERVAL)
Declare Sub BindIFilterFromStorage lib "query" (ByVal pStg As Long, ByVal pUnkOuter As Long, ppIUnk As Any)
Declare Sub BindIFilterFromStream lib "query" (ByVal pStm As Long, ByVal pUnkOuter As Long, ppIUnk As Any)
Declare Sub BindMoniker lib "ole32" (ByVal pmk As Long, ByVal grfOpt As Long, ByVal iidResult As Long, ppvResult As Any)
Declare Sub BSTR_UserFree lib "oleaut32" (ByRef pLong As Long, ByVal pBstr As Long)
Declare Sub BstrFromVector lib "oleaut32" (ByRef psa As SAFEARRAY, ByVal pBstr As Long)
Declare Sub BuildExplicitAccessWithName lib "ADVAPI32" (ByRef pExplicitAccess As OUT, ByVal pTrusteeName As String, ByVal AccessPermissions As Long, ByRef AccessMode As ACCESS_MODE, ByVal Inheritance As Long)
Declare Sub BuildImpersonateExplicitAccessWithName lib "ADVAPI32" (ByRef pExplicitAccess As OUT, ByVal pTrusteeName As String, ByRef pTrustee As PTRUSTEE_A, ByVal AccessPermissions As Long, ByRef AccessMode As ACCESS_MODE, ByVal Inheritance As Long)
Declare Sub BuildImpersonateTrustee lib "ADVAPI32" (ByRef pTrustee As OUT, ByRef pImpersonateTrustee As PTRUSTEE_A)
Declare Sub BuildTrusteeWithName lib "ADVAPI32" (ByRef pTrustee As OUT, ByVal pname As String)
Declare Sub BuildTrusteeWithObjectsAndName lib "ADVAPI32" (ByRef pTrustee As OUT, ByRef pObjName As POBJECTS_AND_NAME_A, ByRef ObjectType As SE_OBJECT_TYPE, ByVal ObjectTypeName As String, ByVal InheritedObjectTypeName As String, ByVal name As String)
Declare Sub BuildTrusteeWithObjectsAndSid lib "ADVAPI32" (ByRef pTrustee As OUT, ByRef pObjSid As POBJECTS_AND_SID, ByRef pObjectGuid As Guid, ByRef pInheritedObjectGuid As Guid, ByRef pSid As Sid)
Declare Sub BuildTrusteeWithSid lib "ADVAPI32" (ByRef pTrustee As OUT, ByRef pSid As Sid)
Declare Sub CertCreateCertificateContext lib "crypt32" (ByVal dwCertEncodingType As Long, ByVal pbCertEncoded As String, ByVal cbCertEncoded As Long)
Declare Sub CertCreateContext lib "crypt32" (ByVal dwContextType As Long, ByVal dwEncodingType As Long, ByVal pbEncoded As String, ByVal cbEncoded As Long, ByVal dwFlags As Long, ByRef pCreatePara As PCERT_CREATE_CONTEXT_PARA)
Declare Sub CertCreateCRLContext lib "crypt32" (ByVal dwCertEncodingType As Long, ByVal pbCrlEncoded As String, ByVal cbCrlEncoded As Long)
Declare Sub CertCreateCTLContext lib "crypt32" (ByVal dwMsgAndCertEncodingType As Long, ByVal pbCtlEncoded As String, ByVal cbCtlEncoded As Long)
Declare Sub CertCreateSelfSignCertificate lib "crypt32" (ByRef hProv As Long, ByRef pSubjectIssuerBlob As PCERT_NAME_BLOB, ByVal dwFlags As Long, ByRef pKeyProvInfo As PCRYPT_KEY_PROV_INFO, ByRef pSignatureAlgorithm As PCRYPT_ALGORITHM_IDENTIFIER, ByRef pStartTime As SYSTEMTIME, ByRef pEndTime As SYSTEMTIME, ByRef pExtensions As PCERT_EXTENSIONS)
Declare Sub CertDuplicateCertificateChain lib "crypt32" (ByRef pChainContext As PCCERT_CHAIN_CONTEXT)
Declare Sub CertDuplicateCertificateContext lib "crypt32" (ByRef pCertContext As Long)
Declare Sub CertDuplicateCRLContext lib "crypt32" (ByRef pCrlContext As PCCRL_CONTEXT)
Declare Sub CertDuplicateCTLContext lib "crypt32" (ByRef pCtlContext As PCCTL_CONTEXT)
Declare Sub CertDuplicateStore lib "crypt32" (ByRef hCertStore As Long)
Declare Sub CertEnumCertificatesInStore lib "crypt32" (ByRef hCertStore As Long, ByRef pPrevCertContext As Long)
Declare Sub CertEnumCRLsInStore lib "crypt32" (ByRef hCertStore As Long, ByRef pPrevCrlContext As PCCRL_CONTEXT)
Declare Sub CertEnumCTLsInStore lib "crypt32" (ByRef hCertStore As Long, ByRef pPrevCtlContext As PCCTL_CONTEXT)
Declare Sub CertFindAttribute lib "crypt32" (ByVal pszObjId As String, ByVal cAttr As Long, ByRef rgAttr As CRYPT_ATTRIBUTE)
Declare Sub CertFindCertificateInStore lib "crypt32" (ByRef hCertStore As Long, ByVal dwCertEncodingType As Long, ByVal dwFindFlags As Long, ByVal dwFindType As Long, pvFindPara As Any, ByRef pPrevCertContext As Long)
Declare Sub CertFindChainInStore lib "crypt32" (ByRef hCertStore As Long, ByVal dwCertEncodingType As Long, ByVal dwFindFlags As Long, ByVal dwFindType As Long, pvFindPara As Any, ByRef pPrevChainContext As PCCERT_CHAIN_CONTEXT)
Declare Sub CertFindCRLInStore lib "crypt32" (ByRef hCertStore As Long, ByVal dwCertEncodingType As Long, ByVal dwFindFlags As Long, ByVal dwFindType As Long, pvFindPara As Any, ByRef pPrevCrlContext As PCCRL_CONTEXT)
Declare Sub CertFindCTLInStore lib "crypt32" (ByRef hCertStore As Long, ByVal dwMsgAndCertEncodingType As Long, ByVal dwFindFlags As Long, ByVal dwFindType As Long, pvFindPara As Any, ByRef pPrevCtlContext As PCCTL_CONTEXT)
Declare Sub CertFindExtension lib "crypt32" (ByVal pszObjId As String, ByVal cExtensions As Long, ByRef rgExtensions As CERT_EXTENSION)
Declare Sub CertFindRDNAttr lib "crypt32" (ByVal pszObjId As String, ByRef pName As PCERT_NAME_INFO)
Declare Sub CertFindSubjectInCTL lib "crypt32" (ByVal dwEncodingType As Long, ByVal dwSubjectType As Long, pvSubject As Any, ByRef pCtlContext As PCCTL_CONTEXT, ByVal dwFlags As Long)
Declare Sub CertFreeCertificateChain lib "crypt32" (ByRef pChainContext As PCCERT_CHAIN_CONTEXT)
Declare Sub CertFreeCertificateChainEngine lib "crypt32" (ByRef hChainEngine As Long)
Declare Sub CertGetCRLFromStore lib "crypt32" (ByRef hCertStore As Long, ByRef pIssuerContext As Long, ByRef pPrevCrlContext As PCCRL_CONTEXT, ByRef pdwFlags As Long)
Declare Sub CertGetIssuerCertificateFromStore lib "crypt32" (ByRef hCertStore As Long, ByRef pSubjectContext As Long, ByRef pPrevIssuerContext As Long, ByRef pdwFlags As Long)
Declare Sub CertGetSubjectCertificateFromStore lib "crypt32" (ByRef hCertStore As Long, ByVal dwCertEncodingType As Long, ByRef pCertId As PCERT_INFO)
Declare Sub CertOpenStore lib "crypt32" (ByVal lpszStoreProvider As String, ByVal dwEncodingType As Long, ByRef hCryptProv As Long, ByVal dwFlags As Long, pvPara As Any)
Declare Sub CertOpenSystemStore lib "crypt32" Alias "CertOpenSystemStoreA" (ByRef hProv As Long, ByVal szSubsystemProtocol As String)
Declare Sub CertRemoveStoreFromCollection lib "crypt32" (ByRef hCollectionStore As Long, ByRef hSiblingStore As Long)
Declare Sub char_array_from_ndr lib "rpcrt4" (ByVal SourceMessage As Long, ByVal LowerIndex As Long, ByVal UpperIndex As Long, ByVal Target As String)
Declare Sub char_from_ndr lib "rpcrt4" (ByVal SourceMessage As Long, ByVal Target As String)
Declare Sub CheckSumMappedFile lib "imagehlp" (BaseAddress As Any, ByVal FileLength As Long, ByRef HeaderSum As Long, ByRef CheckSum As Long)
Declare Sub CIBuildQueryNode lib "query" (ByRef wcsProperty As Byte, ByRef dbOperator As DBCOMMANDOP, ByRef pvarPropertyValue As PROPVARIANT, ByRef ppTree As DBCOMMANDTREE, ByVal cProperties As Long, ByRef pProperty As CIPROPERTYDEF, ByVal LocaleID As Long)
Declare Sub CIBuildQueryTree lib "query" (ByRef pExistingTree As DBCOMMANDTREE, ByRef dbBoolOp As DBCOMMANDOP, ByVal cSiblings As Long, ByRef ppSibsToCombine As DBCOMMANDTREE, ByRef ppTree As DBCOMMANDTREE)
Declare Sub CICreateCommand lib "query" (ByVal ppCommand As Long, ByVal pUnkOuter As Long, ByVal riid As Long, ByRef pwcsCatalog As Byte, ByRef pwcsMachine As Byte)
Declare Sub CIMakeICommand lib "query" (ByRef ppCommand As ICommand, ByVal cScope As Long, ByRef aDepths As Long, ByRef awcsScope As Byte, ByRef awcsCatalogs As Byte, ByRef awcsMachine As Byte)
Declare Sub CIRestrictionToFullTree lib "query" (ByRef pTree As DBCOMMANDTREE, ByRef pwszColumns As Byte, ByRef pwszSortColumns As Byte, ByRef pwszGroupings As Byte, ByRef ppTree As DBCOMMANDTREE, ByVal cProperties As Long, ByRef pReserved As CIPROPERTYDEF, ByVal LocaleID As Long)
Declare Sub CIState lib "query" (ByRef pwcsCat As Byte, ByRef pwcsMachine As Byte, ByRef pCiState As CI_STATE)
Declare Sub CITextToFullTree lib "query" (ByRef pwszRestriction As Byte, ByRef pwszColumns As Byte, ByRef pwszSortColumns As Byte, ByRef pwszGroupings As Byte, ByRef ppTree As DBCOMMANDTREE, ByVal cProperties As Long, ByRef pProperties As CIPROPERTYDEF, ByVal LocaleID As Long)
Declare Sub CITextToFullTreeEx lib "query" (ByRef pwszRestriction As Byte, ByVal ulDialect As Long, ByRef pwszColumns As Byte, ByRef pwszSortColumns As Byte, ByRef pwszGroupings As Byte, ByRef ppTree As DBCOMMANDTREE, ByVal cProperties As Long, ByRef pProperties As CIPROPERTYDEF, ByVal LocaleID As Long)
Declare Sub CITextToSelectTree lib "query" (ByRef pwszRestriction As Byte, ByRef ppTree As DBCOMMANDTREE, ByVal cProperties As Long, ByRef pProperties As CIPROPERTYDEF, ByVal LocaleID As Long)
Declare Sub CITextToSelectTreeEx lib "query" (ByRef pwszRestriction As Byte, ByVal ulDialect As Long, ByRef ppTree As DBCOMMANDTREE, ByVal cProperties As Long, ByRef pProperties As CIPROPERTYDEF, ByVal LocaleID As Long)
Declare Sub cldap_open lib "wldap32" (ByVal HostName As String, ByVal PortNumber As Long)
Declare Sub ClearCustData lib "oleaut32" (ByRef pCustData As CUSTDATA)
Declare Sub CLIPFORMAT_UserFree lib "ole32" (ByRef pLong As Long, ByRef pClipformat As Integer)
Declare Sub CloseEncryptedFileRaw lib "advapi32" (pvContext As Any)
Declare Sub CLSIDFromProgIDEx lib "OLE32" (ByVal lpszProgID As Long, ByVal lpclsid As Long)
Declare Sub CLSIDFromString lib "ole32" (ByVal lpsz As String, ByVal pclsid As Long)
Declare Sub ClusterGroupOpenEnum lib "clusapi" (ByRef hGroup As hGroup, ByVal dwType As Long)
Declare Sub ClusterNodeOpenEnum lib "clusapi" (ByRef hNode As hNode, ByVal dwType As Long)
Declare Sub ClusterOpenEnum lib "clusapi" (ByRef hCluster As hCluster, ByVal dwType As Long)
Declare Sub ClusWorkerTerminate lib "resutils" (ByRef lpWorker As PCLUS_WORKER)
Declare Sub CMCreateMultiProfileTransform lib "icm32" (ByRef pahProfiles As PHPROFILE, ByVal nProfiles As Long, ByRef padwIntents As Long, ByVal nIntents As Long, ByVal dwFlags As Long)
Declare Sub CMCreateTransform lib "icm32" (ByRef lpColorSpace As LOGCOLORSPACE, ByRef lpDevCharacter As DEVCHARACTER, ByRef lpTargetDevCharacter As DEVCHARACTER)
Declare Sub CMCreateTransformExt lib "icm32" (ByRef lpColorSpace As LOGCOLORSPACE, ByRef lpDevCharacter As DEVCHARACTER, ByRef lpTargetDevCharacter As DEVCHARACTER, ByVal dwFlags As Long)
Declare Sub CoAllowSetForegroundWindow lib "OLE32" (ByVal pUnk As Long, lpvReserved As Any)
Declare Sub CoCancelCall lib "ole32" (ByVal dwThreadId As Long, ByVal ulTimeout As Long)
Declare Sub CoCopyProxy lib "ole32" (ByVal pProxy As Long, ByVal ppCopy As Long)
Declare Sub CoCreateFreeThreadedMarshaler lib "ole32" (ByVal punkOuter As Long, ByVal ppunkMarshal As Long)
Declare Sub CoCreateGuid lib "ole32" (ByRef pguid As GUID)
Declare Sub CoCreateInstance lib "ole32" (ByVal rclsid As Long, ByVal pUnkOuter As Long, ByVal dwClsContext As Long, ByVal riid As Long, ppv As Any)
Declare Sub CoCreateInstanceEx lib "ole32" (ByVal Clsid As Long, ByVal punkOuter As Long, ByVal dwClsCtx As Long, ByRef pServerInfo As COSERVERINFO, ByVal dwCount As Long, ByRef pResults As MULTI_QI)
Declare Sub CoDisableCallCancellation lib "ole32" (pReserved As Any)
Declare Sub CoDisconnectObject lib "ole32" (ByVal pUnk As Long, ByVal dwReserved As Long)
Declare Sub CoEnableCallCancellation lib "ole32" (pReserved As Any)
Declare Sub CoFileTimeNow lib "ole32" (ByRef lpFileTime As FILETIME)
Declare Sub CoFreeAllLibraries lib "ole32" ()
Declare Sub CoFreeLibrary lib "ole32" (ByVal hInst As Long)
Declare Sub CoFreeUnusedLibraries lib "ole32" ()
Declare Sub CoGetCallContext lib "ole32" (ByVal riid As Long, ppInterface As Any)
Declare Sub CoGetCancelObject lib "ole32" (ByVal dwThreadId As Long, ByVal iid As Long, ppUnk As Any)
Declare Sub CoGetClassObject lib "ole32" (ByVal rclsid As Long, ByVal dwClsContext As Long, pvReserved As Any, ByVal riid As Long, ppv As Any)
Declare Sub CoGetClassObjectFromURL lib "URLMON" (ByVal rCLASSID As Long, ByVal szCODE As String, ByVal dwFileVersionMS As Long, ByVal dwFileVersionLS As Long, ByVal szType As String, ByVal pBindCtx As Long, ByVal dwClsContext As Long, pvReserved As Any, ByVal riid As Long, ppv As Any)
Declare Sub CoGetClassVersion lib "ole32" (ByRef pClassSpec As uCLSSPEC, ByRef pdwVersionMS As Long, ByRef pdwVersionLS As Long)
Declare Sub CoGetInstanceFromFile lib "ole32" (ByRef pServerInfo As COSERVERINFO, ByRef pClsid As Long, ByVal punkOuter As Long, ByVal dwClsCtx As Long, ByVal grfMode As Long, ByRef pwszName As Byte, ByVal dwCount As Long, ByRef pResults As MULTI_QI)
Declare Sub CoGetInstanceFromIStorage lib "ole32" (ByRef pServerInfo As COSERVERINFO, ByRef pClsid As Long, ByVal punkOuter As Long, ByVal dwClsCtx As Long, ByVal pstg As Long, ByVal dwCount As Long, ByRef pResults As MULTI_QI)
Declare Sub CoGetInterfaceAndReleaseStream lib "ole32" (ByRef pStm As Long, ByVal iid As Long, ppv As Any)
Declare Sub CoGetMalloc lib "ole32" (ByVal dwMemContext As Long, ByVal ppMalloc As Long)
Declare Sub CoGetMarshalSizeMax lib "ole32" (ByRef pulSize As Long, ByVal riid As Long, ByVal pUnk As Long, ByVal dwDestContext As Long, pvDestContext As Any, ByVal mshlflags As Long)
Declare Sub CoGetObject lib "ole32" (ByVal pszName As String, ByRef pBindOptions As BIND_OPTS, ByVal riid As Long, ppv As Any)
Declare Sub CoGetObjectContext lib "ole32" (ByVal riid As Long, ppv As Any)
Declare Sub CoGetPSClsid lib "ole32" (ByVal riid As Long, ByRef pClsid As Long)
Declare Sub CoGetStandardMarshal lib "ole32" (ByVal riid As Long, ByVal pUnk As Long, ByVal dwDestContext As Long, pvDestContext As Any, ByVal mshlflags As Long, ByVal ppMarshal As Long)
Declare Sub CoGetStdMarshalEx lib "ole32" (ByVal pUnkOuter As Long, ByVal smexflags As Long, ByVal ppUnkInner As Long)
Declare Sub CoGetTreatAsClass lib "ole32" (ByVal clsidOld As Long, ByVal pClsidNew As Long)
Declare Sub CoImpersonateClient lib "ole32" ()
Declare Sub CoInitialize lib "ole32" (pvReserved As Any)
Declare Sub CoInitializeEx lib "ole32" (pvReserved As Any, ByVal dwCoInit As Long)
Declare Sub CoInitializeSecurity lib "ole32" (ByRef pSecDesc As SECURITY_DESCRIPTOR, ByVal cAuthSvc As Long, ByRef asAuthSvc As SOLE_AUTHENTICATION_SERVICE, pReserved1 As Any, ByVal dwAuthnLevel As Long, ByVal dwImpLevel As Long, pAuthList As Any, ByVal dwCapabilities As Long, pReserved3 As Any)
Declare Sub CoInstall lib "ole32" (ByVal pbc As Long, ByVal dwFlags As Long, ByRef pClassSpec As uCLSSPEC, ByRef pQuery As QUERYCONTEXT, ByVal pszCodeBase As String)
Declare Sub CoInternetCombineUrl lib "URLMON" (ByVal pwzBaseUrl As String, ByVal pwzRelativeUrl As String, ByVal dwCombineFlags As Long, ByVal pszResult As String, ByVal cchResult As Long, ByRef pcchResult As Long, ByVal dwReserved As Long)
Declare Sub CoInternetCompareUrl lib "URLMON" (ByVal pwzUrl1 As String, ByVal pwzUrl2 As String, ByVal dwFlags As Long)
Declare Sub CoInternetCreateSecurityManager lib "URLMON" (ByRef pSP As IServiceProvider, ByRef ppSM As IInternetSecurityManager, ByVal dwReserved As Long)
Declare Sub CoInternetCreateZoneManager lib "URLMON" (ByRef pSP As IServiceProvider, ByRef ppZM As IInternetZoneManager, ByVal dwReserved As Long)
Declare Sub CoInternetGetProtocolFlags lib "URLMON" (ByVal pwzUrl As String, ByRef pdwFlags As Long, ByVal dwReserved As Long)
Declare Sub CoInternetGetSecurityUrl lib "URLMON" (ByVal pwzUrl As String, ByVal ppwzSecUrl As String, ByRef psuAction As psuAction, ByVal dwReserved As Long)
Declare Sub CoInternetGetSession lib "URLMON" (ByVal dwSessionMode As Long, ByRef ppIInternetSession As IInternetSession, ByVal dwReserved As Long)
Declare Sub CoInternetParseUrl lib "URLMON" (ByVal pwzUrl As String, ByRef ParseAction As ParseAction, ByVal dwFlags As Long, ByVal pszResult As String, ByVal cchResult As Long, ByRef pcchResult As Long, ByVal dwReserved As Long)
Declare Sub CoInternetQueryInfo lib "URLMON" (ByVal pwzUrl As String, ByRef QueryOptions As QUERYOPTION, ByVal dwQueryFlags As Long, pvBuffer As Any, ByVal cbBuffer As Long, ByRef pcbBuffer As Long, ByVal dwReserved As Long)
Declare Sub CoLockObjectExternal lib "ole32" (ByVal pUnk As Long, ByVal fLock As Long, ByVal fLastUnlockReleases As Long)
Declare Sub ColorRGBToHLS lib "shlwapi" (ByVal clrRGB As Long, ByRef pwHue As Integer, ByRef pwLuminance As Integer, ByRef pwSaturation As Integer)
Declare Sub CoMarshalHresult lib "ole32" (ByRef pstm As Long, ByVal hresult As Long)
Declare Sub CoMarshalInterface lib "ole32" (ByRef pStm As Long, ByVal riid As Long, ByVal pUnk As Long, ByVal dwDestContext As Long, pvDestContext As Any, ByVal mshlflags As Long)
Declare Sub CoMarshalInterThreadInterfaceInStream lib "ole32" (ByVal riid As Long, ByVal pUnk As Long, ByRef ppStm As Long)
Declare Sub CommitUrlCacheEntry lib "wininet" Alias "CommitUrlCacheEntryA" (ByVal lpszUrlName As String, ByVal lpszLocalFileName As String, ByVal ExpireTime As Struct_MembersOf_FILETIME, ByVal LastModifiedTime As Struct_MembersOf_FILETIME, ByVal CacheEntryType As Long, ByVal lpHeaderInfo As String, ByVal dwHeaderSize As Long, ByVal lpszFileExtension As String, ByVal lpszOriginalUrl As String)
Declare Sub CompleteAuthToken lib "digest" (ByRef phContext As Long, ByRef pToken As PSecBufferDesc)
Declare Sub CopyBindInfo lib "URLMON" (ByRef pcbiSrc As longx, ByRef pbiDest As BINDINFO)
Declare Sub CopyMemory lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Declare Sub CopyStgMedium lib "URLMON" (ByRef pcstgmedSrc As STGMEDIUM, ByRef pstgmedDest As STGMEDIUM)
Declare Sub CoQueryAuthenticationServices lib "ole32" (ByRef pcAuthSvc As Long, ByRef asAuthSvc As SOLE_AUTHENTICATION_SERVICE)
Declare Sub CoQueryClientBlanket lib "ole32" (ByRef pAuthnSvc As Long, ByRef pAuthzSvc As Long, ByRef pServerPrincName As Byte, ByRef pAuthnLevel As Long, ByRef pImpLevel As Long, ByRef pPrivs As Long, ByRef pCapabilities As Long)
Declare Sub CoQueryProxyBlanket lib "ole32" (ByVal pProxy As Long, ByRef pwAuthnSvc As Long, ByRef pAuthzSvc As Long, ByRef pServerPrincName As Byte, ByRef pAuthnLevel As Long, ByRef pImpLevel As Long, ByRef pAuthInfo As Long, ByRef pCapabilites As Long)
Declare Sub CoRegisterChannelHook lib "ole32" (ByVal ExtensionUuid As Long, ByRef pChannelHook As Long)
Declare Sub CoRegisterClassObject lib "ole32" (ByVal rclsid As Long, ByVal pUnk As Long, ByVal dwClsContext As Long, ByVal flags As Long, ByRef lpdwRegister As Long)
Declare Sub CoRegisterMallocSpy lib "ole32" (ByVal pMallocSpy As Long)
Declare Sub CoRegisterMessageFilter lib "ole32" (ByVal lpMessageFilter As Long, ByVal lplpMessageFilter As Long)
Declare Sub CoRegisterPSClsid lib "ole32" (ByVal riid As Long, ByVal rclsid As Long)
Declare Sub CoRegisterSurrogate lib "ole32" (ByRef pSurrogate As SURROGATE)
Declare Sub CoReleaseMarshalData lib "ole32" (ByRef pStm As Long)
Declare Sub CoResumeClassObjects lib "ole32" ()
Declare Sub CoRevertToSelf lib "ole32" ()
Declare Sub CoRevokeClassObject lib "ole32" (ByVal dwRegister As Long)
Declare Sub CoRevokeMallocSpy lib "ole32" ()
Declare Sub CoSetCancelObject lib "ole32" (ByVal pUnk As Long)
Declare Sub CoSetProxyBlanket lib "ole32" (ByVal pProxy As Long, ByVal dwAuthnSvc As Long, ByVal dwAuthzSvc As Long, ByRef pServerPrincName As Byte, ByVal dwAuthnLevel As Long, ByVal dwImpLevel As Long, ByVal pAuthInfo As Long, ByVal dwCapabilities As Long)
Declare Sub CoSuspendClassObjects lib "ole32" ()
Declare Sub CoSwitchCallContext lib "ole32" (ByVal pNewObject As Long, ByVal ppOldObject As Long)
Declare Sub CoTaskMemFree lib "ole32" (pv As Any)
Declare Sub CoTestCancel lib "ole32" ()
Declare Sub CoTreatAsClass lib "ole32" (ByVal clsidOld As Long, ByVal clsidNew As Long)
Declare Sub CoUninitialize lib "ole32" ()
Declare Sub CoUnmarshalHresult lib "ole32" (ByRef pstm As Long, ByRef phresult As Long)
Declare Sub CoUnmarshalInterface lib "ole32" (ByRef pStm As Long, ByVal riid As Long, ppv As Any)
Declare Sub CoWaitForMultipleHandles lib "ole32" (ByVal dwFlags As Long, ByVal dwTimeout As Long, ByVal cHandles As Long, ByRef pHandles As Long, ByRef lpdwindex As Long)
Declare Sub CreateAntiMoniker lib "ole32" (ByVal ppmk As Long)
Declare Sub CreateAsyncBindCtx lib "URLMON" (ByVal Reserved As Long, ByRef pBSCb As IBindStatusCallback, ByVal pEFetc As Long, ByVal ppBC As Long)
Declare Sub CreateAsyncBindCtxEx lib "URLMON" (ByVal pbc As Long, ByVal dwOptions As Long, ByRef pBSCb As IBindStatusCallback, ByVal pEnum As Long, ByVal ppBC As Long, ByVal Reserved As Long)
Declare Sub CreateBindCtx lib "ole32" (ByVal reserved As Long, ByVal ppbc As Long)
Declare Sub CreateClassMoniker lib "ole32" (ByVal rclsid As Long, ByVal ppmk As Long)
Declare Sub CreateClusterGroup lib "clusapi" (ByRef hCluster As hCluster, ByVal lpszGroupName As String)
Declare Sub CreateClusterNotifyPort lib "clusapi" (ByRef hChange As Long, ByRef hCluster As Long, ByVal dwFilter As Long, ByRef dwNotifyKey As DWORD_PTR)
Declare Sub CreateClusterResource lib "clusapi" (ByRef hGroup As hGroup, ByVal lpszResourceName As String, ByVal lpszResourceType As String, ByVal dwFlags As Long)
Declare Sub CreateColorTransform lib "mscms" Alias "CreateColorTransformA" (ByRef lplogcolorspacea As LOGCOLORSPACE, ByRef THPROFILE As Long, ByRef THPROFILE As Long, ByVal dword As Long)
Declare Sub CreateDataAdviseHolder lib "ole32" (ByVal ppDAHolder As Long)
Declare Sub CreateDataCache lib "ole32" (ByVal pUnkOuter As Long, ByVal rclsid As Long, ByVal iid As Long, ppv As Any)
Declare Sub CreateDispTypeInfo lib "oleaut32" (ByRef pidata As TERFACEDATA, ByVal lcid As Long, ByVal pptinfo As Long)
Declare Sub CreateEditableStream lib "avifil32" (ByVal ppsEditable As Long, ByVal psSource As Long)
Declare Sub CreateErrorInfo lib "ole32" (ByVal pperrinfo As Long)
Declare Sub CreateFileMoniker lib "ole32" (ByVal lpszPathName As Long, ByVal ppmk As Long)
Declare Sub CreateFormatEnumerator lib "URLMON" (ByVal cfmtetc As Long, ByRef rgfmtetc As FORMATETC, ByVal ppenumfmtetc As Long)
Declare Sub CreateGenericComposite lib "ole32" (ByVal pmkFirst As Long, ByVal pmkRest As Long, ByVal ppmkComposite As Long)
Declare Sub CreateHTMLPropertyPage lib "MSHTML" (ByVal pMk As Long, ByRef ppPP As IPropertyPage)
Declare Sub CreateILockBytesOnHGlobal lib "ole32" (ByVal hGlobal As Long, ByVal fDeleteOnRelease As Long, ByVal pplkbyt As Long)
Declare Sub CreateItemMoniker lib "ole32" (ByVal lpszDelim As Long, ByVal lpszItem As Long, ByVal ppmk As Long)
Declare Sub CreateMultiProfileTransform lib "mscms" (ByRef TPHPROFILE As PHPROFILE, ByVal dword As Long, ByRef pdword As Long, ByVal dword As Long, ByVal dword As Long, ByVal dword As Long)
Declare Sub CreateObjrefMoniker lib "ole32" (ByVal punk As Long, ByVal ppmk As Long)
Declare Sub CreateOleAdviseHolder lib "ole32" (ByVal ppOAHolder As Long)
Declare Sub CreatePointerMoniker lib "ole32" (ByVal punk As Long, ByVal ppmk As Long)
Declare Sub CreateStdAccessibleObject lib "OLEACC" (ByVal hwnd As Long, ByVal idObject As Long, ByVal riid As Long, ppvObject As Any)
Declare Sub CreateStdAccessibleProxy lib "OLEACC" (ByVal hwnd As Long, ByVal pClassName As String, ByVal idObject As Long, ByVal riid As Long, ppvObject As Any)
Declare Sub CreateStdDispatch lib "oleaut32" (ByVal punkOuter As Long, pvThis As Any, ByVal ptinfo As Long, ByVal ppunkStdDisp As Long)
Declare Sub CreateStdProgressIndicator lib "ole32" (ByVal hwndParent As Long, ByVal pszTitle As Long, ByRef pIbscCaller As Long, ByRef ppIbsc As Long)
Declare Sub CreateStreamOnHGlobal lib "ole32" (ByVal hGlobal As Long, ByVal fDeleteOnRelease As Long, ByRef ppstm As Long)
Declare Sub CreateTextServices lib "RICHED20" (ByVal pUnkOuter As Long, ByRef pITextHost As ITextHost, ByVal ppUnk As Long)
Declare Sub CreateTypeLib lib "oleaut32" (ByVal syskind As Integer, ByRef szFile As Byte, ByVal ppctlib As Long)
Declare Sub CreateTypeLib2 lib "oleaut32" (ByVal syskind As Integer, ByVal szFile As Long, ByRef ppctlib As Long)
Declare Sub CreateUrlCacheEntry lib "wininet" Alias "CreateUrlCacheEntryA" (ByVal lpszUrlName As String, ByVal dwExpectedFileSize As Long, ByVal lpszFileExtension As String, ByVal lpszFileName As String, ByVal dwReserved As Long)
Declare Sub CreateUrlCacheGroup lib "wininet" (ByVal dwFlags As Long, lpReserved As Any)
Declare Sub CreateURLMoniker lib "URLMON" (ByVal pMkCtx As Long, ByVal szURL As String, ByVal ppmk As Long)
Declare Sub CreateWaitEvent lib "rtutils" (ByVal OPT1_1 As Long, ByRef OPT1_2 As SECURITY_ATTRIBUTES, ByVal bManualReset As Long, ByVal bInitialState As Long, ByVal OPT1_2 As String, ByVal bHighPriority As Long, ByRef OPT2_1 As WORKERFUNCTION, OPT2_1 As Any, ByVal OPT2_1 As Long, ByVal OPT2_1 As Long)
Declare Sub CreateWaitEventBinding lib "rtutils" (ByRef pee As PWT_EVENT_ENTRY, ByRef pFunction As WORKERFUNCTION, pContext As Any, ByVal dwContextSz As Long, ByVal bRunInServerContext As Long)
Declare Sub CreateWaitTimer lib "rtutils" (ByRef pFunction As WORKERFUNCTION, pContext As Any, ByVal dwContextSz As Long, ByVal bRunInServerContext As Long)
Declare Sub CryptFindOIDInfo lib "crypt32" (ByVal dwKeyType As Long, pvKey As Any, ByVal dwGroupId As Long)
Declare Sub CryptGetMessageCertificates lib "crypt32" (ByVal dwMsgAndCertEncodingType As Long, ByRef hCryptProv As Long, ByVal dwFlags As Long, ByVal pbSignedBlob As String, ByVal cbSignedBlob As Long)
Declare Sub CryptInitOIDFunctionSet lib "crypt32" (ByVal pszFuncName As String, ByVal dwFlags As Long)
Declare Sub CryptMemFree lib "crypt32" (pv As Any)
Declare Sub CryptMsgDuplicate lib "crypt32" (ByRef hCryptMsg As Long)
Declare Sub CryptMsgOpenToDecode lib "crypt32" (ByVal dwMsgEncodingType As Long, ByVal dwFlags As Long, ByVal dwMsgType As Long, ByRef hCryptProv As Long, ByRef pRecipientInfo As PCERT_INFO, ByRef pStreamInfo As PCMSG_STREAM_INFO)
Declare Sub CryptMsgOpenToEncode lib "crypt32" (ByVal dwMsgEncodingType As Long, ByVal dwFlags As Long, ByVal dwMsgType As Long, pvMsgEncodeInfo As Any, ByVal pszInnerContentObjID As String, ByRef pStreamInfo As PCMSG_STREAM_INFO)
Declare Sub CStdStubBuffer_DebugServerRelease lib "rpcrt4" (ByVal This As Long, pv As Any)
Declare Sub CStdStubBuffer_Disconnect lib "rpcrt4" (ByVal This As Long)
Declare Sub data_from_ndr lib "rpcrt4" (ByVal source As Long, target As Any, ByVal format As String, ByVal MscPak As Byte)
Declare Sub data_into_ndr lib "rpcrt4" (source As Any, ByVal target As Long, ByVal format As String, ByVal MscPak As Byte)
Declare Sub data_size_ndr lib "rpcrt4" (source As Any, ByVal target As Long, ByVal format As String, ByVal MscPak As Byte)
Declare Sub DbgBreakPoint lib "NTDLL" (ByVal pCondition As String, ByVal pFileName As String, ByVal iLine As Long)
Declare Sub DebugBreak Lib "kernel32" Alias "DebugBreak" ()
Declare Sub DebugPrintWaitWorkerThreads lib "rtutils" (ByVal dwDebugLevel As Long)
Declare Sub DecryptMessage lib "secur32" (ByRef phContext As Long, ByRef pMessage As PSecBufferDesc, ByVal MessageSeqNo As Long, ByRef pfQOP As Long)
Declare Sub DeleteCriticalSection Lib "kernel32" Alias "DeleteCriticalSection" (lpCriticalSection As CRITICAL_SECTION)
Declare Sub DeleteFiber lib "kernel32" (lpFiber As Any)
Declare Sub DeleteSecurityContext lib "digest" (ByRef phContext As Long)
Declare Sub DeleteSecurityPackage lib "secur32" Alias "DeleteSecurityPackageA" (ByRef pszPackageName As SEC_CHAR)
Declare Sub DeleteUrlCacheEntry lib "wininet" (ByVal lpszUrlName As String)
Declare Sub DeleteUrlCacheGroup lib "wininet" (ByRef GroupId As GROUPID, ByVal dwFlags As Long, lpReserved As Any)
Declare Sub DhcpCApiCleanup lib "DHCPCSVC" ()
Declare Sub DialogBoxParam lib "user32" Alias "DialogBoxParamA" (ByVal hInstance As Long, ByVal lpTemplateName As String, ByVal hWndParent As Long, ByVal lpDialogFunc As Long, ByVal dwInitParam As Long)
Declare Sub DispCallFunc lib "oleaut32" (pvInstance As Any, ByVal oVft As Long, ByVal cc As Integer, ByVal vtReturn As Integer, ByVal cActuals As Long, ByRef prgvt As Integer, ByRef prgpvarg As Variant, ByRef pvargResult As Variant)
Declare Sub DispGetIDsOfNames lib "oleaut32" (ByVal ptinfo As Long, ByRef rgszNames As Byte, ByVal cNames As Long, ByRef rgdispid As Long)
Declare Sub DispGetParam lib "oleaut32" (ByRef pdispparams As DISPPARAMS, ByVal position As Long, ByVal vtTarg As Integer, ByRef pvarResult As Variant, ByRef puArgErr As Long)
Declare Sub DispInvoke lib "oleaut32" (this As Any, ByVal ptinfo As Long, ByVal dispidMember As Long, ByVal wFlags As Integer, ByRef pparams As DISPPARAMS, ByRef pvarResult As Variant, ByRef pexcepinfo As EXCEPINFO, ByRef puArgErr As Long)
Declare Sub DllCanUnloadNow lib "activeds" ()
Declare Sub DllGetClassObject lib "activeds" (ByVal rclsid As Long, ByVal riid As Long, ppv As Any)
Declare Sub DllInstall lib "browseui" (ByVal bInstall As Long, ByVal pszCmdLine As String)
Declare Sub DllRegisterServer lib "activeds" ()
Declare Sub DllUnregisterServer lib "activeds" ()
Declare Sub DoDragDrop lib "ole32" (ByRef pDataObj As DATAOBJECT, ByVal pDropSource As Long, ByVal dwOKEffects As Long, ByRef pdwEffect As Long)
Declare Sub double_array_from_ndr lib "rpcrt4" (ByVal SourceMessage As Long, ByVal LowerIndex As Long, ByVal UpperIndex As Long, Target As Any)
Declare Sub double_from_ndr lib "rpcrt4" (ByVal SourceMessage As Long, Target As Any)
Declare Sub DragAcceptFiles Lib "shell32.dll" Alias "DragAcceptFiles" (ByVal hwnd As Long, ByVal fAccept As Long)
Declare Sub DragFinish Lib "shell32.dll" Alias "DragFinish" (ByVal hDrop As Long)
Declare Sub DrawInsert lib "comctl32" (ByVal handParent As Long, ByVal hLB As Long, ByVal nItem As Long)
Declare Sub DrawStatusText lib "comctl32" (ByVal hDC As Long, ByRef lprc As RECT, ByVal pszText As String, ByVal uFlags As Long)
Declare Sub DsBackupFree lib "ntdsbcli" (pvBuffer As Any)
Declare Sub DsFreeDomainControllerInfo lib "ntdsapi" (ByVal InfoLevel As Long, ByVal cInfo As Long, pInfo As Any)
Declare Sub DsFreeNameResult lib "ntdsapi" (ByRef pResult As DS_NAME_RESULTA)
Declare Sub DsFreePasswordCredentials lib "ntdsapi" (ByVal AuthIdentity As Long)
Declare Sub DsFreeSchemaGuidMap lib "ntdsapi" (ByRef pGuidMap As PDS_SCHEMA_GUID_MAPA)
Declare Sub DsFreeSpnArray lib "ntdsapi" (ByVal cSpn As Long, ByVal rpszSpn As String)
Declare Sub DsReplicaFreeInfo lib "ntdsapi" (ByVal InfoType As Struct_MembersOf_DS_REPL_INFO_TYPE, pInfo As Any)
Declare Sub DtcGetTransactionManagerEx lib "xolehlp" (ByVal i_pszHost As String, ByVal i_pszTmName As String, ByVal i_riid As Long, ByVal i_grfOptions As Long, i_pvConfigParams As Any, o_ppvObject As Any)
Declare Sub EbTerm lib "vba6" ()
Declare Sub EditStreamClone lib "avifil32" (ByVal pavi As Long, ByVal ppResult As Long)
Declare Sub EditStreamCopy lib "avifil32" (ByVal pavi As Long, ByRef plStart As Long, ByRef plLength As Long, ByVal ppResult As Long)
Declare Sub EditStreamCut lib "avifil32" (ByVal pavi As Long, ByRef plStart As Long, ByRef plLength As Long, ByVal ppResult As Long)
Declare Sub EditStreamPaste lib "avifil32" (ByVal pavi As Long, ByRef plPos As Long, ByRef plLength As Long, ByVal pstream As Long, ByVal lStart As Long, ByVal lEnd As Long)
Declare Sub EditStreamSetInfo lib "avifil32" (ByVal pavi As Long, ByRef lpInfo As AVISTREAMINFOA, ByVal cbInfo As Long)
Declare Sub EditStreamSetName lib "avifil32" (ByVal pavi As Long, ByVal lpszName As String)
Declare Sub EncryptMessage lib "secur32" (ByRef phContext As Long, ByVal fQOP As Long, ByRef pMessage As PSecBufferDesc, ByVal MessageSeqNo As Long)
Declare Sub EnterCriticalSection Lib "kernel32" Alias "EnterCriticalSection" (lpCriticalSection As CRITICAL_SECTION)
Declare Sub enum_from_ndr lib "rpcrt4" (ByVal SourceMessage As Long, ByRef Target As Long)
Declare Sub EnumerateSecurityPackages lib "digest" Alias "EnumerateSecurityPackagesA" (ByRef pcPackages As Long, ByRef ppPackageInfo As PSecPkgInfoA)
Declare Sub ExitProcess Lib "kernel32" Alias "ExitProcess" (ByVal uExitCode As Long)
Declare Sub ExitThread Lib "kernel32" Alias "ExitThread" (ByVal dwExitCode As Long)
Declare Sub ExportSecurityContext lib "secur32" (ByRef phContext As Long, ByVal fFlags As Long, ByRef pPackedContext As PSecBuffer, pToken As Any)
Declare Sub FatalAppExit Lib "kernel32" Alias "FatalAppExitA" (ByVal uAction As Long, ByVal lpMessageText As String)
Declare Sub FatalExit Lib "kernel32" Alias "FatalExit" (ByVal code As Long)
Declare Sub FaultInIEFeature lib "URLMON" (ByVal hwnd As Long, ByRef pClassspec As uCLSSPEC, ByRef pQuery As QUERYCONTEXT, ByVal dwFlags As Long)
Declare Sub FaxFreeBuffer lib "winfax" (buffer As Any)
Declare Sub FCICreate lib "CABINET" (ByRef perf As perf, ByRef pfnfcifp As PFNFCIFILEPLACED, ByRef pfna As PFNFCIALLOC, ByRef pfnf As PFNFCIFREE, ByRef pfnopen As PFNFCIOPEN, ByRef pfnread As PFNFCIREAD, ByRef pfnwrite As PFNFCIWRITE, ByRef pfnclose As PFNFCICLOSE, ByRef pfnseek As PFNFCISEEK, ByRef pfndelete As PFNFCIDELETE, ByRef pfnfcigtf As PFNFCIGETTEMPFILE, ByRef pccab As pccab, pv As Any)
Declare Sub FDICreate lib "CABINET" (ByRef pfnalloc As pfnalloc, ByRef pfnfree As pfnfree, ByRef pfnopen As pfnopen, ByRef pfnread As pfnread, ByRef pfnwrite As pfnwrite, ByRef pfnclose As pfnclose, ByRef pfnseek As pfnseek, ByVal cpuType As Long, ByRef perf As perf)
Declare Sub FillMemory lib "kernel32" Alias "RtlFillMemory" (Destination As Any, ByVal Length As Long, ByVal Fill As Byte)
Declare Sub FindCloseUrlCache lib "wininet" (ByVal hEnumHandle As Long)
Declare Sub FindMediaType lib "URLMON" (ByVal rgszTypes As String, ByRef rgcfTypes As Integer)
Declare Sub FindMediaTypeClass lib "URLMON" (ByVal pbc As Long, ByVal szType As String, ByRef pclsid As Long, ByVal Reserved As Long)
Declare Sub FindMimeFromData lib "URLMON" (ByVal pbc As Long, ByVal pwzUrl As String, pBuffer As Any, ByVal cbSize As Long, ByVal pwzMimeProposed As String, ByVal dwMimeFlags As Long, ByVal ppwzMimeOut As String, ByVal dwReserved As Long)
Declare Sub FindNextUrlCacheEntry lib "wininet" Alias "FindNextUrlCacheEntryA" (ByVal hEnumHandle As Long, ByRef lpNextCacheEntryInfo As INTERNET_CACHE_ENTRY_INFOA, ByRef lpdwNextCacheEntryInfoBufferSize As Long)
Declare Sub FindNextUrlCacheEntryEx lib "wininet" Alias "FindNextUrlCacheEntryExA" (ByVal hEnumHandle As Long, ByRef lpFirstCacheEntryInfo As INTERNET_CACHE_ENTRY_INFOA, ByRef lpdwFirstCacheEntryInfoBufferSize As Long, lpReserved As Any, ByRef pcbReserved2 As Long, lpReserved3 As Any)
Declare Sub FireVSDebugEvent lib "ODBCTRAC" (ByRef TPODBC_VS_ARGS As PODBC_VS_ARGS)
Declare Sub float_array_from_ndr lib "rpcrt4" (ByVal SourceMessage As Long, ByVal LowerIndex As Long, ByVal UpperIndex As Long, Target As Any)
Declare Sub float_from_ndr lib "rpcrt4" (ByVal SourceMessage As Long, Target As Any)
Declare Sub FmtIdToPropStgName lib "iprop" (ByRef pfmtid As FMTID, ByVal oszName As String)
Declare Sub free lib "crtdll" (ByRef TM_aKey As Long)
Declare Sub FreeContextBuffer lib "digest" (pvContextBuffer As Any)
Declare Sub FreeCredentialsHandle lib "digest" (ByRef phCredential As Long)
Declare Sub FreeEncryptionCertificateHashList lib "advapi32" (ByRef pHashes As PENCRYPTION_CERTIFICATE_HASH_LIST)
Declare Sub FreeLibraryAndExitThread Lib "kernel32" Alias "FreeLibraryAndExitThread" (ByVal hLibModule As Long, ByVal dwExitCode As Long)
Declare Sub FreePropVariantArray lib "iprop" (ByVal cVariants As Long, ByRef rgvars As PROPVARIANT)
Declare Sub FreeSid Lib "advapi32.dll" Alias "FreeSid" (pSid As Any)
Declare Sub FtpCreateDirectory lib "wininet" Alias "FtpCreateDirectoryA" (ByRef hConnect As Long, ByVal lpszDirectory As String)
Declare Sub FtpDeleteFile lib "wininet" Alias "FtpDeleteFileA" (ByRef hConnect As Long, ByVal lpszFileName As String)
Declare Sub FtpFindFirstFile lib "wininet" Alias "FtpFindFirstFileA" (ByRef hConnect As Long, ByVal lpszSearchFile As String, ByRef lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, ByRef dwContext As Long)
Declare Sub FtpGetCurrentDirectory lib "wininet" Alias "FtpGetCurrentDirectoryA" (ByRef hConnect As Long, ByVal lpszCurrentDirectory As String, ByRef lpdwCurrentDirectory As Long)
Declare Sub FtpGetFile lib "wininet" Alias "FtpGetFileA" (ByRef hConnect As Long, ByVal lpszRemoteFile As String, ByVal lpszNewFile As String, ByVal fFailIfExists As Long, ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, ByRef dwContext As Long)
Declare Sub FtpGetFileEx lib "wininet" (ByRef hFtpSession As Long, ByVal lpszRemoteFile As String, ByVal lpszNewFile As String, ByVal fFailIfExists As Long, ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, ByRef dwContext As Long)
Declare Sub FtpOpenFile lib "wininet" Alias "FtpOpenFileA" (ByRef hConnect As Long, ByVal lpszFileName As String, ByVal dwAccess As Long, ByVal dwFlags As Long, ByRef dwContext As Long)
Declare Sub FtpPutFile lib "wininet" Alias "FtpPutFileA" (ByRef hConnect As Long, ByVal lpszLocalFile As String, ByVal lpszNewRemoteFile As String, ByVal dwFlags As Long, ByRef dwContext As Long)
Declare Sub FtpPutFileEx lib "wininet" (ByRef hFtpSession As Long, ByVal lpszLocalFile As String, ByVal lpszNewRemoteFile As String, ByVal dwFlags As Long, ByRef dwContext As Long)
Declare Sub FtpRemoveDirectory lib "wininet" Alias "FtpRemoveDirectoryA" (ByRef hConnect As Long, ByVal lpszDirectory As String)
Declare Sub FtpRenameFile lib "wininet" Alias "FtpRenameFileA" (ByRef hConnect As Long, ByVal lpszExisting As String, ByVal lpszNew As String)
Declare Sub FtpSetCurrentDirectory lib "wininet" Alias "FtpSetCurrentDirectoryA" (ByRef hConnect As Long, ByVal lpszDirectory As String)
Declare Sub GetAcceptExSockaddrs lib "mswsock" (lpOutputBuffer As Any, ByVal dwReceiveDataLength As Long, ByVal dwLocalAddressLength As Long, ByVal dwRemoteAddressLength As Long, ByRef LocalSockaddr As sockaddr, ByRef LocalSockaddrLength As Long, ByRef RemoteSockaddr As sockaddr, ByRef RemoteSockaddrLength As Long)
Declare Sub GetActiveObject lib "oleaut32" (ByVal rclsid As Long, pvReserved As Any, ByVal ppunk As Long)
Declare Sub GetAltMonthNames lib "oleaut32" (ByVal lcid As Long, ByVal prgp As String)
Declare Sub GetClassFile lib "ole32" (ByVal szFilename As Long, ByRef pclsid As Long)
Declare Sub GetClassFileOrMime lib "URLMON" (ByVal pbc As Long, ByVal szFilename As String, pBuffer As Any, ByVal cbSize As Long, ByVal szMime As String, ByVal dwReserved As Long, ByRef pclsid As Long)
Declare Sub GetClassURL lib "URLMON" (ByVal szURL As String, ByRef pclsid As Long)
Declare Sub GetClusterFromGroup lib "clusapi" (ByRef hGroup As hGroup)
Declare Sub GetClusterFromNode lib "clusapi" (ByRef hNode As hNode)
Declare Sub GetClusterFromResource lib "clusapi" (ByRef hResource As hResource)
Declare Sub GetComponentIDFromCLSSPEC lib "URLMON" (ByRef pClassspec As uCLSSPEC, ByVal ppszComponentID As String)
Declare Sub GetConvertStg lib "ole32" (ByVal pStg As Long)
Declare Sub GetEffectiveClientRect lib "comctl32" (ByVal hWnd As Long, ByRef lprc As RECT, ByRef lpInfo As Long)
Declare Sub GetErrorInfo lib "ole32" (ByVal dwReserved As Long, ByVal pperrinfo As Long)
Declare Sub GetHGlobalFromILockBytes lib "ole32" (ByVal plkbyt As Long, ByRef phglobal As Long)
Declare Sub GetHGlobalFromStream lib "ole32" (ByRef pstm As Long, ByRef phglobal As Long)
Declare Sub gethostbyaddr lib "ws2_32" (ByVal addr As String, ByVal len As Long, ByVal type As Long)
Declare Sub gethostbyname lib "ws2_32" (ByVal name As String)
Declare Sub GetLocalTime Lib "kernel32" Alias "GetLocalTime" (lpSystemTime As SYSTEMTIME)
Declare Sub GetMultipleTrustee lib "ADVAPI32" (ByRef pTrustee As PTRUSTEE_A)
Declare Sub GetMultipleTrusteeOperation lib "ADVAPI32" (ByRef pTrustee As PTRUSTEE_A)
Declare Sub GetOleaccVersionInfo lib "OLEACC" (ByRef pVer As Long, ByRef pBuild As Long)
Declare Sub getprotobyname lib "ws2_32" (ByVal name As String)
Declare Sub getprotobynumber lib "ws2_32" (ByVal number As Long)
Declare Sub GetRecordInfoFromGuids lib "oleaut32" (ByVal rGuidTypeLib As Long, ByVal uVerMajor As Long, ByVal uVerMinor As Long, ByVal lcid As Long, ByVal rGuidTypeInfo As Long, ByRef ppRecInfo As Long)
Declare Sub GetRecordInfoFromTypeInfo lib "oleaut32" (ByVal pTypeInfo As Long, ByRef ppRecInfo As Long)
Declare Sub GetRunningObjectTable lib "ole32" (ByVal reserved As Long, ByVal pprot As Long)
Declare Sub getservbyname lib "ws2_32" (ByVal name As String, ByVal proto As String)
Declare Sub getservbyport lib "ws2_32" (ByVal port As Long, ByVal proto As String)
Declare Sub GetSoftwareUpdateInfo lib "URLMON" (ByVal szDistUnit As String, ByRef psdi As LPSOFTDISTINFO)
Declare Sub GetStartupInfo Lib "kernel32" Alias "GetStartupInfoA" (lpStartupInfo As STARTUPINFO)
Declare Sub GetSystemInfo Lib "kernel32" Alias "GetSystemInfo" (lpSystemInfo As SYSTEM_INFO)
Declare Sub GetSystemTime Lib "kernel32" Alias "GetSystemTime" (lpSystemTime As SYSTEMTIME)
Declare Sub GetSystemTimeAsFileTime lib "kernel32" (ByRef lpSystemTimeAsFileTime As FILETIME)
Declare Sub GetTrusteeForm lib "ADVAPI32" (ByRef pTrustee As PTRUSTEE_A)
Declare Sub GetTrusteeType lib "ADVAPI32" (ByRef pTrustee As PTRUSTEE_A)
Declare Sub GetUrlCacheEntryInfo lib "wininet" Alias "GetUrlCacheEntryInfoA" (ByVal lpszUrlName As String, ByRef lpCacheEntryInfo As INTERNET_CACHE_ENTRY_INFOA, ByRef lpdwCacheEntryInfoBufferSize As Long)
Declare Sub GetUrlCacheEntryInfoEx lib "wininet" Alias "GetUrlCacheEntryInfoExA" (ByVal lpszUrl As String, ByRef lpCacheEntryInfo As INTERNET_CACHE_ENTRY_INFOA, ByRef lpdwCacheEntryInfoBufSize As Long, ByVal lpszReserved As String, ByRef lpdwReserved As Long, lpReserved As Any, ByVal dwFlags As Long)
Declare Sub GlobalFix Lib "kernel32" Alias "GlobalFix" (ByVal hMem As Long)
Declare Sub GlobalMemoryStatus Lib "kernel32" Alias "GlobalMemoryStatus" (lpBuffer As MEMORYSTATUS)
Declare Sub GlobalUnfix Lib "kernel32" Alias "GlobalUnfix" (ByVal hMem As Long)
Declare Sub GopherCreateLocator lib "wininet" Alias "GopherCreateLocatorA" (ByVal lpszHost As String, ByRef nServerPort As TERNET_PORT, ByVal lpszDisplayString As String, ByVal lpszSelectorString As String, ByVal dwGopherType As Long, ByVal lpszLocator As String, ByRef lpdwBufferLength As Long)
Declare Sub GopherFindFirstFile lib "wininet" Alias "GopherFindFirstFileA" (ByRef hConnect As Long, ByVal lpszLocator As String, ByVal lpszSearchString As String, ByRef lpFindData As GOPHER_FIND_DATAA, ByVal dwFlags As Long, ByRef dwContext As Long)
Declare Sub GopherGetAttribute lib "wininet" Alias "GopherGetAttributeA" (ByRef hConnect As Long, ByVal lpszLocator As String, ByVal lpszAttributeName As String, ByVal lpBuffer As String, ByVal dwBufferLength As Long, ByRef lpdwCharactersReturned As Long, ByRef lpfnEnumerator As GOPHER_ATTRIBUTE_ENUMERATOR, ByVal dwContext As Long)
Declare Sub GopherGetLocatorType lib "wininet" Alias "GopherGetLocatorTypeA" (ByVal lpszLocator As String, ByRef lpdwGopherType As Long)
Declare Sub GopherOpenFile lib "wininet" Alias "GopherOpenFileA" (ByRef hConnect As Long, ByVal lpszLocator As String, ByVal lpszView As String, ByVal dwFlags As Long, ByRef dwContext As Long)
Declare Sub HACCEL_UserFree lib "ole32" (ByRef pLong As Long, ByRef pHaccel As Long)
Declare Sub HashData lib "shlwapi" (ByVal pbData As String, ByVal cbData As Long, ByVal pbHash As String, ByVal cbHash As Long)
Declare Sub HBITMAP_UserFree lib "ole32" (ByRef pLong As Long, ByRef pHbitmap As Long)
Declare Sub HDC_UserFree lib "ole32" (ByRef pLong As Long, ByRef pHdc As Long)
Declare Sub HGLOBAL_UserFree lib "ole32" (ByRef pLong As Long, ByRef pHglobal As Long)
Declare Sub HICON_UserFree lib "OLE32" (ByRef pLong As Long, ByRef pHicon As Long)
Declare Sub HlinkClone lib "hlink" (ByRef pihl As Long, ByVal riid As Long, ByRef pihlsiteForClone As Long, ByVal dwSiteData As Long, ppvObj As Any)
Declare Sub HlinkCreateBrowseContext lib "hlink" (ByVal piunkOuter As Long, ByVal riid As Long, ppvObj As Any)
Declare Sub HlinkCreateExtensionServices lib "hlink" (ByVal pwzAdditionalHeaders As String, ByVal phwnd As Long, ByVal pszUsername As String, ByVal pszPassword As String, ByVal piunkOuter As Long, ByVal riid As Long, ppvObj As Any)
Declare Sub HlinkCreateFromData lib "hlink" (ByVal piDataObj As Long, ByRef pihlsite As Long, ByVal dwSiteData As Long, ByVal piunkOuter As Long, ByVal riid As Long, ppvObj As Any)
Declare Sub HlinkCreateFromMoniker lib "hlink" (ByVal pimkTrgt As Long, ByVal pwzLocation As String, ByVal pwzFriendlyName As String, ByRef pihlsite As Long, ByVal dwSiteData As Long, ByVal piunkOuter As Long, ByVal riid As Long, ppvObj As Any)
Declare Sub HlinkCreateFromString lib "hlink" (ByVal pwzTarget As String, ByVal pwzLocation As String, ByVal pwzFriendlyName As String, ByRef pihlsite As Long, ByVal dwSiteData As Long, ByVal piunkOuter As Long, ByVal riid As Long, ppvObj As Any)
Declare Sub HlinkCreateShortcut lib "hlink" (ByVal grfHLSHORTCUTF As Long, ByRef pihl As Long, ByVal pwzDir As String, ByVal pwzFileName As String, ByVal ppwzShortcutFile As String, ByVal dwReserved As Long)
Declare Sub HlinkCreateShortcutFromMoniker lib "hlink" (ByVal grfHLSHORTCUTF As Long, ByVal pimkTarget As Long, ByVal pwzLocation As String, ByVal pwzDir As String, ByVal pwzFileName As String, ByVal ppwzShortcutFile As String, ByVal dwReserved As Long)
Declare Sub HlinkCreateShortcutFromString lib "hlink" (ByVal grfHLSHORTCUTF As Long, ByVal pwzTarget As String, ByVal pwzLocation As String, ByVal pwzDir As String, ByVal pwzFileName As String, ByVal ppwzShortcutFile As String, ByVal dwReserved As Long)
Declare Sub HlinkGetSpecialReference lib "hlink" (ByVal uReference As Long, ByVal ppwzReference As String)
Declare Sub HlinkGetValueFromParams lib "hlink" (ByVal pwzParams As String, ByVal pwzName As String, ByVal ppwzValue As String)
Declare Sub HlinkGoBack lib "URLMON" (ByVal pUnk As Long)
Declare Sub HlinkGoForward lib "URLMON" (ByVal pUnk As Long)
Declare Sub HlinkIsShortcut lib "hlink" (ByVal pwzFileName As String)
Declare Sub HlinkNavigate lib "hlink" (ByRef pihl As Long, ByRef pihlframe As Long, ByVal grfHLNF As Long, ByVal pbc As Long, ByRef pibsc As Long, ByRef pihlbc As Long)
Declare Sub HlinkNavigateMoniker lib "URLMON" (ByVal pUnk As Long, ByVal pmkTarget As Long)
Declare Sub HlinkNavigateString lib "URLMON" (ByVal pUnk As Long, ByVal szTarget As String)
Declare Sub HlinkNavigateToStringReference lib "hlink" (ByVal pwzTarget As String, ByVal pwzLocation As String, ByRef pihlsite As Long, ByVal dwSiteData As Long, ByRef pihlframe As Long, ByVal grfHLNF As Long, ByVal pibc As Long, ByRef pibsc As Long, ByRef pihlbc As Long)
Declare Sub HlinkOnNavigate lib "hlink" (ByRef pihlframe As Long, ByRef pihlbc As Long, ByVal grfHLNF As Long, ByVal pimkTarget As Long, ByVal pwzLocation As String, ByVal pwzFriendlyName As String, ByRef puHLID As Long)
Declare Sub HlinkOnRenameDocument lib "hlink" (ByVal dwReserved As Long, ByRef pihlbc As Long, ByVal pimkOld As Long, ByVal pimkNew As Long)
Declare Sub HlinkParseDisplayName lib "hlink" (ByVal pibc As Long, ByVal pwzDisplayName As String, ByVal fNoForceAbs As Long, ByRef pcchEaten As Long, ByVal ppimk As Long)
Declare Sub HlinkPreprocessMoniker lib "hlink" (ByVal pibc As Long, ByVal pimkIn As Long, ByVal ppimkOut As Long)
Declare Sub HlinkQueryCreateFromData lib "hlink" (ByVal piDataObj As Long)
Declare Sub HlinkResolveMonikerForData lib "hlink" (ByVal pimkReference As Long, ByVal reserved As Long, ByVal pibc As Long, ByVal cFmtetc As Long, ByRef rgFmtetc As FORMATETC, ByRef pibsc As Long, ByVal pimkBase As Long)
Declare Sub HlinkResolveShortcut lib "hlink" (ByVal pwzShortcutFileName As String, ByRef pihlsite As Long, ByVal dwSiteData As Long, ByVal piunkOuter As Long, ByVal riid As Long, ppvObj As Any)
Declare Sub HlinkResolveShortcutToMoniker lib "hlink" (ByVal pwzShortcutFileName As String, ByVal ppimkTarget As Long, ByVal ppwzLocation As String)
Declare Sub HlinkResolveShortcutToString lib "hlink" (ByVal pwzShortcutFileName As String, ByVal ppwzTarget As String, ByVal ppwzLocation As String)
Declare Sub HlinkResolveStringForData lib "hlink" (ByVal pwzReference As String, ByVal reserved As Long, ByVal pibc As Long, ByVal cFmtetc As Long, ByRef rgFmtetc As FORMATETC, ByRef pibsc As Long, ByVal pimkBase As Long)
Declare Sub HlinkSetSpecialReference lib "hlink" (ByVal uReference As Long, ByVal pwzReference As String)
Declare Sub HlinkSimpleNavigateToMoniker lib "URLMON" (ByVal pmkTarget As Long, ByVal szLocation As String, ByVal szTargetFrameName As String, ByVal pUnk As Long, ByVal pbc As Long, ByRef TIBindStatusCallback As IBindStatusCallback, ByVal grfHLNF As Long, ByVal dwReserved As Long)
Declare Sub HlinkSimpleNavigateToString lib "URLMON" (ByVal szTarget As String, ByVal szLocation As String, ByVal szTargetFrameName As String, ByVal pUnk As Long, ByVal pbc As Long, ByRef TIBindStatusCallback As IBindStatusCallback, ByVal grfHLNF As Long, ByVal dwReserved As Long)
Declare Sub HlinkTranslateURL lib "hlink" (ByVal pwzURL As String, ByVal grfFlags As Long, ByVal ppwzTranslatedURL As String)
Declare Sub HlinkUpdateStackItem lib "hlink" (ByRef pihlframe As Long, ByRef pihlbc As Long, ByVal uHLID As Long, ByVal pimkTrgt As Long, ByVal pwzLocation As String, ByVal pwzFriendlyName As String)
Declare Sub hmemcpy lib "kernel32" (dst As Any, src As Any, ByVal bytecount As Long)
Declare Sub HMENU_UserFree lib "ole32" (ByRef pLong As Long, ByRef pHmenu As Long)
Declare Sub HPALETTE_UserFree lib "ole32" (ByRef pLong As Long, ByRef pHpalette As Long)
Declare Sub HttpAddRequestHeaders lib "wininet" Alias "HttpAddRequestHeadersA" (ByRef hRequest As Long, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwModifiers As Long)
Declare Sub HttpOpenRequest lib "wininet" Alias "HttpOpenRequestA" (ByRef hConnect As Long, ByVal lpszVerb As String, ByVal lpszObjectName As String, ByVal lpszVersion As String, ByVal lpszReferrer As String, ByVal lplpszAcceptTypes As String, ByVal dwFlags As Long, ByRef dwContext As Long)
Declare Sub HttpQueryInfo lib "wininet" Alias "HttpQueryInfoA" (ByRef hRequest As Long, ByVal dwInfoLevel As Long, lpBuffer As Any, ByRef lpdwBufferLength As Long, ByRef lpdwIndex As Long)
Declare Sub HttpSendRequest lib "wininet" Alias "HttpSendRequestA" (ByRef hRequest As Long, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, lpOptional As Any, ByVal dwOptionalLength As Long)
Declare Sub HWND_UserFree lib "ole32" (ByRef pLong As Long, ByRef pHwnd As Long)
Declare Sub I_RpcAllocate lib "rpcrt4" (ByVal Size As Long)
Declare Sub I_RpcClearMutex lib "rpcrt4" (ByVal Mutex As Long)
Declare Sub I_RpcDeleteMutex lib "rpcrt4" (ByVal Mutex As Long)
Declare Sub I_RpcFree lib "rpcrt4" (Object As Any)
Declare Sub I_RpcGetServerContextList lib "rpcrt4" (ByVal BindingHandle As Long)
Declare Sub I_RpcNsRaiseException lib "rpcns4" (ByVal Message As Long, ByVal Status As Long)
Declare Sub I_RpcPauseExecution lib "rpcrt4" (ByVal Milliseconds As Long)
Declare Sub I_RpcRequestMutex lib "rpcrt4" (ByVal Mutex As Long)
Declare Sub I_RpcServerInqAddressChangeFn lib "RPCRT4" ()
Declare Sub I_RpcSetServerContextList lib "rpcrt4" (ByVal BindingHandle As Long, ServerContextList As Any)
Declare Sub I_RpcSsDontSerializeContext lib "rpcrt4" ()
Declare Sub ICCompressorFree lib "msvfw32" (ByRef pc As PCOMPVARS)
Declare Sub ICSeqCompressFrameEnd lib "msvfw32" (ByRef pc As PCOMPVARS)
Declare Sub IIDFromString lib "ole32" (ByVal lpsz As String, ByVal lpiid As Long)
Declare Sub ImagehlpApiVersion lib "dbghelp" ()
Declare Sub ImagehlpApiVersionEx lib "dbghelp" (ByRef AppVersion As API_VERSION)
Declare Sub ImageList_EndDrag lib "comctl32" ()
Declare Sub ImageLoad lib "imagehlp" (ByVal DllName As String, ByVal DllPath As String)
Declare Sub ImageNtHeader lib "dbghelp" (Base As Any)
Declare Sub ImageRvaToSection lib "dbghelp" (ByRef NtHeaders As PIMAGE_NT_HEADERS, Base As Any, ByVal Rva As Long)
Declare Sub ImpersonateSecurityContext lib "digest" (ByRef phContext As Long)
Declare Sub ImportSecurityContext lib "secur32" Alias "ImportSecurityContextA" (ByRef pszPackage As SEC_CHAR, ByRef pPackedContext As PSecBuffer, Token As Any, ByRef phContext As Long)
Declare Sub InitCommonControls lib "comctl32" ()
Declare Sub Initialize lib "adimage" (ByRef TDEFAULT_QUEUESIZE As DEFAULT_QUEUESIZE)
Declare Sub InitializeCriticalSection Lib "kernel32" Alias "InitializeCriticalSection" (lpCriticalSection As CRITICAL_SECTION)
Declare Sub InitializeSecurityContext lib "digest" Alias "InitializeSecurityContextA" (ByRef phCredential As Long, ByRef phContext As Long, ByRef pszTargetName As SEC_CHAR, ByVal fContextReq As Long, ByVal Reserved1 As Long, ByVal TargetDataRep As Long, ByRef pInput As PSecBufferDesc, ByVal Reserved2 As Long, ByRef phNewContext As Long, ByRef pOutput As PSecBufferDesc, ByRef pfContextAttr As Long, ByRef ptsExpiry As PTimeStamp)
Declare Sub InitMUILanguage lib "comctl32" (ByVal uiLang As Long)
Declare Sub InitSecurityInterface lib "digest" Alias "InitSecurityInterfaceA" ()
Declare Sub InstallPerfDll lib "loadperf" Alias "InstallPerfDllA" (ByVal szComputerName As String, ByVal lpIniFile As String, ByRef dwFlags As Long)
Declare Sub InternetCanonicalizeUrl lib "wininet" Alias "InternetCanonicalizeUrlA" (ByVal lpszUrl As String, ByVal lpszBuffer As String, ByRef lpdwBufferLength As Long, ByVal dwFlags As Long)
Declare Sub InternetCombineUrl lib "wininet" Alias "InternetCombineUrlA" (ByVal lpszBaseUrl As String, ByVal lpszRelativeUrl As String, ByVal lpszBuffer As String, ByRef lpdwBufferLength As Long, ByVal dwFlags As Long)
Declare Sub InternetCrackUrl lib "wininet" Alias "InternetCrackUrlA" (ByVal lpszUrl As String, ByVal dwUrlLength As Long, ByVal dwFlags As Long, ByRef lpUrlComponents As URL_COMPONENTSA)
Declare Sub InternetCreateUrl lib "wininet" Alias "InternetCreateUrlA" (ByRef lpUrlComponents As URL_COMPONENTSA, ByVal dwFlags As Long, ByVal lpszUrl As String, ByRef lpdwUrlLength As Long)
Declare Sub InternetGetCookie lib "wininet" Alias "InternetGetCookieA" (ByVal lpszUrl As String, ByVal lpszCookieName As String, ByVal lpCookieData As String, ByRef lpdwSize As Long)
Declare Sub InternetLockRequestFile lib "wininet" (ByRef hInternet As Long, ByRef lphLockRequestInfo As Long)
Declare Sub InternetSetCookie lib "wininet" Alias "InternetSetCookieA" (ByVal lpszUrl As String, ByVal lpszCookieName As String, ByVal lpszCookieData As String)
Declare Sub InternetSetOptionEx lib "wininet" Alias "InternetSetOptionExA" (ByRef hInternet As Long, ByVal dwOption As Long, lpBuffer As Any, ByVal dwBufferLength As Long, ByVal dwFlags As Long)
Declare Sub InternetSetStatusCallback lib "wininet" (ByRef hInternet As Long, ByRef lpfnInternetCallback As INTERNET_STATUS_CALLBACK)
Declare Sub InternetTimeFromSystemTime lib "wininet" (ByRef pst As SYSTEMTIME, ByVal dwRFC As Long, ByVal lpszTime As String, ByVal cbTime As Long)
Declare Sub InternetTimeToSystemTime lib "wininet" (ByVal lpszTime As String, ByRef pst As SYSTEMTIME, ByVal dwReserved As Long)
Declare Sub InternetUnlockRequestFile lib "wininet" (ByVal hLockRequestInfo As Long)
Declare Sub InternetWriteFile lib "wininet" (ByRef hFile As Long, lpBuffer As Any, ByVal dwNumberOfBytesToWrite As Long, ByRef lpdwNumberOfBytesWritten As Long)
Declare Sub IsAsyncMoniker lib "URLMON" (ByVal pMk As Long)
Declare Sub keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Declare Sub KsCreatePin lib "KSUSER" (ByVal FilterHandle As Long, ByRef Connect As PKSPIN_CONNECT, ByVal DesiredAccess As Long, ByRef ConnectionHandle As Long)
Declare Sub ldap_conn_from_msg lib "wldap32" (ByRef PrimaryConn As LDAP, ByRef res As LDAPMessage)
Declare Sub ldap_first_entry lib "wldap32" (ByRef ld As LDAP, ByRef res As LDAPMessage)
Declare Sub ldap_first_reference lib "wldap32" (ByRef ld As LDAP, ByRef res As LDAPMessage)
Declare Sub ldap_get_values_len lib "wldap32" (ByRef ExternalHandle As LDAP, ByRef Message As LDAPMessage, ByVal attr As String)
Declare Sub ldap_init lib "wldap32" (ByVal HostName As String, ByVal PortNumber As Long)
Declare Sub ldap_memfree lib "wldap32" (ByVal Block As String)
Declare Sub ldap_next_entry lib "wldap32" (ByRef ld As LDAP, ByRef entry As LDAPMessage)
Declare Sub ldap_next_reference lib "wldap32" (ByRef ld As LDAP, ByRef entry As LDAPMessage)
Declare Sub ldap_open lib "wldap32" (ByVal HostName As String, ByVal PortNumber As Long)
Declare Sub ldap_perror lib "wldap32" (ByRef ld As LDAP, ByVal msg As String)
Declare Sub ldap_search_init_page lib "wldap32" (ByRef ExternalHandle As PLDAP, ByVal DistinguishedName As String, ByVal ScopeOfSearch As Long, ByVal SearchFilter As String, ByRef AttributeList As String, ByVal AttributesOnly As Long, ByRef ServerControls As PLDAPControlA, ByRef ClientControls As PLDAPControlA, ByVal PageTimeLimit As Long, ByVal TotalSizeLimit As Long, ByRef SortKeys As PLDAPSortKeyA)
Declare Sub ldap_set_dbg_routine lib "wldap32" (ByRef DebugPrintRoutine As DBGPRINT)
Declare Sub ldap_sslinit lib "wldap32" (ByVal HostName As String, ByVal PortNumber As Long, ByVal secure As Long)
Declare Sub LeaveCriticalSection Lib "kernel32" Alias "LeaveCriticalSection" (lpCriticalSection As CRITICAL_SECTION)
Declare Sub LoadIFilter lib "query" (ByRef pwcsPath As Byte, ByVal pUnkOuter As Long, ppIUnk As Any)
Declare Sub LoadMofFromInstalledService lib "loadperf" Alias "LoadMofFromInstalledServiceA" (ByVal szServiceName As String, ByVal szMofFilename As String, ByRef dwFlags As Long)
Declare Sub LoadPerfCounterTextStrings lib "loadperf" Alias "LoadPerfCounterTextStringsA" (ByVal lpCommandLine As String, ByVal bQuietModeArg As Long)
Declare Sub LoadRegTypeLib lib "oleaut32" (ByVal rguid As Long, ByVal wVerMajor As Integer, ByVal wVerMinor As Integer, ByVal lcid As Long, ByVal pptlib As Long)
Declare Sub LoadTypeLib lib "oleaut32" (ByRef TLpszModule As String, ByRef TPpTypeLib As Long)
Declare Sub LoadTypeLibEx lib "oleaut32" (ByVal szFile As Long, ByVal regkind As Struct_MembersOf_REGKIND, ByVal pptlib As Long)
Declare Sub LocateCatalogs lib "query" (ByVal pwszScope As String, ByVal iBmk As Long, ByVal pwszMachine As String, ByRef pccMachine As Long, ByVal pwszCat As String, ByRef pccCat As Long)
Declare Sub LogError lib "rtutils" (ByVal dwMessageId As Long, ByVal cNumberOfSubStrings As Long, ByVal plpwsSubStrings As String, ByVal dwErrorCode As Long)
Declare Sub LogEvent lib "rtutils" (ByVal wEventType As Long, ByVal dwMessageId As Long, ByVal cNumberOfSubStrings As Long, ByVal plpwsSubStrings As String)
Declare Sub long_array_from_ndr lib "rpcrt4" (ByVal SourceMessage As Long, ByVal LowerIndex As Long, ByVal UpperIndex As Long, ByRef Target As Long)
Declare Sub long_from_ndr lib "rpcrt4" (ByVal source As Long, ByRef target As Long)
Declare Sub long_from_ndr_temp lib "rpcrt4" (ByVal source As String, ByRef target As Long, ByVal format As Long)
Declare Sub LPSAFEARRAY_UserFree lib "oleaut32" (ByRef pLong As Long, ByRef lpsafearray As SAFEARRAY)
Declare Sub LsaAddAccountRights lib "ADVAPI32" (ByRef PolicyHandle As LSA_HANDLE, ByRef AccountSid As Sid, ByRef UserRights As PLSA_UNICODE_STRING, ByVal CountOfRights As Long)
Declare Sub LsaCallAuthenticationPackage lib "SECUR32" (ByVal LsaHandle As Long, ByVal AuthenticationPackage As Long, ProtocolSubmitBuffer As Any, ByVal SubmitBufferLength As Long, ProtocolReturnBuffer As Any, ByRef ReturnBufferLength As Long, ByRef ProtocolStatus As PNTSTATUS)
Declare Sub LsaClose lib "ADVAPI32" (ByRef ObjectHandle As LSA_HANDLE)
Declare Sub LsaConnectUntrusted lib "SECUR32" (ByRef LsaHandle As Long)
Declare Sub LsaCreateTrustedDomainEx lib "ADVAPI32" (ByRef PolicyHandle As LSA_HANDLE, ByRef TrustedDomainInformation As PTRUSTED_DOMAIN_INFORMATION_EX, ByRef AuthenticationInformation As PTRUSTED_DOMAIN_AUTH_INFORMATION, ByVal DesiredAccess As Long, ByRef TrustedDomainHandle As PLSA_HANDLE)
Declare Sub LsaDeleteTrustedDomain lib "ADVAPI32" (ByRef PolicyHandle As LSA_HANDLE, ByRef TrustedDomainSid As Sid)
Declare Sub LsaDeregisterLogonProcess lib "SECUR32" (ByVal LsaHandle As Long)
Declare Sub LsaEnumerateAccountRights lib "ADVAPI32" (ByRef PolicyHandle As LSA_HANDLE, ByRef AccountSid As Sid, ByRef UserRights As PLSA_UNICODE_STRING, ByRef CountOfRights As Long)
Declare Sub LsaEnumerateAccountsWithUserRight lib "ADVAPI32" (ByRef PolicyHandle As LSA_HANDLE, ByRef UserRights As Long, EnumerationBuffer As Any, ByRef CountReturned As Long)
Declare Sub LsaEnumerateTrustedDomains lib "ADVAPI32" (ByRef PolicyHandle As LSA_HANDLE, ByRef EnumerationContext As OUT, buffer As Any, ByVal PreferedMaximumLength As Long, ByRef CountReturned As Long)
Declare Sub LsaEnumerateTrustedDomainsEx lib "ADVAPI32" (ByRef PolicyHandle As LSA_HANDLE, ByRef EnumerationContext As OUT, buffer As Any, ByVal PreferedMaximumLength As Long, ByRef CountReturned As Long)
Declare Sub LsaFreeMemory lib "ADVAPI32" (buffer As Any)
Declare Sub LsaFreeReturnBuffer lib "SECUR32" (buffer As Any)
Declare Sub LsaLogonUser lib "SECUR32" (ByVal LsaHandle As Long, ByRef OriginName As PLSA_STRING, ByVal LogonType As Struct_MembersOf_SECURITY_LOGON_TYPE, ByVal AuthenticationPackage As Long, AuthenticationInformation As Any, ByVal AuthenticationInformationLength As Long, ByRef LocalGroups As TOKEN_GROUPS, ByRef SourceContext As TOKEN_SOURCE, ProfileBuffer As Any, ByRef ProfileBufferLength As Long, ByVal LogonId As Struct_MembersOf_PLUID, ByRef Token As Long, ByRef Quotas As PQUOTA_LIMITS, ByRef SubStatus As PNTSTATUS)
Declare Sub LsaLookupAuthenticationPackage lib "SECUR32" (ByVal LsaHandle As Long, ByRef PackageName As PLSA_STRING, ByRef AuthenticationPackage As Long)
Declare Sub LsaLookupNames lib "ADVAPI32" (ByRef PolicyHandle As LSA_HANDLE, ByVal count As Long, ByRef Names As PLSA_UNICODE_STRING, ByRef ReferencedDomains As PLSA_REFERENCED_DOMAIN_LIST, ByRef Sids As PLSA_TRANSLATED_SID)
Declare Sub LsaLookupSids lib "ADVAPI32" (ByRef PolicyHandle As LSA_HANDLE, ByVal count As Long, ByRef Sids As Sid, ByRef ReferencedDomains As PLSA_REFERENCED_DOMAIN_LIST, ByRef Names As PLSA_TRANSLATED_NAME)
Declare Sub LsaOpenPolicy lib "ADVAPI32" (ByRef SystemName As PLSA_UNICODE_STRING, ByRef ObjectAttributes As PLSA_OBJECT_ATTRIBUTES, ByVal DesiredAccess As Long, ByRef PolicyHandle As OUT)
Declare Sub LsaOpenTrustedDomainByName lib "ADVAPI32" (ByRef PolicyHandle As LSA_HANDLE, ByRef TrustedDomainName As PLSA_UNICODE_STRING, ByVal DesiredAccess As Long, ByRef TrustedDomainHandle As PLSA_HANDLE)
Declare Sub LsaQueryDomainInformationPolicy lib "ADVAPI32" (ByRef PolicyHandle As LSA_HANDLE, ByVal InformationClass As Struct_MembersOf_POLICY_DOMAIN_INFORMATION_CLASS, buffer As Any)
Declare Sub LsaQueryInformationPolicy lib "ADVAPI32" (ByRef PolicyHandle As LSA_HANDLE, ByVal InformationClass As Struct_MembersOf_POLICY_INFORMATION_CLASS, buffer As Any)
Declare Sub LsaQueryTrustedDomainInfo lib "ADVAPI32" (ByRef PolicyHandle As LSA_HANDLE, ByRef TrustedDomainSid As Sid, ByVal InformationClass As Struct_MembersOf_TRUSTED_INFORMATION_CLASS, buffer As Any)
Declare Sub LsaQueryTrustedDomainInfoByName lib "ADVAPI32" (ByRef PolicyHandle As LSA_HANDLE, ByRef TrustedDomainName As PLSA_UNICODE_STRING, ByVal InformationClass As Struct_MembersOf_TRUSTED_INFORMATION_CLASS, buffer As Any)
Declare Sub LsaRegisterLogonProcess lib "SECUR32" (ByRef LogonProcessName As PLSA_STRING, ByRef LsaHandle As Long, ByRef SecurityMode As PLSA_OPERATIONAL_MODE)
Declare Sub LsaRegisterPolicyChangeNotification lib "SECUR32" (ByVal InformationClass As Struct_MembersOf_POLICY_NOTIFICATION_INFORMATION_CLASS, ByVal NotificationEventHandle As Long)
Declare Sub LsaRemoveAccountRights lib "ADVAPI32" (ByRef PolicyHandle As LSA_HANDLE, ByRef AccountSid As Sid, ByVal AllRights As Long, ByRef UserRights As PLSA_UNICODE_STRING, ByVal CountOfRights As Long)
Declare Sub LsaRetrievePrivateData lib "ADVAPI32" (ByRef PolicyHandle As LSA_HANDLE, ByRef KeyName As PLSA_UNICODE_STRING, ByRef PrivateData As PLSA_UNICODE_STRING)
Declare Sub LsaSetDomainInformationPolicy lib "ADVAPI32" (ByRef PolicyHandle As LSA_HANDLE, ByVal InformationClass As Struct_MembersOf_POLICY_DOMAIN_INFORMATION_CLASS, buffer As Any)
Declare Sub LsaSetInformationPolicy lib "ADVAPI32" (ByRef PolicyHandle As LSA_HANDLE, ByVal InformationClass As Struct_MembersOf_POLICY_INFORMATION_CLASS, buffer As Any)
Declare Sub LsaSetTrustedDomainInfoByName lib "ADVAPI32" (ByRef PolicyHandle As LSA_HANDLE, ByRef TrustedDomainName As PLSA_UNICODE_STRING, ByVal InformationClass As Struct_MembersOf_TRUSTED_INFORMATION_CLASS, buffer As Any)
Declare Sub LsaSetTrustedDomainInformation lib "ADVAPI32" (ByRef PolicyHandle As LSA_HANDLE, ByRef TrustedDomainSid As Sid, ByVal InformationClass As Struct_MembersOf_TRUSTED_INFORMATION_CLASS, buffer As Any)
Declare Sub LsaStorePrivateData lib "ADVAPI32" (ByRef PolicyHandle As LSA_HANDLE, ByRef KeyName As PLSA_UNICODE_STRING, ByRef PrivateData As PLSA_UNICODE_STRING)
Declare Sub LsaUnregisterPolicyChangeNotification lib "SECUR32" (ByVal InformationClass As Struct_MembersOf_POLICY_NOTIFICATION_INFORMATION_CLASS, ByVal NotificationEventHandle As Long)
Declare Sub LZClose Lib "lz32.dll" Alias "LZClose" (ByVal hfFile As Long)
Declare Sub LZDone Lib "lz32.dll" Alias "LZDone" ()
Declare Sub MakeSignature lib "digest" (ByRef phContext As Long, ByVal fQOP As Long, ByRef pMessage As PSecBufferDesc, ByVal MessageSeqNo As Long)
Declare Sub MapDebugInformation lib "dbghelp" (ByVal FileHandle As Long, ByVal FileName As String, ByVal SymbolPath As String, ByVal ImageBase As Long)
Declare Sub MapGenericMask Lib "advapi32.dll" Alias "MapGenericMask" (AccessMask As Long, GenericMapping As GENERIC_MAPPING)
Declare Sub MAPIOpenFormMgr lib "mapi32" (ByVal pSession As Long, ByVal ppmgr As Long)
Declare Sub MAPIOpenLocalFormContainer lib "mapi32" (ByVal ppfcnt As Long)
Declare Sub McastApiCleanup lib "DHCPCSVC" ()
Declare Sub memmove lib "crtdll" (pVoid As Any, pVoid As Any, ByRef FunctionCall As Long)
Declare Sub MenuHelp lib "comctl32" (ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long, ByVal hMainMenu As Long, ByVal hInst As Long, ByVal hwndStatus As Long, ByRef lpwIDs As Long)
Declare Sub MIDL_user_allocate lib "mstlsapi" (ByVal Long As Long)
Declare Sub MIDL_user_free lib "mstlsapi" (pVoid As Any)
Declare Sub MIDL_wchar_strcpy lib "rpcrt4" (t As Any, ByRef s As Byte)
Declare Sub MkParseDisplayName lib "ole32" (ByVal pbc As Long, ByVal szUserName As Long, ByRef pchEaten As Long, ByVal ppmk As Long)
Declare Sub MkParseDisplayNameEx lib "URLMON" (ByVal pbc As Long, ByVal szDisplayName As String, ByRef pchEaten As Long, ByVal ppmk As Long)
Declare Sub MonikerCommonPrefixWith lib "ole32" (ByVal pmkThis As Long, ByVal pmkOther As Long, ByVal ppmkCommon As Long)
Declare Sub MonikerRelativePathTo lib "ole32" (ByVal pmkSrc As Long, ByVal pmkDest As Long, ByVal ppmkRelPath As Long, ByVal dwReserved As Long)
Declare Sub MonitorFromPoint lib "user32" (ByVal pt As Struct_MembersOf_POINT, ByVal dwFlags As Long)
Declare Sub MonitorFromRect lib "user32" (ByRef lprc As RECT, ByVal dwFlags As Long)
Declare Sub MonitorFromWindow lib "user32" (ByVal hwnd As Long, ByVal dwFlags As Long)
Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Declare Sub MoveMemory lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Declare Sub MprAdminMIBServerDisconnect lib "mprapi" (ByRef hMibServer As MIB_SERVER_HANDLE)
Declare Sub MprAdminServerDisconnect lib "mprapi" (ByRef hMprServer As MPR_SERVER_HANDLE)
Declare Sub MprConfigServerDisconnect lib "mprapi" (ByVal hMprConfig As Long)
Declare Sub MQFreeMemory lib "mqrt" (pvMemory As Any)
Declare Sub MQFreeSecurityContext lib "mqrt" (ByVal hSecurityContext As Long)
Declare Sub MsiCreateRecord lib "MSI" (ByVal cParams As Long)
Declare Sub MsiGetActiveDatabase lib "MSI" (ByRef hInstall As MSIHANDLE)
Declare Sub MsiGetLastErrorRecord lib "MSI" ()
Declare Sub MsiSetExternalUI lib "MSI" (ByRef puiHandler As INSTALLUI_HANDLERA, ByVal dwMessageFilter As Long, pvContext As Any)
Declare Sub Msv1_0SubAuthenticationRoutineEx lib "iissuba" (ByVal LogonLevel As Struct_MembersOf_NETLOGON_LOGON_INFO_CLASS, LogonInformation As Any, ByVal Flags As Long, ByRef UserAll As PUSER_ALL_INFORMATION, ByRef UserHandle As SAM_HANDLE, ByRef ValidationInfo As PMSV1_0_VALIDATION_INFO, ByRef ActionsPerformed As Long)
Declare Sub NdrAllocate lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal lLen As Long)
Declare Sub NdrAsyncClientCall lib "rpcrt4" (ByRef pStubDescriptor As MIDL_STUB_DESC, ByVal pFormat As String, OptionalArguments As Any)
Declare Sub NdrAsyncServerCall lib "rpcrt4" (ByVal pRpcMsg As Long)
Declare Sub NdrByteCountPointerBufferSize lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrByteCountPointerFree lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NDRCContextMarshall lib "rpcrt4" (ByVal CContext As Struct_MembersOf_NDR_CCONTEXT, pBuff As Any)
Declare Sub NDRCContextUnmarshall lib "rpcrt4" (ByRef pCContext As NDR_CCONTEXT, ByVal hBinding As Long, pBuff As Any, ByVal DataRepresentation As Long)
Declare Sub NdrClearOutParameters lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pFormat As String, ArgAddr As Any)
Declare Sub NdrClientCall lib "rpcrt4" (ByRef pStubDescriptor As MIDL_STUB_DESC, ByVal pFormat As String, OptionalArguments As Any)
Declare Sub NdrClientCall2 lib "rpcrt4" (ByRef pStubDescriptor As MIDL_STUB_DESC, ByVal pFormat As String, OptionalArguments As Any)
Declare Sub NdrClientContextMarshall lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal ContextHandle As Struct_MembersOf_NDR_CCONTEXT, ByVal fCheck As Long)
Declare Sub NdrClientContextUnmarshall lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByRef pContextHandle As NDR_CCONTEXT, ByVal BindHandle As Long)
Declare Sub NdrClientInitialize lib "rpcrt4" (ByVal pRpcMsg As Long, ByRef pStubMsg As MIDL_STUB_MESSAGE, ByRef pStubDescriptor As MIDL_STUB_DESC, ByVal ProcNum As Long)
Declare Sub NdrClientInitializeNew lib "rpcrt4" (ByVal pRpcMsg As Long, ByRef pStubMsg As MIDL_STUB_MESSAGE, ByRef pStubDescriptor As MIDL_STUB_DESC, ByVal ProcNum As Long)
Declare Sub NdrComplexArrayBufferSize lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrComplexArrayFree lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrComplexStructBufferSize lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrComplexStructFree lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrConformantArrayBufferSize lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrConformantArrayFree lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrConformantStringBufferSize lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrConformantStructBufferSize lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrConformantStructFree lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrConformantVaryingArrayBufferSize lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrConformantVaryingArrayFree lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrConformantVaryingStructBufferSize lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrConformantVaryingStructFree lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrContextHandleSize lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrConvert lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pFormat As String)
Declare Sub NdrConvert2 lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pFormat As String, ByVal NumberParams As Long)
Declare Sub NDRcopy lib "rpcrt4" (pTarget As Any, pSource As Any, ByVal size As Long)
Declare Sub NdrCorrelationFree lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE)
Declare Sub NdrCorrelationInitialize lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByRef pMemory As Long, ByVal CacheSize As Long, ByVal flags As Long)
Declare Sub NdrCorrelationPass lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE)
Declare Sub NdrDcomAsyncClientCall lib "rpcrt4" (ByRef pStubDescriptor As MIDL_STUB_DESC, ByVal pFormat As String, OptionalArguments As Any)
Declare Sub NdrEncapsulatedUnionBufferSize lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrEncapsulatedUnionFree lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrFixedArrayBufferSize lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrFixedArrayFree lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrFreeBuffer lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE)
Declare Sub NdrFullPointerInsertRefId lib "rpcrt4" (ByRef pXlatTables As FULL_PTR_XLAT_TABLES, ByVal RefId As Long, pPointer As Any)
Declare Sub NdrFullPointerXlatFree lib "rpcrt4" (ByRef pXlatTables As FULL_PTR_XLAT_TABLES)
Declare Sub NdrGetPartialBuffer lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE)
Declare Sub NdrInterfacePointerBufferSize lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrInterfacePointerFree lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrIsAppDoneWithPipes lib "rpcrt4" (ByRef pPipeDesc As PNDR_PIPE_DESC)
Declare Sub NdrMesProcEncodeDecode lib "rpcrt4" (ByVal Handle As Long, ByRef pStubDesc As MIDL_STUB_DESC, ByVal pFormatString As String, OptionalArguments As Any)
Declare Sub NdrMesProcEncodeDecode2 lib "RPCRT4" (ByVal handle As Long, ByRef pStubDesc As MIDL_STUB_DESC, ByVal pFormatString As String, Optional OptionalArguments As Any)
Declare Sub NdrMesSimpleTypeDecode lib "rpcrt4" (ByVal Handle As Long, pObject As Any, ByVal Size As Integer)
Declare Sub NdrMesSimpleTypeEncode lib "rpcrt4" (ByVal Handle As Long, ByRef pStubDesc As MIDL_STUB_DESC, pObject As Any, ByVal Size As Integer)
Declare Sub NdrMesTypeDecode lib "rpcrt4" (ByVal Handle As Long, ByRef pStubDesc As MIDL_STUB_DESC, ByVal pFormatString As String, pObject As Any)
Declare Sub NdrMesTypeDecode2 lib "RPCRT4" (ByVal handle As Long, ByRef pPicklingInfo As PMIDL_TYPE_PICKLING_INFO, ByRef pStubDesc As MIDL_STUB_DESC, ByVal pFormatString As String, pObject As Any)
Declare Sub NdrMesTypeEncode lib "rpcrt4" (ByVal Handle As Long, ByRef pStubDesc As MIDL_STUB_DESC, ByVal pFormatString As String, pObject As Any)
Declare Sub NdrMesTypeEncode2 lib "RPCRT4" (ByVal handle As Long, ByRef pPicklingInfo As PMIDL_TYPE_PICKLING_INFO, ByRef pStubDesc As MIDL_STUB_DESC, ByVal pFormatString As String, pObject As Any)
Declare Sub NdrMesTypeFree2 lib "RPCRT4" (ByVal handle As Long, ByRef pPicklingInfo As PMIDL_TYPE_PICKLING_INFO, ByRef pStubDesc As MIDL_STUB_DESC, ByVal pFormatString As String, pObject As Any)
Declare Sub NdrNonConformantStringBufferSize lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrNonEncapsulatedUnionBufferSize lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrNonEncapsulatedUnionFree lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrOleAllocate lib "rpcrt4" (ByVal Size As Long)
Declare Sub NdrOleFree lib "rpcrt4" (NodeToFree As Any)
Declare Sub NdrPipePull lib "rpcrt4" (ByVal pState As String, buf As Any, ByVal esize As Long, ByRef ecount As Long)
Declare Sub NdrPipePush lib "rpcrt4" (ByVal pState As String, buf As Any, ByVal ecount As Long)
Declare Sub NdrPipesDone lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE)
Declare Sub NdrPipeSendReceive lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByRef pPipeDesc As PNDR_PIPE_DESC)
Declare Sub NdrPipesInitialize lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pParamDesc As String, ByRef pPipeDesc As PNDR_PIPE_DESC, ByRef pPipeMsg As PNDR_PIPE_MESSAGE, ByVal pStackTop As String, ByVal NumberParams As Long)
Declare Sub NdrPointerBufferSize lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrPointerFree lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrProxyFreeBuffer lib "rpcrt4" (This As Any, ByRef pStubMsg As MIDL_STUB_MESSAGE)
Declare Sub NdrProxyGetBuffer lib "rpcrt4" (This As Any, ByRef pStubMsg As MIDL_STUB_MESSAGE)
Declare Sub NdrProxyInitialize lib "rpcrt4" (This As Any, ByVal pRpcMsg As Long, ByRef pStubMsg As MIDL_STUB_MESSAGE, ByRef pStubDescriptor As MIDL_STUB_DESC, ByVal ProcNum As Long)
Declare Sub NdrProxySendReceive lib "rpcrt4" (This As Any, ByRef pStubMsg As MIDL_STUB_MESSAGE)
Declare Sub NdrRpcSmClientAllocate lib "rpcrt4" (ByVal Size As Long)
Declare Sub NdrRpcSmClientFree lib "rpcrt4" (NodeToFree As Any)
Declare Sub NdrRpcSmSetClientToOsf lib "rpcrt4" (ByRef pMessage As MIDL_STUB_MESSAGE)
Declare Sub NdrRpcSsDefaultAllocate lib "rpcrt4" (ByVal Size As Long)
Declare Sub NdrRpcSsDefaultFree lib "rpcrt4" (NodeToFree As Any)
Declare Sub NdrRpcSsDisableAllocate lib "rpcrt4" (ByRef pMessage As MIDL_STUB_MESSAGE)
Declare Sub NdrRpcSsEnableAllocate lib "rpcrt4" (ByRef pMessage As MIDL_STUB_MESSAGE)
Declare Sub NDRSContextMarshall lib "rpcrt4" (ByVal CContext As Struct_MembersOf_NDR_SCONTEXT, pBuff As Any, ByVal userRunDownIn As Long)
Declare Sub NDRSContextMarshall2 lib "rpcrt4" (ByVal BindingHandle As Long, ByVal CContext As Struct_MembersOf_NDR_SCONTEXT, pBuff As Any, ByVal userRunDownIn As Long, CtxGuard As Any, ByVal Flags As Long)
Declare Sub NDRSContextMarshallEx lib "rpcrt4" (ByVal BindingHandle As Long, ByVal CContext As Struct_MembersOf_NDR_SCONTEXT, pBuff As Any, ByVal userRunDownIn As Long)
Declare Sub NdrServerCall lib "rpcrt4" (ByVal pRpcMsg As Long)
Declare Sub NdrServerCall2 lib "rpcrt4" (ByVal pRpcMsg As Long)
Declare Sub NdrServerContextMarshall lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal ContextHandle As Struct_MembersOf_NDR_SCONTEXT, ByVal RundownRoutine As Long)
Declare Sub NdrServerContextNewMarshall lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal ContextHandle As Struct_MembersOf_NDR_SCONTEXT, ByVal RundownRoutine As Long, ByVal pFormat As String)
Declare Sub NdrServerInitializeMarshall lib "rpcrt4" (ByVal pRpcMsg As Long, ByRef pStubMsg As MIDL_STUB_MESSAGE)
Declare Sub NdrServerInitializePartial lib "rpcrt4" (ByVal pRpcMsg As Long, ByRef pStubMsg As MIDL_STUB_MESSAGE, ByRef pStubDescriptor As MIDL_STUB_DESC, ByVal RequestedBufferSize As Long)
Declare Sub NdrServerMarshall lib "rpcrt4" (ByVal pThis As Long, ByVal pChannel As Long, ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pFormat As String)
Declare Sub NdrSimpleStructBufferSize lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrSimpleStructFree lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrSimpleTypeMarshall lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal FormatChar As Byte)
Declare Sub NdrSimpleTypeUnmarshall lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal FormatChar As Byte)
Declare Sub NdrStubForwardingFunction lib "rpcrt4" (ByVal This As Long, ByVal pChannel As Long, ByVal pmsg As Long, ByRef pdwStubPhase As Long)
Declare Sub NdrStubGetBuffer lib "rpcrt4" (ByVal This As Long, ByVal pRpcChannelBuffer As Long, ByRef pStubMsg As MIDL_STUB_MESSAGE)
Declare Sub NdrStubInitialize lib "rpcrt4" (ByVal pRpcMsg As Long, ByRef pStubMsg As MIDL_STUB_MESSAGE, ByRef pStubDescriptor As MIDL_STUB_DESC, ByVal pRpcChannelBuffer As Long)
Declare Sub NdrUserMarshalBufferSize lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrUserMarshalFree lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrVaryingArrayBufferSize lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrVaryingArrayFree lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrXmitOrRepAsBufferSize lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NdrXmitOrRepAsFree lib "rpcrt4" (ByRef pStubMsg As MIDL_STUB_MESSAGE, ByVal pMemory As String, ByVal pFormat As String)
Declare Sub NetEnumerateTrustedDomains lib "NETAPI32" (ByVal servername As String, ByVal DomainNames As String)
Declare Sub NotifyWinEvent lib "user32" (ByVal lEvent As Long, ByVal hwnd As Long, ByVal idObject As Long, ByVal idChild As Long)
Declare Sub ObjectFromLresult lib "OLEACC" (ByVal lResult As Long, ByVal riid As Long, ByVal wParam As Long, ppvObject As Any)
Declare Sub ObtainUserAgentString lib "URLMON" (ByVal dwOption As Long, ByVal pszUAOut As String, ByRef cbSize As Long)
Declare Sub OleConvertIStorageToOLESTREAM lib "ole32" (ByVal pstg As Long, ByRef lpolestream As LPOLESTREAM)
Declare Sub OleConvertIStorageToOLESTREAMEx lib "ole32" (ByVal pstg As Long, ByVal cfFormat As Integer, ByVal lWidth As Long, ByVal lHeight As Long, ByVal dwSize As Long, ByVal pmedium As Long, ByRef polestm As LPOLESTREAM)
Declare Sub OleConvertOLESTREAMToIStorage lib "ole32" (ByRef lpolestream As LPOLESTREAM, ByVal pstg As Long, ByRef ptd As DVTARGETDEVICE)
Declare Sub OleConvertOLESTREAMToIStorageEx lib "ole32" (ByRef polestm As LPOLESTREAM, ByVal pstg As Long, ByRef pcfFormat As Integer, ByRef plwWidth As Long, ByRef plHeight As Long, ByRef pdwSize As Long, ByVal pmedium As Long)
Declare Sub OleCreate lib "ole32" (ByVal rclsid As Long, ByVal riid As Long, ByVal renderopt As Long, ByRef pFormatEtc As FORMATETC, ByVal pClientSite As Long, ByVal pStg As Long, ppvObj As Any)
Declare Sub OleCreateDefaultHandler lib "ole32" (ByVal clsid As Long, ByVal pUnkOuter As Long, ByVal riid As Long, lplpObj As Any)
Declare Sub OleCreateEmbeddingHelper lib "ole32" (ByVal clsid As Long, ByVal pUnkOuter As Long, ByVal flags As Long, ByVal pCF As Long, ByVal riid As Long, lplpObj As Any)
Declare Sub OleCreateEx lib "ole32" (ByVal rclsid As Long, ByVal riid As Long, ByVal dwFlags As Long, ByVal renderopt As Long, ByVal cFormats As Long, ByRef rgAdvf As Long, ByRef rgFormatEtc As FORMATETC, ByVal lpAdviseSink As Long, ByRef rgdwConnection As Long, ByVal pClientSite As Long, ByVal pStg As Long, ppvObj As Any)
Declare Sub OleCreateFontIndirect lib "oleaut32" (ByRef lpFontDesc As FONTDESC, ByVal riid As Long, lplpvObj As Any)
Declare Sub OleCreateFromData lib "ole32" (ByRef pSrcDataObj As DATAOBJECT, ByVal riid As Long, ByVal renderopt As Long, ByRef pFormatEtc As FORMATETC, ByVal pClientSite As Long, ByVal pStg As Long, ppvObj As Any)
Declare Sub OleCreateFromDataEx lib "ole32" (ByRef pSrcDataObj As DATAOBJECT, ByVal riid As Long, ByVal dwFlags As Long, ByVal renderopt As Long, ByVal cFormats As Long, ByRef rgAdvf As Long, ByRef rgFormatEtc As FORMATETC, ByVal lpAdviseSink As Long, ByRef rgdwConnection As Long, ByVal pClientSite As Long, ByVal pStg As Long, ppvObj As Any)
Declare Sub OleCreateFromFile lib "ole32" (ByVal rclsid As Long, ByVal lpszFileName As Long, ByVal riid As Long, ByVal renderopt As Long, ByRef lpFormatEtc As FORMATETC, ByVal pClientSite As Long, ByVal pStg As Long, ppvObj As Any)
Declare Sub OleCreateFromFileEx lib "ole32" (ByVal rclsid As Long, ByVal lpszFileName As Long, ByVal riid As Long, ByVal dwFlags As Long, ByVal renderopt As Long, ByVal cFormats As Long, ByRef rgAdvf As Long, ByRef rgFormatEtc As FORMATETC, ByVal lpAdviseSink As Long, ByRef rgdwConnection As Long, ByVal pClientSite As Long, ByVal pStg As Long, ppvObj As Any)
Declare Sub OleCreateLink lib "ole32" (ByVal pmkLinkSrc As Long, ByVal riid As Long, ByVal renderopt As Long, ByRef lpFormatEtc As FORMATETC, ByVal pClientSite As Long, ByVal pStg As Long, ppvObj As Any)
Declare Sub OleCreateLinkEx lib "ole32" (ByVal pmkLinkSrc As Long, ByVal riid As Long, ByVal dwFlags As Long, ByVal renderopt As Long, ByVal cFormats As Long, ByRef rgAdvf As Long, ByRef rgFormatEtc As FORMATETC, ByVal lpAdviseSink As Long, ByRef rgdwConnection As Long, ByVal pClientSite As Long, ByVal pStg As Long, ppvObj As Any)
Declare Sub OleCreateLinkFromData lib "ole32" (ByRef pSrcDataObj As DATAOBJECT, ByVal riid As Long, ByVal renderopt As Long, ByRef pFormatEtc As FORMATETC, ByVal pClientSite As Long, ByVal pStg As Long, ppvObj As Any)
Declare Sub OleCreateLinkFromDataEx lib "ole32" (ByRef pSrcDataObj As DATAOBJECT, ByVal riid As Long, ByVal dwFlags As Long, ByVal renderopt As Long, ByVal cFormats As Long, ByRef rgAdvf As Long, ByRef rgFormatEtc As FORMATETC, ByVal lpAdviseSink As Long, ByRef rgdwConnection As Long, ByVal pClientSite As Long, ByVal pStg As Long, ppvObj As Any)
Declare Sub OleCreateLinkToFile lib "ole32" (ByVal lpszFileName As Long, ByVal riid As Long, ByVal renderopt As Long, ByRef lpFormatEtc As FORMATETC, ByVal pClientSite As Long, ByVal pStg As Long, ppvObj As Any)
Declare Sub OleCreateLinkToFileEx lib "ole32" (ByVal lpszFileName As Long, ByVal riid As Long, ByVal dwFlags As Long, ByVal renderopt As Long, ByVal cFormats As Long, ByRef rgAdvf As Long, ByRef rgFormatEtc As FORMATETC, ByVal lpAdviseSink As Long, ByRef rgdwConnection As Long, ByVal pClientSite As Long, ByVal pStg As Long, ppvObj As Any)
Declare Sub OleCreatePictureIndirect lib "oleaut32" (ByRef lpPictDesc As PICTDESC, ByVal riid As Long, ByVal fOwn As Long, lplpvObj As Any)
Declare Sub OleCreatePropertyFrame lib "oleaut32" (ByVal hwndOwner As Long, ByVal x As Long, ByVal y As Long, ByVal lpszCaption As Long, ByVal cObjects As Long, ByVal ppUnk As Long, ByVal cPages As Long, ByVal pPageClsID As Long, ByVal lcid As Long, ByVal dwReserved As Long, pvReserved As Any)
Declare Sub OleCreatePropertyFrameIndirect lib "oleaut32" (ByRef lpParams As OCPFIPARAMS)
Declare Sub OleCreateStaticFromData lib "ole32" (ByRef pSrcDataObj As DATAOBJECT, ByVal iid As Long, ByVal renderopt As Long, ByRef pFormatEtc As FORMATETC, ByVal pClientSite As Long, ByVal pStg As Long, ppvObj As Any)
Declare Sub OleDestroyMenuDescriptor lib "ole32" (ByVal holemenu As Long)
Declare Sub OleDoAutoConvert lib "ole32" (ByVal pStg As Long, ByVal pClsidNew As Long)
Declare Sub OleDraw lib "ole32" (ByVal pUnknown As Long, ByVal dwAspect As Long, ByVal hdcDraw As Long, ByRef lprcBounds As RECT)
Declare Sub OleFlushClipboard lib "ole32" ()
Declare Sub OleGetAutoConvert lib "ole32" (ByVal clsidOld As Long, ByVal pClsidNew As Long)
Declare Sub OleGetClipboard lib "ole32" (ByRef ppDataObj As DATAOBJECT)
Declare Sub OleInitialize lib "ole32" (pvReserved As Any)
Declare Sub OleIsCurrentClipboard lib "ole32" (ByRef pDataObj As DATAOBJECT)
Declare Sub OleLoad lib "ole32" (ByVal pStg As Long, ByVal riid As Long, ByVal pClientSite As Long, ppvObj As Any)
Declare Sub OleLoadFromStream lib "ole32" (ByRef pStm As Long, ByVal iidInterface As Long, ppvObj As Any)
Declare Sub OleLoadPicture lib "oleaut32" (ByRef lpstream As Long, ByVal lSize As Long, ByVal fRunmode As Long, ByVal riid As Long, lplpvObj As Any)
Declare Sub OleLoadPictureEx lib "oleaut32" (ByRef lpstream As Long, ByVal lSize As Long, ByVal fRunmode As Long, ByVal riid As Long, ByVal xSizeDesired As Long, ByVal ySizeDesired As Long, ByVal dwFlags As Long, lplpvObj As Any)
Declare Sub OleLoadPictureFile lib "oleaut32" (ByVal varFileName As Variant, ByRef lplpdispPicture As LPDISPATCH)
Declare Sub OleLoadPictureFileEx lib "oleaut32" (ByVal varFileName As Variant, ByVal xSizeDesired As Long, ByVal ySizeDesired As Long, ByVal dwFlags As Long, ByRef lplpdispPicture As LPDISPATCH)
Declare Sub OleLoadPicturePath lib "oleaut32" (ByVal szURLorPath As String, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As Long, ByVal riid As Long, ppvRet As Any)
Declare Sub OleLockRunning lib "ole32" (ByVal pUnknown As Long, ByVal fLock As Long, ByVal fLastUnlockCloses As Long)
Declare Sub OleNoteObjectVisible lib "ole32" (ByVal pUnknown As Long, ByVal fVisible As Long)
Declare Sub OleQueryCreateFromData lib "ole32" (ByRef pSrcDataObject As DATAOBJECT)
Declare Sub OleQueryLinkFromData lib "ole32" (ByRef pSrcDataObject As DATAOBJECT)
Declare Sub OleQueryProtocol lib "olecli32" (ByVal lpoleobject As Long, ByVal lpcstr As String)
Declare Sub OleRegEnumFormatEtc lib "ole32" (ByVal clsid As Long, ByVal dwDirection As Long, ByVal ppenum As Long)
Declare Sub OleRegEnumVerbs lib "ole32" (ByVal clsid As Long, ByVal ppenum As Long)
Declare Sub OleRegGetMiscStatus lib "ole32" (ByVal clsid As Long, ByVal dwAspect As Long, ByRef pdwStatus As Long)
Declare Sub OleRegGetUserType lib "ole32" (ByVal clsid As Long, ByVal dwFormOfType As Long, ByVal pszUserType As String)
Declare Sub OleRun lib "ole32" (ByVal pUnknown As Long)
Declare Sub OleSave lib "ole32" (ByVal pPS As Long, ByVal pStg As Long, ByVal fSameAsLoad As Long)
Declare Sub OleSavePictureFile lib "oleaut32" (ByRef lpdispPicture As LPDISPATCH, ByRef bstrFileName As String)
Declare Sub OleSaveToStream lib "ole32" (ByVal pPStm As Long, ByRef pStm As Long)
Declare Sub OleSaveToStreamEx lib "hlink" (ByVal piunk As Long, ByVal pistm As Long, ByVal fClearDirty As Long)
Declare Sub OleSetAutoConvert lib "ole32" (ByVal clsidOld As Long, ByVal clsidNew As Long)
Declare Sub OleSetClipboard lib "ole32" (ByRef pDataObj As IUnknown)
Declare Sub OleSetContainedObject lib "ole32" (ByVal pUnknown As Long, ByVal fContained As Long)
Declare Sub OleSetMenuDescriptor lib "ole32" (ByVal holemenu As Long, ByVal hwndFrame As Long, ByVal hwndActiveObject As Long, ByVal lpFrame As Long, ByVal lpActiveObj As Long)
Declare Sub OleTranslateAccelerator lib "ole32" (ByVal lpFrame As Long, ByVal lpFrameInfo As Long, ByRef lpmsg As MSG)
Declare Sub OleUninitialize lib "ole32" ()
Declare Sub OpenCluster lib "clusapi" (ByVal lpszClusterName As String)
Declare Sub OpenClusterGroup lib "clusapi" (ByRef hCluster As hCluster, ByVal lpszGroupName As String)
Declare Sub OpenClusterNode lib "clusapi" (ByRef hCluster As hCluster, ByVal lpszNodeName As String)
Declare Sub OpenClusterResource lib "clusapi" (ByRef hCluster As hCluster, ByVal lpszResourceName As String)
Declare Sub OpenColorProfile lib "mscms" Alias "OpenColorProfileA" (ByRef TPPROFILE As PPROFILE, ByVal dword As Long, ByVal dword As Long, ByVal dword As Long)
Declare Sub OutputDebugStr Lib "winmm.dll" Alias "OutputDebugStr" (ByVal lpszOutputString As String)
Declare Sub OutputDebugString Lib "kernel32" Alias "OutputDebugStringA" (ByVal lpOutputString As String)
Declare Sub PathCreateFromUrl lib "shlwapi" Alias "PathCreateFromUrlA" (ByVal pszUrl As String, ByVal pszPath As String, ByRef pcchPath As Long, ByVal dwFlags As Long)
Declare Sub PathQuoteSpaces lib "shlwapi" Alias "PathQuoteSpacesA" (ByVal lpsz As String)
Declare Sub PathRemoveArgs lib "shlwapi" Alias "PathRemoveArgsA" (ByVal pszPath As String)
Declare Sub PathRemoveBlanks lib "shlwapi" Alias "PathRemoveBlanksA" (ByVal pszPath As String)
Declare Sub PathRemoveExtension lib "shlwapi" Alias "PathRemoveExtensionA" (ByVal pszPath As String)
Declare Sub PathSetDlgItemPath lib "shlwapi" Alias "PathSetDlgItemPathA" (ByVal hDlg As Long, ByVal id As Long, ByVal pszPath As String)
Declare Sub PathStripPath lib "shlwapi" Alias "PathStripPathA" (ByVal pszPath As String)
Declare Sub PathUndecorate lib "shlwapi" Alias "PathUndecorateA" (ByVal pszPath As String)
Declare Sub PathUnquoteSpaces lib "shlwapi" Alias "PathUnquoteSpacesA" (ByVal lpsz As String)
Declare Sub PdhAddCounter lib "pdh" (ByRef hQuery As hQuery, ByVal szFullCounterPath As String, ByRef dwUserData As DWORD_PTR, ByRef phCounter As hCounter)
Declare Sub PdhBrowseCounters lib "pdh" (ByRef pBrowseDlgData As PPDH_BROWSE_DLG_CONFIG_A)
Declare Sub PdhCalculateCounterFromRawValue lib "pdh" (ByRef hCounter As hCounter, ByVal dwFormat As Long, ByRef rawValue1 As PPDH_RAW_COUNTER, ByRef rawValue2 As PPDH_RAW_COUNTER, ByRef fmtValue As PPDH_FMT_COUNTERVALUE)
Declare Sub PdhCloseLog lib "pdh" (ByRef hLog As hLog, ByVal dwFlags As Long)
Declare Sub PdhCloseQuery lib "pdh" (ByRef hQuery As hQuery)
Declare Sub PdhCollectQueryData lib "pdh" (ByRef hQuery As hQuery)
Declare Sub PdhCollectQueryDataEx lib "pdh" (ByRef hQuery As hQuery, ByVal dwIntervalTime As Long, ByVal hNewDataEvent As Long)
Declare Sub PdhComputeCounterStatistics lib "pdh" (ByRef hCounter As hCounter, ByVal dwFormat As Long, ByVal dwFirstEntry As Long, ByVal dwNumEntries As Long, ByRef lpRawValueArray As PPDH_RAW_COUNTER, ByRef data As PPDH_STATISTICS)
Declare Sub PdhConnectMachine lib "pdh" (ByVal szMachineName As String)
Declare Sub PdhEnumMachines lib "pdh" (ByVal szDataSource As String, ByVal mszMachineList As String, ByRef pcchBufferSize As Long)
Declare Sub PdhEnumObjectItems lib "pdh" (ByVal szDataSource As String, ByVal szMachineName As String, ByVal szObjectName As String, ByVal mszCounterList As String, ByRef pcchCounterListLength As Long, ByVal mszInstanceList As String, ByRef pcchInstanceListLength As Long, ByVal dwDetailLevel As Long, ByVal dwFlags As Long)
Declare Sub PdhEnumObjects lib "pdh" (ByVal szDataSource As String, ByVal szMachineName As String, ByVal mszObjectList As String, ByRef pcchBufferSize As Long, ByVal dwDetailLevel As Long, ByVal bRefresh As Long)
Declare Sub PdhExpandCounterPath lib "pdh" (ByVal szWildCardPath As String, ByVal mszExpandedPathList As String, ByRef pcchPathListLength As Long)
Declare Sub PdhExpandWildCardPath lib "pdh" (ByVal szDataSource As String, ByVal szWildCardPath As String, ByVal mszExpandedPathList As String, ByRef pcchPathListLength As Long, ByVal dwFlags As Long)
Declare Sub PdhFormatFromRawValue lib "pdh" (ByVal dwCounterType As Long, ByVal dwFormat As Long, ByRef pTimeBase As Double, ByRef pRawValue1 As PPDH_RAW_COUNTER, ByRef pRawValue2 As PPDH_RAW_COUNTER, ByRef pFmtValue As PPDH_FMT_COUNTERVALUE)
Declare Sub PdhGetCounterInfo lib "pdh" (ByRef hCounter As hCounter, ByVal bRetrieveExplainText As Long, ByRef pdwBufferSize As Long, ByRef lpBuffer As PPDH_COUNTER_INFO_A)
Declare Sub PdhGetCounterTimeBase lib "pdh" (ByRef hCounter As hCounter, ByRef pTimeBase As Double)
Declare Sub PdhGetDataSourceTimeRange lib "pdh" (ByVal szDataSource As String, ByRef pdwNumEntries As Long, ByRef pInfo As PPDH_TIME_INFO, ByRef dwBufferSize As Long)
Declare Sub PdhGetDefaultPerfCounter lib "pdh" (ByVal szDataSource As String, ByVal szMachineName As String, ByVal szObjectName As String, ByVal szDefaultCounterName As String, ByRef pcchBufferSize As Long)
Declare Sub PdhGetDefaultPerfObject lib "pdh" (ByVal szDataSource As String, ByVal szMachineName As String, ByVal szDefaultObjectName As String, ByRef pcchBufferSize As Long)
Declare Sub PdhGetDllVersion lib "pdh" (ByRef lpdwVersion As Long)
Declare Sub PdhGetFormattedCounterArray lib "pdh" (ByRef hCounter As hCounter, ByVal dwFormat As Long, ByRef lpdwBufferSize As Long, ByRef lpdwItemCount As Long, ByRef ItemBuffer As PPDH_FMT_COUNTERVALUE_ITEM_A)
Declare Sub PdhGetFormattedCounterValue lib "pdh" (ByRef hCounter As hCounter, ByVal dwFormat As Long, ByRef lpdwType As Long, ByRef pValue As PPDH_FMT_COUNTERVALUE)
Declare Sub PdhGetLogFileSize lib "pdh" (ByRef hLog As hLog, ByRef llSize As Double)
Declare Sub PdhGetRawCounterArray lib "pdh" (ByRef hCounter As hCounter, ByRef lpdwBufferSize As Long, ByRef lpdwItemCount As Long, ByRef ItemBuffer As PPDH_RAW_COUNTER_ITEM_A)
Declare Sub PdhGetRawCounterValue lib "pdh" (ByRef hCounter As hCounter, ByRef lpdwType As Long, ByRef pValue As PPDH_RAW_COUNTER)
Declare Sub PdhLogServiceCommand lib "pdh" (ByVal szMachineName As String, ByVal szQueryName As String, ByVal dwFlags As Long, ByRef pdwStatus As Long)
Declare Sub PdhLogServiceControl lib "pdh" (ByVal szMachineName As String, ByVal szQueryName As String, ByVal dwFlags As Long, ByRef pInfoBuffer As PPDH_LOG_SERVICE_QUERY_INFO_A, ByRef pdwBufferSize As Long)
Declare Sub PdhLookupPerfIndexByName lib "pdh" (ByVal szMachineName As String, ByVal szNameBuffer As String, ByRef pdwIndex As Long)
Declare Sub PdhLookupPerfNameByIndex lib "pdh" (ByVal szMachineName As String, ByVal dwNameIndex As Long, ByVal szNameBuffer As String, ByRef pcchNameBufferSize As Long)
Declare Sub PdhMakeCounterPath lib "pdh" (ByRef pCounterPathElements As PDH_COUNTER_PATH_ELEMENTS_A, ByVal szFullPathBuffer As String, ByRef pcchBufferSize As Long, ByVal dwFlags As Long)
Declare Sub PdhOpenLog lib "pdh" (ByVal szLogFileName As String, ByVal dwAccessFlags As Long, ByRef lpdwLogType As Long, ByRef hQuery As hQuery, ByVal dwMaxSize As Long, ByVal szUserCaption As String, ByRef phLog As hLog)
Declare Sub PdhOpenQuery lib "pdh" (ByVal szDataSource As String, ByRef dwUserData As DWORD_PTR, ByRef phQuery As hQuery)
Declare Sub PdhParseCounterPath lib "pdh" (ByVal szFullPathBuffer As String, ByRef pCounterPathElements As PDH_COUNTER_PATH_ELEMENTS_A, ByRef pdwBufferSize As Long, ByVal dwFlags As Long)
Declare Sub PdhParseInstanceName lib "pdh" (ByVal szInstanceString As String, ByVal szInstanceName As String, ByRef pcchInstanceNameLength As Long, ByVal szParentName As String, ByRef pcchParentNameLength As Long, ByRef lpIndex As Long)
Declare Sub PdhReadRawLogRecord lib "pdh" (ByRef hLog As hLog, ByVal ftRecord As Struct_MembersOf_FILETIME, ByRef pRawLogRecord As PPDH_RAW_LOG_RECORD, ByRef pdwBufferLength As Long)
Declare Sub PdhRemoveCounter lib "pdh" (ByRef hCounter As hCounter)
Declare Sub PdhSelectDataSource lib "pdh" (ByVal hWndOwner As Long, ByVal dwFlags As Long, ByVal szDataSource As String, ByRef pcchBufferLength As Long)
Declare Sub PdhSetCounterScaleFactor lib "pdh" (ByRef hCounter As hCounter, ByVal lFactor As Long)
Declare Sub PdhSetDefaultRealTimeDataSource lib "pdh" (ByVal dwDataSourceId As Long)
Declare Sub PdhSetQueryTimeRange lib "pdh" (ByRef hQuery As hQuery, ByRef pInfo As PPDH_TIME_INFO)
Declare Sub PdhUpdateLog lib "pdh" (ByRef hLog As hLog, ByVal szUserString As String)
Declare Sub PdhUpdateLogFileCatalog lib "pdh" (ByRef hLog As hLog)
Declare Sub PdhValidatePath lib "pdh" (ByVal szFullPathBuffer As String)
Declare Sub PostQuitMessage Lib "user32" Alias "PostQuitMessage" (ByVal nExitCode As Long)
Declare Sub ProgIDFromCLSID lib "ole32" (ByVal clsid As Long, ByVal lplpszProgID As String)
Declare Sub PropertySheet lib "comctl32" (ByRef lpcpropsheetheadera As CPROPSHEETHEADERA)
Declare Sub PropStgNameToFmtId lib "iprop" (ByVal oszName As String, ByRef pfmtid As FMTID)
Declare Sub PropVariantClear lib "iprop" (ByRef pvar As PROPVARIANT)
Declare Sub PropVariantCopy lib "ole32" (ByRef pvarDest As PROPVARIANT, ByRef pvarSrc As PROPVARIANT)
Declare Sub putDebugStr lib "winmm" Alias "OutputDebugStr" (ByVal lpszOutputString As String)
Declare Sub QueryContextAttributes lib "digest" Alias "QueryContextAttributesA" (ByRef phContext As Long, ByVal ulAttribute As Long, pBuffer As Any)
Declare Sub QueryCredentialsAttributes lib "secur32" Alias "QueryCredentialsAttributesA" (ByRef phCredential As Long, ByVal ulAttribute As Long, pBuffer As Any)
Declare Sub QueryPathOfRegTypeLib lib "oleaut32" (ByVal guid As Long, ByVal wMaj As Integer, ByVal wMin As Integer, ByVal lcid As Long, ByVal lpbstrPathName As Long)
Declare Sub QuerySecurityContextToken lib "secur32" (ByRef phContext As Long, Token As Any)
Declare Sub QuerySecurityPackageInfo lib "digest" Alias "QuerySecurityPackageInfoA" (ByRef pszPackageName As SEC_CHAR, ByRef ppPackageInfo As PSecPkgInfoA)
Declare Sub RaiseException Lib "kernel32" Alias "RaiseException" (ByVal dwExceptionCode As Long, ByVal dwExceptionFlags As Long, ByVal nNumberOfArguments As Long, lpArguments As Long)
Declare Sub RasFreeEapUserIdentity lib "rasapi32" Alias "RasFreeEapUserIdentityA" (ByRef pRasEapUserIdentity As RASEAPUSERIDENTITYA)
Declare Sub RatingAccessDeniedDialog lib "msrating" (ByVal hDlg As Long, ByVal pszUsername As String, ByVal pszContentDescription As String, pRatingDetails As Any)
Declare Sub RatingAccessDeniedDialog2 lib "msrating" (ByVal hDlg As Long, ByVal pszUsername As String, pRatingDetails As Any)
Declare Sub RatingCheckUserAccess lib "msrating" (ByVal pszUsername As String, ByVal pszURL As String, ByVal pszRatingInfo As String, ByVal pData As String, ByVal cbData As Long, ppRatingDetails As Any)
Declare Sub RatingEnable lib "msrating" (ByVal hwndParent As Long, ByVal pszUsername As String, ByVal fEnable As Long)
Declare Sub RatingEnabledQuery lib "msrating" ()
Declare Sub RatingFreeDetails lib "msrating" (pRatingDetails As Any)
Declare Sub RatingInit lib "msrating" ()
Declare Sub RatingObtainCancel lib "msrating" (ByVal hRatingObtainQuery As Long)
Declare Sub RatingObtainQuery lib "msrating" (ByVal pszTargetUrl As String, ByVal dwUserData As Long, FunctionCall As Any, ByRef phRatingObtainQuery As Long)
Declare Sub RatingSetupUI lib "msrating" (ByVal hDlg As Long, ByVal pszUsername As String)
Declare Sub ReadClassStg lib "ole32" (ByVal pStg As Long, ByRef pclsid As Long)
Declare Sub ReadClassStm lib "ole32" (ByRef pStm As Long, ByRef pclsid As Long)
Declare Sub ReadFmtUserTypeStg lib "ole32" (ByVal pstg As Long, ByRef pcf As Integer, ByVal lplpszUserType As String)
Declare Sub ReadUrlCacheEntryStream lib "wininet" (ByVal hUrlCacheStream As Long, ByVal dwLocation As Long, lpBuffer As Any, ByRef lpdwLen As Long, ByVal Reserved As Long)
Declare Sub RegisterActiveObject lib "oleaut32" (ByVal punk As Long, ByVal rclsid As Long, ByVal dwFlags As Long, ByRef pdwRegister As Long)
Declare Sub RegisterBindStatusCallback lib "URLMON" (ByVal pbc As Long, ByRef pBSCb As IBindStatusCallback, ByRef ppBSCBPrev As IBindStatusCallback, ByVal dwReserved As Long)
Declare Sub RegisterDeviceNotification lib "user32" Alias "RegisterDeviceNotificationA" (ByVal hRecipient As Long, NotificationFilter As Any, ByVal Flags As Long)
Declare Sub RegisterDragDrop lib "ole32" (ByVal hwnd As Long, ByVal pDropTarget As Long)
Declare Sub RegisterFormatEnumerator lib "URLMON" (ByVal pbc As Long, ByVal pEFetc As Long, ByVal Reserved As Long)
Declare Sub RegisterMediaTypeClass lib "URLMON" (ByVal pbc As Long, ByVal ctypes As Long, ByVal rgszTypes As String, ByRef rgclsID As Long, ByVal Reserved As Long)
Declare Sub RegisterMediaTypes lib "URLMON" (ByVal ctypes As Long, ByVal rgszTypes As String, ByRef rgcfTypes As Integer)
Declare Sub RegisterTypeLib lib "oleaut32" (ByVal ptlib As Long, ByRef szFullPath As Byte, ByRef szHelpDir As Byte)
Declare Sub ReleaseBindInfo lib "URLMON" (ByRef pbindinfo As BINDINFO)
Declare Sub ReleaseStgMedium lib "ole32" (ByVal lpstgmedium As Long)
Declare Sub ResUtilFreeParameterBlock lib "resutils" (ByVal pOutParams As String, ByVal pInParams As String, ByRef pPropertyTable As Long)
Declare Sub ResUtilGetResourceDependency lib "resutils" (ByVal hSelf As Long, ByVal lpszResourceType As String)
Declare Sub ResUtilGetResourceDependencyByClass lib "resutils" (ByRef hCluster As hCluster, ByVal hSelf As Long, ByRef prci As PCLUS_RESOURCE_CLASS_INFO, ByVal bRecurse As Long)
Declare Sub ResUtilGetResourceDependencyByName lib "resutils" (ByRef hCluster As hCluster, ByVal hSelf As Long, ByVal lpszResourceType As String, ByVal bRecurse As Long)
Declare Sub ResUtilGetResourceNameDependency lib "resutils" (ByVal lpszResourceName As String, ByVal lpszResourceType As String)
Declare Sub RetrieveUrlCacheEntryFile lib "wininet" Alias "RetrieveUrlCacheEntryFileA" (ByVal lpszUrlName As String, ByRef lpCacheEntryInfo As INTERNET_CACHE_ENTRY_INFOA, ByRef lpdwCacheEntryInfoBufferSize As Long, ByVal dwReserved As Long)
Declare Sub RevertSecurityContext lib "digest" (ByRef phContext As Long)
Declare Sub RevokeActiveObject lib "oleaut32" (ByVal dwRegister As Long, pvReserved As Any)
Declare Sub RevokeBindStatusCallback lib "URLMON" (ByVal pbc As Long, ByRef pBSCb As IBindStatusCallback)
Declare Sub RevokeDragDrop lib "ole32" (ByVal hwnd As Long)
Declare Sub RevokeFormatEnumerator lib "URLMON" (ByVal pbc As Long, ByVal pEFetc As Long)
Declare Sub RouterAssert lib "rtutils" (ByVal pszFailedAssertion As String, ByVal pszFileName As String, ByVal dwLineNumber As Long, ByVal pszMessage As String)
Declare Sub RouterLogDeregister lib "rtutils" (ByVal hLogHandle As Long)
Declare Sub RouterLogEvent lib "rtutils" (ByVal hLogHandle As Long, ByVal dwEventType As Long, ByVal dwMessageId As Long, ByVal dwSubStringCount As Long, ByVal plpszSubStringArray As String, ByVal dwErrorCode As Long)
Declare Sub RouterLogEventData lib "rtutils" (ByVal hLogHandle As Long, ByVal dwEventType As Long, ByVal dwMessageId As Long, ByVal dwSubStringCount As Long, ByVal plpszSubStringArray As String, ByVal dwDataBytes As Long, ByVal lpDataBytes As String)
Declare Sub RouterLogEventEx lib "rtutils" (ByVal hLogHandle As Long, ByVal dwEventType As Long, ByVal dwErrorCode As Long, ByVal dwMessageId As Long, ByVal ptszFormat As String, Optional OptionalArguments As Any)
Declare Sub RouterLogEventString lib "rtutils" (ByVal hLogHandle As Long, ByVal dwEventType As Long, ByVal dwMessageId As Long, ByVal dwSubStringCount As Long, ByVal plpszSubStringArray As String, ByVal dwErrorCode As Long, ByVal dwErrorIndex As Long)
Declare Sub RouterLogEventValistEx lib "rtutils" (ByVal hLogHandle As Long, ByVal dwEventType As Long, ByVal dwErrorCode As Long, ByVal dwMessageId As Long, ByVal ptszFormat As String, ByVal arglist As String)
Declare Sub RpcRaiseException lib "rpcrt4" (ByVal exception As Long)
Declare Sub RpcServerYield lib "RPCRT4" ()
Declare Sub RpcSmAllocate lib "rpcrt4" (ByVal Size As Long, ByRef pStatus As Long)
Declare Sub RpcSsAllocate lib "rpcrt4" (ByVal Size As Long)
Declare Sub RpcSsDestroyClientContext lib "rpcrt4" (ContextHandle As Any)
Declare Sub RpcSsDisableAllocate lib "rpcrt4" ()
Declare Sub RpcSsDontSerializeContext lib "rpcrt4" ()
Declare Sub RpcSsEnableAllocate lib "rpcrt4" ()
Declare Sub RpcSsFree lib "rpcrt4" (NodeToFree As Any)
Declare Sub RpcSsSetClientAllocFree lib "rpcrt4" (ByVal ClientAlloc As Long, ByVal ClientFree As Long)
Declare Sub RpcSsSetThreadHandle lib "rpcrt4" (ByVal Id As Long)
Declare Sub RpcSsSwapClientAllocFree lib "rpcrt4" (ByVal ClientAlloc As Long, ByVal ClientFree As Long, ByVal OldClientAlloc As Long, ByVal OldClientFree As Long)
Declare Sub rtcBeep lib "msvbvm60" ()
Declare Sub rtcDoEvents lib "msvbvm60" ()
Declare Sub RtlCompareMemory lib "ntdll" (Source1 As Any, Source2 As Any, ByRef Length As Long)
Declare Sub RtlFillMemory lib "kernel32" (Destination As Any, ByRef Length As Long, ByVal Fill As Byte)
Declare Sub RtlMoveMemory lib "kernel32" (Destination As Any, Source As Any, ByVal Length As Long)
Declare Sub RtlZeroMemory lib "kernel32" (Destination As Any, ByVal Length As Long)
Declare Sub RunHTMLApplication lib "MSHTML" (ByVal hinst As Long, ByVal hPrevInst As Long, ByVal szCmdLine As String, ByVal nCmdShow As Long)
Declare Sub SafeArrayAccessData lib "oleaut32" (ByRef psa As SAFEARRAY, ppvData As Any)
Declare Sub SafeArrayAllocData lib "oleaut32" (ByRef psa As SAFEARRAY)
Declare Sub SafeArrayAllocDescriptor lib "oleaut32" (ByVal cDims As Long, ByRef ppsaOut As SAFEARRAY)
Declare Sub SafeArrayAllocDescriptorEx lib "oleaut32" (ByVal vt As Integer, ByVal cDims As Long, ByRef ppsaOut As SAFEARRAY)
Declare Sub SafeArrayCopy lib "oleaut32" (ByRef psa As SAFEARRAY, ByRef ppsaOut As SAFEARRAY)
Declare Sub SafeArrayCopyData lib "oleaut32" (ByRef psaSource As SAFEARRAY, ByRef psaTarget As SAFEARRAY)
Declare Sub SafeArrayDestroy lib "oleaut32" (ByRef psa As SAFEARRAY)
Declare Sub SafeArrayDestroyData lib "oleaut32" (ByRef psa As SAFEARRAY)
Declare Sub SafeArrayDestroyDescriptor lib "oleaut32" (ByRef psa As SAFEARRAY)
Declare Sub SafeArrayGetElement lib "oleaut32" (ByRef psa As SAFEARRAY, ByRef rgIndices As Long, pv As Any)
Declare Sub SafeArrayGetIID lib "oleaut32" (ByRef psa As SAFEARRAY, ByRef pguid As GUID)
Declare Sub SafeArrayGetLBound lib "oleaut32" (ByRef psa As SAFEARRAY, ByVal nDim As Long, ByRef plLbound As Long)
Declare Sub SafeArrayGetRecordInfo lib "oleaut32" (ByRef psa As SAFEARRAY, ByRef prinfo As Long)
Declare Sub SafeArrayGetUBound lib "oleaut32" (ByRef psa As SAFEARRAY, ByVal nDim As Long, ByRef plUbound As Long)
Declare Sub SafeArrayGetVartype lib "oleaut32" (ByRef psa As SAFEARRAY, ByRef pvt As Integer)
Declare Sub SafeArrayLock lib "oleaut32" (ByRef psa As SAFEARRAY)
Declare Sub SafeArrayPtrOfIndex lib "oleaut32" (ByRef psa As SAFEARRAY, ByRef rgIndices As Long, ppvData As Any)
Declare Sub SafeArrayPutElement lib "oleaut32" (ByRef psa As SAFEARRAY, ByRef rgIndices As Long, pv As Any)
Declare Sub SafeArrayRedim lib "oleaut32" (ByRef psa As SAFEARRAY, ByRef psaboundNew As SAFEARRAYBOUND)
Declare Sub SafeArraySetIID lib "oleaut32" (ByRef psa As SAFEARRAY, ByVal guid As Long)
Declare Sub SafeArraySetRecordInfo lib "oleaut32" (ByRef psa As SAFEARRAY, ByRef prinfo As Long)
Declare Sub SafeArrayUnaccessData lib "oleaut32" (ByRef psa As SAFEARRAY)
Declare Sub SafeArrayUnlock lib "oleaut32" (ByRef psa As SAFEARRAY)
Declare Sub SafeRef lib "comsvcs" (ByVal rid As Long, ByVal pUnk As Long)
Declare Sub SaslAcceptSecurityContext lib "secur32" (ByRef phCredential As Long, ByRef phContext As Long, ByRef pInput As PSecBufferDesc, ByVal fContextReq As Long, ByVal TargetDataRep As Long, ByRef phNewContext As Long, ByRef pOutput As PSecBufferDesc, ByRef pfContextAttr As Long, ByRef ptsExpiry As PTimeStamp)
Declare Sub SaslEnumerateProfiles lib "secur32" Alias "SaslEnumerateProfilesA" (ByVal ProfileList As String, ByRef ProfileCount As Long)
Declare Sub SaslGetProfilePackage lib "secur32" Alias "SaslGetProfilePackageA" (ByVal ProfileName As String, ByRef PackageInfo As PSecPkgInfoA)
Declare Sub SaslIdentifyPackage lib "SECUR32" (ByRef pInput As PSecBufferDesc, ByRef PackageInfo As PSecPkgInfoA)
Declare Sub SaslInitializeSecurityContext lib "secur32" Alias "SaslInitializeSecurityContextA" (ByRef phCredential As Long, ByRef phContext As Long, ByVal pszTargetName As String, ByVal fContextReq As Long, ByVal Reserved1 As Long, ByVal TargetDataRep As Long, ByRef pInput As PSecBufferDesc, ByVal Reserved2 As Long, ByRef phNewContext As Long, ByRef pOutput As PSecBufferDesc, ByRef pfContextAttr As Long, ByRef ptsExpiry As PTimeStamp)
Declare Sub ScriptString_pLogAttr lib "USP10" (ByRef ssa As SCRIPT_STRING_ANALYSIS)
Declare Sub ServiceMain lib "adptif" (ByVal hShutdownEvent As Long)
Declare Sub SetCatalogState lib "query" (ByRef pwcsCat As Byte, ByRef pwcsMachine As Byte, ByVal dwNewState As Long, ByRef pdwOldState As Long)
Declare Sub SetConvertStg lib "ole32" (ByVal pStg As Long, ByVal fConvert As Long)
Declare Sub SetDebugErrorLevel Lib "user32" Alias "SetDebugErrorLevel" (ByVal dwLevel As Long)
Declare Sub SetDirectoryLocator lib "ftsrch" (ByVal hwndLocator As Long)
Declare Sub SetErrorInfo lib "ole32" (ByVal dwReserved As Long, ByVal perrinfo As Long)
Declare Sub SetFileApisToANSI Lib "kernel32" Alias "SetFileApisToANSI" ()
Declare Sub SetFileApisToOEM Lib "kernel32" Alias "SetFileApisToOEM" ()
Declare Sub SetLastError Lib "kernel32" Alias "SetLastError" (ByVal dwErrCode As Long)
Declare Sub SetLastErrorEx Lib "user32" Alias "SetLastErrorEx" (ByVal dwErrCode As Long, ByVal dwType As Long)
Declare Sub SetServiceAsTrusted lib "loadperf" (ByVal szReserved As String, ByVal szServiceName As String)
Declare Sub SetSoftwareUpdateAdvertisementState lib "URLMON" (ByVal szDistUnit As String, ByVal dwAdState As Long, ByVal dwAdvertisedVersionMS As Long, ByVal dwAdvertisedVersionLS As Long)
Declare Sub SetThreadExecutionState lib "kernel32" (ByRef esFlags As EXECUTION_STATE)
Declare Sub SetupCloseInfFile lib "setupapi" (ByReffHandle As Long)
Declare Sub SetupCloseLog lib "setupapi" ()
Declare Sub SetupCreateDiskSpaceList lib "setupapi" Alias "SetupCreateDiskSpaceListA" (Reserved1 As Any, ByVal Reserved2 As Long, ByVal Flags As Long)
Declare Sub SetupDiCreateDeviceInfoList lib "setupapi" (ByRef ClassGuid As GUID, ByVal hwndParent As Long)
Declare Sub SetupDiCreateDeviceInfoListEx lib "setupapi" Alias "SetupDiCreateDeviceInfoListExA" (ByRef ClassGuid As GUID, ByVal hwndParent As Long, ByVal MachineName As String, Reserved As Any)
Declare Sub SetupDiGetClassDevs lib "setupapi" Alias "SetupDiGetClassDevsA" (ByRef ClassGuid As GUID, ByVal Enumerator As String, ByVal hwndParent As Long, ByVal Flags As Long)
Declare Sub SetupDiGetClassDevsEx lib "setupapi" Alias "SetupDiGetClassDevsExA" (ByRef ClassGuid As GUID, ByVal Enumerator As String, ByVal hwndParent As Long, ByVal Flags As Long, ByRef DeviceInfoSet As Long, ByVal MachineName As String, Reserved As Any)
Declare Sub SetupDuplicateDiskSpaceList lib "setupapi" Alias "SetupDuplicateDiskSpaceListA" (ByRef DiskSpace As Long, Reserved1 As Any, ByVal Reserved2 As Long, ByVal Flags As Long)
Declare Sub SetupInitializeFileLog lib "setupapi" Alias "SetupInitializeFileLogA" (ByVal LogFileName As String, ByVal Flags As Long)
Declare Sub SetupOpenFileQueue lib "setupapi" ()
Declare Sub SetupOpenInfFile lib "setupapi" Alias "SetupOpenInfFileA" (ByVal FileName As String, ByValfClass As String, ByValfStyle As Long, ByRef ErrorLine As Long)
Declare Sub SetupOpenMasterInf lib "setupapi" ()
Declare Sub SetupTermDefaultQueueCallback lib "setupapi" (Context As Any)
Declare Sub SetUrlCacheEntryGroup lib "wininet" (ByVal lpszUrlName As String, ByVal dwFlags As Long, ByRef GroupId As GROUPID, ByVal pbGroupAttributes As String, ByVal cbGroupAttributes As Long, lpReserved As Any)
Declare Sub SetUrlCacheEntryInfo lib "wininet" Alias "SetUrlCacheEntryInfoA" (ByVal lpszUrlName As String, ByRef lpCacheEntryInfo As INTERNET_CACHE_ENTRY_INFOA, ByVal dwFieldControl As Long)
Declare Sub SetWinEventHook lib "user32" (ByVal eventMin As Long, ByVal eventMax As Long, ByVal hmodWinEventProc As Long, ByRef pfnWinEventProc As WINEVENTPROC, ByVal idProcess As Long, ByVal idThread As Long, ByVal dwFlags As Long)
Declare Sub SHAddToRecentDocs lib "shell32" (ByVal uFlags As Long, pv As Any)
Declare Sub SHAutoComplete lib "shlwapi" (ByVal hwndEdit As Long, ByVal dwFlags As Long)
Declare Sub SHBindToParent lib "SHELL32" (ByRef pidl As LPCITEMIDLIST, ByVal riid As Long, ppv As Any, ByRef ppidlLast As LPCITEMIDLIST)
Declare Sub SHChangeNotify lib "shell32" (ByVal wEventId As Long, ByVal uFlags As Long, dwItem1 As Any, dwItem2 As Any)
Declare Sub SHCreateStreamOnFile lib "shlwapi" Alias "SHCreateStreamOnFileA" (ByVal pszFile As String, ByVal grfMode As Long, ByVal ppstm As Long)
Declare Sub SHEmptyRecycleBin lib "shell32" Alias "SHEmptyRecycleBinA" (ByVal hwnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long)
Declare Sub SHFreeNameMappings Lib "shell32.dll" Alias "SHFreeNameMappings" (ByVal hNameMappings As Long)
Declare Sub SHGetDataFromIDList lib "shell32" Alias "SHGetDataFromIDListA" (ByRef psf As Long, ByRef pidl As CITEMIDLIST, ByVal nFormat As Long, pv As Any, ByVal cb As Long)
Declare Sub SHGetDesktopFolder lib "shell32" (ByRef ppshf As Long)
Declare Sub SHGetFolderLocation lib "shell32" (ByVal hwnd As Long, ByVal csidl As Long, ByVal hToken As Long, ByVal dwFlags As Long, ByRef ppidl As ITEMIDLIST)
Declare Sub SHGetInstanceExplorer lib "shell32" (ByVal ppunk As Long)
Declare Sub SHGetMalloc lib "shell32" (ByVal ppMalloc As Long)
Declare Sub SHGetSettings lib "shell32" (ByRef lpsfs As SHELLFLAGSTATE, ByVal dwMask As Long)
Declare Sub SHGetSpecialFolderLocation lib "shell32" (ByVal hwnd As Long, ByVal csidl As Long, ByRef ppidl As ITEMIDLIST)
Declare Sub SHGetThreadRef lib "shlwapi" (ByVal ppunk As Long)
Declare Sub SHIsFileAvailableOffline lib "SHELL32" (ByVal pwszPath As String, ByRef pdwStatus As Long)
Declare Sub SHLoadInProc lib "shell32" (ByVal rclsid As Long)
Declare Sub SHLoadNonloadedIconOverlayIdentifiers lib "SHELL32" ()
Declare Sub short_array_from_ndr lib "rpcrt4" (ByVal SourceMessage As Long, ByVal LowerIndex As Long, ByVal UpperIndex As Long, ByRef Target As Integer)
Declare Sub short_from_ndr lib "rpcrt4" (ByVal source As Long, ByRef target As Integer)
Declare Sub short_from_ndr_temp lib "rpcrt4" (ByVal source As String, ByRef target As Integer, ByVal format As Long)
Declare Sub ShowHTMLDialog lib "MSHTML" (ByVal hWndParent As Long, ByVal pMk As Long, ByRef pvarArgIn As Variant, ByRef pchOptions As Byte, ByRef pvarArgOut As Variant)
Declare Sub ShowModelessHTMLDialog lib "MSHTML" (ByVal hWndParent As Long, ByVal pMk As Long, ByRef pvarArgIn As Variant, ByRef pvarOptions As Variant, ByRef ppWindow As IHTMLWindow2)
Declare Sub SHPathPrepareForWrite lib "SHELL32" (ByVal hwnd As Long, ByVal punkEnableModless As Long, ByVal pszPath As String, ByVal dwFlags As Long)
Declare Sub SHQueryRecycleBin lib "shell32" Alias "SHQueryRecycleBinA" (ByVal pszRootPath As String, ByRef pSHQueryRBInfo As SHQUERYRBINFO)
Declare Sub SHSetThreadRef lib "shlwapi" (ByVal punk As Long)
Declare Sub SHStrDup lib "shlwapi" Alias "SHStrDupA" (ByVal psz As String, ByRef ppwsz As Byte)
Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
Declare Sub SNB_UserFree lib "ole32" (ByRef pLong As Long, ByVal pSnb As Long)
Declare Sub SnmpCancelMsg lib "wsnmp32" (ByRef session As HSNMP_SESSION, ByRef reqId As smiINT32)
Declare Sub SnmpCleanup lib "wsnmp32" ()
Declare Sub SnmpClose lib "wsnmp32" (ByRef session As HSNMP_SESSION)
Declare Sub SnmpContextToStr lib "wsnmp32" (ByRef context As HSNMP_CONTEXT, ByRef sstring As smiLPOCTETS)
Declare Sub SnmpCountVbl lib "wsnmp32" (ByRef vbl As HSNMP_VBL)
Declare Sub SnmpCreatePdu lib "wsnmp32" (ByRef session As HSNMP_SESSION, ByRef PDU_type As smiINT, ByRef request_id As smiINT32, ByRef error_status As smiINT, ByRef error_index As smiINT, ByRef varbindlist As HSNMP_VBL)
Declare Sub SnmpCreateSession lib "wsnmp32" (ByVal hwnd As Long, ByVal wMsg As Long, ByRef fCallBack As SNMPAPI_CALLBACK, lpClientData As Any)
Declare Sub SnmpCreateVbl lib "wsnmp32" (ByRef session As HSNMP_SESSION, ByRef Name As smiLPCOID, ByRef Value As smiLPCVALUE)
Declare Sub SnmpDecodeMsg lib "wsnmp32" (ByRef session As HSNMP_SESSION, ByRef srcEntity As LPHSNMP_ENTITY, ByRef dstEntity As LPHSNMP_ENTITY, ByRef context As LPHSNMP_CONTEXT, ByRef PDU As LPHSNMP_PDU, ByRef msgBufDesc As smiLPCOCTETS)
Declare Sub SnmpDeleteVb lib "wsnmp32" (ByRef vbl As HSNMP_VBL, ByRef index As smiUINT32)
Declare Sub SnmpDuplicatePdu lib "wsnmp32" (ByRef session As HSNMP_SESSION, ByRef PDU As HSNMP_PDU)
Declare Sub SnmpDuplicateVbl lib "wsnmp32" (ByRef session As HSNMP_SESSION, ByRef vbl As HSNMP_VBL)
Declare Sub SnmpEncodeMsg lib "wsnmp32" (ByRef session As HSNMP_SESSION, ByRef srcEntity As HSNMP_ENTITY, ByRef dstEntity As HSNMP_ENTITY, ByRef context As HSNMP_CONTEXT, ByRef PDU As HSNMP_PDU, ByRef msgBufDesc As smiLPOCTETS)
Declare Sub SnmpEntityToStr lib "wsnmp32" (ByRef entity As HSNMP_ENTITY, ByRef size As smiUINT32, ByVal sstring As String)
Declare Sub SnmpExtensionClose lib "iasperf" ()
Declare Sub SnmpFreeContext lib "wsnmp32" (ByRef context As HSNMP_CONTEXT)
Declare Sub SnmpFreeDescriptor lib "wsnmp32" (ByRef syntax As smiUINT32, ByRef descriptor As smiLPOPAQUE)
Declare Sub SnmpFreeEntity lib "wsnmp32" (ByRef entity As HSNMP_ENTITY)
Declare Sub SnmpFreePdu lib "wsnmp32" (ByRef PDU As HSNMP_PDU)
Declare Sub SnmpFreeVbl lib "wsnmp32" (ByRef vbl As HSNMP_VBL)
Declare Sub SnmpGetLastError lib "wsnmp32" (ByRef session As HSNMP_SESSION)
Declare Sub SnmpGetPduData lib "wsnmp32" (ByRef PDU As HSNMP_PDU, ByRef PDU_type As smiLPINT, ByRef request_id As smiLPINT32, ByRef error_status As smiLPINT, ByRef error_index As smiLPINT, ByRef varbindlist As LPHSNMP_VBL)
Declare Sub SnmpGetRetransmitMode lib "wsnmp32" (ByRef nRetransmitMode As smiLPUINT32)
Declare Sub SnmpGetRetry lib "wsnmp32" (ByRef hEntity As HSNMP_ENTITY, ByRef nPolicyRetry As smiLPUINT32, ByRef nActualRetry As smiLPUINT32)
Declare Sub SnmpGetTimeout lib "wsnmp32" (ByRef hEntity As HSNMP_ENTITY, ByRef nPolicyTimeout As smiLPTIMETICKS, ByRef nActualTimeout As smiLPTIMETICKS)
Declare Sub SnmpGetTranslateMode lib "wsnmp32" (ByRef nTranslateMode As smiLPUINT32)
Declare Sub SnmpGetVb lib "wsnmp32" (ByRef vbl As HSNMP_VBL, ByRef index As smiUINT32, ByRef Name As smiLPOID, ByRef Value As smiLPVALUE)
Declare Sub SnmpGetVendorInfo lib "wsnmp32" (ByRef vendorInfo As smiLPVENDORINFO)
Declare Sub SnmpListen lib "wsnmp32" (ByRef hEntity As HSNMP_ENTITY, ByRef lStatus As SNMPAPI_STATUS)
Declare Sub SnmpMgrOpen lib "mgmtapi" (ByVal lpAgentAddress As String, ByVal lpAgentCommunity As String, ByVal nTimeOut As Long, ByVal nRetries As Long)
Declare Sub SnmpOidCompare lib "wsnmp32" (ByRef xOID As smiLPCOID, ByRef yOID As smiLPCOID, ByRef maxlen As smiUINT32, ByRef result As smiLPINT)
Declare Sub SnmpOidCopy lib "wsnmp32" (ByRef srcOID As smiLPCOID, ByRef dstOID As smiLPOID)
Declare Sub SnmpOidToStr lib "wsnmp32" (ByRef srcOID As smiLPCOID, ByRef size As smiUINT32, ByVal sstring As String)
Declare Sub SnmpOpen lib "wsnmp32" (ByVal hwnd As Long, ByVal wMsg As Long)
Declare Sub SnmpRecvMsg lib "wsnmp32" (ByRef session As HSNMP_SESSION, ByRef srcEntity As LPHSNMP_ENTITY, ByRef dstEntity As LPHSNMP_ENTITY, ByRef context As LPHSNMP_CONTEXT, ByRef PDU As LPHSNMP_PDU)
Declare Sub SnmpRegister lib "wsnmp32" (ByRef session As HSNMP_SESSION, ByRef srcEntity As HSNMP_ENTITY, ByRef dstEntity As HSNMP_ENTITY, ByRef context As HSNMP_CONTEXT, ByRef notification As smiLPCOID, ByRef state As smiUINT32)
Declare Sub SnmpSendMsg lib "wsnmp32" (ByRef session As HSNMP_SESSION, ByRef srcEntity As HSNMP_ENTITY, ByRef dstEntity As HSNMP_ENTITY, ByRef context As HSNMP_CONTEXT, ByRef PDU As HSNMP_PDU)
Declare Sub SnmpSetPduData lib "wsnmp32" (ByRef PDU As HSNMP_PDU, ByRef PDU_type As Long, ByRef request_id As Long, ByRef non_repeaters As Long, ByRef max_repetitions As Long, ByRef varbindlist As Long)
Declare Sub SnmpSetPort lib "wsnmp32" (ByRef hEntity As HSNMP_ENTITY, ByVal nPort As Long)
Declare Sub SnmpSetRetransmitMode lib "wsnmp32" (ByRef nRetransmitMode As smiUINT32)
Declare Sub SnmpSetRetry lib "wsnmp32" (ByRef hEntity As HSNMP_ENTITY, ByRef nPolicyRetry As smiUINT32)
Declare Sub SnmpSetTimeout lib "wsnmp32" (ByRef hEntity As HSNMP_ENTITY, ByRef nPolicyTimeout As smiTIMETICKS)
Declare Sub SnmpSetTranslateMode lib "wsnmp32" (ByRef nTranslateMode As smiUINT32)
Declare Sub SnmpSetVb lib "wsnmp32" (ByRef vbl As HSNMP_VBL, ByRef index As smiUINT32, ByRef Name As smiLPCOID, ByRef Value As smiLPCVALUE)
Declare Sub SnmpStartup lib "wsnmp32" (ByRef nMajorVersion As smiLPUINT32, ByRef nMinorVersion As smiLPUINT32, ByRef nLevel As smiLPUINT32, ByRef nTranslateMode As smiLPUINT32, ByRef nRetransmitMode As smiLPUINT32)
Declare Sub SnmpStrToContext lib "wsnmp32" (ByRef session As HSNMP_SESSION, ByRef sstring As smiLPCOCTETS)
Declare Sub SnmpStrToEntity lib "wsnmp32" (ByRef session As HSNMP_SESSION, ByVal sstring As String)
Declare Sub SnmpStrToOid lib "wsnmp32" (ByVal sstring As String, ByRef dstOID As smiLPOID)
Declare Sub SnmpSvcSetLogLevel lib "snmpapi" (ByVal nLogLevel As Long)
Declare Sub SnmpSvcSetLogType lib "snmpapi" (ByVal nLogType As Long)
Declare Sub SnmpUtilAsnAnyFree lib "snmpapi" (ByRef pAny As AsnAny)
Declare Sub SnmpUtilDbgPrint lib "snmpapi" (ByVal nLogLevel As Long, ByVal szFormat As String)
Declare Sub SnmpUtilMemFree lib "snmpapi" (pMem As Any)
Declare Sub SnmpUtilOctetsFree lib "snmpapi" (ByRef pOctets As AsnOctetString)
Declare Sub SnmpUtilOidFree lib "snmpapi" (ByVal pOid As Long)
Declare Sub SnmpUtilPrintAsnAny lib "snmpapi" (ByRef pAny As AsnAny)
Declare Sub SnmpUtilPrintOid lib "snmpapi" (ByVal Oid As Long)
Declare Sub SnmpUtilVarBindFree lib "snmpapi" (ByRef pVb As SnmpVarBind)
Declare Sub SnmpUtilVarBindListFree lib "snmpapi" (ByRef pVbl As SnmpVarBindList)
Declare Sub StgCreateDocfile lib "ole32" (ByRef pwcsName As Byte, ByVal grfMode As Long, ByVal reserved As Long, ByVal ppstgOpen As Long)
Declare Sub StgCreateDocfileOnILockBytes lib "ole32" (ByVal plkbyt As Long, ByVal grfMode As Long, ByVal reserved As Long, ByVal ppstgOpen As Long)
Declare Sub StgCreatePropSetStg lib "ole32" (ByVal pStorage As Long, ByVal dwReserved As Long, ByRef ppPropSetStg As Long)
Declare Sub StgCreatePropStg lib "ole32" (ByVal pUnk As Long, ByRef fmtid As REFFMTID, ByRef pclsid As Long, ByVal grfFlags As Long, ByVal dwReserved As Long, ByRef ppPropStg As Long)
Declare Sub StgCreateStorageEx lib "ole32" (ByRef pwcsName As Byte, ByVal grfMode As Long, ByVal stgfmt As Long, ByVal grfAttrs As Long, ByRef pStgOptions As STGOPTIONS, reserved As Any, ByVal riid As Long, ppObjectOpen As Any)
Declare Sub StgGetIFillLockBytesOnFile lib "ole32" (ByRef pwcsName As Byte, ByRef ppflb As Long)
Declare Sub StgGetIFillLockBytesOnILockBytes lib "ole32" (ByVal pilb As Long, ByRef ppflb As Long)
Declare Sub StgIsStorageFile lib "ole32" (ByRef pwcsName As Byte)
Declare Sub StgIsStorageILockBytes lib "ole32" (ByVal plkbyt As Long)
Declare Sub STGMEDIUM_UserFree lib "ole32" (ByRef pLong As Long, ByRef pStgmedium As STGMEDIUM)
Declare Sub StgOpenAsyncDocfileOnIFillLockBytes lib "ole32" (ByRef pflb As Long, ByVal grfMode As Long, ByVal asyncFlags As Long, ByVal ppstgOpen As Long)
Declare Sub StgOpenPropStg lib "ole32" (ByVal pUnk As Long, ByRef fmtid As REFFMTID, ByVal grfFlags As Long, ByVal dwReserved As Long, ByRef ppPropStg As Long)
Declare Sub StgOpenStorage lib "ole32" (ByRef pwcsName As Byte, ByVal pstgPriority As Long, ByVal grfMode As Long, ByVal snbExclude As Long, ByVal reserved As Long, ByVal ppstgOpen As Long)
Declare Sub StgOpenStorageEx lib "ole32" (ByRef pwcsName As Byte, ByVal grfMode As Long, ByVal stgfmt As Long, ByVal grfAttrs As Long, ByRef pStgOptions As STGOPTIONS, reserved As Any, ByVal riid As Long, ppObjectOpen As Any)
Declare Sub StgOpenStorageOnILockBytes lib "ole32" (ByVal plkbyt As Long, ByVal pstgPriority As Long, ByVal grfMode As Long, ByVal snbExclude As Long, ByVal reserved As Long, ByVal ppstgOpen As Long)
Declare Sub StgSetTimes lib "ole32" (ByRef lpszName As Byte, ByRef pctime As FILETIME, ByRef patime As FILETIME, ByRef pmtime As FILETIME)
Declare Sub StringFromCLSID lib "ole32" (ByVal rclsid As Long, ByVal lplpsz As String)
Declare Sub StringFromIID lib "ole32" (ByVal rclsid As Long, ByVal lplpsz As String)
Declare Sub StrRetToBuf lib "shlwapi" Alias "StrRetToBufA" (ByRef pstr As STRRET, ByRef pidl As ITEMIDLIST, ByVal pszBuf As String, ByVal cchBuf As Long)
Declare Sub StrRetToStr lib "shlwapi" Alias "StrRetToStrA" (ByRef pstr As STRRET, ByRef pidl As ITEMIDLIST, ByVal ppsz As String)
Declare Sub SwitchToFiber lib "kernel32" (lpFiber As Any)
Declare Sub SymGetModuleBase64 lib "dbghelp" (ByVal hProcess As Long, ByRef qwAddr As DWORD64)
Declare Sub SymLoadModule64 lib "dbghelp" (ByVal hProcess As Long, ByVal hFile As Long, ByVal ImageName As String, ByVal ModuleName As String, ByRef BaseOfDll As DWORD64, ByVal SizeOfDll As Long)
Declare Sub SysAllocStringByteLen lib "oleaut32" (ByVal m_pBase As String, ByRef FunctionCall As Long)
Declare Sub SysFreeString lib "oleaut32" (ByRef bstr As String)
Declare Sub TraceReturn lib "ODBCTRAC" (ByVal retcode As Integer, ByVal retcode As Integer)
Declare Sub tree_into_ndr lib "rpcrt4" (source As Any, ByVal target As Long, ByVal format As String, ByVal MscPak As Byte)
Declare Sub tree_peek_ndr lib "rpcrt4" (ByVal source As Long, ByVal buffer As String, ByVal format As String, ByVal MscPak As Byte)
Declare Sub tree_size_ndr lib "rpcrt4" (source As Any, ByVal target As Long, ByVal format As String, ByVal MscPak As Byte)
Declare Sub UnloadPerfCounterTextStrings lib "loadperf" Alias "UnloadPerfCounterTextStringsA" (ByVal lpCommandLine As String, ByVal bQuietModeArg As Long)
Declare Sub UnlockUrlCacheEntryFile lib "wininet" (ByVal lpszUrlName As String, ByVal dwReserved As Long)
Declare Sub UnlockUrlCacheEntryStream lib "wininet" (ByVal hUrlCacheStream As Long, ByVal Reserved As Long)
Declare Sub UnRegisterTypeLib lib "oleaut32" (ByVal libID As Long, ByVal wVerMajor As Integer, ByVal wVerMinor As Integer, ByVal lcid As Long, ByVal syskind As Integer)
Declare Sub UpdatePerfNameFiles lib "loadperf" (ByVal szNewCtrFilePath As String, ByVal szNewHlpFilePath As String, ByVal szLanguageID As String, ByRef dwFlags As ULONG_PTR)
Declare Sub UrlApplyScheme lib "shlwapi" Alias "UrlApplySchemeA" (ByVal pszIn As String, ByVal pszOut As String, ByRef pcchOut As Long, ByVal dwFlags As Long)
Declare Sub UrlCanonicalize lib "shlwapi" Alias "UrlCanonicalizeA" (ByVal pszUrl As String, ByVal pszCanonicalized As String, ByRef pcchCanonicalized As Long, ByVal dwFlags As Long)
Declare Sub UrlCombine lib "shlwapi" Alias "UrlCombineA" (ByVal pszBase As String, ByVal pszRelative As String, ByVal pszCombined As String, ByRef pcchCombined As Long, ByVal dwFlags As Long)
Declare Sub UrlCreateFromPath lib "shlwapi" Alias "UrlCreateFromPathA" (ByVal pszPath As String, ByVal pszUrl As String, ByRef pcchUrl As Long, ByVal dwFlags As Long)
Declare Sub URLDownloadToCacheFile lib "URLMON" (ByVal lpunknown As Long, ByVal lpcstr As String, ByVal lptstr As String, ByVal dword As Long, ByVal dword As Long, ByRef TLPBINDSTATUSCALLBACK As LPBINDSTATUSCALLBACK)
Declare Sub URLDownloadToFile lib "URLMON" (ByVal lpunknown As Long, ByVal lpcstr As String, ByVal lpcstr As String, ByVal dword As Long, ByRef TLPBINDSTATUSCALLBACK As LPBINDSTATUSCALLBACK)
Declare Sub UrlEscape lib "shlwapi" Alias "UrlEscapeA" (ByVal pszUrl As String, ByVal pszEscaped As String, ByRef pcchEscaped As Long, ByVal dwFlags As Long)
Declare Sub UrlGetPart lib "shlwapi" Alias "UrlGetPartA" (ByVal pszIn As String, ByVal pszOut As String, ByRef pcchOut As Long, ByVal dwPart As Long, ByVal dwFlags As Long)
Declare Sub UrlHash lib "shlwapi" Alias "UrlHashA" (ByVal pszUrl As String, ByVal pbHash As String, ByVal cbHash As Long)
Declare Sub UrlMkGetSessionOption lib "URLMON" (ByVal dwOption As Long, pBuffer As Any, ByVal dwBufferLength As Long, ByRef pdwBufferLength As Long, ByVal dwReserved As Long)
Declare Sub UrlMkSetSessionOption lib "URLMON" (ByVal dwOption As Long, pBuffer As Any, ByVal dwBufferLength As Long, ByVal dwReserved As Long)
Declare Sub URLOpenBlockingStream lib "URLMON" (ByVal lpunknown As Long, ByVal lpcstr As String, ByRef lpstream As Long, ByVal dword As Long, ByRef TLPBINDSTATUSCALLBACK As LPBINDSTATUSCALLBACK)
Declare Sub URLOpenPullStream lib "URLMON" (ByVal lpunknown As Long, ByVal lpcstr As String, ByVal dword As Long, ByRef TLPBINDSTATUSCALLBACK As LPBINDSTATUSCALLBACK)
Declare Sub URLOpenStream lib "URLMON" (ByVal lpunknown As Long, ByVal lpcstr As String, ByVal dword As Long, ByRef TLPBINDSTATUSCALLBACK As LPBINDSTATUSCALLBACK)
Declare Sub UrlUnescape lib "shlwapi" Alias "UrlUnescapeA" (ByVal pszUrl As String, ByVal pszUnescaped As String, ByRef pcchUnescaped As Long, ByVal dwFlags As Long)
Declare Sub VarAbs lib "oleaut32" (ByRef pvarIn As Variant, ByRef pvarResult As Variant)
Declare Sub VarAdd lib "oleaut32" (ByRef pvarLeft As Variant, ByRef pvarRight As Variant, ByRef pvarResult As Variant)
Declare Sub VarAnd lib "oleaut32" (ByRef pvarLeft As Variant, ByRef pvarRight As Variant, ByRef pvarResult As Variant)
Declare Sub VarBoolFromCy lib "oleaut32" (ByVal cyIn As Struct_MembersOf_CY, ByRef pboolOut As Integer)
Declare Sub VarBoolFromDate lib "oleaut32" (ByVal dateIn As Double, ByRef pboolOut As Integer)
Declare Sub VarBoolFromDec lib "oleaut32" (ByRef pdecIn As Single, ByRef pboolOut As Integer)
Declare Sub VarBoolFromDisp lib "oleaut32" (ByVal pdispIn As Long, ByVal lcid As Long, ByRef pboolOut As Integer)
Declare Sub VarBoolFromI1 lib "oleaut32" (ByVal cIn As Byte, ByRef pboolOut As Integer)
Declare Sub VarBoolFromI2 lib "oleaut32" (ByVal sIn As Integer, ByRef pboolOut As Integer)
Declare Sub VarBoolFromI4 lib "oleaut32" (ByVal lIn As Long, ByRef pboolOut As Integer)
Declare Sub VarBoolFromR4 lib "oleaut32" (ByVal fltIn As Single, ByRef pboolOut As Integer)
Declare Sub VarBoolFromR8 lib "oleaut32" (ByRef dblIn As DOUBLE, ByRef pboolOut As Integer)
Declare Sub VarBoolFromStr lib "oleaut32" (ByRef strIn As Byte, ByVal lcid As Long, ByVal dwFlags As Long, ByRef pboolOut As Integer)
Declare Sub VarBoolFromUI1 lib "oleaut32" (ByVal bIn As Byte, ByRef pboolOut As Integer)
Declare Sub VarBoolFromUI2 lib "oleaut32" (ByVal uiIn As Integer, ByRef pboolOut As Integer)
Declare Sub VarBoolFromUI4 lib "oleaut32" (ByVal ulIn As Long, ByRef pboolOut As Integer)
Declare Sub VarBstrCat lib "oleaut32" (ByRef bstrLeft As String, ByRef bstrRight As String, ByVal pbstrResult As Long)
Declare Sub VarBstrCmp lib "oleaut32" (ByRef bstrLeft As String, ByRef bstrRight As String, ByVal lcid As Long, ByVal dwFlags As Long)
Declare Sub VarBstrFromBool lib "oleaut32" (ByVal boolIn As Integer, ByVal lcid As Long, ByVal dwFlags As Long, ByVal pbstrOut As Long)
Declare Sub VarBstrFromCy lib "oleaut32" (ByVal cyIn As Struct_MembersOf_CY, ByVal lcid As Long, ByVal dwFlags As Long, ByVal pbstrOut As Long)
Declare Sub VarBstrFromDate lib "oleaut32" (ByVal dateIn As Double, ByVal lcid As Long, ByVal dwFlags As Long, ByVal pbstrOut As Long)
Declare Sub VarBstrFromDec lib "oleaut32" (ByRef pdecIn As Single, ByVal lcid As Long, ByVal dwFlags As Long, ByVal pbstrOut As Long)
Declare Sub VarBstrFromDisp lib "oleaut32" (ByVal pdispIn As Long, ByVal lcid As Long, ByVal dwFlags As Long, ByVal pbstrOut As Long)
Declare Sub VarBstrFromI1 lib "oleaut32" (ByVal cIn As Byte, ByVal lcid As Long, ByVal dwFlags As Long, ByVal pbstrOut As Long)
Declare Sub VarBstrFromI2 lib "oleaut32" (ByVal iVal As Integer, ByVal lcid As Long, ByVal dwFlags As Long, ByVal pbstrOut As Long)
Declare Sub VarBstrFromI4 lib "oleaut32" (ByVal lIn As Long, ByVal lcid As Long, ByVal dwFlags As Long, ByVal pbstrOut As Long)
Declare Sub VarBstrFromR4 lib "oleaut32" (ByVal fltIn As Single, ByVal lcid As Long, ByVal dwFlags As Long, ByVal pbstrOut As Long)
Declare Sub VarBstrFromR8 lib "oleaut32" (ByRef dblIn As DOUBLE, ByVal lcid As Long, ByVal dwFlags As Long, ByVal pbstrOut As Long)
Declare Sub VarBstrFromUI1 lib "oleaut32" (ByVal bVal As Byte, ByVal lcid As Long, ByVal dwFlags As Long, ByVal pbstrOut As Long)
Declare Sub VarBstrFromUI2 lib "oleaut32" (ByVal uiIn As Integer, ByVal lcid As Long, ByVal dwFlags As Long, ByVal pbstrOut As Long)
Declare Sub VarBstrFromUI4 lib "oleaut32" (ByVal ulIn As Long, ByVal lcid As Long, ByVal dwFlags As Long, ByVal pbstrOut As Long)
Declare Sub VarCat lib "oleaut32" (ByRef pvarLeft As Variant, ByRef pvarRight As Variant, ByRef pvarResult As Variant)
Declare Sub VarCmp lib "oleaut32" (ByRef pvarLeft As Variant, ByRef pvarRight As Variant, ByVal lcid As Long, ByVal dwFlags As Long)
Declare Sub VarCyAbs lib "oleaut32" (ByVal cyIn As Struct_MembersOf_CY, ByRef pcyResult As CY)
Declare Sub VarCyAdd lib "oleaut32" (ByVal cyLeft As Struct_MembersOf_CY, ByVal cyRight As Struct_MembersOf_CY, ByRef pcyResult As CY)
Declare Sub VarCyCmp lib "oleaut32" (ByVal cyLeft As Struct_MembersOf_CY, ByVal cyRight As Struct_MembersOf_CY)
Declare Sub VarCyCmpR8 lib "oleaut32" (ByVal cyLeft As Struct_MembersOf_CY, ByVal dblRight As Double)
Declare Sub VarCyFix lib "oleaut32" (ByVal cyIn As Struct_MembersOf_CY, ByRef pcyResult As CY)
Declare Sub VarCyFromBool lib "oleaut32" (ByVal boolIn As Integer, ByRef pcyOut As CY)
Declare Sub VarCyFromDate lib "oleaut32" (ByVal dateIn As Double, ByRef pcyOut As CY)
Declare Sub VarCyFromDec lib "oleaut32" (ByRef pdecIn As Single, ByRef pcyOut As CY)
Declare Sub VarCyFromDisp lib "oleaut32" (ByVal pdispIn As Long, ByVal lcid As Long, ByRef pcyOut As CY)
Declare Sub VarCyFromI1 lib "oleaut32" (ByVal cIn As Byte, ByRef pcyOut As CY)
Declare Sub VarCyFromI2 lib "oleaut32" (ByVal sIn As Integer, ByRef pcyOut As CY)
Declare Sub VarCyFromI4 lib "oleaut32" (ByVal lIn As Long, ByRef pcyOut As CY)
Declare Sub VarCyFromR4 lib "oleaut32" (ByVal fltIn As Single, ByRef pcyOut As CY)
Declare Sub VarCyFromR8 lib "oleaut32" (ByRef dblIn As DOUBLE, ByRef pcyOut As CY)
Declare Sub VarCyFromStr lib "oleaut32" (ByRef strIn As Byte, ByVal lcid As Long, ByVal dwFlags As Long, ByRef pcyOut As CY)
Declare Sub VarCyFromUI1 lib "oleaut32" (ByVal bIn As Byte, ByRef pcyOut As CY)
Declare Sub VarCyFromUI2 lib "oleaut32" (ByVal uiIn As Integer, ByRef pcyOut As CY)
Declare Sub VarCyFromUI4 lib "oleaut32" (ByVal ulIn As Long, ByRef pcyOut As CY)
Declare Sub VarCyInt lib "oleaut32" (ByVal cyIn As Struct_MembersOf_CY, ByRef pcyResult As CY)
Declare Sub VarCyMul lib "oleaut32" (ByVal cyLeft As Struct_MembersOf_CY, ByVal cyRight As Struct_MembersOf_CY, ByRef pcyResult As CY)
Declare Sub VarCyMulI4 lib "oleaut32" (ByVal cyLeft As Struct_MembersOf_CY, ByVal lRight As Long, ByRef pcyResult As CY)
Declare Sub VarCyNeg lib "oleaut32" (ByVal cyIn As Struct_MembersOf_CY, ByRef pcyResult As CY)
Declare Sub VarCyRound lib "oleaut32" (ByVal cyIn As Struct_MembersOf_CY, ByVal cDecimals As Long, ByRef pcyResult As CY)
Declare Sub VarCySub lib "oleaut32" (ByVal cyLeft As Struct_MembersOf_CY, ByVal cyRight As Struct_MembersOf_CY, ByRef pcyResult As CY)
Declare Sub VarDateFromBool lib "oleaut32" (ByVal boolIn As Integer, ByRef pdateOut As Double)
Declare Sub VarDateFromCy lib "oleaut32" (ByVal cyIn As Struct_MembersOf_CY, ByRef pdateOut As Double)
Declare Sub VarDateFromDec lib "oleaut32" (ByRef pdecIn As Single, ByRef pdateOut As Double)
Declare Sub VarDateFromDisp lib "oleaut32" (ByVal pdispIn As Long, ByVal lcid As Long, ByRef pdateOut As Double)
Declare Sub VarDateFromI1 lib "oleaut32" (ByVal cIn As Byte, ByRef pdateOut As Double)
Declare Sub VarDateFromI2 lib "oleaut32" (ByVal sIn As Integer, ByRef pdateOut As Double)
Declare Sub VarDateFromI4 lib "oleaut32" (ByVal lIn As Long, ByRef pdateOut As Double)
Declare Sub VarDateFromR4 lib "oleaut32" (ByVal fltIn As Single, ByRef pdateOut As Double)
Declare Sub VarDateFromR8 lib "oleaut32" (ByRef dblIn As DOUBLE, ByRef pdateOut As Double)
Declare Sub VarDateFromStr lib "oleaut32" (ByRef strIn As Byte, ByVal lcid As Long, ByVal dwFlags As Long, ByRef pdateOut As Double)
Declare Sub VarDateFromUdate lib "oleaut32" (ByRef pudateIn As UDATE, ByVal dwFlags As Long, ByRef pdateOut As Double)
Declare Sub VarDateFromUdateEx lib "oleaut32" (ByRef pudateIn As UDATE, ByVal lcid As Long, ByVal dwFlags As Long, ByRef pdateOut As Double)
Declare Sub VarDateFromUI1 lib "oleaut32" (ByVal bIn As Byte, ByRef pdateOut As Double)
Declare Sub VarDateFromUI2 lib "oleaut32" (ByVal uiIn As Integer, ByRef pdateOut As Double)
Declare Sub VarDateFromUI4 lib "oleaut32" (ByVal ulIn As Long, ByRef pdateOut As Double)
Declare Sub VarDecAbs lib "oleaut32" (ByRef pdecIn As DECIMAL, ByRef pdecResult As DECIMAL)
Declare Sub VarDecAdd lib "oleaut32" (ByRef pdecLeft As DECIMAL, ByRef pdecRight As DECIMAL, ByRef pdecResult As DECIMAL)
Declare Sub VarDecCmp lib "oleaut32" (ByRef pdecLeft As DECIMAL, ByRef pdecRight As DECIMAL)
Declare Sub VarDecCmpR8 lib "oleaut32" (ByRef pdecLeft As DECIMAL, ByVal dblRight As Double)
Declare Sub VarDecDiv lib "oleaut32" (ByRef pdecLeft As DECIMAL, ByRef pdecRight As DECIMAL, ByRef pdecResult As DECIMAL)
Declare Sub VarDecFix lib "oleaut32" (ByRef pdecIn As DECIMAL, ByRef pdecResult As DECIMAL)
Declare Sub VarDecFromBool lib "oleaut32" (ByVal boolIn As Integer, ByRef pdecOut As Variant)
Declare Sub VarDecFromCy lib "oleaut32" (ByVal cyIn As Struct_MembersOf_CY, ByRef pdecOut As Variant)
Declare Sub VarDecFromDate lib "oleaut32" (ByVal dateIn As Double, ByRef pdecOut As Variant)
Declare Sub VarDecFromDisp lib "oleaut32" (ByVal pdispIn As Long, ByVal lcid As Long, ByRef pdecOut As Variant)
Declare Sub VarDecFromI1 lib "oleaut32" (ByVal cIn As Byte, ByRef pdecOut As Variant)
Declare Sub VarDecFromI2 lib "oleaut32" (ByVal uiIn As Integer, ByRef pdecOut As Variant)
Declare Sub VarDecFromI4 lib "oleaut32" (ByVal lIn As Long, ByRef pdecOut As Variant)
Declare Sub VarDecFromR4 lib "oleaut32" (ByVal fltIn As Single, ByRef pdecOut As Variant)
Declare Sub VarDecFromR8 lib "oleaut32" (ByRef dblIn As Double, ByRef pdecOut As Variant)
Declare Sub VarDecFromStr lib "oleaut32" (ByRef strIn As Byte, ByVal lcid As Long, ByVal dwFlags As Long, ByRef pdecOut As Variant)
Declare Sub VarDecFromUI1 lib "oleaut32" (ByVal bIn As Byte, ByRef pdecOut As Variant)
Declare Sub VarDecFromUI2 lib "oleaut32" (ByVal uiIn As Integer, ByRef pdecOut As Variant)
Declare Sub VarDecFromUI4 lib "oleaut32" (ByVal ulIn As Long, ByRef pdecOut As Variant)
Declare Sub VarDecInt lib "oleaut32" (ByRef pdecIn As DECIMAL, ByRef pdecResult As DECIMAL)
Declare Sub VarDecMul lib "oleaut32" (ByRef pdecLeft As DECIMAL, ByRef pdecRight As DECIMAL, ByRef pdecResult As DECIMAL)
Declare Sub VarDecNeg lib "oleaut32" (ByRef pdecIn As DECIMAL, ByRef pdecResult As DECIMAL)
Declare Sub VarDecRound lib "oleaut32" (ByRef pdecIn As DECIMAL, ByVal cDecimals As Long, ByRef pdecResult As DECIMAL)
Declare Sub VarDecSub lib "oleaut32" (ByRef pdecLeft As DECIMAL, ByRef pdecRight As DECIMAL, ByRef pdecResult As DECIMAL)
Declare Sub VarDiv lib "oleaut32" (ByRef pvarLeft As Variant, ByRef pvarRight As Variant, ByRef pvarResult As Variant)
Declare Sub VarEqv lib "oleaut32" (ByRef pvarLeft As Variant, ByRef pvarRight As Variant, ByRef pvarResult As Variant)
Declare Sub VarFix lib "oleaut32" (ByRef pvarIn As Variant, ByRef pvarResult As Variant)
Declare Sub VarFormat lib "oleaut32" (ByRef pvarIn As Variant, ByVal pstrFormat As String, ByVal iFirstDay As Long, ByVal iFirstWeek As Long, ByVal dwFlags As Long, ByVal pbstrOut As Long)
Declare Sub VarFormatCurrency lib "oleaut32" (ByRef pvarIn As Variant, ByValumDig As Long, ByVal iIncLead As Long, ByVal iUseParens As Long, ByVal iGroup As Long, ByVal dwFlags As Long, ByVal pbstrOut As Long)
Declare Sub VarFormatDateTime lib "oleaut32" (ByRef pvarIn As Variant, ByValamedFormat As Long, ByVal dwFlags As Long, ByVal pbstrOut As Long)
Declare Sub VarFormatFromTokens lib "oleaut32" (ByRef pvarIn As Variant, ByVal pstrFormat As String, ByVal pbTokCur As String, ByVal dwFlags As Long, ByVal pbstrOut As Long, ByVal lcid As Long)
Declare Sub VarFormatNumber lib "oleaut32" (ByRef pvarIn As Variant, ByValumDig As Long, ByVal iIncLead As Long, ByVal iUseParens As Long, ByVal iGroup As Long, ByVal dwFlags As Long, ByVal pbstrOut As Long)
Declare Sub VarFormatPercent lib "oleaut32" (ByRef pvarIn As Variant, ByValumDig As Long, ByVal iIncLead As Long, ByVal iUseParens As Long, ByVal iGroup As Long, ByVal dwFlags As Long, ByVal pbstrOut As Long)
Declare Sub VarI1FromBool lib "oleaut32" (ByVal boolIn As Integer, ByVal pcOut As String)
Declare Sub VarI1FromCy lib "oleaut32" (ByVal cyIn As Struct_MembersOf_CY, ByVal pcOut As String)
Declare Sub VarI1FromDate lib "oleaut32" (ByVal dateIn As Double, ByVal pcOut As String)
Declare Sub VarI1FromDec lib "oleaut32" (ByRef pdecIn As Variant, ByVal pcOut As String)
Declare Sub VarI1FromDisp lib "oleaut32" (ByVal pdispIn As Long, ByVal lcid As Long, ByVal pcOut As String)
Declare Sub VarI1FromI2 lib "oleaut32" (ByVal uiIn As Integer, ByVal pcOut As String)
Declare Sub VarI1FromI4 lib "oleaut32" (ByVal lIn As Long, ByVal pcOut As String)
Declare Sub VarI1FromR4 lib "oleaut32" (ByVal fltIn As Single, ByVal pcOut As String)
Declare Sub VarI1FromR8 lib "oleaut32" (ByRef dblIn As DOUBLE, ByVal pcOut As String)
Declare Sub VarI1FromStr lib "oleaut32" (ByRef strIn As Byte, ByVal lcid As Long, ByVal dwFlags As Long, ByVal pcOut As String)
Declare Sub VarI1FromUI1 lib "oleaut32" (ByVal bIn As Byte, ByVal pcOut As String)
Declare Sub VarI1FromUI2 lib "oleaut32" (ByVal uiIn As Integer, ByVal pcOut As String)
Declare Sub VarI1FromUI4 lib "oleaut32" (ByVal ulIn As Long, ByVal pcOut As String)
Declare Sub VarI2FromBool lib "oleaut32" (ByVal boolIn As Integer, ByRef psOut As Integer)
Declare Sub VarI2FromCy lib "oleaut32" (ByVal cyIn As Struct_MembersOf_CY, ByRef psOut As Integer)
Declare Sub VarI2FromDate lib "oleaut32" (ByVal dateIn As Double, ByRef psOut As Integer)
Declare Sub VarI2FromDec lib "oleaut32" (ByRef pdecIn As Variant, ByRef psOut As Integer)
Declare Sub VarI2FromDisp lib "oleaut32" (ByVal pdispIn As Long, ByVal lcid As Long, ByRef psOut As Integer)
Declare Sub VarI2FromI1 lib "oleaut32" (ByVal cIn As Byte, ByRef psOut As Integer)
Declare Sub VarI2FromI4 lib "oleaut32" (ByVal lIn As Long, ByRef psOut As Integer)
Declare Sub VarI2FromR4 lib "oleaut32" (ByVal fltIn As Single, ByRef psOut As Integer)
Declare Sub VarI2FromR8 lib "oleaut32" (ByRef dblIn As DOUBLE, ByRef psOut As Integer)
Declare Sub VarI2FromStr lib "oleaut32" (ByRef strIn As Byte, ByVal lcid As Long, ByVal dwFlags As Long, ByRef psOut As Integer)
Declare Sub VarI2FromUI1 lib "oleaut32" (ByVal bIn As Byte, ByRef psOut As Integer)
Declare Sub VarI2FromUI2 lib "oleaut32" (ByVal uiIn As Integer, ByRef psOut As Integer)
Declare Sub VarI2FromUI4 lib "oleaut32" (ByVal ulIn As Long, ByRef psOut As Integer)
Declare Sub VarI4FromBool lib "oleaut32" (ByVal boolIn As Integer, ByRef plOut As Long)
Declare Sub VarI4FromCy lib "oleaut32" (ByVal cyIn As Struct_MembersOf_CY, ByRef plOut As Long)
Declare Sub VarI4FromDate lib "oleaut32" (ByVal dateIn As Double, ByRef plOut As Long)
Declare Sub VarI4FromDec lib "oleaut32" (ByRef pdecIn As Variant, ByRef plOut As Long)
Declare Sub VarI4FromDisp lib "oleaut32" (ByVal pdispIn As Long, ByVal lcid As Long, ByRef plOut As Long)
Declare Sub VarI4FromI1 lib "oleaut32" (ByVal cIn As Byte, ByRef plOut As Long)
Declare Sub VarI4FromI2 lib "oleaut32" (ByVal sIn As Integer, ByRef plOut As Long)
Declare Sub VarI4FromR4 lib "oleaut32" (ByVal fltIn As Single, ByRef plOut As Long)
Declare Sub VarI4FromR8 lib "oleaut32" (ByRef dblIn As DOUBLE, ByRef plOut As Long)
Declare Sub VarI4FromStr lib "oleaut32" (ByRef strIn As Byte, ByVal lcid As Long, ByVal dwFlags As Long, ByRef plOut As Long)
Declare Sub VarI4FromUI1 lib "oleaut32" (ByVal bIn As Byte, ByRef plOut As Long)
Declare Sub VarI4FromUI2 lib "oleaut32" (ByVal uiIn As Integer, ByRef plOut As Long)
Declare Sub VarI4FromUI4 lib "oleaut32" (ByVal ulIn As Long, ByRef plOut As Long)
Declare Sub VARIANT_UserFree lib "oleaut32" (ByRef pLong As Long, ByRef pVariant As Variant)
Declare Sub VariantChangeType lib "oleaut32" (ByRef pvargDest As Variant, ByRef pvarSrc As Variant, ByVal wFlags As Integer, ByVal vt As Integer)
Declare Sub VariantChangeTypeEx lib "oleaut32" (ByRef pvargDest As Variant, ByRef pvarSrc As Variant, ByVal lcid As Long, ByVal wFlags As Integer, ByVal vt As Integer)
Declare Sub VariantClear lib "oleaut32" (ByRef pvarg As Variant)
Declare Sub VariantCopy lib "oleaut32" (ByRef pvargDest As Variant, ByRef pvargSrc As Variant)
Declare Sub VariantCopyInd lib "oleaut32" (ByRef pvarDest As Variant, ByRef pvargSrc As Variant)
Declare Sub VariantInit lib "oleaut32" (ByRef pvarg As Variant)
Declare Sub VarIdiv lib "oleaut32" (ByRef pvarLeft As Variant, ByRef pvarRight As Variant, ByRef pvarResult As Variant)
Declare Sub VarImp lib "oleaut32" (ByRef pvarLeft As VARIANT, ByRef pvarRight As VARIANT, ByRef pvarResult As VARIANT)
Declare Sub VarInt lib "oleaut32" (ByRef pvarIn As VARIANT, ByRef pvarResult As VARIANT)
Declare Sub VarMod lib "oleaut32" (ByRef pvarLeft As VARIANT, ByRef pvarRight As Variant, ByRef pvarResult As Variant)
Declare Sub VarMonthName lib "oleaut32" (ByVal iMonth As Long, ByVal fAbbrev As Long, ByVal dwFlags As Long, ByVal pbstrOut As Long)
Declare Sub VarMul lib "oleaut32" (ByRef pvarLeft As Variant, ByRef pvarRight As VARIANT, ByRef pvarResult As Variant)
Declare Sub VarNeg lib "oleaut32" (ByRef pvarIn As Variant, ByRef pvarResult As Variant)
Declare Sub VarNot lib "oleaut32" (ByRef pvarIn As Variant, ByRef pvarResult As Variant)
Declare Sub VarNumFromParseNum lib "oleaut32" (ByRef pnumprs As NUMPARSE, ByVal rgbDig As String, ByVal dwVtBits As Long, ByRef pvar As Variant)
Declare Sub VarOr lib "oleaut32" (ByRef pvarLeft As Variant, ByRef pvarRight As Variant, ByRef pvarResult As VARIANT)
Declare Sub VarParseNumFromStr lib "oleaut32" (ByRef strIn As Byte, ByVal lcid As Long, ByVal dwFlags As Long, ByRef pnumprs As NUMPARSE, ByVal rgbDig As String)
Declare Sub VarPow lib "oleaut32" (ByRef pvarLeft As Variant, ByRef pvarRight As Variant, ByRef pvarResult As Variant)
Declare Sub VarR4CmpR8 lib "oleaut32" (ByVal fltLeft As Single, ByVal dblRight As Double)
Declare Sub VarR4FromBool lib "oleaut32" (ByVal boolIn As Integer, ByRef pfltOut As Single)
Declare Sub VarR4FromCy lib "oleaut32" (ByVal cyIn As Struct_MembersOf_CY, ByRef pfltOut As Single)
Declare Sub VarR4FromDate lib "oleaut32" (ByVal dateIn As Double, ByRef pfltOut As Single)
Declare Sub VarR4FromDec lib "oleaut32" (ByRef pdecIn As Variant, ByRef pfltOut As Single)
Declare Sub VarR4FromDisp lib "oleaut32" (ByVal pdispIn As Long, ByVal lcid As Long, ByRef pfltOut As Single)
Declare Sub VarR4FromI1 lib "oleaut32" (ByVal cIn As Byte, ByRef pfltOut As Single)
Declare Sub VarR4FromI2 lib "oleaut32" (ByVal sIn As Integer, ByRef pfltOut As Single)
Declare Sub VarR4FromI4 lib "oleaut32" (ByVal lIn As Long, ByRef pfltOut As Single)
Declare Sub VarR4FromR8 lib "oleaut32" (ByRef dblIn As DOUBLE, ByRef pfltOut As Single)
Declare Sub VarR4FromStr lib "oleaut32" (ByRef strIn As Byte, ByVal lcid As Long, ByVal dwFlags As Long, ByRef pfltOut As Single)
Declare Sub VarR4FromUI1 lib "oleaut32" (ByVal bIn As Byte, ByRef pfltOut As Single)
Declare Sub VarR4FromUI2 lib "oleaut32" (ByVal uiIn As Integer, ByRef pfltOut As Single)
Declare Sub VarR4FromUI4 lib "oleaut32" (ByVal ulIn As Long, ByRef pfltOut As Single)
Declare Sub VarR8FromBool lib "oleaut32" (ByVal boolIn As Integer, ByRef pdblOut As Double)
Declare Sub VarR8FromCy lib "oleaut32" (ByVal cyIn As Struct_MembersOf_CY, ByRef pdblOut As Double)
Declare Sub VarR8FromDate lib "oleaut32" (ByVal dateIn As Double, ByRef pdblOut As Double)
Declare Sub VarR8FromDec lib "oleaut32" (ByRef pdecIn As Variant, ByRef pdblOut As Double)
Declare Sub VarR8FromDisp lib "oleaut32" (ByVal pdispIn As Long, ByVal lcid As Long, ByRef pdblOut As Double)
Declare Sub VarR8FromI1 lib "oleaut32" (ByVal cIn As Byte, ByRef pdblOut As Double)
Declare Sub VarR8FromI2 lib "oleaut32" (ByVal sIn As Integer, ByRef pdblOut As Double)
Declare Sub VarR8FromI4 lib "oleaut32" (ByVal lIn As Long, ByRef pdblOut As Double)
Declare Sub VarR8FromR4 lib "oleaut32" (ByVal fltIn As Single, ByRef pdblOut As Double)
Declare Sub VarR8FromStr lib "oleaut32" (ByRef strIn As Byte, ByVal lcid As Long, ByVal dwFlags As Long, ByRef pdblOut As Double)
Declare Sub VarR8FromUI1 lib "oleaut32" (ByVal bIn As Byte, ByRef pdblOut As Double)
Declare Sub VarR8FromUI2 lib "oleaut32" (ByVal uiIn As Integer, ByRef pdblOut As Double)
Declare Sub VarR8FromUI4 lib "oleaut32" (ByVal ulIn As Long, ByRef pdblOut As Double)
Declare Sub VarR8Pow lib "oleaut32" (ByVal dblLeft As Double, ByVal dblRight As Double, ByRef pdblResult As Double)
Declare Sub VarR8Round lib "oleaut32" (ByVal dblIn As Double, ByVal cDecimals As Long, ByRef pdblResult As Double)
Declare Sub VarRound lib "oleaut32" (ByRef pvarIn As Variant, ByVal cDecimals As Long, ByRef pvarResult As Variant)
Declare Sub VarSub lib "oleaut32" (ByRef pvarLeft As Variant, ByRef pvarRight As VARIANT, ByRef pvarResult As Variant)
Declare Sub VarTokenizeFormatString lib "oleaut32" (ByVal pstrFormat As String, ByVal rgbTok As String, ByVal cbTok As Long, ByVal iFirstDay As Long, ByVal iFirstWeek As Long, ByVal lcid As Long, ByRef pcbActual As Long)
Declare Sub VarUdateFromDate lib "oleaut32" (ByVal dateIn As Double, ByVal dwFlags As Long, ByRef pudateOut As UDATE)
Declare Sub VarUI1FromBool lib "oleaut32" (ByVal boolIn As Integer, ByVal pbOut As String)
Declare Sub VarUI1FromCy lib "oleaut32" (ByVal cyIn As Struct_MembersOf_CY, ByVal pbOut As String)
Declare Sub VarUI1FromDate lib "oleaut32" (ByVal dateIn As Double, ByVal pbOut As String)
Declare Sub VarUI1FromDec lib "oleaut32" (ByRef pdecIn As Variant, ByVal pbOut As String)
Declare Sub VarUI1FromDisp lib "oleaut32" (ByVal pdispIn As Long, ByVal lcid As Long, ByVal pbOut As String)
Declare Sub VarUI1FromI1 lib "oleaut32" (ByVal cIn As Byte, ByVal pbOut As String)
Declare Sub VarUI1FromI2 lib "oleaut32" (ByVal sIn As Integer, ByVal pbOut As String)
Declare Sub VarUI1FromI4 lib "oleaut32" (ByVal lIn As Long, ByVal pbOut As String)
Declare Sub VarUI1FromR4 lib "oleaut32" (ByVal fltIn As Single, ByVal pbOut As String)
Declare Sub VarUI1FromR8 lib "oleaut32" (ByRef dblIn As DOUBLE, ByVal pbOut As String)
Declare Sub VarUI1FromStr lib "oleaut32" (ByRef strIn As Byte, ByVal lcid As Long, ByVal dwFlags As Long, ByVal pbOut As String)
Declare Sub VarUI1FromUI2 lib "oleaut32" (ByVal uiIn As Integer, ByVal pbOut As String)
Declare Sub VarUI1FromUI4 lib "oleaut32" (ByVal ulIn As Long, ByVal pbOut As String)
Declare Sub VarUI2FromBool lib "oleaut32" (ByVal boolIn As Integer, ByRef puiOut As Integer)
Declare Sub VarUI2FromCy lib "oleaut32" (ByVal cyIn As Struct_MembersOf_CY, ByRef puiOut As Integer)
Declare Sub VarUI2FromDate lib "oleaut32" (ByVal dateIn As Double, ByRef puiOut As Integer)
Declare Sub VarUI2FromDec lib "oleaut32" (ByRef pdecIn As Variant, ByRef puiOut As Integer)
Declare Sub VarUI2FromDisp lib "oleaut32" (ByVal pdispIn As Long, ByVal lcid As Long, ByRef puiOut As Integer)
Declare Sub VarUI2FromI1 lib "oleaut32" (ByVal cIn As Byte, ByRef puiOut As Integer)
Declare Sub VarUI2FromI2 lib "oleaut32" (ByVal uiIn As Integer, ByRef puiOut As Integer)
Declare Sub VarUI2FromI4 lib "oleaut32" (ByVal lIn As Long, ByRef puiOut As Integer)
Declare Sub VarUI2FromR4 lib "oleaut32" (ByVal fltIn As Single, ByRef puiOut As Integer)
Declare Sub VarUI2FromR8 lib "oleaut32" (ByRef dblIn As DOUBLE, ByRef puiOut As Integer)
Declare Sub VarUI2FromStr lib "oleaut32" (ByRef strIn As Byte, ByVal lcid As Long, ByVal dwFlags As Long, ByRef puiOut As Integer)
Declare Sub VarUI2FromUI1 lib "oleaut32" (ByVal bIn As Byte, ByRef puiOut As Integer)
Declare Sub VarUI2FromUI4 lib "oleaut32" (ByVal ulIn As Long, ByRef puiOut As Integer)
Declare Sub VarUI4FromBool lib "oleaut32" (ByVal boolIn As Integer, ByRef pulOut As Long)
Declare Sub VarUI4FromCy lib "oleaut32" (ByVal cyIn As Struct_MembersOf_CY, ByRef pulOut As Long)
Declare Sub VarUI4FromDate lib "oleaut32" (ByVal dateIn As Double, ByRef pulOut As Long)
Declare Sub VarUI4FromDec lib "oleaut32" (ByRef pdecIn As Variant, ByRef pulOut As Long)
Declare Sub VarUI4FromDisp lib "oleaut32" (ByVal pdispIn As Long, ByVal lcid As Long, ByRef pulOut As Long)
Declare Sub VarUI4FromI1 lib "oleaut32" (ByVal cIn As Byte, ByRef pulOut As Long)
Declare Sub VarUI4FromI2 lib "oleaut32" (ByVal uiIn As Integer, ByRef pulOut As Long)
Declare Sub VarUI4FromI4 lib "oleaut32" (ByVal lIn As Long, ByRef pulOut As Long)
Declare Sub VarUI4FromR4 lib "oleaut32" (ByVal fltIn As Single, ByRef pulOut As Long)
Declare Sub VarUI4FromR8 lib "oleaut32" (ByRef dblIn As DOUBLE, ByRef pulOut As Long)
Declare Sub VarUI4FromStr lib "oleaut32" (ByRef strIn As Byte, ByVal lcid As Long, ByVal dwFlags As Long, ByRef pulOut As Long)
Declare Sub VarUI4FromUI1 lib "oleaut32" (ByVal bIn As Byte, ByRef pulOut As Long)
Declare Sub VarUI4FromUI2 lib "oleaut32" (ByVal uiIn As Integer, ByRef pulOut As Long)
Declare Sub VarWeekdayName lib "oleaut32" (ByVal iWeekday As Long, ByVal fAbbrev As Long, ByVal iFirstDay As Long, ByVal dwFlags As Long, ByVal pbstrOut As Long)
Declare Sub VarXor lib "oleaut32" (ByRef pvarLeft As VARIANT, ByRef pvarRight As VARIANT, ByRef pvarResult As VARIANT)
Declare Sub VectorFromBstr lib "oleaut32.dll" (ByRef bstr As String, ByRef ppsa As SAFEARRAY)
Declare Sub VerifySignature lib "digest.dll" (ByRef phContext As Long, ByRef pMessage As PSecBufferDesc, ByVal MessageSeqNo As Long, ByRef pfQOP As Long)
Declare Sub VerSetConditionMask lib "kernel32.dll" (ByRef ConditionMask As Long, ByVal TypeMask As Long, ByVal Condition As Byte)
Declare Sub WindowFromAccessibleObject lib "OLEACC.DLL" (ByRef TIAccessible As IAccessible, ByRef phwnd As Long)
Declare Sub WinExecError Lib "shell32.dll" Alias "WinExecErrorA" (ByVal hwnd As Long, ByVal error As Long, ByVal lpstrFileName As String, ByVal lpstrTitle As String)
Declare Sub WintrustGetRegPolicyFlags lib "wintrust.dll" (ByRef pdwPolicyFlags As Long)
Declare Sub WlxDisplayLockedNotice lib "msgina.dll" (pWlxContext As Any)
Declare Sub WlxDisplaySASNotice lib "msgina.dll" (pWlxContext As Any)
Declare Sub WlxLogoff lib "msgina.dll" (pWlxContext As Any)
Declare Sub WlxShutdown lib "msgina.dll" (pWlxContext As Any, ByVal ShutdownType As Long)
Declare Sub WOWDirectedYield16 lib "WOW32.DLL" (ByVal htask16 As Integer)
Declare Sub WOWGetVDMPointerUnfix lib "WOW32.DLL" (ByVal vp As Long)
Declare Sub WOWYield16 lib "WOW32.DLL" ()
Declare Sub WriteClassStg lib "ole32.dll" (ByVal pStg As Long, ByVal rclsid As Long)
Declare Sub WriteClassStm lib "ole32.dll" (ByRef pStm As Long, ByVal rclsid As Long)
Declare Sub WriteFmtUserTypeStg lib "ole32.dll" (ByVal pstg As Long, ByVal cf As Integer, ByVal lpszUserType As String)
Declare Sub WSACreateEvent lib "ws2_32.dll" ()
Declare Sub WSASetLastError lib "ws2_32.dll" (ByVal iError As Long)
Declare Sub WTFreeEvent lib "rtutils.dll" (ByRef peeEvent As PWT_EVENT_ENTRY)
Declare Sub WTFreeTimer lib "rtutils.dll" (ByRef pteTimer As PWT_TIMER_ENTRY)
Declare Sub WTHelperGetProvCertFromChain lib "wintrust.dll" (ByRef pSgnr As CRYPT_PROVIDER_SGNR, ByVal idxCert As Long)
Declare Sub WTHelperGetProvPrivateDataFromChain lib "wintrust.dll" (ByRef pProvData As CRYPT_PROVIDER_DATA, ByRef pgProviderID As GUID)
Declare Sub WTHelperGetProvSignerFromChain lib "wintrust.dll" (ByRef pProvData As CRYPT_PROVIDER_DATA, ByVal idxSigner As Long, ByVal fCounterSigner As Long, ByVal idxCounterSigner As Long)
Declare Sub WTHelperProvDataFromStateData lib "wintrust.dll" (ByVal hStateData As Long)
Declare Sub WTSCloseServer lib "wtsapi32.dll" (ByVal hServer As Long)
Declare Sub WTSFreeMemory lib "wtsapi32.dll" (pMemory As Any)
Declare Sub ZeroMemory lib "kernel32" Alias "RtlZeroMemory" (Destination As Any, ByVal Length As Long)

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)


Written By
Retired
United States United States
I am currently retired.
I have no degree but I have some programming experience
when I was in college(Cobol, Pascal).

My accomplishments thus far are;
Best VB.Net article for January(2009)
Best VB.Net article for July(2009)

Comments and Discussions