📄 t2s by anoop.htm
字号:
<!-- FILE WRITTEN BY ANOOP M, FOR AGENT DEMONSTRATION -->
<BODY BGCOLOR="WHITE" topmargin=0>
<FONT FACE="verdana,arial,helvetica" SIZE="2">
<table border="0" width="100%">
<tr>
<td bgcolor="#000000"><font color="#FFFFFF" size="5"
face="Arial"><strong>TEXT TO SPEACH CONVERSION</strong></font></td>
</tr>
<tr>
<td><font size="2"><strong>Uses Microsof Agent, Developed
by Anoop M, </strong></font><a
href="mailto:anoopj12@angelfire.com"><font size="2"><strong>anoopj12@angelfire.com</strong></font></a></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><font size="2"><strong>You will be propted for
downloading Microsoft Agent Control and Text To Speach
engine when you view this page, if it is not installed in
your system. Accept the question, and install the controls before trying the code. Also, you need Internet Explorer to view this page (for ActiveX support). Please wait if you have a slow connection. Downloading character......</strong></font></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<OBJECT ID="AgentControl" width=0 height=0
CLASSID="CLSID:F5BE8BD2-7DE6-11D0-91FE-00C04FD701A5"
CODEBASE="http://activex.microsoft.com/controls/agent/msagent.exe#VERSION=1,5,1,0">
</OBJECT>
<OBJECT ID="TruVoice" width=0 height=0
CLASSID="CLSID:B8F2846E-CE36-11D0-AC83-00C04FD97575"
CODEBASE="#VERSION=1,5,0,0">
</OBJECT>
<SCRIPT language=VBScript>
Dim Robby
Sub window_OnLoad
AgentControl.Connected = True
AgentControl.Characters.Load "Robby", "http://agent.microsoft.com/characters/robby/robby.acf"
Set Robby = AgentControl.Characters("Robby")
Robby.Get "State", "Showing, Speaking"
Robby.Show
Robby.Speak "Hello Sir, Now the Time is " + cstr(Time()) + ". Vote For Anoop M, for teaching you this magic!. Download the zip for viewin VB code, and see the readme file in it."
Robby.Get "State", "Hiding"
Robby.Hide
End Sub
</SCRIPT>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -