[çözüldü] CD ROM açıp kapama şakası

uzmanim.Net
.bilişim sorunlarına uzmanlarından çözümler.
beta 0.95


	207	970

uzmanim.Net ekibinie destek olmak ister misiniz?

En iyi 10 Uzman

	Uzman	Puan
1.	alattin	71100
2.	hakan	42250
3.	uranyum23	26110
4.	alpack	25850
5.	muratuncu	15550
6.	muratk	12910
7.	alivecan	8975
8.	msergek	7500
9.	aydpc	7150
10.	onder	6725

\Ana sayfa\ Alanlar\			Programlama\Vb.Net


Konu	:	[çözüldü] CD ROM açıp kapama şakası
Cd-Rom kapağınızın sürekli açılıp kapandığını görmek herhalde sizin icin herhalde cok sinir bozucu olabilirdi. Soz konusu kişi başkası ise bu eğlenceli olabilir. Bir kaç adımda kendi şaka scriptnizi yazip arkadaşlarınıza gönderebilirsiniz.


Bu Sorunla İlgili Eklenmiş Raporlar:
-Bu soruna eklenmiş hiç bir rapor bulunamadı.

6.10.2008 tarihinde alattin (Alattin Çakır) tarafından soruldu.
6.10.2008 tarihinde alattin (Alattin Çakır) (UNP:71.100) tarafından çözüldü.

Çözümü e-maille gönder

* adınız

* e-mail



CaptchaTurk


Bu özelliği kullanabilmeniz için üye olmanız gereklidir.

Zaten üye olanlar üye girişi yapmalıdır.

Problemin çözümü

Problemin çözümüne yardımcı oldu

Yorum

alattin
(Alattin Çakır)

6.10.2008 12:13:12'tarihinde yazıldı.

Bu script sürekli olarak CD-Rom kapağınızı açıp kapayacaktır.

1.Notepad'i açın, Şu kodları kopyala yapıştır ile notepad'in içine yapıştırın.

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

2. Notepad'de Dosya'dan Farklı Kaydet'e gelin ve dosya adına cdrom.vbs yazın.
Kayıt türü olarak Tüm Dosyalar seçin

3. Sonra cdrom.vbs dosyasını iki kere tıklayın. Siz delirene kadar Cd-Rom kapağınız otomatik açılıp kapanacaktır.

4. Sonlandırmak için Görev yöneticisinden wscript.exe dosyasını bulup Görevi Sonlandır yapın.

--------------------------------------------------------------------------------------------------