-
Notifications
You must be signed in to change notification settings - Fork 1
Open
Description
What is yours opinion about adding _NetWebView2_ObjName_FlagsValue() in order to examine object
Func _NetWebView2_ObjName_FlagsValue(ByRef $oObj)
Local $sInfo = ''
$sInfo &= '+>' & @TAB & 'ObjName($oObj,1) {The name of the Object} =' & @CRLF & @TAB & ObjName($oObj, $OBJ_NAME) & @CRLF
; HELPFILE REMARKS: Not all Objects support flags 2 to 7. Always test for @error in these cases.
$sInfo &= '+>' & @TAB & 'ObjName($oObj,2) {Description string of the Object} =' & @CRLF & @TAB & ObjName($oObj, $OBJ_STRING)
If @error Then $sInfo &= '@error = ' & @error
$sInfo &= @CRLF & @CRLF
$sInfo &= '+>' & @TAB & 'ObjName($oObj,3) {The ProgID of the Object} =' & @CRLF & @TAB & ObjName($oObj, $OBJ_PROGID)
If @error Then $sInfo &= '@error = ' & @error
$sInfo &= @CRLF & @CRLF
$sInfo &= '+>' & @TAB & 'ObjName($oObj,4) {The file that is associated with the object in the Registry} =' & @CRLF & @TAB & ObjName($oObj, $OBJ_FILE)
If @error Then $sInfo &= '@error = ' & @error
$sInfo &= @CRLF & @CRLF
$sInfo &= '+>' & @TAB & 'ObjName($oObj,5) {Module name in which the object runs (WIN XP And above). Marshaller for non-inproc objects.} =' & @CRLF & @TAB & ObjName($oObj, $OBJ_MODULE)
If @error Then $sInfo &= '@error = ' & @error
$sInfo &= @CRLF & @CRLF
$sInfo &= '+>' & @TAB & 'ObjName($oObj,6) {CLSID of the object''s coclass} =' & @CRLF & @TAB & ObjName($oObj, $OBJ_CLSID)
If @error Then $sInfo &= '@error = ' & @error
$sInfo &= @CRLF & @CRLF
$sInfo &= '+>' & @TAB & 'ObjName($oObj,7) {IID of the object''s interface} =' & @CRLF & @TAB & ObjName($oObj, $OBJ_IID)
If @error Then $sInfo &= '@error = ' & @error
$sInfo &= @CRLF & @CRLF
ConsoleWrite($sInfo & @CRLF)
EndFunc ;==>_NetWebView2_ObjName_FlagsValue
Metadata
Metadata
Assignees
Labels
No labels