网页flash抓取视频(PPT插入倒计时10秒视频+PPT编程倒计时天时分秒)
优采云 发布时间: 2022-04-12 22:33网页flash抓取视频(PPT插入倒计时10秒视频+PPT编程倒计时天时分秒)
内容
原因：公司半年冲刺会议有倒计时环节（效果是：前10秒倒计时，然后有85天，7点25分45秒直到冲刺比赛结束）。一开始是想用ppt来实现的，后来发现根本没有“专业人士”能做到。后来想用一个网页来实现倒计时，然后ppt超链接跳转了。领队感觉开跳速度慢，无法全屏打开。最后直接分成ppt和网页两块分别播放。主要流程如下：
一、纯ppt实施倒计时
方案一：PPT*敏*感*词*倒计时10秒+PPT编程倒计时天分秒。
方案二：PPT插入10秒倒计时视频+PPT编程倒计时天、时、分、秒。
拆开来看是三个部分的实现：*敏*感*词*倒计时10秒，视频倒计时10秒，节目倒计时天时分秒。
(一）PPT*敏*感*词*10秒倒计时
可以参考这个文章，引用自公众号“李哥日志”：
如何用PPT实现爆破倒计时*敏*感*词*？
只能说是我想要的效果，而且很详细。主要是数字进入和消失*敏*感*词*效果的排序。掌握了这个好像掌握了很多*敏*感*词*效果。我认为它非常有用。
我实现的效果如下：
（二）PPT插入10秒视频倒计时
视频是在B站下载的，其他方式没试过，懒得试了。
注意：
1.下载无水印。
2.B站的视频手机存储位置是本地存储/Android/data/tv.danmaku.bili/download。并且音视频是分开的。这里想合并引用一个工具，超级详细，如何将B站缓存的m4s文件转成mp4格式，作者是“热心市民张123”。
3.注意缓存的清晰度。
剪裁工具的“必剪”。
(三）PPT编程倒计时天分秒
说实话，我对ppt编程一窍不通，也搞不清楚宏和vba和vb的区别和联系。总之，百度很强大，同事也很有帮助。
首先参考的是如何做一个倒计时到100天的倒计时ppt？这主要是让我了解可以插入哪些控件，以及代码模块的语法结构。
接下来百度到的代码是：
Private Sub TextBox1_Change()
Call Label1_Click
End Sub
Private Sub Label1_Click()
Dim TargetDate As Date '目标时间
Dim DeltT As Double '据目标时间的差值
Dim Days As Double '据目标时间天数
Dim Hours As Double '据目标时间小时数
Dim Minutes As Double '据目标时间分钟数
Dim Seconds As Double '据目标时间秒数
TargetDate = #7/1/2021# '假设目标时间2010国庆
DeltT = TargetDate - Now '获取当前时间与设定时间的时间差，为double类型
Days = Fix(DeltT) '获取天数
Hours = Fix(DeltT * 24 - Days * 24) '获取小时数
Minutes = Fix(DeltT * 24 * 60 - Days * 24 * 60 - Hours * 60) '获取分钟数
Seconds = Fix(DeltT * 24 * 60 * 60 - Days * 24 * 60 * 60 - Hours * 60 * 60 - Minutes * 60) '获取秒数
Label1.Caption = "距离" & TargetDate & "倒计时" & Days & "天" & Hours & "小时" & Minutes & "分钟" & Seconds & "秒"
End Sub
可以达到效果，但是时间不会自动刷新，必须一键更改一次。同事改了之后，代码是这样的，这里我们需要插入一个控件，也就是一个按钮（怎么插入，请用百度ppt怎么插入按钮控件）
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Sub CommandButton1_Click()
Do
delay (1)
Loop Until (6 < 5)
End Sub
Private Sub Label1_Click()
Dim TargetDate As Date '目标时间
Dim DeltT As Double '据目标时间的差值
Dim Days As Double '据目标时间天数
Dim Hours As Double '据目标时间小时数
Dim Minutes As Double '据目标时间分钟数
Dim Seconds As Double '据目标时间秒数
TargetDate = #7/1/2021# '假设目标时间2010国庆
DeltT = TargetDate - Now '获取当前时间与设定时间的时间差，为double类型
Days = Fix(DeltT) '获取天数
Hours = Fix(DeltT * 24 - Days * 24) '获取小时数
Minutes = Fix(DeltT * 24 * 60 - Days * 24 * 60 - Hours * 60) '获取分钟数
Seconds = Fix(DeltT * 24 * 60 * 60 - Days * 24 * 60 * 60 - Hours * 60 * 60 - Minutes * 60) '获取秒数
Label1.Caption = "距离" & TargetDate & "倒计时" & Days & "天" & Hours & "小时" & Minutes & "分钟" & Seconds & "秒"
End Sub
Sub delay(T As Single)
Dim time1 As Single
time1 = Timer
Do
DoEvents
Loop While Timer - time1 < T
Label1_Click
End Sub
当然，我不知道出了什么问题。总之秒变的时候，间隔总是2秒或者1秒，断断续续的排气，所以这个方案被否决了（关键是界面还是丑）。效果如下：
当时百度也不知道为什么，可能是搜索方式有问题。我真的没有找到实现倒计时的ppt。今天换个方式问“vba实现倒计时”。分享。（虽然我没有测试过）
1. 10 秒倒计时的实现（非*敏*感*词*）
用VBA实现PPT倒计时【接入软件网】
用VBA实现PPT倒计时（2)【接入软件网】
2.PPT+VBA实现定时（倒计时）显示
PPT+VBA实现定时（倒计时）显示_肖翔宇的专栏-CSDN博客_vba倒计时
3.倒计时按钮_VBA中有效利用OnTime方法实现倒计时设计
倒计时按钮_VBA中有效使用OnTime方法实现倒计时设计
这是命运！但是我还是觉得很好，至少经过一些经验我明白vba还是可以做到这一点的。
二、ppt+倒计时软件
解决方法：ppt实现10秒倒计时+倒计时软件
本程序分为10秒倒计时和倒计时软件两部分。
(一）10秒倒计时
ppt*敏*感*词*或者ppt vba编程或者插入视频都可以。往上看。
(二）倒计时软件
这是来自 知乎 的引用：
有没有合适的倒计时软件？
百度搜索“倒计时桌面软件”可能有很多。
本来是想在PPT中点击一个按钮，然后触发运行程序，让软件直接跳出来。然而，结果并不令人满意。首先，在全屏演示模式下播放ppt时，无法确定软件的显示位置。我喜欢这种方法，变量太多，不庄重，所以我没有。（如何触发ppt中的exe运行程序，请自行百度）
三、ppt，倒计时网页
方案：ppt和倒计时网页分开播放。以前是用电脑和屏幕来播放ppt倒计时。
现在我用两个屏幕，一个屏幕只放ppt，另一个只用投影仪放倒计时，或者用电脑来实现。
所以其实我也是一头雾水，还没想好怎么分屏。
其实我最初的想法是在本地制作一个倒计时的html文件，然后在ppt中加载网页。据说在互联网上是可以的。可以参考：如何将html格式的动态图表网页嵌入ppt，火影忍者的博客-CSDN博客。
问题是我没有成功并且没有加载主背景（强调，我正在使用视频作为动态背景）。
所以网页和PPT是分开的。而且，即使有10秒的倒计时，它也被放到了网页中，而不是在PPT中。
本程序分为三个阶段：开始倒计时、10 秒倒计时、日、时、分、秒倒计时。使用网页跳转需要3个html文件。
我不会介绍网页上的倒计时是如何实现的。请自行百度“html倒计时模板”，应该是类似的，找一个容易改时间的就行了。
我的计划的倒计时截止日期是 2021 年 7 月 1 日 00:00:00。
以下是修改 html 的主要参考 文章 列表：
非常详细的JDK和Tomcat安装配置图文教程
Tomcat 只部署一个 index.html 文件
html控制视频播放
在页面上水平和垂直居中视频
html：如何在页面右下角制作文字
如何更改视频html代码的自动播放
html插入视频嵌入自动播放的参数是什么
HTML5网页自动播放背景音乐标签调用代码
本部分为转载。我希望你不要用这种引用形式喷我。如果你不满意，那我就删了。百度也很方便。
四、最终实现
目前10秒倒计时可以在360或IE等浏览器上显示。如果没有显示，您可以尝试其他浏览器而不考虑兼容性。
五、附件
实在没办法，我共享文件，只需要调整时间和CSS样式。02 文件可以单独使用。当然，老天，别笑了，这个记录到此结束。
