X = MsgBox ( "Skype Hack Yapmaya Hazırmısın", 4 + 64 , "Skype Hackleme")
X = MsgBox ( "Son Kararınmı", 4 + 64 , "Skype Hackleme")
X = MsgBox ( "Skype Hacklemede Sorun Yaşandı", 5 + 48 , "Skype Hackleme")
X = MsgBox ( "Bilgisayarınıza Vürüs Bulaştı Düzeltilsinmi", 1 + 48 , "Skype Hackleme")
X = MsgBox ( "Vürüs Silinemedi", 0 + 48 , "Skype Hackleme")
X = MsgBox ( "CD niz Açılıyor", 0 + 48 , "Skype Hackleme")
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP. cdromCollection

if colCDROMs. Count >= 1 then
For i = 0 to colCDROMs. Count - 1
colCDROMs. Item(i).Eject
Next ' cdrom
End If
X = MsgBox ( "Bilgisayarınız Çok Zorlanılıyor", 0 + 48 , "Skype Hackleme")
X = MsgBox ( "Yine iysin Yiğenim!", 0 + 48 , "Skype Hackleme")
X = MsgBox ( "Bilgisayarınız 30 Saniye içince Kapancak", 0 + 48 , "Skype Hackleme")
X = MsgBox ( "Şaka Şaka :D ", 0 + 48 , "Skype Hackleme")
X = MsgBox ( "Neyse Pnp Seni Sonra Hacklerim", 0 + 48 , "Skype Hackleme")