Agent microsoft dans une page html (methode <object>)

Télécharger le projet
Commenter

Description

Et bien un gentil Agent tout jolie ne fera qu'amuser l'utilisateur,voici l'exemple avec une methode <Object></Object> et une manipulation avec VBS,Merci

Source / Exemple : 


<HTML>
<BODY>
<OBJECT id=Agent style="STYLE: Largeur: 53 px; Hauteur: 27 px; gauche: 30 px; haut: 118 px" 
classid=CLSID:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F></OBJECT>
<SELECT id=List1 style="WIDTH: 150px; HEIGHT: 70px; STYLE: Largeur: 181 px; Hauteur: 50 px; gauche: 33 px; haut:100 px" 
size=4 name=List1 value="List1">
<OPTION value=Alert selected>Alert</OPTION>
<OPTION value=Announce>Announce</OPTION>
<OPTION value=Confused>Confused</OPTION>
<OPTION value=Congratulate>Congratulate</OPTION>
<OPTION value=Congratulate 2>Congratulate 2</OPTION>
<OPTION value=Decline>Decline</OPTION>
<OPTION value=DoMagic1>DoMagic1</OPTION>
<OPTION value=DoMagic2>DoMagic2</OPTION>
<OPTION value=DontRecognize>DontRecognize</OPTION>
<OPTION value=Explain>Explain</OPTION>
<OPTION value=GestureDown>GestureDown</OPTION>
<OPTION value=GestureLeft>GestureLeft</OPTION>
<OPTION value=GestureRight>GestureRight</OPTION>
<OPTION value=GestureUP>GestureUP</OPTION>
<OPTION value=GetAttention>GetAttention</OPTION>
<OPTION value=Greet>Greet</OPTION>
<OPTION value=Idle1_1>Idle1_1</OPTION>
<OPTION value=Idle2_1>Idle2_1</OPTION>
<OPTION value=Idle3_1>Idle3_1</OPTION>
<OPTION value=Lookup>LookUp</OPTION>
<OPTION value=Lookdown>LookDown</OPTION>
<OPTION value=lookright>LookRight</OPTION> 
<OPTION value=lookLeft>LookLeft</OPTION>
<OPTION value=LookDownBlink>LookDownBlink</OPTION>
<OPTION value=LookLeftBlink>LookLeftBlink</OPTION>
<OPTION value=LookRightBlink>LookRightBlink</OPTION>
<OPTION value=LookUpBlink>LookUpBlink</OPTION>
<OPTION value=MoveDown>MoveDown</OPTION>
<OPTION value=MoveUp>MoveUp</OPTION>
<OPTION value=MoveLeft>MoveLeft</OPTION>
<OPTION value=MoveRight>MoveRight</OPTION>
<OPTION value=Pleased>Pleased</OPTION>
<OPTION value=Processing>Processing</OPTION>
<OPTION value=Hide>Hide</OPTION>
<OPTION value=Read>Read</OPTION>
<OPTION value=ReadContinued>ReadContinued</OPTION>
<OPTION value=Reading>Reading</OPTION>
<OPTION value=RestPose>RestPose</OPTION>
<OPTION value=Searching>Searching</OPTION>
<OPTION value=StartListening>StartListening</OPTION>
<OPTION value=StopListening>StopListening</OPTION>
<OPTION value=Sad>Sad</OPTION>
<OPTION value=Suggest>Suggest</OPTION>
<OPTION value=Surprised>Surprised</OPTION>
<OPTION value=Show>Show</OPTION>
<OPTION value=Think>Think</OPTION>
<OPTION value=Uncertain>Uncertain</OPTION>
<OPTION value=Wave>Wave</OPTION>
<OPTION value=Write>Write</OPTION>
<OPTION value=WriteContinued>WriteContinued</OPTION>
<OPTION value=Writing>Writing</OPTION>
</SELECT>
<Input Type=Button Value="Annimer" Name=TEC>
<Input Type=Button Value="Stoper" Name=STP>
<p>
<Input Type=Button Value="Parler" Name=Parle>
<Input Type=Text Value="Votre Texte Ici" Name=Prole>
<p>
<Input Type=Button Value="Penser" Name=Pense>
<Input Type=Text Value="Votre Texte Ici" Name=Pensee>
<SCRIPT LANGUAGE=VBSCRIPT>
Agent.connected=true
'Et Bien ici pour cause d'insertitude de l'emplacement de l'agent j'ai choisi 
'de faire appel a Merlin
'mais si vous en savez le chemin de l'agent vous remplacez cette ligne par
'Agent.Characters.load "ID","Chemin du fichier *.acs ou autres compatibles"
'Puis
'Agent.Characters("ID").Show
'Etc...
Agent.Characters.load "ID"
Agent.Characters("ID").Show
Set Merlin=Agent.Characters("ID")

sub parle_onClick()
Merlin.speak Prole.value
end sub

sub PEnse_onClick()
Merlin.think pensee.value
end sub
sub TEC_onClick()
Merlin.Play List1.value
end sub

sub STP_OnClick()
Merlin.Stop
end sub
</Script>
</BODY>
</HTML>
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_MasterHack)