Class not registered

[marktech]

I'm trying to use a typelib but it keeps giving me the error "Class not registered" any tips on what can be?
 

Code:

Copy      Help

typelib clInetSuiteX9 {B74F475D-F382-4924-8F1A-92661CD1229D} 9.0

IntGetFile("https://www.quickmacros.com/" str'html)

clInetSuiteX9.clHtmlParser h._create
clInetSuiteX9.IclHtmlTagList t._create("{3A888882-CFEF-4B25-B287-8929F18D4ADD}")

h.Parse(html)

t = h.Links

int i
for i 0 t.Count
,out t.Item(i)

The typelib:
https://pixeldrain.com/u/MmYayBWU

[redbull2k]

It maybe not the right answer but should help you some more.

Function Function2

Code:

Copy      Help

;
RegisterComComponent "$user profile$\Downloads\clinetsuitex9.ocx"
typelib clInetSuiteX9 "$user profile$\Downloads\clinetsuitex9.ocx"

IntGetFile("https://www.quickmacros.com/" str'html)
clInetSuiteX9.clHtmlParser h._create
clInetSuiteX9.IclHtmlTagList t 
h._setevents("sub.h")
h.Parse(html)



#sub h_OnParseForm
function clInetSuiteX9.IclHtmlForm'AForm clInetSuiteX9.IclHtmlParserControl'h



#sub h_OnParseLink
function clInetSuiteX9.IclHtmlLink'ALink ;;clInetSuiteX9.IclHtmlParserControl'h

out "___________________"
out ALink.Href
out ALink.InnerTextPos
out ALink.IsClosingTag
out ALink.IsText
out ALink.LinkText
out ALink.name
out ALink.TagSource
out ALink.Target
out ALink.Text

#sub h_OnParseTag
function clInetSuiteX9.IclHtmlTag'ATag ;;clInetSuiteX9.IclHtmlParserControl'h
out ATag.name
out ATag.InnerTextPos
out ATag.IsClosingTag
out ATag.IsText
out ATag.name
out ATag.TagSource
out ATag.Text

[Kevin]

Have you tried The Qm class HtmlDoc?  example to get links

Code:

Copy      Help

HtmlDoc doc
doc.InitFromWeb("https://www.quickmacros.com")
ARRAY(MSHTML.IHTMLElement) a; int i
doc.GetLinks(a)
for i 0 a.len
,out a[i].innerText
,out a[i].outerHTML
,out "-------"

[marktech]

Thanks for the help guys.