Jump to content

New activeX component application - Sysmonitor

Recommended Posts

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:
; 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)
$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

GUISetState ();Show GUI

While 1
    $msg = GUIGetMsg()
        Case $msg = $GUI_EVENT_CLOSE
        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
        Case $msg = $PrefsC
        Case $msg = $StatC

GUIDelete ()

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
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
  • Recently Browsing   0 members

    No registered users viewing this page.

  • Create New...