[VB스크립트] 말까지 하는 캐릭터 도움말 - 4가지 종류

홈페이지 제작/JavaScript 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>
반응형

'홈페이지 제작 > JavaScript' 카테고리의 다른 글

마우스 오른쪽 버튼 막기, 자신의 홈페이지 무단링크 못하게 하기.  (0) 2003.07.30
즐겨찾기 추가 , 시작페이지 설정  (0) 2003.04.01
할아버지 마법사(머린) - 도움말  (0) 2003.03.31
체크박스를 한꺼번에 선택/해제 하기  (0) 2001.04.02
입력창에 한글만 입력받기, 올바른 한글 검사  (0) 2001.03.28
,

티스토리툴바