.NET Common Language Runtime (CLR) Framework

[ptrex]

Updated Post 1

• v2 of the CLR.au3 optimized by Junkew
• Add AutoItX Assembly Example by ptrex

Edited April 26, 2017 by ptrex

[Iczer]

Is there a some requirements for this UDF to work? Is it work on XP?

i'm getting "Variable must be of type 'Object" and "NULL Pointer assignment" errors in ".NET Access Custom Assembly2.au3" example wich is using standart C:\Program Files (x86)\AutoIt3\Beta\AutoItX\AutoItX3.Assembly.dll (I have beta installed)

Spoiler

expandcollapse popup

.NET Access Custom Assembly2.au3 (527) : ==> COM Error intercepted !
    err.number is:      0x000000A9
    err.windescription: Variable must be of type 'Object'.
    err.description is:     
    err.source is:      
    err.helpfile is:    
    err.helpcontext is:     
    err.lastdllerror is:    0
    err.scriptline is:  527
    err.retcode is:     0x00000000

.NET Access Custom Assembly2.au3 (530) : ==> COM Error intercepted !
    err.number is:      0x00000003
    err.windescription: NULL Pointer assignment
    err.description is:     
    err.source is:      
    err.helpfile is:    
    err.helpcontext is:     
    err.lastdllerror is:    0
    err.scriptline is:  530
    err.retcode is:     0x00000000

.NET Access Custom Assembly2.au3 (534) : ==> COM Error intercepted !
    err.number is:      0x000000A9
    err.windescription: Variable must be of type 'Object'.
    err.description is:     
    err.source is:      
    err.helpfile is:    
    err.helpcontext is:     
    err.lastdllerror is:    0
    err.scriptline is:  534
    err.retcode is:     0x00000000

.NET Access Custom Assembly2.au3 (537) : ==> COM Error intercepted !
    err.number is:      0x00000003
    err.windescription: NULL Pointer assignment
    err.description is:     
    err.source is:      
    err.helpfile is:    
    err.helpcontext is:     
    err.lastdllerror is:    0
    err.scriptline is:  537
    err.retcode is:     0x00000000

.NET Access Custom Assembly2.au3 (541) : ==> COM Error intercepted !
    err.number is:      0x000000A9
    err.windescription: Variable must be of type 'Object'.
    err.description is:     
    err.source is:      
    err.helpfile is:    
    err.helpcontext is:     
    err.lastdllerror is:    0
    err.scriptline is:  541
    err.retcode is:     0x00000000

.NET Access Custom Assembly2.au3 (544) : ==> COM Error intercepted !
    err.number is:      0x00000003
    err.windescription: NULL Pointer assignment
    err.description is:     
    err.source is:      
    err.helpfile is:    
    err.helpcontext is:     
    err.lastdllerror is:    0
    err.scriptline is:  544
    err.retcode is:     0x00000000

.NET Access Custom Assembly2.au3 (559) : ==> COM Error intercepted !
    err.number is:      0x000000A9
    err.windescription: Variable must be of type 'Object'.
    err.description is:     
    err.source is:      
    err.helpfile is:    
    err.helpcontext is:     
    err.lastdllerror is:    0
    err.scriptline is:  559
    err.retcode is:     0x00000000

.NET Access Custom Assembly2.au3 (574) : ==> COM Error intercepted !
    err.number is:      0x000000A9
    err.windescription: Variable must be of type 'Object'.
    err.description is:     
    err.source is:      
    err.helpfile is:    
    err.helpcontext is:     
    err.lastdllerror is:    0
    err.scriptline is:  574
    err.retcode is:     0x00000000

.NET Access Custom Assembly2.au3 (579) : ==> COM Error intercepted !
    err.number is:      0x00000003
    err.windescription: NULL Pointer assignment
    err.description is:     
    err.source is:      
    err.helpfile is:    
    err.helpcontext is:     
    err.lastdllerror is:    0
    err.scriptline is:  579
    err.retcode is:     0x00000000

$oAssembly: 0
.NET Access Custom Assembly2.au3 (10) : ==> COM Error intercepted !
    err.number is:      0x000000A9
    err.windescription: Variable must be of type 'Object'.
    err.description is:     
    err.source is:      
    err.helpfile is:    
    err.helpcontext is:     
    err.lastdllerror is:    0
    err.scriptline is:  10
    err.retcode is:     0x00000000

