m74.htm

vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程

        <br>
        End Select<br>
        <br>
        End Sub<br>
        <br>
        <br>
        <br>
        /*////////////////////////////////////////////////////////////////////*/<br>
        <br>
        /* 附 完 整 源 程 序 agent.frm */<br>
        <br>
        VERSION 5.00<br>
        <br>
        Object = "{F5BE8BC2-7DE6-11D0-91FE-00C04FD701A5}<br>
        <br>
        #1.5#0"; "AGENTCTL.DLL"<br>
        <br>
        Begin VB.Form Form1<br>
        <br>
        Caption = "Form1"<br>
        <br>
        ClientHeight = 3195<br>
        <br>
        ClientLeft = 60<br>
        <br>
        ClientTop = 345<br>
        <br>
        ClientWidth = 4680<br>
        <br>
        LinkTopic = "Form1"<br>
        <br>
        ScaleHeight = 3195<br>
        <br>
        ScaleWidth = 4680<br>
        <br>
        StartUpPosition = 3 'Windows Default<br>
        <br>
        Begin VB.CommandButton Command3<br>
        <br>
        Caption = "Command3"<br>
        <br>
        Height = 615<br>
        <br>
        Left = 2880<br>
        <br>
        TabIndex = 2<br>
        <br>
        Top = 360<br>
        <br>
        Width = 1095<br>
        <br>
        End<br>
        <br>
        Begin VB.CommandButton Command2<br>
        <br>
        Caption = "Command2"<br>
        <br>
        Height = 615<br>
        <br>
        Left = 1320<br>
        <br>
        TabIndex = 1<br>
        <br>
        Top = 360<br>
        <br>
        Width = 1095<br>
        <br>
        End<br>
        <br>
        Begin VB.CommandButton Command1<br>
        <br>
        Caption = "Command1"<br>
        <br>
        Height = 615<br>
        <br>
        Left = 120<br>
        <br>
        TabIndex = 0<br>
        <br>
        Top = 360<br>
        <br>
        Width = 855<br>
        <br>
        End<br>
        <br>
        Begin AgentObjectsCtl.Agent MyAgent<br>
        <br>
        Left = 360<br>
        <br>
        Top = 2520<br>
        <br>
        End<br>
        <br>
        End<br>
        <br>
        Attribute VB_Name = "Form1"<br>
        <br>
        Attribute VB_GlobalNameSpace = False<br>
        <br>
        Attribute VB_Creatable = False<br>
        <br>
        Attribute VB_PredeclaredId = True<br>
        <br>
        Attribute VB_Exposed = False<br>
        <br>
        <br>
        <br>
        Option Explicit<br>
        <br>
        <br>
        <br>
        Const DATAPATH = "c:\"<br>
        <br>
        <br>
        <br>
        Dim Genie As IAgentCtlCharacter<br>
        <br>
        Dim Robby As IAgentCtlCharacter<br>
        <br>
        Dim GenieRequest1, GenieRequest2 As IAgentCtlRequest<br>
        <br>
        Dim RobbyRequest1 As IAgentCtlRequest<br>
        <br>
        <br>
        <br>
        Private Sub Command1_Click()<br>
        <br>
        Genie.Show<br>
        <br>
        Genie.Play "Suggest"<br>
        <br>
        Set GenieRequest1 = Genie.MoveTo(200, 200)<br>
        <br>
        Set GenieRequest2 = Genie.Play("Searching")<br>
        <br>
        Robby.Wait GenieRequest1<br>
        <br>
        Robby.Show<br>
        <br>
        Robby.Play "Suggest"<br>
        <br>
        Robby.Play "read"<br>
        <br>
        Robby.Play "Congratulate"<br>
        <br>
        Robby.Interrupt GenieRequest2<br>
        <br>
        Genie.Play "write"<br>
        <br>
        Genie.Hide<br>
        <br>
        Robby.Hide<br>
        <br>
        End Sub<br>
        <br>
        <br>
        <br>
        Private Sub Command2_Click()<br>
        <br>
        Genie.MoveTo 100, 200<br>
        <br>
        Genie.Show<br>
        <br>
        Genie.Play "Greet"<br>
        <br>
        Genie.Speak "I am Genie, your most humble and loyal servant."<br>
        <br>
        Genie.Speak "Where is Robby?"<br>
        <br>
        Set GenieRequest1 = Genie.Play("LookLeft")<br>
        <br>
        Robby.Wait GenieRequest1<br>
        <br>
        Robby.MoveTo 250, 200<br>
        <br>
        Robby.Show<br>
        <br>
        Robby.Play "Greet"<br>
        <br>
        Robby.Speak "Sorry for the delay."<br>
        <br>
        Set RobbyRequest1 = Robby.Speak<br>
        <br>
        ("Traffic is really busy today on the Information Superhighway.")<br>
        <br>
        Genie.Wait RobbyRequest1<br>
        <br>
        Genie.Play "LookLeftReturn"<br>
        <br>
        Genie.Speak "Welcome to the release of Microsoft Agent, the new<br>
        <br>
        ActiveX technology that supports interactive characters"<br>
        <br>
        Genie.Speak " 欢 迎 光 临", "c:\welcome.wav"<br>
        <br>
        Genie.Hide<br>
        <br>
        Robby.Hide<br>
        <br>
        End Sub<br>
        <br>
        <br>
        <br>
        Private Sub Command3_Click()<br>
        <br>
        Static initialized As Boolean<br>
        <br>
        <br>
        <br>
        If Not initialized Then<br>
        <br>
        Genie.Commands.Add "Word", "Run Word", "word", True, True<br>
        <br>
        Genie.Commands.Add "Time", "What time is it?", "What time is it?", True, 
        True<br>
        <br>
        Genie.Commands.Add "Bigger", "Bigger", "Bigger", True, True<br>
        <br>
        Genie.Commands.Add "Smaller", "Smaller", "Smaller", True, True<br>
        <br>
        initialized = True<br>
        <br>
        End If<br>
        <br>
        <br>
        <br>
        Genie.Show<br>
        <br>
        Genie.Speak "Can I help you?"<br>
        <br>
        End Sub<br>
        <br>
        <br>
        <br>
        Private Sub Form_Load()<br>
        <br>
        MyAgent.Characters.Load "Genie", DATAPATH &amp; "Genie.acs"<br>
        <br>
        MyAgent.Characters.Load "Robby", DATAPATH &amp; "Robby.acs"<br>
        <br>
        Set Genie = MyAgent.Characters("Genie")<br>
        <br>
        Set Robby = MyAgent.Characters("Robby")<br>
        <br>
        Genie.Show<br>
        <br>
        Genie.Hide<br>
        <br>
        End Sub<br>
        <br>
        <br>
        <br>
        <br>
        <br>
        Private Sub MyAgent_Command(ByVal UserInput As Object)<br>
        <br>
        Select Case UserInput.Name<br>
        <br>
        Case "Time"<br>
        <br>
        Genie.Speak "The time is " &amp; Time<br>
        <br>
        Case "Word"<br>
        <br>
        Genie.Speak "Yes,sir!"<br>
        <br>
        Shell "d:\winword\winword.exe", vbNormalFocus<br>
        <br>
        Case "Bigger"<br>
        <br>
        Genie.Width = Genie.Width * 1.5<br>
        <br>
        Genie.Height = Genie.Height * 1.5<br>
        <br>
        Case "Smaller"<br>
        <br>
        Genie.Width = Genie.Width / 1.5<br>
        <br>
        Genie.Height = Genie.Height / 1.5<br>
        <br>
        End Select<br>
        <br>
        End Sub<br>
        <br>
        </font></span>
<p>&nbsp;</p>
         
  </table>
</div>
<p align="center"><a href="../../pian/vb.htm">回首页</a>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>