怎么用程序让电脑开玫瑰花

⑴ 前几天在网上看到，别人用c#编的使屏幕出现玫瑰的程序。很是羡慕，自己也是学c#的，想知道怎么做啊

C#我不会，用C/C++在Windows+MSVC的话，大致步骤：

1. 加载玫瑰花位图（您需要的知识：LoadBitmap、LoadImage之类Windows API函数），

2. 获取屏幕DC（您需要的知识：GDI绘图），

3. 将玫瑰花位图贴到屏幕随机位置上（您需要的知识：BitBlt函数的使用方法，要做出好的效果，可能还需要了解一下双缓冲机制），

⑵ c语言编写玫瑰花的代码

#include<iostream>#include<cmath>usingnamespacestd；voidgetRoseNum(intlower，intupper)；boolisRoseNum(intn)；voidmain(){intupper，lower；cout<<“请输入下界：”<<endl；cin>>lower；cout<<“请输入上界：”<<endl；cin>>upper。

cout<<“所有玫瑰花数：”getRoseNum(lower，upper)；}voidgetRoseNum(intlower，intupper){if((lower<1000)||(upper>9999)){cout<<“上下界错误！”<<endl；return；}for(inti=lower；i<=upper；i++){if(isRoseNum(i))。

注意事项：

C语言是普适性最强的一种计算机程序编辑语言，它不仅可以发挥出高级编程语言的功用，还具有汇编语言的优点，因此相对于其它编程语言，它具有自己独特的特点。具体体现为以下三个方面：

其一，广泛性。C语言的运算范围的大小直接决定了其优劣性。C语言中包含了34种运算符，因此运算范围要超出许多其它语言，此外其运算结果的表达形式也十分丰富。此外，C语言包含了字符型、指针型等多种数据结构形式，因此，更为庞大的数据结构运算它也可以应付。

其二，简洁性。9类控制语句和32个关键字是C语言所具有的基础特性，使得其在计算机应用程序编写中具有广泛的适用性，不仅可以适用广大编程人员的操作，提高其工作效率，同时还能够支持高级编程，避免了语言切换的繁琐。

其三，结构完善。C语言是一种结构化语言，它可以通过组建模块单位的形式实现模块化的应用程序，在系统描述方面具有显着优势，同时这一特性也使得它能够适应多种不同的编程要求，且执行效率高。

⑶ 让电脑桌面开满玫瑰花 用什么软件做的 想自己做的.....做好有教程

在“ 西西软件园”可以找到“屏幕开满玫瑰花”这个软件下载。你网络一下，OK

提醒你注意的是，这个软件有类似病毒控制电脑的动作，所以只要一运行就会引起杀毒软件报警删除的。

⑷ 谁有让电脑开满玫瑰花的软件呀！

情人节必备 10秒让你女朋友的电脑桌面开满玫瑰花。亲测无毒，欢迎下载！
如果想开机时就在桌面上开满玫瑰花，那就要把"玫瑰.exe"拖到所有程序-->启动里。
软件安全，放心使用！

⑸ 我有一个“可执行程序”（EXE）的文件，一打开，电脑屏幕上就会出现很多玫瑰花，请问这是怎么做到的

用VB
源程序如下：
Option Explicit
Dim s As Integer
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Const LWA_COLORKEY_ALPHA As Long = &H3
Const WS_EX_LAYERED As Long = &H80000
Const GWL_EXSTYLE As Long = (-20)
Private RawWidth As Long '保存窗体的原始宽度
Private RawHeight As Long '保存窗体的原始高度
Private RawFont As Single '保存窗体的原始字体比
Private Sub Form_Resize()
Call ResizeForm(Me) '调用窗体改变时控件随之改变
End Sub
Private Sub Form_Load()
Call ResizeInit(Me) '在程序载入时必须加入,否则不能随之改变

Timer1.Enabled = True
WindowsMediaPlayer1.URL = App.Path & "\" & "8.mp3"
End Sub

'在调用ResizeForm前先调用本函数
Public Sub ResizeInit(FormName As Form)
On Error Resume Next
Dim Obj As Control
RawWidth = FormName.ScaleWidth
RawHeight = FormName.ScaleHeight
RawFont = FormName.Font.Size / RawHeight
For Each Obj In FormName
Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.Height & " "
Next Obj
End Sub
'按比例改变表单内各元件的大小，
'在调用ReSizeForm前先调用ReSizeInit函数
Public Sub ResizeForm(FormName As Form)
On Error Resume Next
Dim Pos(4) As Double
Dim i As Long, TempPos As Long, StartPos As Long
Dim Obj As Control
Dim ScaleX As Double, ScaleY As Double

ScaleX = FormName.ScaleWidth / RawWidth
'保存窗体宽度缩放比例
ScaleY = FormName.ScaleHeight / RawHeight
'保存窗体高度缩放比例
For Each Obj In FormName
StartPos = 1
For i = 0 To 4
'读取控件的原始位置与大小
TempPos = InStr(StartPos, Obj.Tag, " ", vbTextCompare)

If TempPos > 0 Then
Pos(i) = Mid(Obj.Tag, StartPos, TempPos - StartPos)
StartPos = TempPos + 1
Else
Pos(i) = 0
End If
'根据控件的原始位置及窗体改变大
'小的比例对控件重新定位与改变大小
Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY
Obj.Font.Size = RawFont * FormName.ScaleHeight
Next i
Next Obj
End Sub
'把以上添加到模块中
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Timer1_Timer()
s = s + 1
If s = 1 Then
Picture1.Visible = True
ElseIf s = 2 Then
Picture2.Visible = True
ElseIf s = 3 Then
。。。。。。
End If

End Sub
省略号那里 你自己看添加的图片数量 自己添加是了 相信你能看懂吧
补充： Option Explicit
Dim s As Integer
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Const LWA_COLORKEY_ALPHA As Long = &H3
Const WS_EX_LAYERED As Long = &H80000
Const GWL_EXSTYLE As Long = (-20)
Private RawWidth As Long '保存窗体的原始宽度
Private RawHeight As Long '保存窗体的原始高度
Private RawFont As Single '保存窗体的原始字体比
Private Sub Form_Resize()
Call ResizeForm(Me) '调用窗体改变时控件随之改变
End Sub
Private Sub Form_Load()
Call ResizeInit(Me) '在程序载入时必须加入,否则不能随之改变

Timer1.Enabled = True
WindowsMediaPlayer1.URL = App.Path & "\" & "8.mp3"
End Sub

'在调用ResizeForm前先调用本函数
Public Sub ResizeInit(FormName As Form)
On Error Resume Next
Dim Obj As Control
RawWidth = FormName.ScaleWidth
RawHeight = FormName.ScaleHeight
RawFont = FormName.Font.Size / RawHeight
For Each Obj In FormName
Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.Height & " "
Next Obj
End Sub
'按比例改变表单内各元件的大小，
'在调用ReSizeForm前先调用ReSizeInit函数
Public Sub ResizeForm(FormName As Form)
On Error Resume Next
Dim Pos(4) As Double
Dim i As Long, TempPos As Long, StartPos As Long
Dim Obj As Control
Dim ScaleX As Double, ScaleY As Double

ScaleX = FormName.ScaleWidth / RawWidth
'保存窗体宽度缩放比例
ScaleY = FormName.ScaleHeight / RawHeight
'保存窗体高度缩放比例
For Each Obj In FormName
StartPos = 1
For i = 0 To 4
'读取控件的原始位置与大小
TempPos = InStr(StartPos, Obj.Tag, " ", vbTextCompare)

If TempPos > 0 Then
Pos(i) = Mid(Obj.Tag, StartPos, TempPos - StartPos)
StartPos = TempPos + 1
Else
Pos(i) = 0
End If
'根据控件的原始位置及窗体改变大
'小的比例对控件重新定位与改变大小
Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY
Obj.Font.Size = RawFont * FormName.ScaleHeight
Next i
Next Obj
End Sub
'把以上添加到模块中
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Timer1_Timer()
s = s + 1
If s = 1 Then
Picture1.Visible = True
ElseIf s = 2 Then
Picture2.Visible = True
ElseIf s = 3 Then
。。。。。。
End If

End Sub
那些玫瑰 自己添加在窗体上
省略号那里 你自己看添加的图片数量 自己添加是了

⑹ 跪求十秒，让女孩电脑开满玫瑰的程序

在桌面上点击右键，点击最后一个属性，在最上面你会看到有主题 桌面 屏幕保护程序什么的
点击屏幕保护程序，点击设置左边的点击图片收藏幻灯片。但是请注意：前提你一定要有玫瑰花的图片啊。点击设置点浏览选出图片，选好了以后点击确定，然后再选等待的分钟 就在设置的下面。 你试一下吧 呵呵。

⑺ 玫瑰花代码怎么敲

1.在电脑桌面，鼠标右键单击选择 新建>文本文档，新建一个文本文档。

2.选择新建的文本，右键选择重命名为，meigui.html，然后确定，选择是。

3.用记事本打开文件，复制下面的代码到文件中，保存。

<html><head><title>情人节玫瑰</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><style type="text/css">#shusheng {position: absolute;width: 100%;height: 100%;text-align: center;}</style></head><body><div style="text-align: center"><h1>送给xxx的花</h1></div><div id="shusheng"><canvas id="c"></canvas> <script>var b = document.body;var c = document.getElementsByTagName('canvas')[0];var a = c.getContext('2d');document.body.clientWidth; </script><script>with(m=Math)C=cos,S=sin,P=pow,R=random;c.width=c.height=f=500;h=-250;function p(a,b,c){if(c>60)return[S(a*7)*(13+5/(.2+P(b*4,4)))-S(b)*50,b*f+50,625+C(a*7)*(13+5/(.2+P(b*4,4)))+b*400,a*1-b/2,a];A=a*2-1;B=b*2-1;if(A*A+B*B<1){if(c>37) {n=(j=c&1)?6:4;o=.5/(a+.01)+C(b*125)*3-a*300;w=b*h;return[o*C(n)+w*S(n)+j*610-390,o*S(n)-w*C(n)+550-j*350,1180+C(B+A)*99-j*300,.4-a*.1+P(1-B*B,-h*6)*.15-a*b*.4+C(a+b)/5+P(C((o*(a+1)+(B>0?w:-w))/25),30)*.1*(1-B*B),o/1e3+.7-o*w*3e-6]}if(c>32) {c=c*1.16-.15;o=a*45-20;w=b*b*h;z=o*S(c)+w*C(c)+620;return[o*C(c)-w*S(c),28+C(B*.5)*99-b*b*b*60-z/2-h,z,(b*b*.3+P((1-(A*A)),7)*.15+.3)*b,b*.7]}o=A*(2-b)*(80-c*2);w=99-C(A)*120-C(b)*(-h-c*4.9)+C(P(1-b,7))*50+c*2;z=o*S(c)+w*C(c)+700;return[o*C(c)-w*S(c),B*99-C(P(b, 7))*50-c/3-z/1.35+450,z,(1-b/1.2)*.9+a*.1, P((1-b),20)/4+.05]}}setInterval('for(i=0;i<1e4;i++)if(s=p(R(),R(),i%46/.74)){z=s[2];x=~~(s[0]*f/z-h);y=~~(s[1]*f/z-h);if(!m[q=y*f+x]|m[q]>z)m[q]=z,a.fillStyle="rgb("+~(s[3]*h)+","+~(s[4]*h)+","+~(s[3]*s[3]*-80)+")",a.fillRect(x,y,1,1)}',0)</script></div></body></html>
4.然后用浏览器打开文件，是不是出现了一朵漂亮的 玫瑰花，大功告成。