全程图解将视频设置动态壁纸 怎么把视频做成动态壁纸


全程图解将视频设置动态壁纸 怎么把视频做成动态壁纸

文章插图
有一位名叫小旺的小伙伴,最近和女朋友在追一档综艺节目《一年一度喜剧大赛》 。
这档节目播出以来,形式年轻化、多玩化,剧本也是脑洞频出、创意无限、极具特色,颇受时下年轻人的追捧 。
其中就有这么一部被主创者自称为陷阱喜剧的小品《先生请出山》,在播出后突然网络上就爆火了 。
这不,小旺和他女朋友也着了迷、上了瘾,问我能不能把这视频放到桌面上,这样不就又可以看又显得酷了?
有这么让人痴迷吗?
我还真有点不信哈,结果当我看了一遍那魔性的舞步和风骚的走位后就再也出不来了!
嘿嘿,没错,被成功洗脑的我,现在也时常动不动就想模仿一下那舞步的动作 。
现在大部分年轻人不抽烟不喝酒也就图点这些乐子了,理解理解!
我和小旺说,不是有不少动态桌面壁纸程序嘛,下载下来用就是了 。
可我得到的回复是,这些软件不是收费的就是里面夹带私货的,都不怎么让人放心,问有没有靠谱点的方法 。
也是哈,于是同样上头的我研究了好几天,最终自己动手成功将这魔性舞步视频当作了动态桌面壁纸!
在本文结尾有自制程序下载,免费安全可靠,不夹带任何私货哦~
实验平台Windows 10 (默认开启 Aero)
目标效果可以基本实现在桌面上播放视频,达到动态桌面的效果 。
与此同时,不妨碍日常的操作,比如桌面图标的点击、移动等 。
工具介绍欲善其工,必利其器,除了编程工具外,在正式开始了解原理之前,我们需要先请出“窗口句柄抓取工具”:Microsoft Spy++ 。
它是来自 Vistual Studio的一个实用工具,可以提供系统的进程、线程、窗口及消息的图形视图 。
全程图解将视频设置动态壁纸 怎么把视频做成动态壁纸

文章插图
当然如果你对此比较熟悉,也是可以用其他一些窗口句柄查看工具的 。
不过如果你不太清楚什么是窗口句柄,那也没关系,我简单给你解释一哈,你大概了解了解就行 。
首先我们要知道,在系统中窗口(或叫作窗体)是最常用最基本的容器载体,在窗口中会有很多各种各样不同的控件,它们都是用来操作系统功能或与用户互动的 。
窗口很重要,那么我们如何管理这些窗口呢?
很简单,系统会分配给这些窗口一个ID,这个ID就叫作句柄(Handle) 。
这些窗口的句柄就像身份证号码一样,当我们想要操作它们的时候,只要告诉系统它们的身份证ID也就是窗口句柄就可以了 。
那么 Spy++可以提供图形化的参考,让我们获知哪个窗口是哪个句柄 。
桌面壁纸原理实际上我们的系统是由很多很多个窗口组成,有的看得见,有的看不见(隐藏或透明),有的看得见但无法直接访问,而有的即使看不见我们也可以对它进行操作,总之所有的这些窗口互相堆叠最后呈现在我们面前 。
你只要把这些窗口想像成多块不同的玻璃,就像照镜子一样由近及远、分别多层次地立在了你的面前,有的透明而有的不透明 。
那么对于桌面来说,它也算是一块玻璃(一个窗口),只是它有些特殊,里面还套着几个小玻璃(子窗口) 。
因此,大概地了解了窗口的概念,那么我们就可以使用 Spy++来观察它具体是个啥模样了 。
桌面窗口本来的模样如下图,通过 Spy++来展开当前窗口的句柄树,就可以非常容易地了解到桌面窗口里面是怎么套娃的 。
全程图解将视频设置动态壁纸 怎么把视频做成动态壁纸

