03-12-2022, 02:04 AM
It maybe not the right answer but should help you some more.
Function Function2
Function Function2
;
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