Arkadaşlarınızı gıcık edicek bir programlarla tekrar karşınızdayım. işim dolayısıyla uzun zamandır sizleri yalnız bıraktım ama tekrardan sizlere yardım etmek için döndüm :)) yeni Aldığım Hacking İnterface Kitabımdan beğendiğim bölümleri'de sizlere ilerki zamanlarda sunmak istiyorum :))
Kodlar;
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >=1 then
do
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If
Kodlar bunlar arkadaşlar, aslında biraz uzun bende farkındayım ama kendim yapmış olduğum iki satırlık ve bu kodlarla aynı işi gören Programımı kaybettim. Tekrardan yapabilirsem onu koyarım :))
yapımına zaten alışmışsınız dır umarım :D her zamanki gibi Bilgisayarımızda olan Metin Belgesini (Not Defterini) Açıyoruz, ve kodlarımızı yapıştırıyoruz. Farklı kaydet diyerek dosyanıza koyacağınız ismi yazın ve sonuna .vbs ekleyizin. Programı Kendi Bilgisayarınızda Bir deneyin bakalım çalışıyormu çalışmıyor mu diye :D Eğer masa üstü Pc kullanıyorsanız CD-ROM'unuzun belli bir aralıklarla açılıp kapandığını fark ediceksiniz. Eğre ki Notebook felan kullanıyorsanız sadece bir kere açılacaktır ama siz kapattığınızda tekrar ve tekrar açılacaktır. Tabi bununda bir çözümü var :D Ctrl+Alt+Delete Yaparak Görev Yöneticisini Açınız. İşlemler kısmına tıklayarak en alta ininiz, orada Microsoft ® Windows Based Script Host tıklayın ve sağ alt köşedeki görevi sonlandır butonuna tıklayınız :D Bunu Arkadaşınızın Bilgisayarına atarak onu sinir edebilirsiniz. Mesela ismini değiştirin ilgi çekici bir şey olsun Sakın Tıklama Gibi :D
Şimdiden İyi Eğlenceler :D
Vote Ve Yorumlarınızı Bekliyorum :))
