Sub Window_OnLoad()
    ' Purpose:  Runs automatically when page is loaded
    On Error Resume Next

    Dim i

    ' * INSERT ANY NON-AGENT RELATED SCRIPTING HERE
	
	'Set background color for Objeto directo
	
	objetodirecto.style.backgroundcolor = "red"
	
	
    If Not AgentInstalled() Then
        Exit Sub
    End If

    AgentControl.Connected = True

    For i = 1 To CharCount
        Loaded(i) = LoadLocalAgent(CharID(i), CharACS(i))

        If Loaded(i) Then
            Call SetCharObj(i)
        End If
    Next

    Call CheckLoadStatus
		
		ExerciseCode()
	
End Sub