如何制作自己的屏保？
-1.基本编程思想
众所周知，屏幕保护程序使用变换的颜色或图形来防止不变的屏幕像素被损坏。因此，屏幕保护程序是一个显示不断变化或移动的图形的程序，当鼠标移动或按下某个键时可以终止。
-1.编译屏幕保护图形。
-2.隐藏鼠标
-我们可以用ShowCursor Windows API的功能隐藏鼠标。
-3.检测鼠标和按键行为。
-检测上述行为以退出屏幕保护程序。
- 4.Windows调用屏幕保护程序的参数命令。
-/a单击“显示属性”对话框中的“更改密码”按钮。
-/p每当选择“显示属性”对话框中的“屏幕保护程序”选项卡时，都会在对话框中显示预览效果。
-/c单击“显示属性”对话框中的“设置”按钮。
-/s单击“显示属性”对话框中的“预览”按钮，或者由系统正常调用屏幕保护程序。
-5.编译屏幕保护程序
-其实任何VB应用程序都可以作为屏保运行，只是为了被Windows 95调用，需要编译成屏保。首先进入VB5编程环境，编程后选择/File/Make project菜单项，然后在文件名文本框中将后缀EXE改为SCR。最后点击OK按钮，将生成的SCR文件复制到Windows目录下，这样就完成了屏保的创建。
-二。例子
-下面用一个例子来详细说明如何制作屏保。
选项显式
' Dimquit flag as boolean '声明终止程序标志变量。
昏暗的左侧
声明一个隐藏或显示鼠标的API函数。
私有声明函数ShowCursor Lib "user32 "
(ByVal bShow As Long)只要
检测鼠标点击或移动
私有子窗体_Click()
quitflag = True
末端接头
私有子窗体_MouseMove(按钮为整数，
移位为整数，X为单精度，Y为单精度)
静态xlast
将xnow调成单个
Dim ynow单身
xnow = X
ynow = Y
如果xlast = 0且ylast = 0，则
xlast = xnow
ylast = ynow
出口接头
如果…就会结束
如果xnow & lt& gtxlast或ynow & lt& gt那就过去吧
quitflag = True
如果…就会结束
末端接头
"测试密钥"
Private Sub Form_KeyDown(KeyCode为整数，
作为整数移位)
quitflag = True
末端接头
私有子窗体_Load()
Dim X As Long
lleft = 0
水平滚动文本的起始x坐标
If App。那么PrevInstance = True
使用APP对象的PrevInstance属性。
卸下我
防止屏幕保护程序的两个实例同时运行。
出口接头
如果…就会结束
select Case Ucase $(Left $(Command $，2))
加载命令行参数
在显示属性对话框中单击了案例“/s”。
预览按钮或屏幕保护程序通常由系统调用。
显示
全屏显示表单1表单
使不规则化
初始化随机数生成器。
X = ShowCursor(False)
隐藏鼠标
BackColor = vbBlack
做
定时器2。启用=真
启动定时器2并显示屏幕保护滚动文本。
多项活动
转移控制以检测鼠标和击键行为。
循环直到quitflag = True
运行屏幕保护程序滚动文本，直到有鼠标和按键动作。
定时器2。启用=假
结束滚动文本
定时器1。启用=真
启动定时器1并退出屏幕保护程序。
其他情况
卸下我
出口接头
结束选择
末端接头
私有子窗体_Unload(取消为整数)
尺寸X
X = ShowCursor(真)
显示鼠标
末端接头
私有子定时器1_Timer()
卸下我
退出屏幕保护程序。
末端接头
私有子定时器2_Timer()
显示水平滚动文本
lleft = lleft + 100
如果lleft & gt= 11810那么
lleft = 0
Lab1。Top = Int(Rnd * 7000)
如果…就会结束
Lab1。Left =左
定时器2。启用=假
末端接头