色調整すんねん(・∀・)

Test_SetColor.vb

Imports ServiceLibrary
'gfxSrvc.dll

Module Module1

    Sub Main()

        Dim objPenent As New CEDID

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

            Dim DevID As UInteger = tmp << i
            objChild.DsiplayDev.U32DeviceID = DevID

            If objPenent.GetEDIDBlock(objChild) Then
                settings(objChild.DsiplayDev.U32DeviceID)
                Exit For
            End If
        Next

    End Sub

    Private Sub settings(ByVal deviceID As UInteger)

        With New ColorInfo
            .device = New CDevice(deviceID)
            .FillColorInfo()

            'Contrast
            .Contrast.I32CurrentValues = {50, 50, 50}

            'Brightness
            .Brightness.I32CurrentValues = {-30, -30, -30}
            .SetColor()
            Console.ReadLine()
        End With

    End Sub

End Module