Jump to content
Sign in to follow this  
Inververs

[solved] Help with event notifications for IMbnPinManagerEvents interface

Recommended Posts

Hello. I try to register event handler for for IMbnPinManagerEvents interface.

All goes well, but when event triggered i have in params strange data.

For example in OnGetPinStateComplete in $iRequestID i expect same id, but getting 0 all the time, in $pPinInfo i expect pointer to the structure, but when i fills the structure on this pointer, i have incorrect data in results, and so on...

This is a very specific API and work only whith usb modems, so if you do not have a modem, example does not work, but  I hope that the skilled person will be able to find and show where the error in the code.

I hope for your help. Thanks.

https://msdn.microsoft.com/en-us/library/windows/desktop/dd323268(v=vs.85).aspx

 

#include <WinAPI.au3>
#include 'SafeArray.au3'
#Region Const
Global Const $sIID_IUnknown = "{00000000-0000-0000-C000-000000000046}"

Global Const $sIID_IMbnPinManager = '{DCBBBAB6-2005-4BBB-AAEE-338E368AF6FA}'
Global Const $dtag_IMbnPinManager = _
        'GetPinList hresult();' & _
        'GetPin hresult();' & _
        'GetPinState hresult(ulong*);' ;            /* [out] */ __RPC__out ULONG *requestID

Global Const $sIID_IMbnPinManagerEvents = '{DCBBBAB6-2006-4BBB-AAEE-338E368AF6FA}'
Global Const $dtag_IMbnPinManagerEvents = _
        'OnPinListAvailable hresult();' & _
        'OnGetPinStateComplete hresult(' & _
        'ptr;' & _                              ; /* [in] */ __RPC__in_opt  IMbnPinManager *pinManager
        'struct;' & _                           ; /* [in] */ MBN_PIN_INFO   pinInfo
        'ulong;' & _                            ; /* [in] */ ULONG          requestID
        'hresult;)' ;                             /* [in] */ HRESULT        status
Global Const $tRIID_IMbnPinManagerEvents = _WinAPI_GUIDFromString($sIID_IMbnPinManagerEvents)


Global Const $sIID_IConnectionPointContainer = '{B196B284-BAB4-101A-B69C-00AA00341D07}'
Global Const $dtag_IConnectionPointContainer = _
        'EnumConnectionPoints hresult();' & _
        'FindConnectionPoint hresult(clsid;ptr*;);'; /* [in] */ __RPC__in REFIID riid | /* [out] */ __RPC__deref_out_opt IConnectionPoint **ppCP


Global Const $sIID_IConnectionPoint = '{B196B286-BAB4-101A-B69C-00AA00341D07}'
Global Const $dtag_IConnectionPoint = _
        'GetConnectionInterface hresult();' & _
        'GetConnectionPointContainer hresult();' & _
        'Advise hresult(ptr;dword*;);' & _ ;      /* [in] */ __RPC__in_opt IUnknown *pUnkSink,  /* [out] */ __RPC__out DWORD *pdwCookie
        'Unadvise hresult(dword);' & _
        'EnumConnections hresult();'

Global Const $CLSID_MbnInterfaceManager = '{BDFEE05B-4418-11DD-90ED-001C257CCFF1}' ;MbnInterfaceManager
Global Const $sIID_IMbnInterfaceManager = '{DCBBBAB6-201B-4BBB-AAEE-338E368AF6FA}'
Global Const $dtag_IMbnInterfaceManager = _
        'GetInterface hresult();' & _
        'GetInterfaces hresult(ptr*);' ;            /* [retval][ref][out] */ __RPC__deref_out_opt SAFEARRAY * *mbnInterfaces

#EndRegion Const


;~ https://msdn.microsoft.com/en-us/library/windows/desktop/dd430416(v=vs.85).aspx
Local $oMbnInterfaceManager = ObjCreateInterface($CLSID_MbnInterfaceManager, $sIID_IMbnInterfaceManager, $dtag_IMbnInterfaceManager)
If @error Then Exit -@ScriptLineNumber

;https://msdn.microsoft.com/en-us/library/windows/desktop/dd430421%28v=vs.85%29.aspx
Local $p_mbnInterfaces
$oMbnInterfaceManager.GetInterfaces($p_mbnInterfaces)
If @error Or Not $p_mbnInterfaces Then Exit -@ScriptLineNumber

Local $iBound
SafeArrayGetUBound($p_mbnInterfaces, $iBound)
If @error Or $iBound < 0 Then Exit -@ScriptLineNumber

;Get first
Local $p_mbnInterface, $iIndex = 0
SafeArrayGetElement($p_mbnInterfaces, $iIndex, $p_mbnInterface)
If @error Or Not $p_mbnInterface Then Exit -@ScriptLineNumber

