① 能使桌面下雪的小程序程序~

http://www.55188.com/thread-1864493-1-1.html
要先免费注册一下这个论坛的会员,然后你就能下载了,很快的一会就注册好!

② 桌面下雪的小程序

查看文章
让你的桌面下起小雪系列之编写2008年01月13日 星期日 下午 01:38这个冬天又没下雪；
那就让电脑来下雪吧；
以下是用delphi的全部代码；
program Snow;
uses
Windows, Messages;
const
SnowNumber = 500; // 雪点数量-1
type
SnowNode = record
Point: TPoint; // 雪点位置
Color: Integer; // 先前颜色
Speed: Integer; // 下落速率
nMove: Integer; // 下落距离
Stick: Integer; // '粘连'度
end;
var
SnowNodes: array[0..SnowNumber] of SnowNode; // 雪点数组
hTimer: Integer; // '随机风向'时钟句柄
CrWind: Integer; // 当前'风向' ( -1 ~ 1 )
CrStep: Integer; // 当前循环步数(用于限速)
ScreenWidth, ScreenHeight: Integer; // 屏幕尺寸

// 取屏幕尺寸 -> ScreenWidth, ScreenHeight
procere GetScreenSize;
begin
ScreenWidth := GetSystemMetrics(SM_CXSCREEN);
ScreenHeight := GetSystemMetrics(SM_CYSCREEN);
end;
// '随机风向'时钟
procere TimerProc(hWnd: HWND; uMsg: UINT; idEvent: UINT; dwTime: DWORD); stdcall;
begin
SetTimer(0, hTimer, (Random(27)+4) * 500, @TimerProc); // 重设下次风向改变时间
if (CrWind <> 0) then CrWind := 0 else CrWind := Random(3) - 1; // 修改风向
end;
// 初始化雪点数组
procere InitSnowNodes;
var
hScreenDc, J: Integer;
begin
hScreenDc := CreateDC('DISPLAY', nil, nil, nil);
for J := 0 to SnowNumber do
begin
SnowNodes[J].Point.X := Random(ScreenWidth);
SnowNodes[J].Point.Y := Random(ScreenHeight);
SnowNodes[J].Color := GetPixel(hScreenDc, SnowNodes[J].Point.X, SnowNodes[J].Point.Y);
SnowNodes[J].Speed := Random(5) + 1; // 几次循环作下落一次 (1~5)
SnowNodes[J].nMove := Random(SnowNodes[J].Speed)+1; // 每次下落距离(1~5)
SnowNodes[J].Stick := 30 - Random(SnowNodes[J].Speed); // '粘连'度(几次循环作一次粘连判断)
end;
DeleteDC(hScreenDc);
end;
// 移动雪点 ..
procere MoveSnowNodes;
var
hScreenDc, I, X, Y: Integer;
begin
hScreenDc := CreateDC('DISPLAY', nil, nil, nil);
for I := 0 to SnowNumber do
begin
// 控制雪点下降速率
if (CrStep mod SnowNodes[I].Speed) <> 0 then Continue;
// 恢复上次被覆盖点
if GetPixel(hScreenDc, SnowNodes[I].Point.X, SnowNodes[I].Point.Y) = $FFFFFF then
SetPixel(hScreenDc, SnowNodes[I].Point.X, SnowNodes[I].Point.Y, SnowNodes[I].Color);
// 根据风向作随机飘落
X := SnowNodes[I].Point.X + Random(3) - 1 + CrWind;
Y := SnowNodes[I].Point.Y + SnowNodes[I].nMove;
// 积雪(停留)效果处理
if ( (CrStep mod SnowNodes[I].Stick) = 0 ) // 降低积雪概率 ..
and ( GetPixel(hScreenDc, X, Y) <> GetPixel(hScreenDc, X, Y+1) ) // '边缘'判断
and ( GetPixel(hScreenDc, X-1, Y) <> GetPixel(hScreenDc, X-1, Y+1) )
and ( GetPixel(hScreenDc, X+1, Y) <> GetPixel(hScreenDc, X+1, Y+1) ) then
begin
// 稍微调整坐标
if GetPixel(hScreenDc, X, Y-1) = GetPixel(hScreenDc, X, Y-2) then Dec(Y) // 上边缘
else if GetPixel(hScreenDc, X, Y+1) = GetPixel(hScreenDc, X, Y+2) then Inc(Y); // 下边缘
Inc(X, CrWind);
// 画三个点(雪花)
SetPixel(hScreenDc, X, Y, $FFFFFF);
SetPixel(hScreenDc, X+1, Y+1, $FFFFFF);
SetPixel(hScreenDc, X-1, Y+1, $FFFFFF);
// 重生雪点
SnowNodes[I].Point.Y := Random(10);
SnowNodes[I].Point.X := Random(ScreenWidth);
SnowNodes[I].Color := GetPixel(hScreenDc, SnowNodes[I].Point.X, SnowNodes[I].Point.Y);
end else
begin
if (X < 0) or (X > ScreenWidth) or (Y > ScreenHeight) then // 超出范围则重生雪点
begin
SnowNodes[I].Point.Y := Random(10);
SnowNodes[I].Point.X := Random(ScreenWidth);
SnowNodes[I].Color := GetPixel(hScreenDc, SnowNodes[I].Point.X, SnowNodes[I].Point.Y);
end else
begin
// 保存颜色并绘制雪点
SnowNodes[I].Color := GetPixel(hScreenDc, X, Y);
SetPixel(hScreenDc, X, Y, $FFFFFF);
// 此时保存新雪点位置
SnowNodes[I].Point.X := X;
SnowNodes[I].Point.Y := Y;
end;
end;
end;
DeleteDC(hScreenDc);
Inc(CrStep);
end;
var
ThreadMsg: TMsg; // 标准消息结构体
Frequency: Int64; // 高性能定时器频率
StartCt, EndCt: Int64; // 高性能定时器计数
ElapsedTime: Extended; // 时间间隔
begin
Randomize; GetScreenSize; InitSnowNodes; // 初始化
QueryPerformanceFrequency(Frequency); // 高性能定时器频率
hTimer := SetTimer(0, 0, Random(5)*500, @TimerProc); // 安装随机风向定时器
RegisterHotKey(0, 0, MOD_CONTROL, ORD('L')); // 注册退出热键 Ctrl+L
while TRUE do // 消息循环
begin
QueryPerformanceCounter(StartCt); // 执行运算前 计数值
if PeekMessage(ThreadMsg, 0, 0, 0, PM_REMOVE) then // 取到消息
begin
case ThreadMsg.message of
WM_TIMER:
TimerProc(0, 0, 0, 0); // 预设风向改变时间已到
WM_HOTKEY:
begin
KillTimer(0, hTimer); // 删除随机风向定时器
UnregisterHotKey(0, 0); // 删除退出热键 Ctrl+L
InvalidateRect(0, nil, TRUE); // 刷新屏幕
Break; // 跳出消息循环
end;
WM_DISPLAYCHANGE:
begin
GetScreenSize; // 重新取屏幕尺寸
InitSnowNodes; // 初始化雪点数组
end;
end;
end;
MoveSnowNodes; // 移动雪点
QueryPerformanceCounter(EndCt); // 执行运算后计数值
ElapsedTime := (EndCt-StartCt)/Frequency;
if (ElapsedTime < 0.0005) then Sleep(2) // 简单限速
else if (ElapsedTime < 0.0010) then Sleep(1)
else if (ElapsedTime < 0.0015) then Sleep(0);
end;
end.

