使用IActiveDesktop对象的一些方法

最新推荐文章于 2017-01-17 21:30:28 发布

maxxxz

最新推荐文章于 2017-01-17 21:30:28 发布

阅读量1.4k

点赞数

文章标签： integer structure function string interface server

本文链接：https://blog.csdn.net/maxxxz/article/details/168862

版权

先声明，看不懂VB的别在这里乱叫，烦。这里是给大家例子看的。不是帮你写代码让你COPY了就能用的。
Windows32使用的一些常量定义:

Public Class _win32
    Public Const AD_APPLY_ALL As Integer = AD_APPLY_SAVE Or AD_APPLY_HTMLGEN Or AD_APPLY_REFRESH
    Public Const AD_APPLY_BUFFERED_REFRESH As Integer = &H10
    Public Const AD_APPLY_DYNAMICREFRESH As Integer = &H20
    Public Const AD_APPLY_FORCE As Integer = &H8
    Public Const AD_APPLY_HTMLGEN As Integer = &H2
    Public Const AD_APPLY_REFRESH As Integer = &H4
    Public Const AD_APPLY_SAVE As Integer = &H1
    Public Const COMP_ELEM_ALL As Integer = COMP_ELEM_TYPE Or COMP_ELEM_CHECKED Or COMP_ELEM_DIRTY Or COMP_ELEM_NOSCROLL Or COMP_ELEM_POS_LEFT Or COMP_ELEM_SIZE_WIDTH Or COMP_ELEM_SIZE_HEIGHT Or COMP_ELEM_POS_ZINDEX Or COMP_ELEM_SOURCE Or COMP_ELEM_FRIENDLYNAME Or COMP_ELEM_POS_TOP Or COMP_ELEM_SUBSCRIBEDURL Or COMP_ELEM_ORIGINAL_CSI Or COMP_ELEM_RESTORED_CSI Or COMP_ELEM_CURITEMSTATE
    Public Const COMP_ELEM_CHECKED As Integer = &H2
    Public Const COMP_ELEM_CURITEMSTATE As Integer = &H4000
    Public Const COMP_ELEM_DIRTY As Integer = &H4
    Public Const COMP_ELEM_FRIENDLYNAME As Integer = &H400
    Public Const COMP_ELEM_NOSCROLL As Integer = &H8
    Public Const COMP_ELEM_ORIGINAL_CSI As Integer = &H1000
    Public Const COMP_ELEM_POS_LEFT As Integer = &H10
    Public Const COMP_ELEM_POS_TOP As Integer = &H20
    Public Const COMP_ELEM_POS_ZINDEX As Integer = &H100
    Public Const COMP_ELEM_RESTORED_CSI As Integer = &H2000
    Public Const COMP_ELEM_SIZE_HEIGHT As Integer = &H80
    Public Const COMP_ELEM_SIZE_WIDTH As Integer = &H40
    Public Const COMP_ELEM_SOURCE As Integer = &H200
    Public Const COMP_ELEM_TYPE As Integer = &H1
    Public Const COMP_ELEM_SUBSCRIBEDURL As Integer = &H800
    Public Const COMP_TYPE_CONTROL As Integer = 3
    Public Const COMP_TYPE_HTMLDOC As Integer = 0
    Public Const COMP_TYPE_PICTURE As Integer = 1
    Public Const COMP_TYPE_WEBSITE As Integer = 2
    Public Const COMPONENT_DEFAULT_LEFT As Integer = &HFFFF
    Public Const COMPONENT_DEFAULT_TOP As Integer = &HFFFF
    Public Const IS_FULLSCREEN As Integer = &H2
    Public Const IS_NORMAL As Integer = &H1
    Public Const IS_SPLIT As Integer = &H4
    Public Const MAX_PATH As Integer = 260
    Public Const WPSTYLE_CENTER As Integer = 0
    Public Const WPSTYLE_MAX As Integer = 3
    Public Const WPSTYLE_STRETCH As Integer = 2
    Public Const WPSTYLE_TILE As Integer = 1
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure _tagCOMPSTATEINFO
        Private dwSize As Integer
        Private iLeft As Integer
        Private iTop As Integer
        Private dwWidth As Integer
        Private dwHeight As Integer
        Private dwItemState As Integer
    End Structure
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure _tagCOMPPOS
        Private dwSize As Integer
        Private iLeft As Integer
        Private iTop As Integer
        Private dwWidth As Integer
        Private dwHeight As Integer
        Private izIndex As Integer
        <MarshalAs(UnmanagedType.Bool)> _
        Private fCanResize As Boolean
        <MarshalAs(UnmanagedType.Bool)> _
        Private fCanResizeX As Boolean
        <MarshalAs(UnmanagedType.Bool)> _
        Private fCanResizeY As Boolean
        Private iPreferredLeftPercent As Integer
        Private iPreferredTopPercent As Integer
    End Structure
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure _tagCOMPONENT
        Public dwSize As Integer
        Public dwID As Integer
        Public iComponentType As Integer
        <MarshalAs(UnmanagedType.Bool)> _
        Public fChecked As Boolean
        <MarshalAs(UnmanagedType.Bool)> _
        Public fDirty As Boolean
        <MarshalAs(UnmanagedType.Bool)> _
        Public fNoScroll As Boolean
        Public cpPos As _tagCOMPPOS
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=MAX_PATH)> _
        Public wszFriendlyName As String
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=2084)> _
        Public wszSource As String
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=2084)> _
        Public wszSubscribedURL As String
        Public dwCurItemState As Integer
        Public csiOriginal As _tagCOMPSTATEINFO
        Public csiRestored As _tagCOMPSTATEINFO
    End Structure
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure _tagCOMPONENTSOPT
        Public dwSize As Integer
        <MarshalAs(UnmanagedType.Bool)> _
        Public fEnableComponents As Boolean
        <MarshalAs(UnmanagedType.Bool)> _
        Public fActiveDesktop As Boolean
    End Structure
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure _tagWALLPAPEROPT
        Public dwSize As Integer
        Public dwStyle As Integer
    End Structure