;~ https://msdn.microsoft.com/en-us/library/windows/desktop/dd323117(v=vs.85).aspx
Local $oIMbnPinManager = ObjCreateInterface($p_mbnInterface, $sIID_IMbnPinManager, $dtag_IMbnPinManager)
If @error Then Exit -@ScriptLineNumber


;Prepare Events
;~ https://msdn.microsoft.com/en-us/library/windows/desktop/dd323118(v=vs.85).aspx

;~ 1) Get an IConnectionPointContainer interface by calling QueryInterface on an IMbnInterfaceManager object.
;~ 2) Call FindConnectionPoint on the returned interface and pass IID_IMbnPinManagerEvents to riid.
;~ 3) Call Advise on the returned connection point and pass a pointer to an IUnknown interface on an object that implements IMbnPinManagerEvents to pUnk.

;1 STEP
Local $oIConnectionPointContainer = ObjCreateInterface($CLSID_MbnInterfaceManager, $sIID_IConnectionPointContainer, $dtag_IConnectionPointContainer)
If @error Then Exit -@ScriptLineNumber

;2 STEP
Local $p_IConnectionPoint
$oIConnectionPointContainer.FindConnectionPoint($tRIID_IMbnPinManagerEvents, $p_IConnectionPoint)
If @error Or Not $p_IConnectionPoint Then Exit -@ScriptLineNumber

Local $oIConnectionPoint = ObjCreateInterface($p_IConnectionPoint, $sIID_IConnectionPoint, $dtag_IConnectionPoint)
If @error Then Exit -@ScriptLineNumber

;3 STEP
;~ https://msdn.microsoft.com/en-us/library/windows/desktop/dd323119%28v=vs.85%29.aspx
Local $tIMbnPinManagerEvents
Local $oIMbnPinManagerEvents = ObjectFromTag("oIMbnPinManagerEvents_", $dtag_IMbnPinManagerEvents, $tIMbnPinManagerEvents)
If @error Then Exit -@ScriptLineNumber

Local $p_IUnknown = $oIMbnPinManagerEvents()

;~ https://msdn.microsoft.com/en-us/library/windows/desktop/ms678815(v=vs.85).aspx
Local $pdwCookie
$oIConnectionPoint.Advise($p_IUnknown, $pdwCookie)
If @error Or Not $pdwCookie Then
    ConsoleWrite('! Connection was not successfully established' & @CRLF)
    Exit -@ScriptLineNumber
EndIf

;~ 4 STEP
;~ https://msdn.microsoft.com/en-us/library/windows/desktop/dd323117%28v=vs.85%29.aspx
;Call GetPinState and wait events
Local $iRequestID
$oIMbnPinManager.GetPinState($iRequestID)
If @error Or Not $iRequestID Then Exit -@ScriptLineNumber

ConsoleWrite('> Wait events for request: ' & $iRequestID & @CRLF)

AdlibRegister('_exit', 5000)

While 1
    Sleep(250)
WEnd

;Console Output


;~ QueryInterface {0000013D-0000-0000-C000-000000000046}    ;IClientSecurity
;~ QueryInterface {0000001B-0000-0000-C000-000000000046}    ;?
;~ QueryInterface {00000003-0000-0000-C000-000000000046}    ;IMarshal
;~ > Wait events for request: 152
;~ QueryInterface {0000001B-0000-0000-C000-000000000046}    ;?
;~ QueryInterface {00000018-0000-0000-C000-000000000046}    ;IStdMarshalInfo
;~ QueryInterface {00000019-0000-0000-C000-000000000046}    ;IExternalConnection
;~ QueryInterface {4C1E39E1-E3E3-4296-AA86-EC938D896E92}    ;?
;~ QueryInterface {1C733A30-2A1C-11CE-ADE5-00AA0044773D}    ;ICallFactory

;~ + OnGetPinStateComplete event            ;Event fired
;~ > $pIMbnPinManager: 0x00BB9684           ;WHY THE SAME?
;~ > $pPinInfo: 0x00BB9684                  ;WHY THE SAME?
;~ > $iRequestID: 0                         ;0 ?
;~ > $iStatus: 3                            ;3 ?
;~ > pinState: 12208352                     ;bla
;~ > pinType: 1                             ;bla
;~ > attemptsRemaining: 12194924            ;bla

Exit


Func _exit()
    AdlibUnRegister('_exit')
    $oIConnectionPoint.Unadvise($pdwCookie)
    Exit
EndFunc   ;==>_exit


