AutoHotkey Community

Code: Select all

#SingleInstance, Force

loop {
    testMemoryLeak()
}
Return

~Esc::ExitApp

testMemoryLeak() {
    
    _sGUID         := CreateGUID()
    _o := new TestObjRegisterActive
    ObjRegisterActive( _o, _sGUID )

    _sPath         := A_ScriptDir "\Remote.ahk"
    Run, "%A_AhkPath%" "%_sPath%" %_sGUID%,, UseErrorLevel, _iPID    
    
    ; Wait for the remote script to be activated
    while ! _o.oRemote {
        sleep 10
    }
    
    ; ( doing something in an actual script )
    
    ; Done with the remote script
    _o.oRemote.exit()
    
    ObjRegisterActive( _o, "" )
    return _iPID
    
}

class TestObjRegisterActive {
    
    oRemote := ""
    
    __New() {
        this.TickCount := A_TickCount
    }
    
    activate( sRemoteGUID ) {    
        this.oRemote := ComObjActive( sRemoteGUID )
        tooltip % "(From Main) Actiavted: " sRemoteGUID
    }
        
}

Code: Select all

#Persistent 
#SingleInstance, Off

_sMainGUID       := %0% ; script argument

_oMain           := ComObjActive( _sMainGUID )

_oRemote         := new Remote
_sRemoteGUID     := CreateGUID()
ObjRegisterActive( _oRemote, _sRemoteGUID )

_oMain.activate( _sRemoteGUID )

ObjRegisterActive( _oRemote, "" )

tooltip % "From Remote: " _oMain.TickCount

Return
~Esc::ExitApp

class Remote {
    
    exit() {
        _func := ObjBindMethod( this, "_exitApp" )
        SetTimer, % _func, -1
    }
        _exitApp() {
            ExitApp
        }
    
}

Code: Select all

Set o = GetObject(, "clsid:5c172d3c-c8bf-47b0-80a4-a455420a6911")

Code: Select all

Sub CreateGorillaAndEatBanana()
  Dim gc as IApeClass
  Dim ape as IApe
  Dim sz as String
  sz = "clsid:571F1680-CC83-11d0-8C48-0080C73925BA:"
' get the class object for gorillas
  Set gc = GetObject(sz)
' ask gorilla class object to create a new gorilla
  Set ape = gc.CreateApe()
' ask gorilla to eat a banana
  ape.EatBanana
End Sub

Code: Select all

test := { x: 0 }

cb := buffer(16, 0)
CLSID := "{6B39CAA1-A320-4CB0-8DB4-352AA81E460E}"
DllCall("ole32\CLSIDFromString", "wstr", CLSID, "ptr", cb.ptr, "int")
DllCall("oleaut32\RegisterActiveObject", "ptr", ObjPtr(test), "ptr", cb.ptr, "uint", 0, "uintP", &cookie := 0, "uint")

MsgBox "wait"
MsgBox test.x ; 12342

Code: Select all

test := ComObjActive("{6B39CAA1-A320-4CB0-8DB4-352AA81E460E}")
sleep 500
loop 10000
	test.x:=test.x+1

Code: Select all

mutex:= DllCall("CreateMutexW", "Ptr", 0, "int", 0, "WStr", t, "int")
DllCall("WaitForSingleObject", "int", mutex, "UInt", 0xFFFFFFFF)
loop 10000
	test.x:=test.x+1
DllCall("ReleaseMutex", "int", mutex), DllCall('CloseHandle', 'int', mutex)

Code: Select all

sGUID           := CreateGUID()
oSample         := new Sample()
oBoundSample    := ObjBindMethod( oSample, "nonexistent" )
ObjRegisterActive( oBoundSample, sGUID )
oCOMBoundSample := ComObjActive( sGUID )
oSink           := new Sink()
ComObjConnect( oCOMBoundSample, oSink )
Try {
    oCOMBoundSample.Call()
} Catch _e {
    msgbox % "Error: " _e.Message
}

class Sink {
    Call( aParams* ) {
        msgbox % "A method is called: " aParams.1
    }
}

class Sample {
    test() {
        msgbox % "this is a test!"
    }
}

Code: Select all

/*
    ObjRegisterActive(Object, CLSID, Flags:=0)
    
        Registers an object as the active object for a given class ID.
        Requires AutoHotkey v1.1.17+; may crash earlier versions.
    
    Object:
            Any AutoHotkey object.
    CLSID:
            A GUID or ProgID of your own making.
            Pass an empty string to revoke (unregister) the object.
    Flags:
            One of the following values:
              0 (ACTIVEOBJECT_STRONG)
              1 (ACTIVEOBJECT_WEAK)
            Defaults to 0.
    
    Related:
        http://goo.gl/KJS4Dp - RegisterActiveObject
        http://goo.gl/no6XAS - ProgID
        http://goo.gl/obfmDc - CreateGUID()
*/
ObjRegisterActive(obj, CLSID, Flags:=0) {
    static cookieJar := Map()
    if (!CLSID) {
        if (cookie := cookieJar.Remove(obj)) != ""
            DllCall("oleaut32\RevokeActiveObject", "uint", cookie, "ptr", 0)
        return
    }
    if cookieJar.Has(obj)
        throw Error("Object is already registered", -1)
    _clsid := Buffer(16, 0)
    if (hr := DllCall("ole32\CLSIDFromString", "wstr", CLSID, "ptr", _clsid)) < 0
        throw Error("Invalid CLSID", -1, CLSID)
    hr := DllCall("oleaut32\RegisterActiveObject", "ptr", ObjPtr(obj), "ptr", _clsid, "uint", Flags, "uint*", &cookie:=0, "uint")
    if hr < 0
        throw Error(format("Error 0x{:x}", hr), -1)
    cookieJar[obj] := cookie
}