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

Soyez le premier à donner votre avis sur cette source.

Vue 8 024 fois - Téléchargée 479 fois

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>

Codes Sources

A voir également

Ajouter un commentaire Commentaires
ifebo Messages postés 181 Date d'inscription jeudi 10 mars 2005 Statut Membre Dernière intervention 28 décembre 2006
27 nov. 2005 à 08:45
Bonjour, je ne sais si je suis à côté de la plaque, mais plutôt que d'aller fouiller dans la base de registre, il est plus simple, je crois, d'aller à :C:\WINDOWS\msagent\chars et là, clic droit sur un objet.acs et propriétés. On trouve alors deux clefs à l'onglet version :
GUID : {************ }
TTS Mode ID :{************ }
(A cet instant, j'ignore comment utiliser ces clefs)
Mais comme je ne m'y connais pas trop, ce n'est peut-être pas la réponse à la question. Pouvez vous me le confirmer pour m'éclairer un peu ?
Personnellement, j'utilise un VBScript qui appel directement le fichier .acs Merlin.acs par exemple et ensuite toute la programmation se fait sans jamais répéter le nom de Merlin. Si bien que l'on a l'avantage si on veut changer de personnage de n'avoir en tout et pour tout que deux fois le nom de merlin à remplacer par un autre. Il faut juste s'assurer que les fonctions de l'un sont également utilisées par l'autre.
VOICI UN EXEMPLE : Copier/coller la page html ci-dessous.
<HTML>
<HEAD>
<TITLE>MSAGENT</TITLE>

<SCRIPT LANGUAGE= "VBScript">
//MSAGENT

Dim C
Dim URLReq
Dim ShowAnimReq
Sub Window_OnLoad()
LoadCharacter
End Sub
Sub LoadCharacter()
Dim Req
On Error Resume Next

Set Req = Agent.Characters.Load ("Char", "Merlin.acs")
If Req.Status <> 0 Then
Set URLReq = Agent.Characters.Load("Char", "C:\WINDOWS\msagents\Merlin.acs")
// URL Microsoft pour installer l'agent sur Internet : http://agent.microsoft.com/agent2/chars/merlin/merlin.acf
Else
Set C = Agent.Characters("Char")
Start
End If
End Sub
Sub Agent_RequestComplete(ByVal Request)
Dim Req

If Request = URLReq Then
If Request.Status = 1 Then
'Something to do if the URl load failed.. Busy server
Exit Sub
ElseIf Request.Status = 0 Then
Set C = Agent.Characters("Char")
Set ShowAnimReq = C.Get("state", "showing, speaking, hiding")
C.Get "animation", "Blink", False
End If
ElseIf Request = ShowAnimReq Then
If Request.Status = 1 Then
'Request to load the Show animation failed. The server may be busy.
Exit Sub
ElseIf Request.Status = 0 Then
Start
End If
End If
End Sub
Sub Start()


C.Show
C.MoveTo 444,180
C.Play "Pleased"
C.speak "Bonjour."
C.speak "Je peux m'exprimer à voix haute."
C.think "Je peux aussi faire des aparthés."
C.speak "\chr=""whisper""\Je peux me montrer discret en chuchotant."
C.Speak "\pit=400\\spd=250\Je peux également parler à toute vitesse !"
C.Speak "\pit=50\\spd=50\Ou même au ralenti !"
C.Speak "Et faire des pauses, allant de une à dix secondes."
C.Speak "\pau=10000"
C.Play "Explain"
C.speak "Au revoir !"
C.Play "Wave"
C.Hide

End Sub

</SCRIPT>


<!-- Start VB Script -->
<OBJECT ID="Agent" width=0 height=0 CLASSID="CLSID:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F" CODEBASE="#VERSION=2,0,0,0"></OBJECT>

</HEAD>








TEST MSAGENT


C.Show
C.MoveTo 300,300 //left/top ou x/y
C.Play "Pleased"
C.speak "Bonjour."
C.speak "Je peux m'exprimer à voix haute."
C.think "Je peux aussi faire des aparthés."
C.speak "\chr =""whisper""\Je peux me montrer discret en chuchotant."
C.Speak "\pit= 400\\spd=250\Je peux également parler à toute vitesse !"
C.Speak "\pit=50\\spd=50\Ou même au ralenti !" //pit=de 50 à 400 spd=de 50 à 250
C.Speak "Et faire des pauses, allant de une à dix secondes."
C.Speak "\pau =10000" //Temps en milisecondes
C.Play "Explain"
C.speak "Au revoir !"
C.Play "Wave"
C.Hide





</HTML>

Voilà en espérant avoir rendu service à qq.
cs_MasterHack Messages postés 586 Date d'inscription jeudi 18 septembre 2003 Statut Membre Dernière intervention 13 février 2008 2
2 juin 2005 à 20:03
utlises la fonction Merlin.moveto
cs_Songeur Messages postés 3 Date d'inscription samedi 24 avril 2004 Statut Membre Dernière intervention 20 novembre 2007
2 juin 2005 à 18:38
Bonjour, et merci pour cette source
je tourne en rond a essayer de faire déplacer à un endroit voulu l'Agent....
mais rien a faire...
quelqu'un aurait l'astuce ?

Merci d'avance
cs_MasterHack Messages postés 586 Date d'inscription jeudi 18 septembre 2003 Statut Membre Dernière intervention 13 février 2008 2
3 déc. 2004 à 18:58
avec des Dllactivex oui mais pas avec des exeactivex
mais je vais essayer .Merci
Morricon Messages postés 41 Date d'inscription lundi 23 décembre 2002 Statut Membre Dernière intervention 1 mars 2007
3 déc. 2004 à 15:41
Vraiment génial !

Si ! Si ! J'ai essayé de faire des chose similaire en utilisant les exe document activeX et application DHTML de vb, et j'avoue ne pas avoir eu le même résultat.

Cependant, et si j'ai bien compris ta dernière remarque, il est possible d'intégrer un exe VB ? Et si faut'il lui donner une forme particulière : '(Exe normal ou exe activeX par exemple)

J'ai déjà fait des exe ActiveX qi se lance dans Ie, mais j'ai rencontré des problèmes de sécurité de la part d'IE. En fait il fonctionnait sur ma station, mais pas sur celle d'un collègue (Pas de signature qu'il disait !)

A tu essayé avec un prog VB d'origine ?

Note : 10/10
Afficher les 7 commentaires

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.