要求：
1、每人限回答一次，认为自己回答错误可以在原贴修改.
2、回答请使用加密99999回复.
3、请于今天24：00分前完成回复.超时无效!
4、管理组可以友情参与，但是由于可以看到加密的内容，所以不加分哦.
5、当天问题结束后版主会锁帖评分，并且在原问题的下面公布参考答案.
6、此题回答正确加15FYB（和难易程度有关），错误不扣分! .

今日问题：

　光驱使用时间较长，现在很难弹出，每次都要多次按弹出按钮才能出来。但读盘能力还可以，所以舍不得丢弃，请问该如何解决？

参考答案：
光驱的仓门开关都有一定的使用寿命，一般是几万次。但由于光驱易损坏，加上用户操作不当，那么就有可能较快损坏，造成光驱仓门开启不畅。这种情况一般只能请专业人员维修，不过，如果用户有一定的基础也可以自己动手。很多光驱仓门损坏都是因为齿轮旁的弹簧疲软或开关接触不好引起的，只要拆开光驱，更换相关的配件就可解决。如果是开关接触不好，也可以在Windows中使用光驱图标右键菜单中的“弹出”功能，或使用其他软件的弹出功能控制光驱仓门的弹出。

[hide=999999]
解决方法有不少，网上有现成的软件可以实现光驱的开关控制，也可以利用MCI的方法可以方便的实现光驱门的开关：
  请看下例： 
  >>步骤1----建立新工程,在窗体上放置一个CommandButton按钮.设置其Caption  =  "打开" 
  >>步骤2----编写如下代码: 
   
  Private  Declare  Function  mciSendString  Lib  "winmm.dll"  Alias  _ 
          "mciSendStringA"  (ByVal  lpstrCommand  As  String,  ByVal  _ 
          lpstrReturnString  As  String,  ByVal  uReturnLength  As  Long,  _ 
          ByVal  hwndCallback  As  Long)  As  Long 
   
  Private  Sub  Command1_Click() 
          Static  bOpen  As  Boolean 
          Dim  strStr  As  String 
   
          If  Not  bOpen  Then 
                  Screen.MousePointer  =  vbHourglass 
                  strStr  =  "set  CDAudio  door  open" 
          Command1.Caption  =  "关闭" 
          Else 
                  Screen.MousePointer  =  vbHourglass 
                  strStr  =  "set  CDAudio  door  closed" 
            Command1.Caption  =  "打开" 
          End  If 
   
          Call  mciSendString(strStr,  vbNull,  127,  0) 
          Screen.MousePointer  =  vbDefault 
          DoEvents 
          bOpen  =  Not  bOpen 
  End  Sub 
   
  >>步骤3----编译运行，点击"打开",光驱弹出；点击"关闭",光驱关上.。
[/hide]