Func oIMbnPinManagerEvents_OnGetPinStateComplete($pSelf, $pIMbnPinManager, $pPinInfo, $iRequestID, $iStatus) ; Ret: long  Par: ptr;struct;ulong;long
;~  https://msdn.microsoft.com/en-us/library/windows/desktop/dd323119%28v=vs.85%29.aspx
    ConsoleWrite('+ OnGetPinStateComplete event' & @CRLF)

    ConsoleWrite('> $pIMbnPinManager: ' & $pIMbnPinManager & @CRLF)
    ConsoleWrite('> $pPinInfo: ' & $pPinInfo & @CRLF)
    ConsoleWrite('> $iRequestID: ' & $iRequestID & @CRLF)
    ConsoleWrite('> $iStatus: ' & $iStatus & @CRLF)

    ;Ok. Now create a MBN_PIN_INFO struct
;~  https://msdn.microsoft.com/en-us/library/windows/desktop/dd323226(v=vs.85).aspx
    Local Static $tagMBN_PIN_INFO = 'struct;dword pinState;dword pinType;ulong attemptsRemaining;endstruct'
    Local $tMBN_PIN_INFO = DllStructCreate($tagMBN_PIN_INFO, $pPinInfo)
    If Not @error Then
        ConsoleWrite('> pinState: ' & DllStructGetData($tMBN_PIN_INFO, 'pinState') & @CRLF)
        ConsoleWrite('> pinType: ' & DllStructGetData($tMBN_PIN_INFO, 'pinType') & @CRLF)
        ConsoleWrite('> attemptsRemaining: ' & DllStructGetData($tMBN_PIN_INFO, 'attemptsRemaining') & @CRLF)
    EndIf

    Return $S_OK
EndFunc   ;==>oIMbnPinManagerEvents_OnGetPinStateComplete


Func oIMbnPinManagerEvents_OnPinListAvailable($pSelf) ; Ret: long
    Return $S_OK
EndFunc   ;==>oIMbnPinManagerEvents_OnPinListAvailable
Func oIMbnPinManagerEvents_QueryInterface($pSelf, $pRIID, $pObj) ; Ret: long  Par: ptr;ptr
    Local $sIID = StringFromGUID($pRIID)
    If $sIID = $sIID_IUnknown Then
        DllStructSetData(DllStructCreate("ptr", $pObj), 1, $pSelf)
        Return $S_OK
    ElseIf $sIID = $sIID_IMbnPinManagerEvents Then
        DllStructSetData(DllStructCreate("ptr", $pObj), 1, $pSelf)
        Return $S_OK
    Else
        ConsoleWrite('QueryInterface ' & $sIID & @CRLF)
        Return $E_NOINTERFACE
    EndIf
EndFunc   ;==>oIMbnPinManagerEvents_QueryInterface
Func oIMbnPinManagerEvents_AddRef($pSelf) ; Ret: dword
    Return 1
EndFunc   ;==>oIMbnPinManagerEvents_AddRef
Func oIMbnPinManagerEvents_Release($pSelf) ; Ret: dword
    Return 1
EndFunc   ;==>oIMbnPinManagerEvents_Release

Func StringFromGUID($pGUID)
    Local $aResult = DllCall("ole32.dll", "int", "StringFromGUID2", "struct*", $pGUID, "wstr", "", "int", 40)
    If @error Then Return SetError(@error, @extended, "")
    Return SetExtended($aResult[0], $aResult[2])
EndFunc   ;==>StringFromGUID

