New embedded activeX component - CoverED

[kjactive]

This is just a small example of a free CD/DVD CoverEditor component flowting around on my computer that I found in the list of activeX components ( got to be populare ) - well no functions is attached as I do not do Covers on my CDs / DVD collections and therefore can't test the functions but a link tag is included to get some information on all tags included on this little fellow...

expandcollapse popup

; Author:    Kåre Johansson
; AutoIt Version: 3.1.1.55
; Description: Very Simple example: Embedding CoverED object
; Needs CoverEdCtrl.ocx in the system32 and reg. in system components with Run 'regsvr32 CoverEdCtrl.ocx'
; Date:    3 jul 2005

#include <GUIConstants.au3>
$oRP = ObjCreate("COVEREDCTRL.CoverEdCtrl.1")

GUICreate ("Embedded CoverEd control Test", 620, 425, -1, -1,BitOr($WS_OVERLAPPEDWINDOW,$WS_VISIBLE,$WS_CLIPSIBLINGS))
$TagsPageC = GuiCtrlCreateLabel('Visit Tags Page', 5, 405, 100, 15, $SS_CENTER)
GuiCtrlSetFont($TagsPageC,9,400,4)
GuiCtrlSetColor($TagsPageC,0x0000ff)
GuiCtrlSetCursor($TagsPageC,0)
$AboutC = GUICtrlCreateButton('Empty',105,400,70,20)
$PrefsC = GUICtrlCreateButton('Empty',175,400,70,20)
$StatC = GUICtrlCreateButton('Empty',245,400,70,20)

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

With $oRP; Object tag pool
    
EndWith

GUISetState ();Show GUI

While 1
    $msg = GUIGetMsg()
    
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $TagsPageC
            Run(@ComSpec & ' /c start [url=http://www.myplugins.info/guids/typeinfo/typeinfo.php?clsid={59FA1D1E-3B4C-4311-BB1B-7BF16C607388}','']http://www.myplugins.info/guids/typeinfo/t...#39;,''[/url], @SW_HIDE)
    EndSelect
WEnd

GUIDelete ()
Exit

Needs the file CoverEdCtrl.ocx in system32 and registation with the command in run 'regsvr32 CoverEdCtrl.ocx' - that's all and impresive this component is...

kjactive

Edited July 3, 2005 by kjactive