Sign in to follow this  
Followers 0
kjactive

New activeX component application - Sysmonitor

1 post in this topic

#1 ·  Posted (edited)

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...

; 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 by kjactive

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0