③ 求一个电脑桌面上飘小雪花然后堆起来的小程序

已发邮箱，别被当做垃圾了！

【电脑应用·桌面设置专面面观·各取所需属】http://blog.sina.com.cn/s/blog_4a1faae60102dw7a.html

④ 关于桌面飘雪花的程序的源码

呵呵，圣诞礼物的把！以前圣诞节的时候别人给我发过。
替你找到了:http://www.aijingru.com/xue.rar

⑤ 求下雪桌面小程序

http://www.xs4all.nl/~janswaal/WinSnow/
我起码下了部下20个，全都有毒，最后面才找到这个英文版。内
效果很好，某些功能容要注册，注册很简单，只要输下用户名和密码就行。
本来想找个汉化的，不过实在没耐性了。国内的网站像这些小东西基本都是有毒的。。
反正都很简单，英文的照样看得懂的。

⑥ 求圣诞电子礼物。小程序~就是桌面飘大雪花，还有背景音乐的那种...急需！~谢谢~

这不是电子礼物，这是程序礼物，这个其实就是屏幕的一个程序，你现在一个xp变脸程序即可。

⑦ 是exe格式的 那种 桌面下雪的小程序 怎么制作

用vb编程，知道是什么吧，然后在里面输代码：
'源代码
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
'GetDC()功能是获取指定窗体的设备场景的句柄(hDC),用参数0则可以获取整个屏幕的场景句柄
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
'GetPixel用于取得场景(这里是整个屏幕)中某点的颜色值
Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
'SetPixel用于设置场景(这里是整个屏幕)中某点的颜色值
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
'释放由GetDC()获取的设备场景句柄，否则可能造成系统锁死
Private Declare Function InvalidateRect& Lib "user32" (ByVal hwnd As Long, lpRect As RECT, ByVal bErase As Long)
'清理窗口雪花

