Yuk buat “Virus” Nakal, buat ngerjain dosen/guru yang kita ngga suka, lagi suntuk di ruang labkom kampus, pusing ngga bisa maen facebook karena diblokir sama admin labkom, yah iseng2 buatin scripts .vbs.
Caranya: Buka notepad dan masukkan code berikut,
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
Simpanlah dengan file tadi dengan ekstensi file iseng.vbs ato apapun nama kesukaan asalkan pastikan ekstensinya .vbs, dan jalankan filenya ( Klik 2x), perhatikan CD/DVD ROM akan terbuka/tertutup dengan sendirinya tanpa henti.
 |
Nah mau script .vbs yang laen lagi?
WScript.Sleep 18000
WScript.Sleep 1000
do
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "R"
WScript.Sleep 500
WshShell.SendKeys "I"
WScript.Sleep 500
WshShell.SendKeys "O"
WScript.Sleep 500
WshShell.SendKeys "E"
WScript.Sleep 500
WshShell.SendKeys "E "
WScript.Sleep 500
WshShell.SendKeys "A"
WScript.Sleep 500
WshShell.SendKeys "R"
WScript.Sleep 500
WshShell.SendKeys "L"
WScript.Sleep 500
WshShell.SendKeys "N"
WScript.Sleep 500
WshShell.SendKeys "E"
WScript.Sleep 500
WshShell.SendKeys "W"
WScript.Sleep 500
WshShell.SendKeys "V"
WScript.Sleep 500
WshShell.SendKeys "E"
WScript.Sleep 500
WshShell.SendKeys "R"
WScript.Sleep 500
WshShell.SendKeys "S"
WScript.Sleep 500
WshShell.SendKeys "I"
WScript.Sleep 500
WshShell.SendKeys "O"
WScript.Sleep 500
WshShell.SendKeys "N"
WScript.Sleep 500
WshShell.SendKeys "E"
WScript.Sleep 500
WshShell.SendKeys "V"
WScript.Sleep 500
WshShell.SendKeys "O"
WScript.Sleep 500
WshShell.SendKeys "L"
WScript.Sleep 500
WshShell.SendKeys "U"
WScript.Sleep 500
WshShell.SendKeys "T"
WScript.Sleep 500
WshShell.SendKeys "I"
WScript.Sleep 500
WshShell.SendKeys "O"
WScript.Sleep 500
WshShell.SendKeys "N"
WScript.Sleep 500
wscript.sleep 5000
loop
Scripts diatas nanti otomatis buka notepad dan ketik: rioearlnewversionevolution
ingat yah simpan dengan ekstensi nama (terserah).vbs, klik file–>save as
Dan membuat terus menerus menekan tombol “Enter”
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100 wshshell.sendkeys "~(enter)"
loop
Terus tekan backspace:
MsgBox "Balik lagi ah...saltik"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.l sleep 100
wshshell.sendkeys "{bs}"
loop
dan yang satu ini akan mengetikkan kata(rioearl memang keren dan pintar)terus menerus
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "rioearl memang keren dan pintar"
loop
0 komentar:
Posting Komentar