سید محمد کزازی

    کد اسکریپت :                 <!------lsn.blogfa.com------> <br>< id=AgentControl style="LEFT: 0px; WIDTH: 0px; TOP: 0px" <br>codeBase=../../../../#VERSION=2,0,0,0 height=0 width=0 <br>classid=CLSID:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F VIEWASTEXT></><A <br>href="http://www.mashhadteam.com/"></A><!-- Speech and Agent Files Respectively. There numerous languages available for D/L.--> <br></a><!-- Speech and Agent Files Respectively. There numerous languages available for D/L.-->< LANGUAGE="VB"> <br>Dim Merlin <br>Dim LoadChar <br>Dim CharLink <br>Dim arrSpeech (5) <br>Dim arrHref (3) <br>arrHref (1) = "agentB.htm" <br>arrHref (2) = "agentB.htm" <br>arrHref (3) = "agentB.htm" "You need to adjust the URL"s in order to work. <br> <br> <br>function strSpeech(intval) <br>Set CharLink = Merlin.Speak (arrSpeech (intval)) <br>"newPage = arrHref (intval) <br>end function <br>Sub AgentControl_RequestComplete(ByVal Request) <br> "If Request = CharLink Then <br> " document.location.href = newPage <br> "End If <br>End Sub <br> <br> <br>Public Sub Window_OnLoad() <br>"Set LoadChar = AgentControl.Characters.Load ("Merlin", _ <br>" "C:\Windows\msagent\chars\merlin.acs") "Change to proper root depending on OS. <br> <br>Set LoadChar = AgentControl.Characters.Load ("Merlin") <br> <br> On Error Resume Next <br>Set Merlin = AgentControl.Characters ("Merlin") <br> Merlin.Show <br> Merlin.Speak ("WelCome to lsn") <br> Merlin.MoveTo 100,500 <br> Merlin.GestureRight <br> Merlin.Speak ("saeed_oneboy@yahoo.com") <br> Merlin.MoveTo 500,10 <br> Merlin.Speak ("wWw.lsn.blogfa.com") <br> Merlin.MoveTo 200,10 <br> Merlin.Speak ("All things about Computer") <br> Merlin.MoveTo 300,300 <br> Merlin.Speak ("INTERNET & COMPUTER") <br> Merlin.MoveTo 200,450 <br> Merlin.Speak ("WelCome to lsn") <br> Merlin.MoveTo 500,10 <br> Merlin.Speak ("WelCome to lsn") <br> <br> <br>End Sub <br>Sub AgentControl_DragStart (ByVal ID, ByVal Button, ByVal Shift,ByVal x, ByVal y) <br> Merlin.Play ("Alert") <br> Merlin.Speak ("\Pau=800\\vol=65535\darde eshgh \hamishe \mara\shekast dad ") <br> End Sub <br>Sub AgentControl_DragCOmplete (ByVal ID, ByVal Button, ByVal Shift,ByVal x, ByVal y) <br> Merlin.Play ("RestPose") <br>End Sub <br></></div> <br></span></span> <br><!----------lsn.blogfa.com------> <br></body> <br></html> <br></body> <br></html> <br></body> <br></html> <br></body> <br></html>