Private Type POINTAPI '定义坐标点结构
x As Long
y As Long
End Type

Private Type RECT '定义“区域”数据结构，但实际上并没有用到，因为仅需在函数InvalidateRect中传递一个空的RECT参数
left As Long
top As Long
right As Long
bottom As Long
End Type
Dim rect1 As RECT

Private Const ScrnWidth = 1024 '屏幕宽度(单位:像素)
Private Const ScrnHight = 768 '屏幕高度(单位:像素)
Private Const SnowCol = &HFEFFFE '雪花颜色
Private Const SnowColDown = &HFFFFFF '积雪颜色
Private Const SnowColDuck = &HFFDDDD '深色积雪颜色
Private Const SnowNum = 500 '同一时间飘动的雪花数量

Dim hDC1 As Long '存储桌面窗口设备句柄
Dim pData(SnowNum) As POINTAPI '存储每个雪花的位置信息
Dim pColor(SnowNum) As Long '存储画出雪花前屏幕原来的颜色
Dim Vx As Integer '雪花总体水平飘行速度
Dim Vy As Integer '雪花总体垂直下落速度
Dim PVx As Integer '单个雪花实际水平飘行速度
Dim PVy As Integer '单个雪花实际垂直飘行速度

'初始化雪花位置
Private Sub InitP(i As Integer)
pData(i).x = Rnd() * ScrnWidth
pData(i).y = Rnd() * 2
pColor(i) = GetPixel(hDC1, pData(i).x, pData(i).y) '取得屏幕原来的颜色值
End Sub

'取得某一点与周围点的对比度，确定是否在此位置堆积雪花
Private Function GetContrast(i As Integer) As Long
Dim ColorCmp As Long '存储用作对比的点的颜色值
Dim tempR As Long '存储CorlorCmp的红色部分，下同
Dim tempG As Long
Dim tempB As Long
Dim Slope As Integer '存储雪花飘落方向:Vx/Vy

'计算雪花飘落方向
If PVy <> 0 Then
Slope = PVx / PVy
Else
Slope = 2
End If

'根据雪花飘落方向决定取哪一点作对比点，
'若PVx/PVy在-1到1之间，即Slope=0，就取正下面的象素点
'若PVx/PVy>1，取右下方的点，PVx/PVy<-1则取左下方
If Slope = 0 Then
ColorCmp = GetPixel(hDC1, pData(i).x, pData(i).y + 1)
Else
If Slope > 1 Then
ColorCmp = GetPixel(hDC1, pData(i).x + 1, pData(i).y + 1)
Else
ColorCmp = GetPixel(hDC1, pData(i).x - 1, pData(i).y + 1)
End If
End If

'确定当前位置没有与另一个雪花重叠，否则返回0，用于防止由于不同雪花重叠造成雪花乱堆
If ColorCmp = SnowCol Then
GetContrast = 0
Exit Function
End If

