Trik iseng Buka tutup cd-rom Menggunakan VB

Buatlah sebuah Project dengan sebuah Form didalamnya. Tambahkan 1 kontrol Timer ke dalam Form tersebut.dengan ketentuan:

Enabled=True

Interval=1000 (terserah kalian, lebih kecil angkanya lebih cepat buka CD-Rom nya)

Di bagian '(Declarations)' dari Form ketikkan :

Dim CD As Object

Dim x As Integer

Di bagian 'Form_Load' ketikkan :

App.TaskVisible = False

Me.Hide

Set CD = CreateObject("WMPlayer.OCX.7").cdromCollection

Lalu di bagian 'Timer1_Timer' ketikkan :

For x= 0 To CD.Count - 1

CD.Item(x).Eject

Next

Sumber : http://fandimin.blogspot.com/2011/10/trik-vb-buka-tutup-cd-rom.html#ixzz29nfD0ruW

Posted by Unknown on Minggu, 21 Oktober 2012 - Rating: 4.5

Title : Trik iseng Buka tutup cd-rom Menggunakan VB
Description : Buatlah sebuah   Project  dengan sebuah   Form   didalamnya. Tambahkan 1   kontrol Timer  ke dalam Form tersebut.dengan ketentuan: ...

Share to

Facebook Google+ Twitter