文章插图
最顶上就是桌面窗口的句柄,在它下面还有很多个子窗口 。
其中重点的对于我们有用的就是名字叫作 Program Manager的子窗口,它正是我们苦苦寻找的桌面背景,里面囊括了包含壁纸和图标的子窗口 。
简单地说,桌面窗口就如下面这样的层次 。
|- "Program Manager"Progman // 总体桌面|--- ""SHELLDLL_DefView // 负责显示桌面图标|----- "FolderView"SysListView32 // 控制桌面图标排列顺序|------- ""SysHeader32 // 隐藏窗口,功能不详这些子窗口中的 “” SHELLDLL_DefView就是桌面图标窗口了 。
简单说一嘴,引号里是 窗口标题,而后面则是 类名,比如 “Program Manager”就是窗口标题,而 Progman就是类名了 。
知道窗口标题和类名会非常有利于我们查找定位窗口,进而可以方便地对其进行操作 。
直接嵌入 Progman窗口中行吗根据前面的介绍,我们很容易得出一个结论,既然桌面壁纸和图标是分别属于不同的子窗口,那么是不是我们可以将自己的程序窗口插入它们之间,就可以实现在图标下方显示呢?
理论想法是没错,可经过我的实际测试,非常遗憾根本无法实现这样的效果!
将程序窗口设定为 Progman的子窗口,虽然它跑到了所有窗口的最后面,但是却无法在图标后面显示 。
全程图解将视频设置动态壁纸 怎么把视频做成动态壁纸

文章插图

全程图解将视频设置动态壁纸 怎么把视频做成动态壁纸

文章插图
那么问题出在哪儿呢?
冒出来个多桌面 WorkerW原来啊,我们使用的是 Windows 10 系统,虽说它默认就支持 Aero效果,但它还有一个多桌面的新功能,你只要按一下 Win + Tab键就能看到了 。
而这个多桌面功能会使得桌面窗口产生奇妙的变化,系统会生成多个 WorkerW的窗口出来 。
这个 WorkerW我们可以简单理解为为了切换桌面的小窗口,只不过现在变出来很多个 。
而跑出来的这么多个 WorkerW窗口中呢,有一个会把原来 Progman下的子窗口给“抢过去”,就像下图那样 。
全程图解将视频设置动态壁纸 怎么把视频做成动态壁纸

文章插图
好了,这么一来可坏事了!
我们按照 Progman窗口来找到桌面图标背景的方法就彻底失效了!
那为啥要搞出来这么多个 WorkerW呢,就不能愉快地使用 Progman吗?
实际上官方是这么解释的,为了让桌面切换呈现平滑过渡的效果,因此设计启用了多个 WorkerW窗口,否则效果会糟糕到让你想砸电脑了 。
好吧,道理大家都懂,那接下来怎么整呢?
既然 Progman下的子窗口被“抢过去”了,那是不是我们可以尝试寻找这个拥有 SHELLDLL_DefView类子窗口的 WorkerW,然后将自己程序的窗口作为子窗口放到它的后面就行了呢?
尝试将程序窗口嵌入 WorkerW经过我又一番的折腾,发现即使找到了目标 WorkerW,并且将程序窗口放到它在下面还是行不通 。
如下图,程序窗口虽然跑到了所有窗口的最后面,但却还是停留在了桌面图标的前面,效果就跟前面将程序窗口挂在 Progman下面是一样一样的 。
全程图解将视频设置动态壁纸 怎么把视频做成动态壁纸

文章插图

全程图解将视频设置动态壁纸 怎么把视频做成动态壁纸

文章插图
这下我就懵了,怎么这也不行,那也不行呢?
实际上这里是有一个套路的,而这个套路着实让我琢磨了很久很久!
什么套路呢,咱们往下看!
我查阅了网上大量的资料,在不断的实验中我发现除了拥有子窗口的 WorkerW之外,其他所有的 WorkerW都是隐藏不可见的 。
全程图解将视频设置动态壁纸 怎么把视频做成动态壁纸