Func ObjectFromTag($sFunctionPrefix, $tagInterface, ByRef $tInterface, $fPrint = False, $bIsUnknown = Default, $sIID = "{00000000-0000-0000-C000-000000000046}") ; last param is IID_IUnknown by default
    If $bIsUnknown = Default Then $bIsUnknown = True
    Local $sInterface = $tagInterface ; copy interface description
    Local $tagIUnknown = "QueryInterface hresult(ptr;ptr*);" & _
            "AddRef dword();" & _
            "Release dword();"
    ; Adding IUnknown methods
    If $bIsUnknown Then $tagInterface = $tagIUnknown & $tagInterface
    ; Below line is really simple even though it looks super complex. It's just written weird to fit in one line, not to steal your attention
    Local $aMethods = StringSplit(StringReplace(StringReplace(StringReplace(StringReplace(StringTrimRight(StringReplace(StringRegExpReplace(StringRegExpReplace($tagInterface, "\w+\*", "ptr"), "\h*(\w+)\h*(\w+\*?)\h*(\((.*?)\))\h*(;|;*\z)", "$1\|$2;$4" & @LF), ";" & @LF, @LF), 1), "object", "idispatch"), "hresult", "long"), "bstr", "ptr"), "variant", "ptr"), @LF, 3)
    Local $iUbound = UBound($aMethods)
    Local $sMethod, $aSplit, $sNamePart, $aTagPart, $sTagPart, $sRet, $sParams, $hCallback
    ; Allocation
    $tInterface = DllStructCreate("int RefCount;int Size;ptr Object;ptr Methods[" & $iUbound & "];int_ptr Callbacks[" & $iUbound & "];ulong_ptr Slots[16]") ; 16 pointer sized elements more to create space for possible private props
    If @error Then Return SetError(1, 0, 0)
    For $i = 0 To $iUbound - 1
        $aSplit = StringSplit($aMethods[$i], "|", 2)
        If UBound($aSplit) <> 2 Then ReDim $aSplit[2]
        $sNamePart = $aSplit[0]
        $sTagPart = $aSplit[1]
        $sMethod = $sFunctionPrefix & $sNamePart
        If $fPrint Then
            Local $iPar = StringInStr($sTagPart, ";", 2), $t
            If $iPar Then
                $t = "Ret: " & StringLeft($sTagPart, $iPar - 1) & "  " & _
                        "Par: " & StringRight($sTagPart, StringLen($sTagPart) - $iPar)
            Else
                $t = "Ret: " & $sTagPart
            EndIf
            Local $s = "Func " & $sMethod & _
                    "( $pSelf ) ; " & $t & @CRLF & _
                    "EndFunc" & @CRLF
            ConsoleWrite($s)
        EndIf
        $aTagPart = StringSplit($sTagPart, ";", 2)
        $sRet = $aTagPart[0]
        $sParams = StringReplace($sTagPart, $sRet, "", 1)
        $sParams = "ptr" & $sParams
        $hCallback = DllCallbackRegister($sMethod, $sRet, $sParams)
        If @error Then
            ConsoleWrite('! ' & @error & ' ' & $sMethod & @CRLF & @CRLF)
        EndIf

        DllStructSetData($tInterface, "Methods", DllCallbackGetPtr($hCallback), $i + 1) ; save callback pointer
        DllStructSetData($tInterface, "Callbacks", $hCallback, $i + 1) ; save callback handle
    Next
    DllStructSetData($tInterface, "RefCount", 1) ; initial ref count is 1
    DllStructSetData($tInterface, "Size", $iUbound) ; number of interface methods
    DllStructSetData($tInterface, "Object", DllStructGetPtr($tInterface, "Methods")) ; Interface method pointers
    Return ObjCreateInterface(DllStructGetPtr($tInterface, "Object"), $sIID, $sInterface, $bIsUnknown) ; pointer that's wrapped into object
EndFunc   ;==>ObjectFromTag

 

 

Edited by Inververs
solved

Share this post


Link to post
Share on other sites

After a quick look at the code, I can see a little mistake. "struct" in definition of IMbnPinManagerEvents interface must be "struct*":

; Replace
'struct;' & _                           ; /* [in] */ MBN_PIN_INFO   pinInfo
; with
'struct*;' & _                           ; /* [in] */ MBN_PIN_INFO   pinInfo

You can try to correct this for a start.

Share this post


Link to post
Share on other sites

If change to struct*, than i get this in OnGetPinStateComplete event:

+ OnGetPinStateComplete event
> $pIMbnPinManager: 0x00933D44
> $pPinInfo: 0x00000000
> $iRequestID: 0
> $iStatus: 3

$pPinInfo became null.

So It did not help

Share this post


Link to post
Share on other sites

What does $iStatus = 3 mean? Since $iStatus <> 0 the operation failed, and that's probably the reason why $pPinInfo and $iRequestID are not set.

As you have managed to create all the interface objects, there seems not to be any obvious errors.

Do you know if this code works? Do you have some C++ code to verify that the code works. If the C++ code works, it's usually possible to get the AutoIt code to work too. On the other hand. If it's not possible to get the C++ code to work, then it's also not possible to have the AutoIt code to work.

Share this post


Link to post
Share on other sites

When you create the callback in the parameters you do this.  ptr;ptr;struct;ulong;long. Don't use struct, use ptr instead.

dllcallbackregister remarks says: Uses all DllCall() types except "struct". for that reason you get $pIMbnPinManager same as $pPinInfo. So if you use  ptr;ptr;ptr;ulong;long you should get correct pointer to MBN_PIN_INFO structure.

 

Saludos

 

Edited by Danyfirex
write more

Share this post


Link to post
Share on other sites

