1080p.bluray.x264.dts-hdc 怎么挂中字

到字幕网站下载中文字幕，与视频文件的基本名相同，例如：

视频文件 abc.1080p.bluray.x264.dts-hdc.mkv

字幕文件 abc.1080p.bluray.x264.dts-hdc.chs.srt

使用完美解码等支持外挂字幕的播放软件播放，就可以加载中文字幕了。

壁纸是没有hdc的，那东西就是被画上去的，桌面图标也是。

两种方法实现壁纸切换：

1.截获桌面自绘程序

2.更改壁纸路径，或者使用新图片覆盖当前桌面壁纸，然后刷新

 '下面是改变屏幕的亮度的代码。

'新建文本文档，复制下面代码，另存为form1.frm，然后双击打开。 VERSION 5.00

Begin VB.Form Form1 

   Caption         =   "Form1"

   ClientHeight    =   1890

   ClientLeft      =   120

   ClientTop       =   420

   ClientWidth     =   5775

   LinkTopic       =   "Form1"

   ScaleHeight     =   1890

   ScaleWidth      =   5775

   StartUpPosition =   3 '窗口缺省

   Begin VB.HScrollBar HScroll1 

      Height          =   495

      Left            =   240

      Max             =   255

      TabIndex        =   2

      Top             =   480

      Value           =   128

      Width           =   5295

   End

   Begin VB.CommandButton Command2 

      Caption         =   "Exit"

      Height          =   615

      Left            =   2880

      TabIndex        =   1

      Top             =   1080

      Width           =   2655

   End

   Begin VB.CommandButton Command1 

      Caption         =   "Reset"

      Height          =   615

      Left            =   240

      TabIndex        =   0

      Top             =   1080

      Width           =   2655

   End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Option Explicit 'Private Declare Function GetDeviceGammaRamp Lib "GDI32.DLL" (ByVal hDC As Long, lpRamp As Any) As Long

Private Declare Function SetDeviceGammaRamp Lib "GDI32.DLL" (ByVal hDC As Long, lpRamp As Any) As Long Private Type Word

    HiByte As Byte

    LoByte As Byte

End Type Private Type Dword

    HiWord As Word

    LoWord As Word

End Type Private Type iLong

    Value As Long

End Type Private Sub Command1_Click()

    HScroll1.Value = 128

End Sub

Private Sub Command2_Click()

    Unload Me

End Sub Function SetBrightness(ByVal hDC As Long, ByVal wBrightness As Integer) As Long

    Dim GammaArray(255, 2) As Word

    Dim hGammaDC As Long, nIndex As Long

    Dim wValue As iLong, dValue As Dword

    hGammaDC = hDC     If hDC = 0 Then hGammaDC = Me.hDC     If hGammaDC Then        For nIndex = 0 To 255

           wValue.Value = nIndex * (wBrightness + 128)

           If wValue.Value > 65533 Then wValue.Value = 65533

           LSet dValue = wValue

           GammaArray(nIndex, 0) = dValue.HiWord

           GammaArray(nIndex, 1) = dValue.HiWord

           GammaArray(nIndex, 2) = dValue.HiWord

       Next

       SetBrightness = SetDeviceGammaRamp(hGammaDC, GammaArray(0, 0))

    End If End Function Private Sub Form_Unload(Cancel As Integer)

    Call Command1_Click

End Sub Private Sub HScroll1_Change()

    Call SetBrightness(Me.hDC, HScroll1.Value)

    Me.Caption = HScroll1.Value

End Sub

---