End Class申明IActiveDesktop对象

<ComImport(), Guid("F490EB00-1240-11D1-9888-006097DEACF9"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)> _
Public Interface IActiveDesktop
    Function ApplyChanges(ByVal dwFlags As Integer) As IntPtr
    Function GetWallpaper(<MarshalAs(UnmanagedType.LPWStr)> ByVal pwszWallpaper As System.Text.StringBuilder, ByVal cchWallpaper As Integer, ByVal dwReserved As Integer) As IntPtr
    Function SetWallpaper(<MarshalAs(UnmanagedType.LPWStr)> ByVal pwszWallpaper As String, ByVal dwReserved As Integer) As IntPtr
    Function GetWallpaperOptions(ByRef pwpo As _win32._tagWALLPAPEROPT, ByVal dwReserved As Integer) As IntPtr
    Function SetWallpaperOptions(<[In]()> ByRef pwpo As _win32._tagWALLPAPEROPT, ByVal dwReserved As Integer) As IntPtr
    Function GetPattern(<MarshalAs(UnmanagedType.LPWStr)> ByVal pwszPattern As System.Text.StringBuilder, ByVal cchPattern As Integer, ByVal dwReserved As Integer) As IntPtr
    Function SetPattern(<MarshalAs(UnmanagedType.LPWStr)> ByVal pwszPattern As String, ByVal dwReserved As Integer) As IntPtr
    Function GetDesktopItemOptions(ByRef pco As _win32._tagCOMPONENTSOPT, ByVal dwReserved As Integer) As IntPtr
    Function SetDesktopItemOptions(<[In]()> ByRef pcomp As _win32._tagCOMPONENTSOPT, ByVal dwReserved As Integer) As IntPtr
    Function AddDesktopItem(<[In]()> ByRef pcomp As _win32._tagCOMPONENT, ByVal dwReserved As Integer) As IntPtr
    Function AddDesktopItemWithUI(ByVal hwnd As IntPtr, <[In]()> ByRef pcomp As _win32._tagCOMPONENT, ByVal dwFlags As Integer) As IntPtr
    Function ModifyDesktopItem(<[In]()> ByRef pcomp As _win32._tagCOMPONENT, ByVal dwFlags As Integer) As IntPtr
    Function RemoveDesktopItem(<[In]()> ByRef pcomp As _win32._tagCOMPONENT, ByVal dwReserved As Integer) As IntPtr
    Function GetDesktopItemCount(ByRef lpiCount As Integer, ByVal dwReserved As Integer) As IntPtr
    Function GetDesktopItem(ByVal nComponent As Integer, ByRef pcomp As _win32._tagCOMPONENT, ByVal dwReserved As Integer) As IntPtr
    Function GetDesktopItemByID(ByVal dwID As IntPtr, ByRef pcomp As _win32._tagCOMPONENT, ByVal dwReserved As Integer) As IntPtr
    Function GenerateDesktopItemHtml(<MarshalAs(UnmanagedType.LPWStr)> ByVal pwszFileName As String, <[In]()> ByRef pcomp As _win32._tagCOMPPOS, ByVal dwReserved As Integer) As IntPtr
    Function AddUrl(ByVal hwnd As IntPtr, <MarshalAs(UnmanagedType.LPWStr)> ByVal pszSource As String, <[In]()> ByRef pcomp As _win32._tagCOMPONENT, ByVal dwFlags As Integer) As IntPtr
    Function GetDesktopItemBySource(<MarshalAs(UnmanagedType.LPWStr)> ByVal pszSource As String, ByRef pcomp As _win32._tagCOMPONENT, ByVal dwReserved As Integer) As IntPtr
End Interface

现在开始使用这个对象。在使用之前要用 CoCreateObject来进行创建。

    <DllImport("OLE32.DLL")> _
    Public Shared Function CoCreateInstance( _
         ByRef ClassGuid As Guid, _
         ByVal pUnkOuter As IntPtr, _
         ByVal dwClsContext As Integer, _
         ByRef InterfaceGuid As Guid, _
         ByRef Result As IActiveDesktop) As IntPtr
    End Function

    Private CLSID_ActiveDesktop As New Guid("75048700-EF1F-11D0-9888-006097DEACF9")

    Private IID_IActiveDesktop As New Guid("F490EB00-1240-11D1-9888-006097DEACF9")

    Private Const CLSCTX_INPROC_SERVER As Integer = 1

    Private ActiveDesktop As IActiveDesktop

   下面的语句就是用来创建IActiveDesktop对象的。
        CoCreateInstance(CLSID_ActiveDesktop,IntPtr.Zero, CLSCTX_INPROC_SERVER,IID_IActiveDesktop, ActiveDesktop)



    释放该对象:
        Marshal.ReleaseComObject(ActiveDesktop)

这里的俩条语句是用来在桌面上保存图片的。                       
ActiveDesktop.SetWallpaper(PicturePathName, 0)
ActiveDesktop.ApplyChanges(_win32.AD_APPLY_FORCE Or _win32.AD_APPLY_SAVE Or _win32.AD_APPLY_REFRESH)