Honestly, i have no idea what is the status 3
If msdn on this page said, https://msdn.microsoft.com/en-us/library/windows/desktop/dd323119(v=vs.85).aspx
that status  can expect one of the following values:
S_OK
HRESULT_FROM_WIN32(ERROR_NOT_SUPPORTED)
E_MBN_SIM_NOT_INSERTED
E_MBN_BAD_SIM

in sdk i can find this constants
E_MBN_SIM_NOT_INSERTED           _HRESULT_TYPEDEF_(0x8054820AL)
E_MBN_BAD_SIM                    _HRESULT_TYPEDEF_(0x80548202L)

but what 3 meen, i dont know.
I am inclined to believe that callback is not working properly.

No working code in C++. I'm trying to make it from scratch, using only the information from the site
But, i have working command in netsh which is able to determine the status of the pin,
and I can not say it uses an this API, or something else.

netsh mbn show pin interface=*
result is:
    Тип ПИН-кода           : Pin1
    Состояние ПИН-кода          : Ввод
    Количество оставшихся попыток: 3
    
What can be translated as:
    Type PIN: Pin1
    Status PIN: Input
    The number of remaining attempts: 3
    
This is very similar to the data that are located in the structure MBN_PIN_INFO

typedef struct MBN_PIN_INFO {
  MBN_PIN_STATE pinState;
  MBN_PIN_TYPE  pinType;
  ULONG         attemptsRemaining;
} MBN_PIN_INFO;

, but as you can see, the access to which I can not get.

Edited by Inververs

Share this post


Link to post
Share on other sites

Danyfirex, so read, did not have time to answer, I'm sorry.

I change to this

Global Const $dtag_IMbnPinManagerEvents = _
        'OnPinListAvailable hresult();' & _
        'OnGetPinStateComplete hresult(' & _
        'ptr;' & _                              ; /* [in] */ __RPC__in_opt  IMbnPinManager *pinManager
        'ptr;' & _                              ; /* [in] */ MBN_PIN_INFO   pinInfo
        'ulong;' & _                            ; /* [in] */ ULONG          requestID
        'hresult;)' ;                             /* [in] */ HRESULT        status

but it still does not work

Share this post


Link to post
Share on other sites
Global Const $dtag_IMbnPinManagerEvents = _
        'OnPinListAvailable hresult();' & _
        'OnGetPinStateComplete hresult(' & _
        'ptr;' & _                              ; /* [in] */ __RPC__in_opt  IMbnPinManager *pinManager
        'ptr;' & _                              ; /* [in] */ MBN_PIN_INFO   pinInfo
        'ulong;' & _                            ; /* [in] */ ULONG          requestID
        'long;)' ;                              /* [in] */ HRESULT      status

It does not work to

Share this post


Link to post
Share on other sites

why you use 5 parameters in oIMbnPinManagerEvents_OnGetPinStateComplete($pSelf, $pIMbnPinManager, $pPinInfo, $iRequestID, $iStatus).? it just say 4 as far I see.

Share this post


Link to post
Share on other sites

ObjectFromTag is a function coded by trancexx. There are several versions of this function. It is important to use the latest. But as far as I can see, it is the latest version.

Share this post


Link to post
Share on other sites

I did not know it.  making that I said. You till got $pIMbnPinManager: 0x00BB9684     $pPinInfo: 0x00BB9684 ?

 

Saludos

 

Share this post


Link to post
Share on other sites
Global Const $dtag_IMbnPinManagerEvents = _
        'OnPinListAvailable hresult();' & _
        'OnGetPinStateComplete hresult(' & _
        'ptr;' & _                              ; /* [in] */ __RPC__in_opt  IMbnPinManager *pinManager
        'ptr;' & _                              ; /* [in] */ MBN_PIN_INFO   pinInfo
        'ulong;' & _                            ; /* [in] */ ULONG          requestID
        'long;)' ;                              ; /* [in] */ HRESULT        status

> Wait events for request: 250

This when device pin1 require:
+ OnGetPinStateComplete event
> $pIMbnPinManager: 0x0076A0AC
> $pPinInfo: 0x00000001
> $iRequestID: 2
> $iStatus: 3

Then when device unblocked(pin entered)

> Wait events for request: 251

+ OnGetPinStateComplete event
> $pIMbnPinManager: 0x00B2D09C
> $pPinInfo: 0x00000000
> $iRequestID: 0
> $iStatus: 3

Share this post


Link to post
Share on other sites

These events do not work as expected.
If you take other functions, then everything is OK
This code provides:
> Pin format: MBN_PIN_FORMAT_NUMERIC
> Pin type: MBN_PIN_TYPE_PIN1
> $oIMbnPin.get_PinLengthMin 4
> $oIMbnPin.get_PinLengthMax 8

 

