100分求屏幕保护程序源代码

Question

自己写的代码无法实现所需功能，希望各位高手给我指点迷津，谢谢
100分作为谢礼，请笑纳！功能需求：
1.屏幕保护期间全屏播放硬盘中的某个有声音有图象的多媒体文件（例如：avi文件）
2.可以在显示属性中设置需要播放的文件，是否循环播放
3.移动鼠标或敲击键盘就退出程序。请将源代码贴出来，如果代码太多请发到[email protected]
只要实现全部功能立即给分

Answer 1

1、找几个做专门做 屏幕保护 的软件弄一个。
（这是最倒的一个方法了，也最简单）2、屏幕保护 程序就是一个 可执行文件。你可以把那个扩展名改成 exe 一样能执行。

Answer 2

也就是说呢，你用 VB 之类的开发工具写一个这样的东东。
然后改一下名字就OK了。

Answer 3

Option ExplicitPrivate Sub exit_Click()
    End
End Sub
Private Sub Form_Load()
  '要设置MENU为不可见,我未设  loopPlay.Checked = False
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
   End
End SubPrivate Sub Form_Resize()
   With mp
   .Top = Me.Top
   .Left = Me.Left
   .Width = Me.Width
   .Height = Me.Height
End With
End SubPrivate Sub loopPlay_Click()
  If loopPlay.Checked = False Then
    loopPlay.Checked = True
  Else
    loopPlay.Checked = False
  End If
End SubPrivate Sub mp_Click(Button As Integer, ShiftState As Integer, x As Single, y As Single)
  If Button = 2 Then
     End
  Else
   '弹出菜单,你要查一下使用方法
  End If
End SubPrivate Sub mp_KeyUp(KeyCode As Integer, ShiftState As Integer)
  End
End SubPrivate Sub open_Click()
   With CommonDialog1
      .InitDir = App.Path
      .Filter = "*.AVI|*.avi|所有文件|*.*"
      .ShowOpen
      If .FileName <> "" Then
         mp.FileName = .FileName
         mp.AutoSize = False
         mp.ShowControls = False
         mp.Play
      End If
   End With
End SubPrivate Sub Timer1_Timer()
    If loopPlay.Checked Then
       mp.PlayCount = 0
    Else
       mp.PlayCount = 1
    End If
End Sub
其中的MP指的是windows的mediaplayer控件

Answer 4

我想请问，最后一个功能你是否可以实现，就是鼠标移动和点击就退出程序mediaplaywer控件被单击就暂停播放，程序无法获得此事件你怎么解决的？

Answer 5

用Windows Common Controls 2 6.0里的Animation控件
Option ExplicitPrivate Sub Animation1_Click()
    MsgBox "aaaa"
End SubPrivate Sub Form_Load()
    Animation1.Open "C:\Program Files\SpyNet\anim.avi"
End Sub