| 1 | $obj = ObjCreate("InternetExplorer.Application")
|
|---|
| 2 | ObjName_FlagsValue($obj)
|
|---|
| 3 |
|
|---|
| 4 | Func ObjName_FlagsValue(ByRef $obj)
|
|---|
| 5 | Local $sInfo=''
|
|---|
| 6 |
|
|---|
| 7 | $sINFO &= '+>' & @TAB & 'ObjName($obj,1) {The name of the Object} =' & @CRLF & @TAB & ObjName($obj, 1) & @CRLF
|
|---|
| 8 |
|
|---|
| 9 | ; HELPFILE REMARKS: Not all Objects support flags 2 to 7. Always test for @error in these cases.
|
|---|
| 10 | $sINFO &= '+>' & @TAB & 'ObjName($obj,2) {Description string of the Object} =' & @CRLF & @TAB & ObjName($obj, 2)
|
|---|
| 11 | If @error Then $sINFO &= '@error = ' & @error
|
|---|
| 12 | $sINFO &= @CRLF
|
|---|
| 13 |
|
|---|
| 14 | $sINFO &= '+>' & @TAB & 'ObjName($obj,3) {The ProgID of the Object} =' & @CRLF & @TAB & ObjName($obj, 3)
|
|---|
| 15 | If @error Then $sINFO &= '@error = ' & @error
|
|---|
| 16 | $sINFO &= @CRLF
|
|---|
| 17 |
|
|---|
| 18 | $sINFO &= '+>' & @TAB & 'ObjName($obj,4) {The file that is associated with the object in the Registry} =' & @CRLF & @TAB & ObjName($obj, 4)
|
|---|
| 19 | If @error Then $sINFO &= '@error = ' & @error
|
|---|
| 20 | $sINFO &= @CRLF
|
|---|
| 21 |
|
|---|
| 22 | $sINFO &= '+>' & @TAB & 'ObjName($obj,5) {Module name in which the object runs (WIN XP And above). Marshaller for non-inproc objects.} =' & @CRLF & @TAB & ObjName($obj, 5)
|
|---|
| 23 | If @error Then $sINFO &= '@error = ' & @error
|
|---|
| 24 | $sINFO &= @CRLF
|
|---|
| 25 |
|
|---|
| 26 | $sINFO &= '+>' & @TAB & 'ObjName($obj,6) {CLSID of the object''s coclass} =' & @CRLF & @TAB & ObjName($obj, 6)
|
|---|
| 27 | If @error Then $sINFO &= '@error = ' & @error
|
|---|
| 28 | $sINFO &= @CRLF
|
|---|
| 29 |
|
|---|
| 30 | $sINFO &= '+>' & @TAB & 'ObjName($obj,7) {IID of the object''s interface} =' & @CRLF & @TAB & ObjName($obj, 7)
|
|---|
| 31 | If @error Then $sINFO &= '@error = ' & @error
|
|---|
| 32 | $sINFO &= @CRLF
|
|---|
| 33 |
|
|---|
| 34 | ConsoleWrite('! ObjName :' & @CRLF)
|
|---|
| 35 | ConsoleWrite($sINFO & @CRLF)
|
|---|
| 36 | EndFunc ;==>ObjName_Values
|
|---|
