kumatti1

Option Explicit
Sub hoge3()
    Dim o As Shell32.FolderItems3
    Dim v As Shell32.FolderItem2
    Dim Shl As Shell32.Shell
    Dim Win As InternetExplorer
    Const StrPath As String = "C:\Temp"
    Set Shl = New Shell32.Shell
    For Each Win In Shl.Windows
        If Win.FullName Like "*\Explorer.EXE" Then

kumatti1

Option Explicit
Private WithEvents d As Shell32.ShellFolderViewOC
Private WithEvents ie As SHDocVw.InternetExplorer
Private flg As Boolean
Private Sub d_EnumDone()
    flg = True
    Debug.Print "d_EnumDone"
    
End Sub
Private Sub ie_DocumentComplete(ByVal pDisp As Object, URL As Variant)

kumatti1

Imports ServiceLibrary

Module Module1

    Sub Main()

        Dim objPenent As New CEDID

        For i As UShort = 0 To 32
            Dim objChild As New CEDID.CEDID_V1_Block

kumatti1

Imports ServiceLibrary
'gfxSrvc.dll

Module Module1

    Sub Main()

        Dim objPenent As New CEDID

        For i As UShort = 0 To 32

kumatti1

//#define UNICODE
#import "igfxsrvc.exe"
#include <windows.h>
#include <stdio.h>
#include <comdef.h>

using namespace IGFXSRVCLib;

void GetName()
{

kumatti1

Imports ServiceLibrary
'gfxSrvc.dll

Module Module1

    Sub Main()

        Dim objChild As New CDisplayConfig.CDeviceInfo
        Dim objPenent As New CDisplayConfig

kumatti1

Imports ServiceLibrary
'gfxSrvc.dll

Module Module1

    Sub Main()

        Dim objPenent As New CEDID

        For i As UShort = 0 To 32

kumatti1

//#define UNICODE
#import "igfxsrvc.exe"
#include <windows.h>
#include <stdio.h>
#include <comdef.h>

using namespace IGFXSRVCLib;

void GetName()
{

kumatti1

MCCSによる設定

MCCSクラスのGetVCPCurrentMaxMinValueの戻り値でどの設定が使えるか判断出来る。
MSのAPIと挙動が似てるのでどちらもMCCSて事なのかなと。

factory_defaultプロシージャを呼び出す際、GetVCPCurrentMaxMinValueで得られた最大値を
SetVCPValueで指定する事で工場出荷時設定に戻せる。
(こちらの環境だと65535)

kumatti1

Option Explicit
Private Declare Function DispCallFunc Lib "oleaut32" _
        (ByVal pvInstance As Long, ByVal oVft As Long, _
        ByVal cc As Long, ByVal vtReturn As Integer, _
        ByVal cActuals As Long, prgvt As Integer, _
        prgpvarg As Long, pvargResult As Variant) As Long
Const CC_STDCALL = 4

Sub hoge()
    Dim objEDID As stdole.IUnknown