一個文件夾名為什麼會出現玫瑰花

D. 一個壓縮文件夾,開始感覺被耍了後來一打開是玫瑰花

我倒是有一個小程序，打開後，鮮花會不斷開放，充滿整個屏幕。

E. 有一個文件夾不停的打開N遍後，桌面上散滿玫瑰花和祝福語，這個文件有嗎發送到我的QQ825027504謝謝哦

這個沒有用的，你要想就自己去網上下載個開滿玫瑰花的屏保，多建點文件夾，然後一個一個的將文件夾重重的裝載，文件夾上命名為你想吸引眼球的，耐人尋味的名字，開上N個後點擊那個作為屏保的玫瑰屏保就可以了。

F. 有個文件夾一層層打開，組後裡面全是玫瑰花，誰有那個，發我下，謝謝了！

用魔方就行了，不過你會發現這樣系統會非常卡機。[email protected]，

G. 誰知道玫瑰花病毒是怎麼開始和清除的

病毒介紹：在網路上流行一個叫「rose.exe」的病毒，它最初的表現為在你的電腦裡面，右鍵單擊各個盤符的時候，第一項由原來的「打開」變成了「自動播放」，然後在你的系統進程裡面會出現若干個「rose」的進程，佔用電腦的CPU資源。

∷傳播方式：通過U盤、MP3 、移動硬碟等移動存儲設備傳播，一般表現為移動存儲設備內東西無法剪切、移動存儲設備無法移出等，尤其在公用電腦上表現極為明顯，目前我已經在校新聞實驗中心、校廣播台、校外列印店、照相館等公共電腦場所發現該病毒，且愈演愈烈，另外在很多同學的電腦或者移動存儲設備上發現該病毒，傳播極為迅速。

∷病毒危害：

1、在系統中佔用大量cpu資源。

2、在每個分區下建立rose.exe 和autorun.inf 2個文件，且它們都隱藏系統保護文件之內，無論你怎樣搜索都找不到，但是在雙擊該盤符時病毒就自動運行了。

3、若你繼續無視該病毒，可能會引起部分操作系統崩潰，表現在開機自檢後直接並反復重啟，無法進入系統，簡單的說就是你電腦突然死機了，然後就再也開不了機。即便在你重新格式化C盤，重新安裝系統之後，你只是清除了C盤的該病毒，但是它在其他盤下仍然存在，且會再次發作。

∷殺毒方式：目前經測試，不論是哪個殺毒軟體，不論你將病毒庫升級到最新的哪個時候，它們暫時都不具備查殺該病毒的能力，即便是在你所使用的殺毒軟體是正版的情況下。個人估計殺毒軟體公司的員工此時正在抓緊時間研究如何查殺中。
我也是中了此毒，被折騰得夠嗆，也重裝了電腦，花了點時間從網上去學習，才有此切身經驗，現在根據以往別人提供的方法，再結合自己的經驗，希望對各位電腦中毒的同學有所幫助，也希望能引起其他沒中毒的同學的重視。

∷具體方法如下：

1、按Ctrl+Alt+Delete調出任務管理器，在進程頁面中結束掉所有名稱為Rose.exe的進程（建議在後面的操作中反復此操作，以確保病毒文件不會反復發作）。
2、在開始－－運行中輸入「regedit」（XP系統）打開注冊表，點「編輯」——「查找」，在彈出的對話框中輸入「rose.exe」，找到後將整個shell子鍵刪除，然後繼續按F3查找下一個，繼續刪除查找到有關的鍵值，直到顯示為「注冊表搜索完畢」為止。
3、在我的電腦－工具－文件夾選項－查看－顯示所有文件和文件夾，把「隱藏受保護的系統文件」的勾去掉。

4、對每個盤符點右鍵－打開進入（切記不能雙擊），刪掉所有的rose.exe和autorun.inf文件。如果刪除時候提示不能刪除，可將這兩個文件的屬性由「只讀」改為「存檔。若還不能刪除，則重啟電腦，在自檢時按F8進入到安全模式下去刪除。
∷預防辦法：

1、當別人將U盤插入自己的電腦，當出現操作提示框時，不要選擇任何操作，關掉。

2、進入我的電腦，從地址下拉列表中選擇U盤並進入，或者右鍵單擊可移動磁碟，在彈出的菜單中選擇「打開」進入。千萬不要直接點擊U盤的盤符進去，否則會立刻激活病毒！

3、在我的電腦－工具－文件夾選項－查看－顯示所有文件和文件夾，把「隱藏受保護的系統文件」的勾去掉，你會看到U盤中出現了「rose.exe」和「autorun.inf」兩個文件，直接刪除！

4、在開始－－運行中輸入「regedit」（XP系統）打開注冊表，點「編輯」——「查找」，在彈出的對話框中輸入「rose.exe」，找到後將整個shell子鍵刪除，然後繼續按F3查找下一個，繼續刪除查找到有關的鍵值，直到顯示為「注冊表搜索完畢」為止。

H. 我有一個「可執行程序」（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
那些玫瑰 自己添加在窗體上
省略號那裡 你自己看添加的圖片數量 自己添加是了

I. 求聖誕節電子禮物有很多個文件夾 點擊到最後是一個程序，整個屏幕都會變成玫瑰花

有玫瑰花和雪花的，雪花有很多文件夾。玫瑰花沒有，你可以給他們相互換下！
已發送，請查收！

J. 求電腦小程序——1、一個文件夾，名為「禮物」，點開後會出現很多玫瑰花。2、點擊後可以在桌面下雪

第一個禮物我有~
希望採納