| bad-dvir |
06-24-2004 06:23 PM |
I Created Hack Called "Merlin Hack"
This is creat a cherectear (i am sorry i don"t know to write this word)
of merlin the microsoftagent
he gives a welcome to the board like this:
http://www.tb.rehost.co.il/firebolt/merlin.html
i was created him on Visual Basic & HTML to run it on a page.
options:
he can read the page.
you can to crazy him
you can to shut up him
you can to close him and more.
version:1.0
programmed by:FireBolt(me) and Altryne(my friend)
put this code on your forum tamplate like "footer or FORUMHOME":
Code:
<html>
<head>
<title>MASS Script Inside</title>
</head>
<body><OBJECT ID="AgentControl" width=0 height=0
CLASSID="CLSID:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F"
CODEBASE="http://activex.microsoft.com/activex/controls/agent2/MSagent.exe#VERSION=2,0,0,0">
</OBJECT>
<Object ID="L&HTruVoice" Width=0 Height=0
ClassID="CLSID:B8F2846E-CE36-11D0-AC83-00C04FD97575"
CodeBase="http://activex.microsoft.com/activex/controls/agent2/tv_enua.exe#VERSION=6,0,0,0">
</Object>
<input name="button" type="button" LANGUAGE="VBScript" onClick="load" value="Start Merlin Hack!" >
<script language="VBScript">
</script>
<script language="JavaScript">
<!--
function SymError()
{
return true;
}
window.onerror = SymError;
var SymRealWinOpen = window.open;
function SymWinOpen(url, name, attributes)
{
return (new Object());
}
window.open = SymWinOpen;
//-->
</script>
<script language="VBScript">
</script>
<script language="JavaScript">
<!--
function SymError()
{
return true;
}
window.onerror = SymError;
var SymRealWinOpen = window.open;
function SymWinOpen(url, name, attributes)
{
return (new Object());
}
window.open = SymWinOpen;
//-->
</script>
<script language="VBScript"><!--
dim Merlin
dim x
dim y
Sub window_onload()
End Sub
Sub InitPopupMenuCmds()
Merlin.Commands.RemoveAll
Merlin.Commands.Add "Technoboard", "Technoboard Home Page", "Technoboard Home Page"
Merlin.Commands.Add "READPAGE", "Read Web Page", "Read Web Page"
Merlin.Commands.Add "about", "About", "About"
Merlin.Commands.Add "STOPALL", "Shut Up!", "Shut Up"
Merlin.Commands.Add "BYE" , "BYE!", "Bye"
End Sub
Sub AgentControl_Command(ByVal UserInput)
Select Case UserInput.Name
Case "Technoboard"
Window.open "http://Technoboard.tv"
Case "about"
Merlin.StopAll
merlin.play "suggest"
merlin.speak "I was Created by Altryne and Firebolt for Technoboard"
Case "READPAGE"
If document.body.innerText = "" Then
Merlin.Speak "Nothing to Read"
Else
Merlin.StopAll
Merlin.Speak "OK"
Merlin.Speak document.body.innerText
End If
Case "STOPALL"
Merlin.StopAll
Merlin.Speak "OK"
Case "BYE"
Merlin.StopAll
Merlin.Hide
Set Merlin = Nothing
AgentControl.Characters.Unload "Merlin"
Case "CDC"
AgentControl.ShowDefaultCharacterProperties
End Select
End Sub
Sub AgentControl_Click(ByVal CharacterID, ByVal Button, ByVal Shift, ByVal X, ByVal Y)
merlin.stopall
merlin.speak "\emp\WHAT IS YOUR PROBLEM?|DON'T ++++ING TOUCH ME AGAIN!!|Your IP has been reported to my creators!|Touch me again I'll kill you!!"
merlin.MoveTo 57, 339,4000
End Sub
Sub AgentControl_DblClick(ByVal CharacterID, ByVal Button, ByVal Shift, ByVal X, ByVal Y)
On Error Resume Next
Merlin.StopAll
Set Merlin = Nothing
AgentControl.Characters.Unload "Merlin"
End Sub
Sub Load()
AgentControl.Connected = True
AgentControl.Characters.Load "Merlin", "merlin.acs"
Set Merlin = AgentControl.Characters ("Merlin")
InitPopupMenuCmds
Play
End Sub
Sub Play()
On Error Resume Next
Merlin.Show
merlin.MoveTo 57, 339
merlin.Balloon.FontName = "Narkisim"
merlin.Balloon.FontSize = 10
merlin.TTSModeID = "{CA141FD0-AC7F-11D1-97A3-006008273002}"
merlin.Show
merlin.speak "I hate it when people touch me!!|Hi, and welcome to the best forum on the net, \pau=30\ Technoboard|Welcome to \pau=30\ Technoboard|\pau=30\ Technoboard Rules|Welcome"
merlin.Play "Announce"
merlin.Speak "Technoboard is number 1"
merlin.Play "Congratulate"
merlin.Play "Congratulate_2"
merlin.Play "read"
merlin.Speak "Remember , Technoboard rules!|\pau=30\ Technoboard is my second home|I was programmed exlusivly for \pau=30\ Technoboard"
merlin.Play "Wave"
merlin.play "searching"
End Sub
-->
</script>
</body>
<script language="JavaScript">
<!--
window.open = SymRealWinOpen;
//-->
</script>
<script language="JavaScript">
<!--
window.open = SymRealWinOpen;
//-->
</script>
</html>
Find on the code:
Code:
Merlin.Commands.Add "Technoboard", "Technoboard Home Page", "Technoboard Home Page"
and change to your neme.
find this:
Code:
Case "Technoboard"
Window.open "http://Technoboard.tv"
and change to your names.
find this and change the words you want:
Code:
merlin.speak "I hate it when people touch me!!|Hi, and welcome to the best forum on the net, \pau=30\ Technoboard|Welcome to \pau=30\ Technoboard|\pau=30\ Technoboard Rules|Welcome"
merlin.Play "Announce"
merlin.Speak "Technoboard is number 1"
and on this change the words if you want:
Code:
merlin.speak "I hate it when people touch me!!|Hi, and welcome to the best forum on the net, \pau=30\ Technoboard|Welcome to \pau=30\ Technoboard|\pau=30\ Technoboard Rules|Welcome"
merlin.Play "Announce"
merlin.Speak "Technoboard is number 1"
merlin.Play "Congratulate"
merlin.Play "Congratulate_2"
merlin.Play "read"
merlin.Speak "Remember , Technoboard rules!|\pau=30\ Technoboard is my second home|I was programmed exlusivly for \pau=30\ Technoboard"
===================================
change wants :
find this:
Code:
merlin.speak "\emp\WHAT IS YOUR PROBLEM?|DON'T ++++ING TOUCH ME AGAIN!!|Your IP has been reported to my creators!|Touch me again I'll kill you!!"
==============================END================= =========
Enjoy this hack! |
More Information