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"
A válasz a kommentetekre az, hogy a kódot csak idáig másoltátok ki:
MsgBox"A hiba megoldódott. ",0+16,"Windows"
Nade, még ott van hogy:
Next
End If
Az is hozzátartozik!