$pAssemblyType = 0x00000000
.NET Access Custom Assembly2.au3 (13) : ==> COM Error intercepted !
    err.number is:      0x00000003
    err.windescription: NULL Pointer assignment
    err.description is:     
    err.source is:      
    err.helpfile is:    
    err.helpcontext is:     
    err.lastdllerror is:    0
    err.scriptline is:  13
    err.retcode is:     0x00000000

IsObj( $oAssemblyType ) = 0
.NET Access Custom Assembly2.au3 (19) : ==> COM Error intercepted !
    err.number is:      0x000000A9
    err.windescription: Variable must be of type 'Object'.
    err.description is:     
    err.source is:      
    err.helpfile is:    
    err.helpcontext is:     
    err.lastdllerror is:    0
    err.scriptline is:  19
    err.retcode is:     0x00000000

.NET Access Custom Assembly2.au3 (21) : ==> COM Error intercepted !
    err.number is:      0x000000A9
    err.windescription: Variable must be of type 'Object'.
    err.description is:     
    err.source is:      
    err.helpfile is:    
    err.helpcontext is:     
    err.lastdllerror is:    0
    err.scriptline is:  21
    err.retcode is:     0x00000000

 

 

[junkew]

V2 of .net should be the base. How are the other examples working?

[Iczer]

I vave v2 and? as i remember, up to 3.5

only working example is ".NET COM Objects Example.au3" wich give some random number System.Random # : 67

other are error out like "Variable must be of type 'Object" and "NULL Pointer assignment"

or silent or hung like .NET Enum Classes.au3

btw i'm on xp64

[junkew]

See post 15 

as xp is not supported by ms anymore i have no clue but try to install v4.x and try again

[Iczer]

I get:

--> Press Ctrl+Alt+Break to Restart or Ctrl+Break to Stop
 ’®¬ ў гбва®©б⢥ C ­Ґ Ё¬ҐҐв ¬ҐвЄЁ.
 ‘ҐаЁ©­л© ­®¬Ґа ⮬ : B01B-0700

 ‘®¤Ґа¦Ё¬®Ґ Ї ЇЄЁ C:\WINDOWS\Microsoft.Net\Framework

23.05.2016  20:22    <DIR>          v1.1.4322
24.05.2016  11:10    <DIR>          v2.0.50727
23.05.2016  20:22    <DIR>          v3.0
23.05.2016  20:23    <DIR>          v3.5
               0 д ©«®ў              0 Ў ©в
               4 Ї Ї®Є  48я747я728я896 Ў ©в бў®Ў®¤­®

+>21:04:41 AutoIt3.exe ended.rc:0

 

[junkew]

UDF is build with version 4 

Local $sNETFrameworkVersion = "v4.0.30319"

And for the moment no effort to make it working for lower versions (classes like System.Reflection , System.Runtime.InteropServices) are not available below V4

 

[Iczer]

Thanks, I try to install v4 and then recheck

[ptrex]

Updated Post 1

• v2a of the CLR.au3 optimized Examples by Danyfirex
• Corrected AutoItX Assembly Example
• Extended System Activator Example form Junkew

[ptrex]

Updated Post 1 - Release CLRv3.0

• CLR Change GetMembers Tag (Danyfirex)

• Added SafeArrayGetElement (Junkew)

• Add changes SafeArrayAccessData  & SafeArrayUnAccessData  in Examples (Larsj)

• Add Example GetTypes and GetMembers (Danyfirex)

• Add Example Run EXE from Memory (Danyfirex)

Edited May 18, 2017 by ptrex

[mLipok]

Would you be so nice and show any single example showing how to use this component :

http://dotnetzip.codeplex.com/

I know there is ComVisible in this component but this would be a good example.

EDIT:
I will make an example using a COM object, and thanks to this, everyone will be able to compare both ways, which will make learning CLR easier for those who use COM.

Edited June 4, 2017 by mLipok

[ptrex]

Like this :

expandcollapse popup

#include "CLR.Au3"

Example0() ; DotNEtZip

Func Example0()
    local $oActivator=getActivator()

    Local $aText[] = ["C:\Users\Downloads\DotNetZip\zip-v1.9\Release\Ionic.Zip.dll", "Ionic.Zip.ComHelper"] ;Set correct assembly path

    Local $pObject = 0
    $oActivator.InvokeMember_3("CreateComInstanceFrom", 0x158, 0, 0, CreateSafeArray($aText), $pObject)
    ConsoleWrite("IsObject: " & IsObj($pObject) & @TAB & "$pObject: " & ObjName($pObject) & @CRLF)

    Local $oObject = $pObject.Unwrap()
    ConsoleWrite("!$oMembership: " & IsObj($oObject) & @CRLF)
    consolewrite("!IsZipfile : " & $oObject.IsZipFile("C:\Users\Downloads\DotNetZip\DotNetZipLib-DevKit-v1.9.zip") & @CRLF)
    MsgBox(0,"GetZipLibraryVersion", $oObject.GetZipLibraryVersion)