'分别获取ColorCmp与对比点的蓝、绿、红部分的差值
tempB = Abs((ColorCmp And &HFF0000) - (pColor(i) And &HFF0000)) / &H10000
tempG = Abs((ColorCmp And &HFF00&) - (pColor(i) And &HFF00&)) / &H100&
tempR = Abs((ColorCmp And &HFF&) - (pColor(i) And &HFF&))

'返回对比度值
GetContrast = (tempR + tempG + tempB) / 3
End Function
'画出一帧，即重画所有雪花位置一次
Private Sub DrawP()
Dim i As Integer
For i = 0 To SnowNum

'防止雪花重叠造成干扰
If pColor(i) <> SnowCol Then
'还原上一个位置的颜色
SetPixel hDC1, pData(i).x, pData(i).y, pColor(i)
End If

'设置新的位置，i Mod 3用于将雪花分为三类采用不同速度，以便形成层次感
PVx = Rnd() * 2 - 1 + Vx * (i Mod 3)
PVy = Vy * (i Mod 3 + 1)
pData(i).x = pData(i).x + PVx
pData(i).y = pData(i).y + PVy
'取得新位置原始颜色值，用于下一步雪花飘过时恢复此处颜色
pColor(i) = GetPixel(hDC1, pData(i).x, pData(i).y)

'如果获取颜色失败，表明雪花已飘出屏幕，重新初始化
If pColor(i) = -1 Then
InitP i
Else
'否则若雪花没有重叠
If pColor(i) <> SnowCol Then
'若对比度较小(即不能堆积),就画出雪花
'Rnd()>0.3用于防止某些连续而明显的边界截获所有雪花
If Rnd() > 0.3 Or GetContrast(i) < 50 Then
SetPixel hDC1, pData(i).x, pData(i).y, SnowCol
'否则表明找到明显的边界，画出堆积的雪，并初始化以便画新的雪花
Else
SetPixel hDC1, pData(i).x, pData(i).y - 1, SnowColDuck
SetPixel hDC1, pData(i).x - 1, pData(i).y, SnowColDuck
SetPixel hDC1, pData(i).x + 1, pData(i).y, SnowColDown
InitP i
End If
End If
End If
Next
End Sub

Private Sub Form_Load()
Dim j As Integer

Me.Caption = "桌面飘雪" '设置窗口标题

'设置计时器，Timer1用于画单帧，Timer2用于风向变化
Timer1.Enabled = True
Timer1.Interval = 10
Timer2.Enabled = True
Timer2.Interval = 2000

Randomize '初始化随机数种子

hDC1 = GetDC(0) '获取桌面窗口设备场景句柄

'初始化整个屏幕
For j = 0 To SnowNum
pData(j).x = Rnd() * ScrnWidth
pData(j).y = Rnd() * ScrnHight
pColor(j) = GetPixel(hDC1, pData(j).x, pData(j).y)
Next
End Sub

Private Sub Form_Unload(Cancel As Integer)
ReleaseDC 0, hDC1 '释放桌面窗口设备句柄
InvalidateRect 0, rect1, 0 '清除所有雪花，恢复桌面
End Sub

Private Sub Timer1_Timer()
DrawP '画出一帧
End Sub

Private Sub Timer2_Timer()
'改变风向
Vx = Rnd() * 4 - 2
Vy = Rnd() + 2
End Sub

'完，最后，需要两个Timer：Timer1、Timer2。

不过你要是没学过vb那就有点困难了……做之前还是先找本关于Vb的书看看吧！

⑧ 求一个桌面上飘小雪花然后堆起来的小程序

这个好相不是一个小程序，是08年上下的电脑系统里自己带的。屏保里的

⑨ 桌面下雪的小程序是用什么编程语言写的可不可以用C语言写，需要用到哪些技术，知识，

opengl的动画效果编程，C语言就可以了哈。

⑩ 请问在自己桌面上飘雪花的那个小程序是什么啊

这软件我也有，叫Snow for Windows.
很漂亮。在网络上搜一下吧。