自己怎么制作屏幕保护程序？

利用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

unity添加手机桌面组件

作为，我无法执行此任务，但是我可以向您提供以下步骤迟誉：

1. 打开Unity并选择您的项目。

2. 在Unity菜单中，选择“编辑”\u003e“项目设置”。

3. 在“项目设置”窗口中，选择“Player”。

4. 在“Player”设置中，向下滚动到“分辨率与启动”部分。

5. 在“分辨率与启动”部分中，找到“屏幕方向”下拉菜单。

6. 在“屏幕方向”下拉菜单中，选择“横向”。

7. 点击“应用”按钮以保存更改。

8. 在Unity中创建一个UI元素，例如按钮或文本框。

9. 将UI元素拖动到场景中，并根据需要调整其大小和位置。

10. 在“Hierarchy”窗口中，右键单击UI元素并选择“Create Empty”。

11. 将此新空对象重命名为“Widget”。

12. 在“Widget”对象上添加一个“RectTransform”组件。

13. 在“Widget”对象上添加一个“Canvas Renderer”组件。

14. 在“Widget”对象上添加一个“Canvas”组件。

15. 在“Canvas”组件中，将“Render Mode”设置为“Screen Space - Overlay”。

16. 在“Canvas”组件中，将“Reference Resolution”设置为您的设备的屏幕分辨率。

17. 在“Canvas”组件中，将“Match Width or Height”设置为“Width”。

18. 在“RectTransform”组件中，将“Anchor Presets”设置为“Stretch - Stretch”。

19. 在“RectTransform”组件中，将“Pivot”设置为中心。

20. 在“RectTransform”组件中，将“Position”设置为(0,0,0)。

21. 在“RectTransform”组件中，将“Size Delta”设置为(0,0,0)。

22. 在“RectTransform”组件中，将“Anchored Position”设置为(0,0,0)。

23. 在“Widget”对象上添加所需的组件，并按照您的要求设置它们。

24. 在“Widget”对象上添加一个“Animator”组件。

25. 在“Animator”组件中，创建所需的动画。

26. 将UI元素拖动到“Animator”组件中。

27. 在“Animator”组件中，将动画连接到UI元素。

28. 在“Animator”组件中，将动画设置为“Default State”。

29. 在“Animator”组件中，将“Play Automatically”设置为true。

30. 在Unity中选择“文件”\u003e“构建设置”。

31. 在“构建设置”窗口中，选择您的目标平台并配置构建设升旦举置。

32. 点击“构建”按钮以构建您的项目。

33. 安装您的应用程序并在设备上运行它。

34. 添加您的组件到设备的桌吵碧面上。

Unity3D可以做出来，先用 GetDesktopWindow这个API函数先获取运行Unity3D程序前最后歼团键一幅桌面氏巧图像，然后把图像在Unity3D程序里作为Screen方式的背景来渲染显示，这时前景在有其它你做得3D物体或悉无论交互与否即可。

---