Ticket #2732: ObjName[2].au3

File ObjName[2].au3, 1.6 KB (added by mLipok, 11 years ago)
Line 
1$obj = ObjCreate("InternetExplorer.Application")
2ObjName_FlagsValue($obj)
3
4Func 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)
36EndFunc   ;==>ObjName_Values