Notepad viruses

                                                                    Notepad එකෙන් virus හදමුද?                      

අද මම කියල දෙන්න යන්නෙ කොහොමද notepad එකෙන් චුටිම චුටි virus එකක් හදන්නෙ කියලා. බය වෙන්න එපා මෙව virus උනාට මෙවගෙන් pc එකට කිසිම හානියක් නෑ කරල බලන්න නියම ෆන් වෑඩ ටිකක් Script ටික පහලින් දාන්නම්෴

• පලවෙනි Script එක 

      මේකෙන් වෙන්නෙ Keyboard එකේ බල්බ් තුන නිවි නිවී පත්තු               වෙන එක.

                       Set wshShell =wscript.CreateObject("WScript.Shell")

                                   do

                                   wscript.sleep 100

                                   wshshell.sendkeys "{capslock}""{numlock}""{scrolllock}"

                                   loop 

       

      මෙම script එක copy කරගෙන notepad එකකට paste කර එය             save කිරීමේදී file name එක ඔබට කැමති නමක් දී file type එක             .vbs ලෙස ලියා save කරන්න (xxxx.vbs)

• දෙවෙනි Script එක 

       මෙකෙන් වෙන දේ තමයි ඔයලා type කරන එක ඔයලටම අහන්න          පුලුවන් වීම.

            msg=InputBox("Enter your text for conversion–                                                                                     www.shavinnet.blogspot.com","TechVorm Text-To-Audio               Converter")
              Set sapi=CreateObject("sapi.spvoice")

              sapi.Speak msg

          මේකෙත් file name එක ඔබට කැමති නමක් දී file type එක                   .vbs ලෙස ලියා save කරන්න. (xxxx.vbs)

• තුන්වෙනි Script එක 

       මේකෙන් වෙන්නෙ Icon එක ක්ලික් කරපු ගමන් එම ස්ථානයේ              Folder 32767 සෑදීම
           @echo off
              :loop
               mkdir %random%
               goto loop

          මේකෙත් file name එක ඔබට කැමති නමක් දී file type එක මතක        ඇතුව .bat ලෙස ලියා save කරන්න. (xxxx.bat)

• හතරවෙනි Script එක

       තවත් වැඩක් මේක > මෙම script එකෙන් වෙන්නෙ 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
       මේකෙත් file name එක ඔබට කැමති නමක් දී file type එක                  .vbs ලෙස ලියා save කරන්න. (xxxx.vbs)
                       

• පස්වෙනි Script එක

      මේකෙන් වෙන්නෙ pc එක ස්ට්‍රක් වෙන එක
      Set wshShell = wscript.CreateObject("WScript.Shell")

         do

         wscript.sleep 100

         wshshell.sendkeys "You are a fool."

         loop

        මේකෙත් අර විදියටම කර file type එක .vbs ලෙස ලියා save                 කරන්න. (xxxx.vbs)