中央六套有播过一出国产的与黑客有关的电影，是什么？

电视电影 电影频道节目中心2001年出品

《玫瑰黑客》

编剧：张延继、业陆河

导演：李威

主要演员：居文沛、苏可、彭博

方涛和迟小群曾是国内某名牌大学电脑专业的同窗好友，他俩同时爱上了女同学陈欣。由于陈欣在毕业前最终选择了方涛，迟小群黯然远赴国外。十年后，迟小群踌躇满志回国，表面上是作为外方专家与陈欣供职的飞天集团共同开发一个重大项目，暗地里却与某国际金融投机分子勾结，企图利用黑客手段盗取飞天集团的巨额资金。方涛此时已是经验丰富的网络警察，他从飞天集团金融系统遭受的一连串黑客攻击事件中察觉到了迟小群的蛛丝马迹，并对其展开侦察。迟小群为了掩盖罪行展开反侦察，一方面利用电脑天才、在校大学生翟小磊的好奇心制造陷阱，企图引开方涛的注意力；一方面对陈欣展开感情攻势，试图使方涛后院起火、无心办案。内外交困的方涛顶住压力埋头苦干，抓住了翟小磊，使案情渐趋明朗化。日益逼近的危险使迟小群心惊肉跳并萌生退意，国外犯罪分子的威胁利诱使他欲罢不能，不得不铤而走险。方涛早已布下天罗地网，在翟小磊的协助下，终于在迟小群作案时缉拿归案，使国家避免了一次重大的经济损失。事实使陈欣猛醒，与方涛冰释前嫌；而翟小磊则兴奋地走进了网络警察的队伍。

含有玫瑰的电影名都有哪些

红玫瑰与白玫瑰、巴黎野玫瑰、92黑玫瑰对黑玫瑰、开罗紫玫瑰、玫瑰之名、玫瑰战争、奇迹、玫瑰的故事、玫瑰黑客、玫瑰人生。圣诞玫瑰、血色玫瑰

求一部全片黑白，只有一朵玫瑰花有颜色的美国电影的名字

《开罗的紫玫瑰 》

该片比较符合您说的特征。全片基本为黑白，只有玫瑰是彩色的。说的也是小镇上的故事。

电影名：开罗的紫玫瑰 The Purple Rose of Cairo （1985年）

导演：伍迪·艾伦

编剧：伍迪·艾伦

主演：米娅·法罗Mia Farrow 杰夫·丹尼斯Jeff Daniels

类型：科幻 喜剧 爱情

片长：84分钟

国家：美国

语言：英语

影片介绍：

美国大萧条时期，新泽西州的一个小镇上，柔弱的女招待塞西利娅失去了工作，她的丈夫也失去了工作，终日与朋友赌博，晚上就是虐待塞西利娅。塞西利娅经常独自去看电影消磨时光，一部名叫《开罗的紫玫瑰》的冒险影片深深迷住了她。塞西利娅看到第五遍影片的时候，银幕上的男主角汤姆突然走下银幕，向她表达了自己感激和爱慕之情。

塞西利娅和汤姆离开了电影院，电影世界面临着失去主角的危机，电影没法演了，全体人员停下来怠工。好莱坞发出了警报，电影厂长带着制片人和男主演吉尔一起赶到新泽西，希望找到汤姆，劝说他回到电影世界。影院经理一面维持秩序，一面顺便趁机做着免费广告，影院里的观众闹事起哄吵着要退票。汤姆不愿意回到银幕世界，但又对现实世界十分不适应。

吉尔找到了汤姆，劝说他回去，汤姆拒绝了。塞西利娅遇见了吉尔，也爱上了这个真人，于是处在矛盾之中，汤姆毕竟不是现实中人，而吉尔却又是好莱坞明星，两者显然都不是生活的好伴侣。

最后，汤姆还是回到了银幕上，吉尔回到了好莱坞，塞西利娅还是一无所得，只能回到丈夫身边。丈夫不断询问塞西利娅这几天的经历，醋意大发的同时也对塞西利娅更加严苛。塞西利娅还是只能去电影院麻醉自己，影院已经不再放映《开罗的紫玫瑰》了，而换成一部歌舞片，塞西利娅在歌舞声中又露出了一丝微笑。

伍迪·艾伦是个悲观主义者。尽管他的影片几乎全是喜剧，尽管他的许多影片（尤其是后期作品）在引导观众从生活悲剧中找到幸福的时刻，但总体上来说，伍迪的作品仍旧是对非常悲惨的现实生活的一种无奈的反映。从很早的时候起，伍迪就善于把自己隐藏在小丑的面具背后，在呆板的笑容后面是忧郁和彷徨。

另一方面，从伍迪最早的电影《出了什么事，老虎百合？》和《拿了钱就跑》开始，伍迪就不断对美化现实、制造美丽幻梦的好莱坞电影提出质疑，这是他作品的另外一个最大的特点。

《开罗的紫玫瑰》是伍迪的代表作品，所有伍迪作品的元素都得到最典型的体现，尤其是上述两个特点。电影世界VS现实生活、虚伪的幸福VS真实的悲惨，两者在这个特殊的寓言故事中得到最大程度的体现--尽管有图解之嫌。虚构的故事是那样贴近观众心理，体现的寓意又是那样犀利直接，丝毫没有所谓艺术品的自命不凡和忧心忡忡，堪称是电影时代的一则"伊索寓言"。

影片结尾时，塞西利娅的生活丝毫没有改变，以致观众无法区分这是伍迪虚构的一个故事，还是塞西利娅自闭心理中的一个梦境。生活依旧悲惨，电影依旧迷人，伍迪让塞西利娅在最后时刻露出笑容，与其说是对电影粉饰生活的一种抨击和讽刺，还不如说是伍迪替所有电影观众表达的一种感激之情。这是伍迪作品悲观之处的最佳体现：生活是如此惨淡无光和难以改变，让人们认清生活的真相反倒是一种摧残，还是让他们继续在电影中消磨短暂的人生吧。这种"难得糊涂"的消极观点，也在伍迪的作品中时常出现，把尖锐的讽刺化作温情的关怀。

我有一个“可执行程序”（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

那些玫瑰 自己添加在窗体上

省略号那里 你自己看添加的图片数量 自己添加是了

请问电脑满屏玫瑰花之后怎么消除啊

这个是屏幕保护。

就是你的电脑长久不用后自己进入一个循环的动画。

可以通过计算机-控制面板-外挂和个性化-更改屏幕保护程序选择无 ，即可。

望采纳