Készítette: Donatus 2010. augusztus 9. 21:57:34 - 18646 megtekintés
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"
Nekem ha rákattintok akkor szerkezteni akarja mit csináljak
?[i