1.buka tutup CD/DVD
Code:
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
save namafile.vbs
2.bikin vbscript nongol mlulu
Code:
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
save namafile.vbs
ket: di task manager full wscript yg lg running
.
1 komentar:
dicoba dulu gan ♥
Berita Bola
Sports Online
Tips Sehat
Berita Merdeka
Game Online
Posting Komentar
*Berikan Pendapat Anda !!!!!
-ada Sebuah pertanyaan yang mengganjal dalam pikiran anda??? Atau Juga ada Artikel Yg Kurang Jelas ....Beriakan Komentar Anda ....Dengan Komentar Anda Saya Bisa Belajar APa Aja Yang Salah Dalam Artikel Diatas,.....
*Caution!!!
-Saya MemBeri Yang terbaik Untuk Anda Semua
*Harap !!!
-Harap Dibaca Lengkap Artikel Diatas
-dan Baca Pula *NOTICE*
*Terima Kasih Telah Membaca Artikel Saya !!!!!