• Home
 · 
• Miscellaneous
 · 
• using microsoft agent

using microsoft agent

using microsoft agent

API Declarations


Dim co As IAgentCtlCharacter
'Dim co2 As IAgentCtlCharacter
Dim pa As String
'Dim pa2 As String



Rate using microsoft agent

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Call co.Speak("Dont Hit Me ...")

co.Speak (" Stop ..  Stop   .. shame shame i am for ur help.... and you are hitting me..  ")
End Sub

Private Sub ag_Move(ByVal CharacterID As String, ByVal x As Integer, ByVal y As Integer, ByVal Cause As Integer)
'


End Sub

Private Sub ag2_Click(ByVal CharacterID As String, ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Integer, ByVal y As Integer)
'co2.Speak ("second Character")
End Sub

Private Sub Command1_Click()
pa = "f:\irfan\"
'pa2 = "d:\winnt\msagent\chars\"
Call ag.Characters.Load("merlin", pa & "merlin.acs")
Set co = ag.Characters("merlin")
' second character"
'Call ag2.Characters.Load("merlin", pa & "merlin.acs")
'Set co2 = ag2.Characters("merlin")
'Call co.MoveTo(Form1.Left = 2760, Form1.Top = 2160)
co.Show
'co2.Show
End Sub

Private Sub Command2_Click()
ms = Text1.Text
co.Speak (ms)
End Sub

Private Sub Form_Activate()
pa = "d:\winnt\msagent\chars\"
'pa2 = "d:\winnt\msagent\chars\"
Call ag.Characters.Load("genie", pa & "genie.acs")
Set co = ag.Characters("genie")
' second character"
'Call ag2.Characters.Load("merlin", pa & "merlin.acs")
'Set co2 = ag2.Characters("merlin")
'Call co.MoveTo(Form1.Left = 2760, Form1.Top = 2160)
co.Show
co.Left = 500
'co2.Show
Label3.FontBold = True
Label3.FontBold = True
co.Speak ("Hello Unknown User  ...  I Am your Pakistani Geni ....       type Your Text In text Box Below .... And press .... Speak Button ......  Thank You")
End Sub

Private Sub Text1_Change()

End Sub