New activeX component application - Sysmonitor

[kjactive]

Well I just love this activex on a sunday evening - a sysmonitor conponent with lots of options - a information tag link is provided to get information from...

The System Monitor is a component which allows you to view a wide variety of system resources. This can help with problem or performance determination on a local or remote computer. Copy and Paste is not included but feel free to change script as one pleases...

expandcollapse popup

; Author:    Kåre Johansson
; AutoIt Version: 3.1.1.55
; Description: Very Simple example: Embedding Sysmon object
; Date:    3 jul 2005

#include <GUIConstants.au3>
$oRP = ObjCreate("Sysmon.3")

GUICreate ( "Embedded SysMonitor control Test", 420, 225, -1, -1,BitOr($WS_OVERLAPPEDWINDOW,$WS_VISIBLE,$WS_CLIPSIBLINGS))
$TagsPageC = GuiCtrlCreateLabel('Visit Tags Page', 5, 200, 100, 15, $SS_CENTER)
GuiCtrlSetFont($TagsPageC,9,400,4)
GuiCtrlSetColor($TagsPageC,0x0000ff)
GuiCtrlSetCursor($TagsPageC,0)
$AboutC = GUICtrlCreateButton('Reset',105,200,70,20)
$PrefsC = GUICtrlCreateButton('Counters',175,200,70,20)
$StatC = GUICtrlCreateButton('Preferences',245,200,70,20)

$GUIActiveX    = GUICtrlCreateObj( $oRP, 10, 10 , 400 , 195 )
$LinkoRP = ObjEvent($oRP,"IEEvent_","Sysmon"); this is a dummy event handle

With $oRP; Object tag pool
    .CollectSample()
    .UpdateGraph() 
EndWith

GUISetState ();Show GUI

While 1
    $msg = GUIGetMsg()
    
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $TagsPageC
            Run(@ComSpec & ' /c start http://www.myplugins.info/guids/typeinfo/typeinfo.php?clsid={C4D2D8E0-D1DD-11CE-940F-008029004347}','', @SW_HIDE)
        Case $msg = $AboutC
            $oRP.Reset()
        Case $msg = $PrefsC
            $oRP.BrowseCounters()
        Case $msg = $StatC
            $oRP.DisplayProperties()
    EndSelect
WEnd

GUIDelete ()
Exit

It's just that dam easy to make all kind of applications with ActiveX, no wonder they invented this component system...

kjactive

Edited July 3, 2005 by kjactive