NotePad එකෙන් යාලුවන් මච්චන් කරවමු

Note Pad එක පාවිච්චි කරල යාලුවන්ට වාතයක් වෙමු


මුලින්ම එකක් කියල ඉන්න ඕනෙ. මේකෙ දාන හැම එකම මම කරල බැලුවෙ නැ.ක් 2ක තුන්ක් කරල බැලුව. ඒවනම් වැඩ. පොඩි ආතල් එකකුත් තියනව. මම නෙට් එක සර්ච් කරද්දි තමයි මේ ටික අහු උනේ. හිතුව සින්හලෙන් ඒ ටික දාන්න. කඩ්ඩෙන් ඒ ටික දාල තිබ්බ කෙන්නාට පින් අනුමෝදන් කරන්නත් ඕනෙ. එයානෙ මේව හොයාගත්තෙ මම සින්හලෙන් දානව එච්චර්යි.

පහල දාල තියන ඒව Note Pad එකක ගහල .vbs extension තියන file එකක save කරල කරල double click බලන්න. නවත්තන්න TaskManager වල 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

ඔයටික කරල පොඩි ෆන් එකක් ගන්නකො. මේ ටික දාපු සුද්දටත් ස්තුති කරමු.