Notepad වැඩකෑලි රොත්තක්ම !!! part-1

Praneeth Madush

10:42 PM

0

කරල බලන්න

ඕන්න ආයෙත් මම fun පෝස්ට් එකක් අරන් ආව.මම කලින් කියන්නෙ නෑ මේව මොනවද කියල එතකොට කිසි ගතියක් නෑ නේද ?ඒක නිස කරලම බලල කමෙන්ට් එකක් එහෙමත් දාලම යන්නෝ ....
හෆොයි තව ටිකෙන් වැදගත් දෙයක් කියන්න බැරි වෙනව .මේ කේතයන් කිසිවක් virus හෝ එවැනි කෙල වෙන දෑ නොවෙන බව දිවුරා පොරොන්දු වෙමි :).
ඒත් එක්කම මේකත් මතක තියා ගන්න මේව නවත්තගන්න ඕනෙ නම්  ctrl+Alt+Delete ඔබල ඒකෙ processes වලට ගිහින් wscript කියන එක select කරල end process ඔබන්ඩ ඈ .
තව ක්‍රමයක් තියනව ඒ ඔයාගෙ කොම්පූටරේ restart කරන එක !

මේව ඔක්කොම note pad එකක් ගහල save as ගිහින් all files select කරල කැමති නමක් දීල නම අගට .vbs කියල දීල save කරන්නෝන.  

වැඩේට බහිමු එහෙනම් !!

1 වෙනි එක
Set wshshell = wscript.CreateObject("WScript.Shell") Wshshell.run "Notepad" wscript.sleep 400 wshshell.sendkeys "H" wscript.sleep 100 wshshell.sendkeys "i" wscript.sleep 200 wshshell.sendkeys " " wscript.sleep 200 wshshell.sendkeys "I" wscript.sleep 200 wshshell.sendkeys " " wscript.sleep 100 wshshell.sendkeys "a" wscript.sleep 100 wshshell.sendkeys "m" wscript.sleep 200 wshshell.sendkeys " " wscript.sleep 100 wshshell.sendkeys "N" wscript.sleep 100 wshshell.sendkeys "i" wscript.sleep 100 wshshell.sendkeys "p" wscript.sleep 100 wshshell.sendkeys "u" wscript.sleep 100 wshshell.sendkeys "n" wscript.sleep 100 wshshell.sendkeys "a" wscript.sleep 200 wshshell.sendkeys " " wscript.sleep 100 wshshell.sendkeys "L" wscript.sleep 100 wshshell.sendkeys "i" wscript.sleep 100 wshshell.sendkeys "y" wscript.sleep 100 wshshell.sendkeys "a" wscript.sleep 100 wshshell.sendkeys "n" wscript.sleep 100 wshshell.sendkeys "a" wscript.sleep 100 wshshell.sendkeys "g" wscript.sleep 100 wshshell.sendkeys "e"

2 වෙනි එක
Set wshShell =wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "{CAPSLOCK}" wshshell.sendkeys "{NUMLOCK}" wshshell.sendkeys "{SCROLLLOCK}" loop

3 වෙනි එක * වැදගත් -මෙහි your message here යන්නට ඔයාලට කැමති text  එකක් දාගන්න
strText = "your message here" Set objVoice = CreateObject("SAPI.SpVoice") objVoice.Speak strText

4 වෙනි එක * වැදගත් -මෙහි your message here යන්නට ඔයාලට කැමති text  එකක් දාගන්න
Set objVoice = CreateObject("SAPI.SpVoice") Set objFile = CreateObject("SAPI.SpFileStream.1") objFile.Open "c:\Windows\Media\Ding.wav" objVoice.Speakstream objFile Wscript.Echo "your message here"

5 වෙනි එක * වැදගත් -මෙහි your message here යන්නට ඔයාලට කැමති text  එකක් දාගන්න 

lol = msgbox("your message here")

6 වෙනි එක
On Error Resume Next StrAgentName2 = "MERLIN" StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs" Set objAgent2 = CreateObject("Agent.Control.2") ObjAgent2.Connected = TRUE ObjAgent2.Characters.Load strAgentName2, strAgentPath2 Set objPeter = objAgent2.Characters.Character(strAgentName2) ObjPeter.MoveTo 700,300 ObjPeter.Show ObjPeter.Play "GetAttention" ObjPeter.Play "GetAttentionReturn" ObjPeter.Speak("Hi I'm merlin here to take control of your computer") Wscript.Sleep 1000 Set objAction= objPeter.Hide Do While objPeter.Visible = True Wscript.Sleep 250 Loop Wscript.Sleep 100 On Error Resume Next StrAgentName2 = "MERLIN" StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs" Set objAgent2 = CreateObject("Agent.Control.2") ObjAgent2.Connected = TRUE ObjAgent2.Characters.Load strAgentName2, strAgentPath2 Set objPeter = objAgent2.Characters.Character(strAgentName2) ObjPeter.MoveTo 700,300 ObjPeter.Show ObjPeter.Play "GetAttention" ObjPeter.Play "GetAttentionReturn" ObjPeter.Speak("downloading virus . . . 20% . . . 40% . . . 60% . . . 80% . . . 100% virus downloaded") Wscript.Sleep 1000 Set objAction= objPeter.Hide Do While objPeter.Visible = True Wscript.Sleep 250 Loop Wscript.Sleep 100 On Error Resume Next StrAgentName2 = "MERLIN" StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs" Set objAgent2 = CreateObject("Agent.Control.2") ObjAgent2.Connected = TRUE ObjAgent2.Characters.Load strAgentName2, strAgentPath2 Set objPeter = objAgent2.Characters.Character(strAgentName2) ObjPeter.MoveTo 700,300 ObjPeter.Show ObjPeter.Play "GetAttention" ObjPeter.Play "GetAttentionReturn" ObjPeter.Speak("watch as I open your cd drive") Wscript.Sleep 1000 Set objAction= objPeter.Hide Do While objPeter.Visible = True Wscript.Sleep 250 Loop Wscript.Sleep 100 Set oWMP = CreateObject("WMPlayer.OCX.7" ) Set colCDROMs = oWMP.CdromCollection If colCDROMs.Count >= 1 then For I = 0 to colCDROMs.Count - 1 ColCDROMs.Item(I).Eject Next ' cdrom End If Wscript.Sleep 100 On Error Resume Next StrAgentName2 = "MERLIN" StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs" Set objAgent2 = CreateObject("Agent.Control.2") ObjAgent2.Connected = TRUE ObjAgent2.Characters.Load strAgentName2, strAgentPath2 Set objPeter = objAgent2.Characters.Character(strAgentName2) ObjPeter.MoveTo 700,300 ObjPeter.Show ObjPeter.Play "GetAttention" ObjPeter.Play "GetAttentionReturn" ObjPeter.Speak("lol I now open internet explorer") Wscript.Sleep 1000 Set objAction= objPeter.Hide Do While objPeter.Visible = True Wscript.Sleep 250 Loop Wscript.Sleep 100 Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "iexplore http://www.Google.Com", 9 WScript.Sleep 10000 ' Give ie some time to load

7 වෙනි එක * වැදගත් -මෙහි your message here යන්නට ඔයාලට කැමති text  එකක් දාගන්න
On Error Resume Next strAgentName2 = "MERLIN" strAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".acs" Set objAgent2 = CreateObject("Agent.Control.2") objAgent2.Connected = TRUE objAgent2.Characters.Load strAgentName2, strAgentPath2 Set objPeter = objAgent2.Characters.Character(strAgentName2) objPeter.MoveTo 700,300 objPeter.Show objPeter.Play "GetAttention" objPeter.Play "GetAttentionReturn" objPeter.Speak("your message here") Wscript.Sleep 1000 Set objAction= objPeter.Hide Do While objPeter.Visible = True Wscript.Sleep 250 Loop

8 වෙනි එක
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

ලගදීම notepad මඟින් යහළුවන්ට කෙල කරන ආකාරය බලාපොරොත්තුවන්න.
කරුණාකර මෙම බ්ලොග් අඩවියෙහි ඇති තොරතුරු සොරකම් කිරීමෙන් වලකින්න .වෙනත් අඩවියක පල කරන්නේනම් ලින්කුවක් තැබීමට තරම්වත් කාරුනිකවන්න .