by vicky J (5 Submissions)
Category: Windows System Services
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 21st December 2004
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
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
VBcoders
'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?