EndFunc   ;==>Example


func getActivator()
    Local $oAssembly = _CLR_LoadLibrary("mscorlib")
    Local $ptActivator = 0
    $oAssembly.GetType_2("System.Activator", $ptActivator)
    Local $oActivator = ObjCreateInterface($ptActivator, $sIID_IType, $sTag_IType)

;~  ConsoleWrite("$oAssembly: " & IsObj($oAssembly) & @CRLF)
;~  ConsoleWrite("$pAssemblyType = " & Ptr($ptActivator) & @CRLF)
;~  ConsoleWrite("IsObj( $oAssemblyType ) = " & IsObj($oActivator) & @TAB & @CRLF)

    return $oActivator
endfunc


func getActivator()
    Local $oAssembly = _CLR_LoadLibrary("mscorlib")
    Local $ptActivator = 0
    $oAssembly.GetType_2("System.Activator", $ptActivator)
    Local $oActivator = ObjCreateInterface($ptActivator, $sIID_IType, $sTag_IType)

;~  ConsoleWrite("$oAssembly: " & IsObj($oAssembly) & @CRLF)
;~  ConsoleWrite("$pAssemblyType = " & Ptr($ptActivator) & @CRLF)
;~  ConsoleWrite("IsObj( $oAssemblyType ) = " & IsObj($oActivator) & @TAB & @CRLF)

    return $oActivator
endfunc

 

[mLipok]

I'll see tonight (I hope), I'm going to the park in a moment.

[ptrex]

Update Post 1 - Release CLRv3a

- added CLR Constants.au3 - Danyfirex
    - Global Constants added (Magic numbers)

- added .NET CLR CreateObject vs ObjCreate Example.au3 - Junkew
         • 2 approaches give the same result (only valid for COM Visible Assembly)
         • Includes a function that shows you which Assembly Classes are COM Visible

- added .Net Conventional COM Objects Examples - ptrex

- added .NET CLR CreateComInstanceFrom Example - Danyfirex
    - You can use it for Regfree COM Assembly Access
    - System.Activator has 4 methods :
        • CreateComInstanceFrom : Used to create instances of COM objects.
        • CreateInstanceFrom : Used to create a reference to an object from a particular assembly and type name.
        • GetObject : Used when marshaling objects.
        • CreateInstance : Used to create local or remote instances of an object.

- added .NET Access SafeArrays Using AccVarsUtilities Example - LarsJ
- added SafeArray Utilities functions in Includes - LarsJ 

- added .NET Access Native MSCorLib Classes - System - ptrex
    Multiple System Class Examples :
         • System.Random
         •  System.DateTime
         •  System.Diagnostics.PerformanceCounter
         •  System.IO.FileInfo
         •  System.Int32
         •  System.Double
         •  System.Speech
         • System.Web

- added Third Party Assembly Access - ptrex
         • WinSCP : https://winscp.net/eng/download.php
         • IonicZip : http://dotnetzip.codeplex.com/

Edited June 7, 2017 by ptrex

[mLipok]

I am still weak with NET, and I do not have time to look at your work closely, but I am full of enthusiasm and admiration for the progress you are making here.
EDIT: I mean all involved in to this project.

Edited June 7, 2017 by mLipok

[ptrex]

mLipok, thanks for the feedback... 

Hopefully more people will join to give input and use case examples ...

In the meantime we continue exploring how far .NET CLR integration can bring us...  

[tarretarretarre]

this looks cool!

 

Any git?

[LarsJ]

Bottom of first post.

[ptrex]

Hi All,

Added a Quick Reference eBook .NET CLR Framework for AutoIT.pdf to post 1.

Which is a summary of all technical articles headlines we posted before, In order to give everyone interested in .NET CLR a good starting point to get going.

Please let me know if this is helpfull...

[STetters]

Hi All,

 

Apologies for the noob question but I am very interested by the winscpnet integration but the example provide in the download (.NET CLR Access ThirdParty Assembly Examples.au3) does not really clarify the syntax require to establish a session. 

Any guidance on how the parameters for the session (site / user /password etc) are passed using autoit to establish a session and perhaps how a file would subsequently be transferred would be of great benefit.

Many thanks in advance.