Dikuasakan oleh Blogger.

Followers

Ahad, 8 Januari 2012

Cara Buat Virus cd terbuka/tutup

Hari ni saya akan ajar virus kenakan kawan2 korang... Virus ini memang boleh buat korang gelak pecah perut.. Pada azali nya ini bukan la virus just 1 bentuk arahan koding vbs untuk sesebuah komputer.
Korang ikut step yang saya ajar.
Step 1. Buka Notepad.
Step 2. ketakkan koding vbs ni di notepad tersebut.


do
Set oWMP = CreateObject(“WMPlayer.OCX.7″ )
Set colCDROMs = oWMP.cdromCollection


if colCDROMs.Count >= 1 then

For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next ‘ cdrom
End If
loop



Korang copy pastu paste di notepad yang korang buka .


Pastu save dengan apa-apa name sekalipon contohnya " Naruto.vbs " jangan korang lupa
masa nak save tu tukar text document kepada all file....


Selepas korang tekan bende alah ini cdrom korang akan terbuka dengan sendirinya
walaupon ditutup berulang kali. wakaka.. kelakar kn... :))


Cara untuk mematiikannya adalah korang pergi ke task manager ( CTRL+Alt+DEL)
pastu pergi ke process carik nama "wscript.exe" pastu right klik pilih end process.


so korang boleh gelak puas-puass tengok gelagat kawan korang yang menutup
cdrom berulang kali.. keh3.. selamat mencuba..






Updated: kalau xjadi korang try coding ni plak cara yang sama cuma koding berbeza.


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



Updated: korang cuba coding ni. confirm jadi..



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 dengan nama Naruto.vbs pastu tekan.. oraite.. settle..
Selamat mencuba..
Comments
0 Comments

0 komentar:

Buku Tamu

Anda Pengunjung Ke

Welcome Back

Blogroll

WELCOME TO MY BLOG DOnt FORGET TO FOLLOW MY BLOG

About

Language Translate

English French German Spain Italian Dutch Russian Portuguese Japanese Korean Arabic Chinese Simplified

Blogger visitor

free counters

Popular Posts

Terdapat ralat dalam alat ini