• Home
 · 
• Windows System Services
 · 
• Call Microsoft Agent Control

Call Microsoft Agent Control

Call Microsoft Agent Control

API Declarations


Dim F1 As IAgentCtlCharacter
Dim Genius As IAgentCtlCharacter
Dim Agentsvr As IAgentCtlCharacter
Dim santaclaus As IAgentCtlCharacter
Dim Rocky As IAgentCtlCharacter
Dim Dot As IAgentCtlCharacter
Dim Logo As IAgentCtlCharacter
Dim X As Integer




Rate Call Microsoft Agent Control

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'Soo plzz Follow Me Friends Now U Put One TextBox One Command Button and 2 Timer And Set Their Intervals 1000
'And Now write the following Codes hhahaha.. ?
'search for acs that is installed in ur computer. search *.acs .u will find the agents in ur computer

Private Sub Command1_Click()
Agentsvr.Show
santaclaus.Show
Rocky.Show
Dot.Show
F1.Show
Genius.Show
Logo.Show
Logo.MoveTo Left, IAgentCtl
Genius.MoveTo Top, IAgentCtlRequest
F1.MoveTo Center, Left, IAgentCtlRequest
Dot.MoveTo Center, Top, IAgentCtlRequest
Rocky.MoveTo Center, Left, IAgentCtlRequest
Agentsvr.MoveTo Left, Top, IAgentCtlRequest
santaclaus.Speak Text1.Text
End Sub

Private Sub Form_Load()
 Agent1.Characters.Load "Agentsvr", App.Path & "/Agentsvr.acs "
 Agent1.Characters.Load "santaclaus", App.Path & "/santaclaus.acs"
 Agent1.Characters.Load "Rocky", App.Path & "/Rocky.acs"
 Agent1.Characters.Load "Dot", App.Path & "/Dot.acs"
 Agent1.Characters.Load "F1", App.Path & "/F1.acs"
 Agent1.Characters.Load "Genius", App.Path & "/Genius.acs"
 Agent1.Characters.Load "Logo", App.Path & "/Logo.acs"
    Set santaclaus = Agent1.Characters("santaclaus")
    Set Agentsvr = Agent1.Characters("Agentsvr")
    Set Rocky = Agent1.Characters("Rocky")
    Set Dot = Agent1.Characters("Dot")
    Set F1 = Agent1.Characters("F1")
    Set Genius = Agent1.Characters("Genius")
    Set Logo = Agent1.Characters("Logo")
    Text1.Text = "Haye Friends I am here Because of Vicky ! well Friends If u want to be here Give ur opinion under [email protected] okeys Bye Bey ?"
End Sub
'This Code shows Blinking text "In Out" "In Out" hahaha ?
Private Sub Timer1_Timer()
Static SwitchVal As Boolean
    If SwitchVal Then
        Command1.Caption = "Clik here To call All Agents "
        SwitchVal = Not SwitchVal
    Else
       Command1.Caption = ""
       SwitchVal = Not SwitchVal
    End If
End Sub

Private Sub Timer2_Timer()
Command1.BackColor = RGB(Int(Rnd * 225), Int(Rnd * 225), Int(Rnd * 225))
End Sub
'This will Change The Command Buttons Colors Nonstop
'and U can also Set the Timer Interval For 10 soo that Ur Command Button will Flush Like a Lighting hahaha?