스피커에서 영어를 읽어주기도 하는군요..
<body>
<!---아래의 소스를 그대로 복사해서 사용하세요 동작코드하고 문장내용만 바꾸면 됩니다 --->
<OBJECT ID="AgentControl" width=0 height=0 CLASSID="CLSID:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F" CODEBASE="#VERSION=2,0,0,0"></OBJECT>
<OBJECT ID="TruVoice" width=0 height=0 CLASSID="CLSID:B8F2846E-CE36-11D0-AC83-00C04FD97575" CODEBASE="#VERSION=6,0,0,0"></OBJECT>
<SCRIPT language=VBScript>
Dim Genie
Sub window_OnLoad
AgentControl.Connected = True
AgentControl.Characters.Load "Genie", "http://agent.microsoft.com/agent2/chars/genie/genie.acf"
// http://agent.microsoft.com/agent2/chars/genie/genie.acf" 지니
// http://agent.microsoft.com/agent2/chars/merlin/merlin.acf" 머린
// http://agent.microsoft.com/agent2/chars/robby/robby.acf" 로보트
// http://agent.microsoft.com/agent2/chars/peedy/peedy.acf" 앤무새
Set Genie = AgentControl.Characters("Genie")
Genie.LanguageID = &H0409
Genie.Get "State", "Showing, Speaking"
Genie.Get "Animation", "Greet, GreetReturn"
Genie.Show
Genie.Get "State", "Hiding"
Genie.Play "Greet"
Genie.Speak "Welcome to my homepage" '원하는 인삿말을 입력 하세요
Genie.Hide
End Sub
</SCRIPT>
<!--------------------------- 여기까지 ---------------------------->
</body>
<body>
<!---아래의 소스를 그대로 복사해서 사용하세요 동작코드하고 문장내용만 바꾸면 됩니다 --->
<OBJECT ID="AgentControl" width=0 height=0 CLASSID="CLSID:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F" CODEBASE="#VERSION=2,0,0,0"></OBJECT>
<OBJECT ID="TruVoice" width=0 height=0 CLASSID="CLSID:B8F2846E-CE36-11D0-AC83-00C04FD97575" CODEBASE="#VERSION=6,0,0,0"></OBJECT>
<SCRIPT language=VBScript>
Dim Genie
Sub window_OnLoad
AgentControl.Connected = True
AgentControl.Characters.Load "Genie", "http://agent.microsoft.com/agent2/chars/genie/genie.acf"
// http://agent.microsoft.com/agent2/chars/genie/genie.acf" 지니
// http://agent.microsoft.com/agent2/chars/merlin/merlin.acf" 머린
// http://agent.microsoft.com/agent2/chars/robby/robby.acf" 로보트
// http://agent.microsoft.com/agent2/chars/peedy/peedy.acf" 앤무새
Set Genie = AgentControl.Characters("Genie")
Genie.LanguageID = &H0409
Genie.Get "State", "Showing, Speaking"
Genie.Get "Animation", "Greet, GreetReturn"
Genie.Show
Genie.Get "State", "Hiding"
Genie.Play "Greet"
Genie.Speak "Welcome to my homepage" '원하는 인삿말을 입력 하세요
Genie.Hide
End Sub
</SCRIPT>
<!--------------------------- 여기까지 ---------------------------->
</body>
반응형
'홈페이지 제작 > JavaScript' 카테고리의 다른 글
| 마우스 오른쪽 버튼 막기, 자신의 홈페이지 무단링크 못하게 하기. (0) | 2003.07.30 |
|---|---|
| 즐겨찾기 추가 , 시작페이지 설정 (0) | 2003.04.01 |
| 할아버지 마법사(머린) - 도움말 (0) | 2003.03.31 |
| 체크박스를 한꺼번에 선택/해제 하기 (0) | 2001.04.02 |
| 입력창에 한글만 입력받기, 올바른 한글 검사 (0) | 2001.03.28 |
