සොෆ්ට්වෙයාලන්තය|softwarelanthaya: Notepad වැඩකෑලි රොත්තක්ම !!! part-1

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

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

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

1 වෙනි එක

2 වෙනි එක

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

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

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

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 එකක් දාගන්න

8 වෙනි එක

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

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

Share this

Author : Nipuna

Related Posts