2、为视频添加脚本文件，截取视频。《影视屏王》可以将你的视频衫滚通过简单而智能的软件叠加加工在电脑上变得栩栩如生，充满个性。点击“添加新脚本”按钮，即可进入“编辑当前时间段”，在左栏的视频预览窗口内，即可边添加文字或精美水印并预览视频效果的。你可以在该对话框的“截取始点”和“截取终点”输入时间，即可截取视正唯频。你也可以点击“可视化选取时间段”按钮，通过左右拖动滑杆即可截取视频。
3、为视频添加滚动字幕或精美的水印。在“摆放事物（文字/图像）”的下拉框中选择图像或文字，即可在下方激活相应选项进行设置的。文字和图像的滚动方式、透明属性、摆放位置等属性设置灵活。
4、导出制作的屏保程序。编辑好脚本后，返回主界面举塌培点击“预览全部”按钮，即可预览制作的屏保效果。在“导出的方式是”的下拉框中，选择导出本机使用的屏保程序，或是导出可以分发共享到其它电脑上使用的exe程序。最后只需点击“制作并导出”按钮，稍等片刻，一个精美的屏保就做好了！
利用Visual Basic 制作屏幕保护程序非常容易。本文将详细给大家介绍制作屏幕保护程序的方法。---- 一. 基本编程思路
---- 大家都知道屏幕保护程序就是利用变换的颜色或图形以防止不变化的屏幕像素被损伤。所以，屏幕保护程序就是显示不断变化或移动的图形，并且当有鼠标移动或按键时能够终止的程序。
---- 1. 编制屏幕保护图形
---- 2. 隐藏鼠标
---- 用ShowCursor Windows API 函数我们可以实现隐藏鼠标。
---- 3. 检测鼠标和按键行为
---- 检测上述行为以便退出屏幕保护程序
---- 4. Windows 调用屏幕保护程序的参数命令
---- /a 在显示器属性对话框中单击了改变口令按钮。
---- /p 每当选中显示器属性对话框中屏幕保护程序标签时，在对话框显示预览效果。
---- /c 在显示器属性对话框中单击了设置按钮。
---- /s 在显示器属性对话框中单击了预览按钮或屏幕保护程序被系统正常调用。
---- 5. 编译屏幕保护程序
---- 其实任何VB应用程序都可作为屏幕保护程序来运行，但为了被Windows 95 所调用，需要碧段将它作为屏幕保护程序来编译。首先进入VB5编程环境，编好程序后选择/File/Make project菜单项，然后在File Name文本框中将后缀名EXE改为SCR。最后单击OK按钮,将生成的SCR文件拷到Windows目录下，就完成了屏幕保护程序的创建。
---- 二. 实例
---- 下面就用一个实例给大家详细说明屏幕保护程序的制作。
Option Explicit
Dim quitflag As Boolean ‘声明终止程序标志变量
Dim lleft
‘声明凯伍隐藏或显示鼠标的API函数
Private Declare Function ShowCursor Lib "user32"
(ByVal bShow As Long) As Long
‘检测鼠标单击或移动
Private Sub Form_Click()
quitflag = True
End Sub
Private Sub Form_MouseMove(Button As Integer,
Shift As Integer, X As Single, Y As Single)
Static xlast, ylast
Dim xnow As Single
Dim ynow As Single
xnow = X
ynow = Y
If xlast = 0 And ylast = 0 Then
xlast = xnow
ylast = ynow
Exit Sub
End If
If xnow <>xlast Or ynow <>ylast Then
quitflag = True
End If
End Sub
‘检测按键
Private Sub Form_KeyDown(KeyCode As Integer,
Shift As Integer)
quitflag = True
End Sub
Private Sub Form_Load()
Dim X As Long
lleft = 0
‘横向滚动文字的起始X坐标
If App.PrevInstance = True Then
‘用APP对象的PrevInstance属性
Unload Me
‘防止同时运行屏幕保护程序的两个实例
Exit Sub
End If
Select Case Ucase$(Left$(Command$, 2))
‘装载命令行参数
Case "/S" ‘在显示器属性对话框中单击了
预览按钮或屏幕保护程序被系统正常调用。
Show
‘全屏显示Form1窗体
Randomize
‘初始化随机数生成器
X = ShowCursor(False)
‘隐藏鼠标
BackColor = vbBlack
Do
Timer2.Enabled = True
‘启动Timer2 ,显示屏幕保护滚动文字
DoEvents
‘转让控制权,以便检测鼠标和按键行为
Loop Until quitflag = True
‘运行屏幕保护滚动文字直至有鼠标和按键行为
Timer2.Enabled = False
‘终止滚动文盯慧或字
Timer1.Enabled = True
‘启动Timer1,退出屏幕保护程序
Case Else
Unload Me
Exit Sub
End Select
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim X
X = ShowCursor(True)
‘显示鼠标
End Sub
Private Sub Timer1_Timer()
Unload Me
‘退出屏幕保护程序
End Sub
Private Sub Timer2_Timer()
显示横向滚动文字
lleft = lleft + 100
If lleft >= 11810 Then
lleft = 0
Lab1.Top = Int(Rnd * 7000)
End If
Lab1.Left = lleft
Timer2.Enabled = False
End Sub
1、打开控制面板，点击外观和个性化→更改屏幕保护程序。
2、在消枝打开的屏幕保护程序设置窗口中，选择一种屏幕保护程序，如彩带， 同时设置屏幕等待时间，如1分钟，勾选在恢复时显示登陆屏幕。最后点击确定完成设置。
3、经过这样的设置后，当在1分钟之内无法触及电脑拿碧敏时，屏幕保护程序就会自动启动。如果此时有其它人使用电脑时，就会自动转到登陆界面。从而达到锁定屏幕以防止他人非法使用的目地。
4、另外也可以通过设置独立的屏幕保护程序密码慧汪来实现锁定电脑屏幕。具体方法：在打开的屏幕保护程序设置窗口中，选择一种屏幕保护程序，如彩带，点击更改电源设置链接。
5、在打开的窗口中点击唤醒时需要密码选项。
6、在打开的界面中选择创建或更改用户账户密码
7、在出现的界面中给当前或指定用户设置屏保密码。
8、经过以上设置之后，当想要锁定电脑屏幕时，只需要按下键盘组合键Win+L即可将电脑锁屏。 如果想要再次进入桌面，就必须得输入刚才设置的密码才行。
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）