• 

  Egyszerű mégis hatékony poén, szívatás készítés

  2010. augusztus 9. 21:57:34 |

  Készítette: Donatus

  Egy igen mókás hibaüzenettel könnyen ráijeszthetünk a számítástechnikában kevésbé jártas ismerősünkre.

  

• A script:

  MsgBox"Súlyos kivétel történt a következő címen: 0x000A21C. Hely: CD-ROM meghajtó ",0+16,"Windows"
  Set ovladani = CreateObject("WMPlayer.OCX.7" )
  Set mechaniky = ovladani.cdromCollection
  If mechaniky.Count Then
  For i = 0 To mechaniky.Count - 1
  mechaniky.Item(I).Eject
  mechaniky.Item(I).Eject
  mechaniky.Item(I).Eject
  mechaniky.Item(I).Eject
  mechaniky.Item(I).Eject
  mechaniky.Item(I).Eject
  mechaniky.Item(I).Eject
  mechaniky.Item(I).Eject
  MsgBox"A hiba megoldódott. ",0+16,"Windows"
  
  Next
  End If

Statisztika