文章插图
而实际有效的做法是,我们需要将程序窗口嵌入到第二个可见非隐藏的 WorkerW之上才行 。
注意它的特点有两个,第一是排名第二并不含有子窗口,第二是可见非隐藏属性 。
让 WorkerW窗口可见并且变透明前面我们说过,按下 Win+Tab键可以切换多桌面,当我们这么一切换时,系统就会产生多个 WorkerW窗口用于过渡切换效果 。
所以我们可以用程序模拟按下 Win+Tab键 。
不过我尝试模拟按键后,发现有窗口闪动的现象,不是太理想的状态,于是我找到了网上的资料 。
根据网上资料,Windows 有一个系统保留消息,当我们向 Progman窗口发送 0x052C消息时,桌面就会生成一个透明的 WorkerW窗口,同时会将 Progman的子窗口转移到这个新生成的 WorkerW之下 。
这也正是我们前面所看到的,子窗口被“抢过去”的效果 。
需要注意的是,这是在 Vista之后的版本才有效,嗯,可以理解为开启 Aero效果的系统 。
我用 VB代码很容易就实现了,就像下面这样 。
' 获取 Progman 句柄 lngDesktopHwnd = FindWindow("Progman", vbNullString) '然后向Progman发送0x052C使其产生WorkerWSendMessagelngDesktopHwnd,&H52C,0,0遍历查找目标 WorkerW窗口生成了我们想要的 WorkerW窗口后,我们就要想办法去找到那个目标窗口,也就是第二个可见的 WorkerW窗口 。
切记,这个 WokerW窗口是可见非隐藏的,并且同时不包含任何子窗口的 。
我的遍历算法能用但灰常粗糙,你们简单参考,自己改进哈 。
'获取桌面句柄lngDesktopHwnd= GetDesktopWindow'获得第一个 WorkerW 窗口句柄lngWorkerW= FindWindowEx(lngDesktopHwnd, 0, "WorkerW", vbNullString)'定义临时类名,用于对比查找多个同级的 WorkerW 窗口DimlpClassName As String'遍历所有 WorkerW 直至找到不拥有 SysListView32 子窗口的那个 WorkerW 为止!DoWhile lngWorkerW > 0IfIsWindowVisible(lngWorkerW) ThenlngShellDll= FindWindowEx(lngWorkerW, 0, "SHELLDLL_DefView", vbNullString)IflngShellDll = 0 ThenExitDoElse'查找下一个同级的类窗体句柄lpClassName= Space(255)DoWhile UCase(Left(lpClassName, 7)) <> UCase("WorkerW")lngWorkerW= GetWindow(lngWorkerW, GW_HWNDNEXT)GetClassNamelngWorkerW, lpClassName, 255LoopEndIfElse'查找下一个同级的类窗体句柄lpClassName= Space(255)DoWhile UCase(Left(lpClassName, 7)) <> UCase("WorkerW")lngWorkerW= GetWindow(lngWorkerW, GW_HWNDNEXT)GetClassNamelngWorkerW, lpClassName, 255LoopEndIfLoop将程序窗口变成目标 WorkerW窗口的子窗口看到没,就像下图这样,我们的程序窗口跑到了第二个可见 WorkerW的下面了 。
全程图解将视频设置动态壁纸 怎么把视频做成动态壁纸

文章插图
参考代码如下:
' 将程序窗口设定为 WorkerW 的子窗口,WorkerW 成为父窗口 lngOriginalParentHwnd = SetParent(Me.hwnd, lngWorkerW) ' 最后在程序退出时别忘记再变回来 lngTmpHwnd = SetParent(Me.hwnd, lngOriginalParentHwnd)最后,我们看到了这样的效果,窗口终于跑到了图标的后面,耶!
全程图解将视频设置动态壁纸 怎么把视频做成动态壁纸

文章插图
效果演示后续还有很多工作需要继续,比如播放器的操作控制,前景布局等等 。
不过这些繁杂的事不算主要问题,我们只要基本能够实现桌面动态播放视频即可 。
就像下面,效果还算可以吧 。
点击浏览,选择视频文件 。
全程图解将视频设置动态壁纸 怎么把视频做成动态壁纸

文章插图
先载入视频,再点击播放 。
全程图解将视频设置动态壁纸 怎么把视频做成动态壁纸

文章插图
来张动图展示一下实际效果,可以看到视频是在图标后面播放的 。
全程图解将视频设置动态壁纸 怎么把视频做成动态壁纸

文章插图
我搞了两个版本的程序,对比如下:
  • WindowsMediaPlayer:Windows系统自带无需额外安装播放器,但可能播放效果差 。
  • VLCMediaPlayer:需要单独安装 VLC播放器,但播放效果好 。安装播放器要选择32位的,同时切记切记务必务必要安装 ActiveX 插件!!

全程图解将视频设置动态壁纸 怎么把视频做成动态壁纸

文章插图
【全程图解将视频设置动态壁纸 怎么把视频做成动态壁纸】使用方法很简单,除单独需要安装播放器外,下载后只要解压缩后直接使用就可以了,绿色环保 。

    推荐阅读