Local Const $MBN_PIN_TYPE_CUSTOM = 0x1, $MBN_PIN_TYPE_PIN1 = 0x2
Local $p_IMbnPin

$oIMbnPinManager.GetPin($MBN_PIN_TYPE_PIN1, $p_IMbnPin)

Local $oIMbnPin = ObjCreateInterface($p_IMbnPin, $sIID_IMbnPin, $dtag_IMbnPin)
If @error Then Exit -@ScriptLineNumber

Local $iPinFormat
$oIMbnPin.get_PinFormat($iPinFormat)

Switch $iPinFormat
    Case 0x0
        ConsoleWrite('> Pin format: ' & 'MBN_PIN_FORMAT_NONE' & @CRLF)
    Case 0x1
        ConsoleWrite('> Pin format: ' & 'MBN_PIN_FORMAT_NUMERIC' & @CRLF)
    Case 0x2
        ConsoleWrite('> Pin format: ' & 'MBN_PIN_FORMAT_ALPHANUMERIC' & @CRLF)
EndSwitch

Local $iPinType
$oIMbnPin.get_PinType($iPinType)
ConsoleWrite('> Pin type: ')
Switch $iPinType
    Case 0x00
        ConsoleWrite('MBN_PIN_TYPE_NONE' & @CRLF)
    Case 0x1
        ConsoleWrite('MBN_PIN_TYPE_CUSTOM' & @CRLF)
    Case 0x2
        ConsoleWrite('MBN_PIN_TYPE_PIN1' & @CRLF)
    Case 0x3
        ConsoleWrite('MBN_PIN_TYPE_PIN2' & @CRLF)
    Case 0x4
        ConsoleWrite('MBN_PIN_TYPE_DEVICE_SIM_PIN' & @CRLF)
    Case 0x5
        ConsoleWrite('MBN_PIN_TYPE_DEVICE_FIRST_SIM_PIN' & @CRLF)
    Case 0x6
        ConsoleWrite('MBN_PIN_TYPE_NETWORK_PIN' & @CRLF)
    Case 0x7
        ConsoleWrite('MBN_PIN_TYPE_NETWORK_SUBSET_PIN' & @CRLF)
    Case 0x8
        ConsoleWrite('MBN_PIN_TYPE_SVC_PROVIDER_PIN' & @CRLF)
    Case 0x9
        ConsoleWrite('MBN_PIN_TYPE_CORPORATE_PIN' & @CRLF)
    Case 0xA
        ConsoleWrite('MBN_PIN_TYPE_SUBSIDY_LOCK' & @CRLF)
EndSwitch

Local $iPinLengthMin, $iPinLengthMax
$oIMbnPin.get_PinLengthMin($iPinLengthMin)
$oIMbnPin.get_PinLengthMax($iPinLengthMax)

ConsoleWrite('> $oIMbnPin.get_PinLengthMin ' & $iPinLengthMin & @CRLF)
ConsoleWrite('> $oIMbnPin.get_PinLengthMax ' & $iPinLengthMax & @CRLF)

 

Share this post


Link to post
Share on other sites

ObjectFromTag is a function coded by trancexx. There are several versions of this function. It is important to use the latest. But as far as I can see, it is the latest version.

yes, correct. and she said this phrase.

Share this post


Link to post
Share on other sites

Wait, that's exactly what netsh shows. Right?

Then maybe try it like this:

Global Const $dtag_IMbnPinManagerEvents = _
        'OnPinListAvailable hresult();' & _
        'OnGetPinStateComplete hresult(' & _
        'ptr;' & _                              ; /* [in] */ __RPC__in_opt  IMbnPinManager *pinManager

        'int;int;ulong;' & _                           ; /* [in] */ MBN_PIN_INFO   pinInfo

        'ulong;' & _                            ; /* [in] */ ULONG          requestID

        'hresult;)' ;                             /* [in] */ HRESULT        status
        
;...

Func oIMbnPinManagerEvents_OnGetPinStateComplete($pSelf, $pIMbnPinManager, $pinState, $pinType, $attemptsRemaining, $iRequestID, $iStatus)
;~  https://msdn.microsoft.com/en-us/library/windows/desktop/dd323119%28v=vs.85%29.aspx

    ConsoleWrite('+ OnGetPinStateComplete event' & @CRLF)

    ConsoleWrite('> $pIMbnPinManager: ' & $pIMbnPinManager & @CRLF)

    ConsoleWrite('> $pinState: ' & $pinState & @CRLF)
    ConsoleWrite('> $pinType: ' & $pinType & @CRLF)
    ConsoleWrite('> $attemptsRemaining: ' & $attemptsRemaining & @CRLF)

    ConsoleWrite('> $iRequestID: ' & $iRequestID & @CRLF)
    ConsoleWrite('> $iStatus: ' & $iStatus & @CRLF)

    Return $S_OK
