|
<![CDATA[
プログラム
------------------------------------------------------------------------------
use strict;
use Win32::OLE;
use Win32::OLE::Const;
my $xl = Win32::OLE::Const->Load("Microsoft ADO");
printf "ADO type libary contains %d constants:\n",scalar keys %$xl;
foreach my $Key ( sort keys %$xl )
{
print "$Key = $xl->{$Key}\n";
}
Office2007の出力
------------------------------------------------------------------------------
ADO type libary contains 87 constants:
adAccessDeny = 3
adAccessGrant = 1
adAccessRevoke = 4
adAccessSet = 2
adBSTR = 8
adBigInt = 20
adBinary = 128
adBoolean = 11
adChapter = 136
adChar = 129
adColFixed = 1
adColNullable = 2
adCurrency = 6
adDBDate = 133
adDBTime = 134
adDBTimeStamp = 135
adDate = 7
adDecimal = 14
adDouble = 5
adEmpty = 0
adError = 10
adFileTime = 64
adGUID = 72
adIDispatch = 9
adIUnknown = 13
adIndexNullsAllow = 0
adIndexNullsDisallow = 1
adIndexNullsIgnore = 2
adIndexNullsIgnoreAny = 4
adInheritBoth = 3
adInheritContainers = 2
adInheritNoPropogate = 4
adInheritNone = 0
adInheritObjects = 1
adInteger = 3
adKeyForeign = 2
adKeyPrimary = 1
adKeyUnique = 3
adLongVarBinary = 205
adLongVarChar = 201
adLongVarWChar = 203
adNumeric = 131
adPermObjColumn = 2
adPermObjDatabase = 3
adPermObjProcedure = 4
adPermObjProviderSpecific = -1
adPermObjTable = 1
adPermObjView = 5
adPropVariant = 138
adRICascade = 1
adRINone = 0
adRISetDefault = 3
adRISetNull = 2
adRightCreate = 16384
adRightDelete = 65536
adRightDrop = 256
adRightExclusive = 512
adRightExecute = 536870912
adRightFull = 268435456
adRightInsert = 32768
adRightMaximumAllowed = 33554432
adRightNone = 0
adRightRead = -2147483648
adRightReadDesign = 1024
adRightReadPermissions = 131072
adRightReference = 8192
adRightUpdate = 1073741824
adRightWithGrant = 4096
adRightWriteDesign = 2048
adRightWriteOwner = 524288
adRightWritePermissions = 262144
adSingle = 4
adSmallInt = 2
adSortAscending = 1
adSortDescending = 2
adTinyInt = 16
adUnsignedBigInt = 21
adUnsignedInt = 19
adUnsignedSmallInt = 18
adUnsignedTinyInt = 17
adUserDefined = 132
adVarBinary = 204
adVarChar = 200
adVarNumeric = 139
adVarWChar = 202
adVariant = 12
adWChar = 130
Office2000の出力
------------------------------------------------------------------------------
ADO type libary contains 18 constants:
ad3DBevel = 1
adCmdStoredProc = 4
adCmdTable = 2
adCmdText = 1
adCmdUnknown = 8
adDoAddNew = 2
adDoMoveFirst = 0
adDoMoveLast = 0
adFlatBevel = 0
adHorizontal = 0
adOpenDynamic = 2
adOpenKeyset = 1
adOpenStatic = 3
adStayBOF = 1
adStayEOF = 1
adUseClient = 3
adUseServer = 2
adVertical = 1
---------------------------------------------------------------------
use strict;
use Win32::OLE;
use Win32::OLE::Const;
my $xl = Win32::OLE::Const->Load("Microsoft Visual Basic");
printf "Visual Basic type libary contains %d constants:\n",scalar keys %$xl;
foreach my $Key ( sort keys %$xl )
{
print "$Key = $xl->{$Key}\n";
}
出力
---------------------------------------------------------------------
Visual Basic type libary contains 37 constants:
vbext_ct_ActiveXDesigner = 11
vbext_ct_ClassModule = 2
vbext_ct_Document = 100
vbext_ct_MSForm = 3
vbext_ct_StdModule = 1
vbext_cv_FullModuleView = 1
vbext_cv_ProcedureView = 0
vbext_pk_Get = 3
vbext_pk_Let = 1
vbext_pk_Proc = 0
vbext_pk_Set = 2
vbext_pp_locked = 1
vbext_pp_none = 0
vbext_pt_HostProject = 100
vbext_pt_StandAlone = 101
vbext_rk_Project = 1
vbext_rk_TypeLib = 0
vbext_vm_Break = 1
vbext_vm_Design = 2
vbext_vm_Run = 0
vbext_ws_Maximize = 2
vbext_ws_Minimize = 1
vbext_ws_Normal = 0
vbext_wt_Browser = 2
vbext_wt_CodeWindow = 0
vbext_wt_Designer = 1
vbext_wt_Find = 8
vbext_wt_FindReplace = 9
vbext_wt_Immediate = 5
vbext_wt_LinkedWindowFrame = 11
vbext_wt_Locals = 4
vbext_wt_MainWindow = 12
vbext_wt_ProjectWindow = 6
vbext_wt_PropertyWindow = 7
vbext_wt_ToolWindow = 15
vbext_wt_Toolbox = 10
vbext_wt_Watch = 3
---------------------------------------------------------------------
use strict;
use Win32::OLE;
use Win32::OLE::Const;
my $xl = Win32::OLE::Const->Load('Windows Media Player');
printf "Windows Media Player libary contains %d constants:\n",scalar keys %$xl;
foreach my $Key ( sort keys %$xl )
{
print "$Key = $xl->{$Key}\n";
}
出力
---------------------------------------------------------------------
Windows Media Player libary contains 55 constants:
amvComplete = 4
amvInteractive = 3
amvLoading = 1
amvUninitialized = 0
dvdMenu_Angle = 6
dvdMenu_Audio = 5
dvdMenu_Chapter = 7
dvdMenu_Root = 3
dvdMenu_Subpicture = 4
dvdMenu_Title = 2
mpBannerImage = 14
mpBannerMoreInfo = 15
mpBannerURL = 2
mpClipAuthor = 9
mpClipCopyright = 10
mpClipDescription = 12
mpClipFilename = 7
mpClipLogoIcon = 13
mpClipRating = 11
mpClipTitle = 8
mpClipURL = 1
mpClosed = 6
mpDefaultSize = 0
mpDoubleSize = 2
mpFitToSize = 4
mpFrames = 1
mpFullScreen = 3
mpHalfSize = 1
mpOneFourthScreen = 6
mpOneHalfScreen = 7
mpOneSixteenthScreen = 5
mpPaused = 1
mpPlaying = 2
mpReadyStateComplete = 4
mpReadyStateInteractive = 3
mpReadyStateLoading = 1
mpReadyStateUninitialized = 0
mpScanForward = 4
mpScanReverse = 5
mpShowAuthor = 2
mpShowCopyright = 3
mpShowDescription = 5
mpShowDialogContextMenu = 3
mpShowDialogHelp = 0
mpShowDialogOptions = 2
mpShowDialogStatistics = 1
mpShowFilename = 0
mpShowLogoIcon = 6
mpShowRating = 4
mpShowTitle = 1
mpShowURL = 0
mpStopped = 0
mpTime = 0
mpWaiting = 3
mpWatermark = 16
]]>
|