홈페이지 제작/JavaScript
[VB스크립트] 말까지 하는 캐릭터 도움말 - 4가지 종류
ANIMANIA
2003. 3. 31. 10:51
스피커에서 영어를 읽어주기도 하는군요..
<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>
반응형