EndFunc

 


♡♡♡

.

eMyvnE

Share this post


Link to post
Share on other sites

ingenious, it works!

Pin entered:

> Wait events for request: 274

+ OnGetPinStateComplete event
> $pIMbnPinManager: 0x00A2CBEC
> $pinState: 0
> $pinType: 0
> $attemptsRemaining: 3
> $iRequestID: 274
> $iStatus: 0

Pin required:

> Wait events for request: 275
+ OnGetPinStateComplete event
> $pIMbnPinManager: 0x0099AC74
> $pinState: 1
> $pinType: 2
> $attemptsRemaining: 3
> $iRequestID: 275
> $iStatus: 0

trancexx, thanks a lot!

As I understand it, the structure should be expand in dtag...?

 

 

 

Share this post


Link to post
Share on other sites

MSDN play us a joke. nowhere says pointer to  MBN_PIN_INFO just add the parameter as nested way. another Great one Trancexx. 

 

@Inververs could you pass SafeArray.au3. I would like to play a little with your code.

 

Saludos

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

  • Similar Content

    • By tarretarretarre
      About AutoIt-API-WS
      AutoIt-API-WS is a light weight web server with expressive syntax, with the sole purpose of wrapping your existing AutoIt app with little to no effort.
      With AutoIt-API-WS you can send and receive data between any application or framework, as long they can handle HTTP requests, which is an industry standard today.
      Like my other communcations UDF AutoIt-Socket-IO AutoIt-API-WS is heavily inspired from the big boys, but this time its Laravel and Ruby on Rails.
      Features Highlights
      No external or internal dependencies required RESTful mindset when designed Expressive syntax Small codebase Heavy use of Michelsofts Dictionary object Limitations
      Not complient with any RFC, so something important could be missing. Time will tell! One persons slow loris attack will kill the process forever. Example of implemetnation (With screenshots)
      This is a basic cRud operation with the RESTful mindset in use.
      #include "API.au3" #include <Array.au3> _API_MGR_SetName("My APP DB adapter") _API_MGR_SetVer("1.0 BETA") _API_MGR_SetDescription("This adapter allows you to get this n that") _API_MGR_Init(3000) _API_MGR_ROUTER_GET('/users', CB_GetUsers, 'string sortBy', 'Get all users, sortBy can be either asc or desc. asc is default') _API_MGR_ROUTER_GET('/users/{id}', CB_GetUsersById, 'int id*', 'Get user by id') While _API_MGR_ROUTER_HANDLE() WEnd Func DB_GetUsers() Local $userA = ObjCreate("Scripting.Dictionary") Local $userB = ObjCreate("Scripting.Dictionary") $userA.add('id', 1) $userA.add('name', 'TarreTarreTarre') $userA.add('age', 27) $userB.add('id', 2) $userB.add('name', @UserName) $userB.add('age', 22) Local $aRet = [$userA, $userB] Return $aRet EndFunc Func CB_GetUsers(Const $oRequest) Local $aUsers = DB_GetUsers() If $oRequest.exists('sortBy') Then Switch $oRequest.item('sortBy') Case Default Case 'asc' Case 'desc' _ArrayReverse($aUsers) EndSwitch EndIf Return $aUsers EndFunc Func CB_GetUsersById(Const $oRequest) Local Const $aUsers = DB_GetUsers() Local $foundUser = Null For $i = 0 To UBound($aUsers) -1 Local $curUser = $aUsers[$i] If $curUser.item('id') == $oRequest.item('#id') Then $foundUser = $curUser ExitLoop EndIf Next If Not IsObj($foundUser) Then Return _API_RES_NotFound(StringFormat("Could not find user with ID %d", $oRequest.item('#id'))) EndIf return $foundUser EndFunc When you visit http://localhost:3000 you are greeted with this pleasent view that will show you all your registred routes and some extra info you have provided.

      When you visit http://localhost:3000/users the UDF will return the array of objects as Json
       
      And here is an example of http://localhost:3000/users/1

       
      More examples can be found here
       
       
      Autoit-API-WS-1.0.0-beta.zip (OLD!)
      Autoit-API-WS-1.0.1-beta.zip (NEWEST 2020-06-29)
    • By nacerbaaziz
      goodmorning autoit team
      today am comming with some winhttp problems, i hope that you can help me to solve them.
      the first problem
      is when opening a request
      my forums api allow me to delete any post using the api key
      all functions work, i mean post / get
      but when i tried to use the delete verb it's gave me an html 404 error
      here is what am tried
      #include "WinHttp.au3" ; Open needed handles Global $hOpen = _WinHttpOpen() Global $hConnect = _WinHttpConnect($hOpen, "xxxxxxxx.com") ; Specify the reguest: Global $hRequest = _WinHttpOpenRequest($hConnect, "Delete", "/vb/Api/posts/10447/?hard_delete=true", default, default) _WinHttpAddRequestHeaders($hRequest, "XF-Api-Key:xxxxx") _WinHttpAddRequestHeaders($hRequest, "XF-Api-User:xxxxx") ; Send request _WinHttpSendRequest($hRequest) ; Wait for the response _WinHttpReceiveResponse($hRequest) Global $sHeader = 0, $sReturned = 0 ; If there is data available... If _WinHttpQueryDataAvailable($hRequest) Then $sHeader = _WinHttpQueryHeaders($hRequest, $WINHTTP_QUERY_CONTENT_DISPOSITION) ;Or maybe: ; $sHeader = _WinHttpQueryHeaders($hRequest, BitOR($WINHTTP_QUERY_RAW_HEADERS_CRLF, $WINHTTP_QUERY_CUSTOM), "Content-Disposition") Do $sReturned &= _WinHttpReadData($hRequest) Until @error msgBox(64, "", $sReturned) endIf ; Close handles _WinHttpCloseHandle($hRequest) _WinHttpCloseHandle($hConnect) _WinHttpCloseHandle($hOpen)  
      and here is the error message
      <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN"> <html><head> <title>403 Forbidden</title> </head><body> <h1>Forbidden</h1> <p>You don't have permission to access /vb/Api/posts/10447/ on this server.<br /> </p> </body></html>  
      i hope you can help me 
      thanks in advance
    • By argumentum
      I can TCP/IP in AutoIt, hence, make a HTTP deamon. Now, how can I HTTPS to use SSL !??
      Well, Apache has this "mod_proxy.so" module that can let me have SSL and what not is in Apache.
      All that is needed is to tell Apache what I wanna do by editing httpd.conf .
      # Implements a proxy/gateway for Apache. # 1. Open /Applications/XAMPP/etc/httpd.conf # 2. Enable the following Modules by removing the # at the front of the line. # - LoadModule rewrite_module modules/mod_rewrite.so # - LoadModule proxy_module modules/mod_proxy.so # - LoadModule proxy_http_module modules/mod_proxy_http.so # # 3. Copy and Paste below to the bottom of httpd.conf # <IfModule mod_proxy.c> ProxyRequests On <Proxy *> Order deny,allow Allow from all </Proxy> ProxyVia Off ProxyPreserveHost Off ProxyPass /home/ http://127.0.0.1:84/home/ ProxyPassReverse /home/ http://127.0.0.1:84/home/ SetEnv proxy-nokeepalive 1 # ..since we are not using "keep-alive", we are using "close" </IfModule> ...et voila  
      I'm using XAMPP ( https://www.apachefriends.org/download.html )
      and this is my solution to avoid coding in PHP, as I feel more comfortable coding in AutoIt.
      A "muli-thread or concurrency" can be done by forking the socket ( https://www.autoitscript.com/forum/topic/199177-fork-udf-ish/ )
      but responses are under 20 ms., so I feel fine with a single thread.
      I modified an example ( attached below ), so can try out the concept.
      PS: I am not an Apache guru. I just discovered this and it opens a world of possibilities. In my case, I'm thinking of an API to query SQLite 
      PS2: I'm not gonna make Poll but do click like if you do  
       
      201673-json-http-post-serverlistener.au3
    • By MichaelSDeVries
      Has anyone successfully developed  integration with the E*TRADE API in AutoIt?


       
      If so, then would you be willing and able to share some of your AutoIt code to do so with me? and/or help me successfully develop an AutoIt interface with the E*TRADE API?

       
      Please also Reply at: http://blog.thevcf.com/forums/topic/etrade-api/#post-4032

       
      Thank You and Have a Great Day!
      - Michael S. DeVries
    • By rcmaehl
      Hi all, 

      Recently my work swapped from Cisco CTIOS to Finesse. This completely threw me off as I had been automating the Win32 application and I had never done IUIAutomation before. As such I've been messing around with the API and will be adding code as I figure it out. While I do have Supervisor access, I will likely not be adding functions for those features yet.
      Currently Available Functions:
      User API - Query and Set User Info
      Dialog API - Query and Set Call and other Dialog Info
      Queue API - Query Assigned Queues
      Team API - Query Users in a Team


      Changelog:
       
      Download:
       
×
×
  • Create New...