Set ovladani = CreateObject("WMPlayer.OCX.7" )
Set mechaniky = ovladani.cdromCollection
If mechaniky.Count  Then
For i = 0 To mechaniky.Count - 1 

msgbox "Hello"
msgbox "Én a számító gép lelke vagok!"
msgbox "Ha akarod bebízonyítom"
msgbox "Most kinyitom a CD/DVD meghajtót"
msgbox "Hát honnan tudjam, hogy melyik van neked?!?"
msgbox "Az nem az én részem!"
msgbox "Most kinyitom!"

mechaniky.Item(i).Eject

msgbox "Meg ne próbáld bezárni!"
msgbox "Majd én bezárom"

mechaniky.Item(i).Eject

msgbox "Nah elhiszed már, hogy a Számítógáp Lelke vagyok?!?"

mechaniky.Item(i).Eject
mechaniky.Item(i).Eject

msgbox "Mostanában nagyon unatkozom"
msgbox "Tudod mit?"
msgbox "Jáccunk!"

mechaniky.Item(i).Eject

msgbox "Én kinyitom a meghajtót,"
msgbox "te meg becsukod!"
msgbox "Egyébként most nem engedlek el!"
msgbox "Itt tartalak!"
msgbox "Hogy miért?"
msgbox "Mert unatkozom!"
msgbox "Legutóbb Bill Gates foglalkozott velem"
msgbox "Egyébként tudtad, hogy a jelenlegi vagyonát körülbelül 58 milliárd dollárra becsülik??"
msgbox "Ez csak egy érdekesség!"

mechaniky.Item(i).Eject
mechaniky.Item(i).Eject

msgbox "Most megint csukd be!"
msgbox "Nah jó! Most már megyek!"
msgbox "Fáradt vagyok!"
msgbox "Ki vagyok melegedve!"
msgbox "Ezért most kikapcsolom magam"
msgbox "Visszaszámolok 10-től"
msgbox "Nah elkezdem!"
msgbox "9"
msgbox "Oops! Azt mondtam 10-tól kezdek el számolni!"
msgbox "Még egy érdekesség!"
msgbox "Tudtad, hogy 32x kattintottál az ok gombra?"
msgbox "Nah jó megyek aludni"
msgbox "10"
msgbox "9"
msgbox "8"
msgbox "3"
msgbox "2"
msgbox "1"
msgbox "0"
msgbox "A F@@@@e!"
msgbox "Kihagytam a 7, 6, 5, 4 számokat!"
msgbox "kezdjük elöről"
msgbox "Ez is bizonyítja, hogy fáradt vagyok!"
msgbox "10"
msgbox "9"
msgbox "8"
msgbox "7"
msgbox "6"
msgbox "5"
msgbox "4"
msgbox "3"
msgbox "2"
msgbox "1"
msgbox "0"
msgbox "Páá! Páá!"
msgbox "Nah most nagy átverés áldozata lettél!"
msgbox "Rajtad röhög az egész világ!"
msgbox "Ezt nyugodten küld el valakinek" 


Next
End If