Vbs Script Merlin

Vbs Script Merlin

Awesome
  27% (5)
Cool
  22% (4)
Works
  22% (4)
Other
  11% (2)
Doesnt work
  5% (1)
Annoying
  5% (1)
Poor
  5% (1)

Total Votes: 18

Author Message
CØLLØSUS

  • Total Posts : 21
  • Scores: 2
  • Reward points : 0
  • Joined: 1/3/2011
  • Status: offline
Vbs Script Merlin Saturday, January 22, 2011 9:53 PM (permalink)
0
This one is fun
=========================================================
 
 

On Error Resume Next
Set wshShell = wscript.CreateObject("WScript.Shell")
Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
set shell = CreateObject("Wscript.Shell")
Set objScriptExec = objShell.Exec("shutdown -a")
set objShell = CreateObject("WScript.Shell")
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 "Announce"
objPeter.Play "Announce"
objPeter.Play "Announce"
objPeter.Play "Announce"
objPeter.Play "Announce"
Wsh.Run "Notepad.exe", 1
wscript.sleep 1200
wshshell.sendkeys "(HI!, you got hacked )"
wscript.sleep 1200
wshshell.sendkeys "~(you know, i wouldn't wanna be you right now.....)"
wscript.sleep 1200
objPeter.Play "DoMagic1"
wshshell.sendkeys "~(and guess what!!!!)"
wscript.sleep 1200
wshshell.sendkeys "~(guess cmon!)"
wscript.sleep 2000
wshshell.sendkeys "~(there is nothing, you can do about it!)"
wscript.sleep 2000
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
objPeter.Play "DoMagic2"
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
wshshell.sendkeys "{bs}"
wscript.sleep 50
ObjPeter.Play "GetAttention"
ObjPeter.Play "GetAttentionReturn"
ObjPeter.Speak("Hello Your Computer Got Hacked")
ObjPeter.MoveTo 300,100
ObjPeter.Show
ObjPeter.Speak("first im just gonna go through some system32 files and see what i can find...")
Wscript.Sleep 1000
ObjPeter.MoveTo 300,100
ObjPeter.Show
ObjPeter.Play "GetAttention"
ObjPeter.Play "GetAttentionReturn"
ObjPeter.Speak("hold on im gonna delete some stuff in there... good bye windows!")
Wscript.Sleep 1000
ObjPeter.MoveTo 100,50
Wscript.Sleep 1000
ObjPeter.MoveTo 600,50
ObjPeter.MoveTo 200,500
ObjPeter.Show
ObjPeter.Play "GetAttention"
ObjPeter.Play "GetAttentionReturn"
ObjPeter.Speak("well, it's all gone.. changes will take affect on reboot")
ObjPeter.Show
ObjPeter.Play "GetAttention"
ObjPeter.Play "GetAttentionReturn"
ObjPeter.Speak("thinking to yourself that you will never restart? let me help you out!")
ObjPeter.Speak("Goodbye")
objPeter.Play "Wave"
Set objAction= objPeter.Hide
Do While objPeter.Visible = True
loop
wsh.run "shutdown.exe -s -t 100"
Wscript.Sleep 8000
Wsh.Run "%SystemRoot%\system32\cmd.exe"
Set objShell = CreateObject("WScript.Shell")
Set objScriptExec = objShell.Exec("shutdown -a")
strIpConfig = objScriptExec.StdOut.ReadAll
objShell.SendKeys "Exit"
objShell.SendKeys "{Enter}"
Wscript.Sleep 1000
lol=msgbox("warning an unknown virus has been detected please reformat c drive to prevent damage to your computer",16, "error")
lol=msgbox("now click ok to see what to do",16, "error")
lol=msgbox("you have clicked ok, click ok to continue ",16, "error")
Dim box, yes, no
box = MsgBox("would you like to delete the virus?",52,"error")
If box =6 Then
yes = MsgBox("Virus cannot be deleted",48,"error")
End if
If box =7 Then
no = msgbox("why the hell would you click no? are you Wierdo???",32,"Wierdo!!!")
End If
lol=msgbox("windows is working on virus ",16, "error")
lol=msgbox("processing... ",16, "error")
lol=msgbox("processing... ",16, "error")
lol=msgbox("near completion... ",16, "error")
lol=msgbox("windows has failed to detain the virus ",16, "error")
lol=msgbox("the virus is over riding windows and taking command of this box ",16, "major error")
lol=msgbox("hahaha!!! this is the hacker that has broken into your computer! ",16, "hacker response:")
lol=msgbox("there is no hope to get rid of me ",16, "hacker response:")
lol=msgbox("i have destroyed your firewall and bybassed your virus software ",16, "hacker response:")
lol=msgbox("by the time i am done, your computer will be history! ",16, "hacker response:")
lol=msgbox("wait??? what the hell? ",16, "hacker response:")
Msgbox ",TROYJAN HORSE!",48,"Virus"
lol=msgbox("what the hell are you doing to my computer? ",16, "hacker response:")
lol=msgbox("windows is fighting the hacker, please be patient... ",48, "windows anti error")
lol=msgbox("windows has taken control of hackers computer... ",48, "windows anti error")
lol=msgbox("windows has notified police of the hackers location... ",48, "windows anti error")
lol=msgbox("windows has kicked the hackers ass ",48, "windows anti error")
lol=msgbox("hacker destroyed ",48, "windows anti error")
lol=msgbox("your computer has been restored fully ",64, "windows anti error")
lol=msgbox("thank you for your time and on behalf of windows we apologize for this event ",64, "windows anti error")
lol=msgbox("you may now go about your business ",64, "windows anti error")
lol=msgbox("sincerely, windows antivirus team ",64, "no error")
Msgbox "Now some Serious work",48,"Hacker Says:"
lol=msgbox("Haha this was all just a joke i bet you fell for it haha")
lol=msgbox(" Cølløsus (The Best ^^)",64, "Created by~")

 
#1
    ebgreen

    • Total Posts : 8227
    • Scores: 98
    • Reward points : 0
    • Joined: 7/12/2005
    • Status: offline
    Re:Vbs Script Merlin Wednesday, January 26, 2011 8:36 AM (permalink)
    1
    Repeatedly voting for yourself?
    "... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
    Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
    http://www.visualbasicscript.com/m_47117/tm.htm
     
    #2

      Online Bookmarks Sharing: Share/Bookmark

      Jump to:

      Current active users

      There are 0 members and 1 guests.

      Icon Legend and Permission

      • New Messages
      • No New Messages
      • Hot Topic w/ New Messages
      • Hot Topic w/o New Messages
      • Locked w/ New Messages
      • Locked w/o New Messages
      • Read Message
      • Post New Thread
      • Reply to message
      • Post New Poll
      • Submit Vote
      • Post reward post
      • Delete my own posts
      • Delete my own threads
      • Rate post

      2000-2012 ASPPlayground.NET Forum Version 3.9