Notepad වලින් Computer එක පිස්සු වට්ටමු

ඔන්න මම අද ගෙනාව පොඩි code වගයක්. ඔයාලට ඔයාලගෙ යලුවන්ව සිරාවටම බයකරන්න පුලුවන්. මේවා notepad වල type කරන්න. ඊට පස්සේ .vbs extensio යන නමින් සේව් කරල run  කරන්න. නවත්තන්න ඕනේ නම් විතරක් කරන්න. Task Manager වල Process වල wscript.exe select කරල endprocess button එක click කරන්න.


CapLock Key on off කරන්න

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop

type කරන හැම පාරම backspace එකක් ගස්සවන්න

MsgBox “Let’s rock and roll”
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop

Machine එක Shutdown කරවන්න (මේකනම් මම කරල බැලුවෙ නෑ)

@echo off
msg * I don’t like you
shutdown -c “Hahahah You are Doomed” -s

CD/DVD drive eject කරවන්න

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

යන ගමන් comment  එකක් දාල යනවද . .