怎麼用程序讓電腦開玫瑰花

⑴ 前幾天在網上看到，別人用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.然後用瀏覽器打開文件，是不是出現了一朵漂亮的 玫瑰花，大功告成。