The MASM Forum

how call the event in vb.net, from asm, dll.

I know that you can call functions from an external DLL from old VB but I doubt you can do it the other way.

Given that "event" is more or less a synonym for "message", maybe sending a message to the VB window could trigger an event. But definitely, we would need to see a more concrete example.

example in vb6. I want, one example in vb.net.

vb source code

create a class named class1 with this code
Event m()
Event M2(ByVal j As Long, ByVal r As Long)
Event m3()
Event m4()
Event m5(ByVal j As Long, ByVal k As Long, ByVal l As Long, ByVal m As Long, ByVal n As Long, ByVal o As Long)
Event m6(ByVal j As Long)



create a form with 2 buttons with this code

Private WithEvents miobj As Class1
Private Declare Function SomeFunc Lib "thepath\EventRaiser.dll" (ByRef X As Object) As Long
Private Declare Function SomeOther Lib "thepath\EventRaiser.dll" (ByVal X As Object) As Long

Private Sub cmdCommand1_Click()
    Call SomeFunc(miobj)
End Sub

Private Sub cmdCommand2_Click()
    Call SomeOther(miobj)
End Sub

Private Sub Form_Load()
    Set miobj = New Class1
End Sub

Private Sub miobj_m()
    MsgBox "Event N? 1 Raised"
End Sub

Private Sub miobj_m5(ByVal j As Long, ByVal k As Long, ByVal l As Long, ByVal m As Long, ByVal n As Long, ByVal o As Long)
    MsgBox "Event N? 5 Raised, parameters: " & j & "-" & k & "-" & l & "-" & m & "-" & n & "-" & o & "-"
End Sub

Private Sub miobj_m6(ByVal j As Long)
    MsgBox "Event 6 Raised, parameter:" & j
End Sub


and the asm code of the dll is this:


.data
hInstance dd 0
hDllVbVm dd 0
pRaiseEvent dd 0

.code
DllEntry proc hInst:HINSTANCE, reason:DWORD, reserver1:DWORD
LOCAL hList:DWORD

   .if reason == DLL_PROCESS_ATTACH
   push hInst
   pop hInstance
   invoke LoadLibrary,SADD("msvbvm60")
   mov hDllVbVm,eax
   invoke GetProcAddress,hDllVbVm,SADD("__vbaRaiseEvent")
   mov pRaiseEvent,eax
   .elseif reason == DLL_PROCESS_DETACH
   .endif
   mov eax,TRUE
   ret

DllEntry endp

VB NET ???
WHY ???
:bgrin:

...MABDELOUHAB had a similar question awhile back,...and, it drove us crazy.
COM Events (http://masm32.com/board/index.php?topic=4153.0)
It won't do you any good,...but, it does demonstrate how little we know about VB and NET,...

Quote from: AsmAlmeria12 on September 29, 2015, 03:34:30 AM
example in vb6. I want, one example in vb.net.
...

https://msdn.microsoft.com/en-us/library/ms973905.aspx

VERTOGRAD,
You're still alive ???  :bgrin:
VERTOGRAD is our NET specialist,...

Quote from: Zen on September 29, 2015, 06:00:01 AM
VERTOGRAD,
You're still alive ???  :bgrin:
VERTOGRAD is our NET specialist,...

TEMPORArily reincarnated ... (EDITED specially for ZEN)
I'm glad that you're glad to see me here again.
You're too kind as usual . It'll take me a couple of months to write an app like this  :biggrin:

...Locked in a dark room,...living on Snickers bars and Black Sabbath,...feverishly coding assembly code in your underwear,...
What could be better ???  :bgrin:

Quote from: Zen on September 29, 2015, 06:08:46 AM
...Locked in a dark room,...living on Snickers bars and Black Sabbath,...feverishly coding assembly code in your underwear,...
What could be better ???  :bgrin:

Sounds good!

Do you want to create Class1 by masm then used by Vb.Net or do you want to do the opposite? ...

Visual Basic - Raise Event of an Object From ASM DLL (http://www.asmcommunity.net/forums/topic/?id=25980)

 AsmAlmeria12,
Could you tell us which version of CLR ( version of .NET Framework) are you going to use  for this project?
Porting VB code to .NET was rather simple and straightforward . The difficult part is rewriting DLL code .

my framework is 3.5

My code, is  the next:

In Vb.Net 2010 Framework 3.5

Public Class Form1

    Private Declare Sub Test Lib "D:\Trabajo\Example.dll" (ByRef SubDelegateo As [Delegate]) ' Is DLL ASM.

Delegate Sub ReceptorMsG(ByVal Param1 Integer, ByVal Param2 As String)



Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click

        Dim RMsG As ReceptorMsG = AddressOf AnswerASM

        Test(RMsG)


End Sub

Private Sub AnswerASM(ByVal Param1 As Integer, ByVal Param2 As String)

' this method,  received's the answer asm


        MsgBox(Param1)
        MsgBox(Param2)




End Sub


End Class


CODE IN ASM (DLL Dynamic):

.Data

MyText  Db 'Hello', 0


.
.
.
.



Test Proc SubDelegate: Ptr


                   Push Esi
                   Push Eax
                   Push Ebx

                   Mov Esi, DWord Ptr SubDelegate
                   Mov Eax,[Esi]


                   Push Offset MyText
                   Push 10

                   Call Eax


                   Pop Ebx
                   Pop Eax
                   Pop Esi

                   Ret


Test endp

.
.
.
.

Sorry my english is very bad. :(

Hello ,  AsmAlmeria12
Nice  example of simple MANAGED-NATIVE  interoperability . Did you write it yoruself ?
There's no RET instruction at the end of Test proc , please edit it . I ran the example and it worked as expected

I've took your intial VB code  as a basis for researches . The problem is to raise event inside managed assembly (executables are called assemblies in .NET world  :biggrin:) from the  native DLL . It's quite a task !
It already costed me one sleepless night  :biggrin:
I'll continue my investigation but don't expect quick results from me  .

thank very much GoneFishing, I follow investigate.

I suggest to acomplish our task using slightly simplified variant  of VB.net code:
Form1.vb :

Public Class Form1

    Private WithEvents miobj As Class1
   
    Private Declare Function SomeFunc Lib "EventRaiser.dll" (ByRef X As Object) As Long
    Private Declare Function SomeOther Lib "EventRaiser.dll" (ByVal X As Object) As Long

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Call SomeFunc(miobj)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Call SomeOther(miobj)
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        miobj = New Class1
        AddHandler miobj.m, AddressOf miobj.miobj_m
        AddHandler miobj.m5, AddressOf miobj.miobj_m5
        AddHandler miobj.m6, AddressOf miobj.miobj_m6
    End Sub

End Class

Public Class Class1

    Public Event m()
    Public Event M2(ByVal j As Long, ByVal r As Long)
    Public Event m3()
    Public Event m4()
    Public Event m5(ByVal j As Long, ByVal k As Long, ByVal l As Long, ByVal m As Long, ByVal n As Long, ByVal o As Long)
    Public Event m6(ByVal j As Long)
   
    Public Sub miobj_m()
        MsgBox("Event N? 1 Raised")
    End Sub
   
    Public Sub miobj_m5(ByVal j As Long, ByVal k As Long, ByVal l As Long, ByVal m As Long, ByVal n As Long, ByVal o As Long)
        MsgBox("Event N? 5 Raised, parameters: " & j & "-" & k & "-" & l & "-" & m & "-" & n & "-" & o & "-")
    End Sub

    Public Sub miobj_m6(ByVal j As Long)
        MsgBox("Event 6 Raised, parameter:" & j)
    End Sub

End Class


You see that event handling routins reside inside Class1 and declared as Public.
Doing it in such a way will increase our chances to see a Demo program in the nearest 2 months and not to become blackhats  :biggrin:

AsmAlmeria12
If you only want to apply the function "AnswerASM" You do not need to send  SubDelegateo As Delegate, Because The way to invoke it is very long
you can pass SubDelegateo As IntPtr

Declare Sub TestProc Lib "Example.dll" (ByVal SubDelegateo As IntPtr)
Secondly you must convert a delegate object to ptr you can use "Marshal.GetFunctionPointerForDelegate"
Then you can call it from your "TestProc"


        Dim RMsG As ReceptorMsG = AddressOf AnswerASM
        Dim RMsGptr As IntPtr = Marshal.GetFunctionPointerForDelegate(RMsG)
        TestProc(RMsGptr)

full vb code

Imports System.Runtime.InteropServices

Public Class Form1

    Declare Sub TestProc Lib "Example.dll" (ByVal SubDelegateo As IntPtr)

    Delegate Sub ReceptorMsG(ByVal Param1 As Integer, ByVal Param2 As String)

    Private Sub AnswerASM(ByVal Param1 As Integer, ByVal Param2 As String)
        MsgBox("Param1 =" & Param1)
        MsgBox("Param2=" & Param2)
    End Sub

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        Dim RMsG As ReceptorMsG = AddressOf AnswerASM
        Dim RMsGptr As IntPtr = Marshal.GetFunctionPointerForDelegate(RMsG)

        TestProc(RMsGptr)

    End Sub
End Class


dll code

.486
.model flat,stdcall
option casemap:none
include \masm32\include\masm32rt.inc
.data
hInstance dd 0
.code
LibMain proc hInst:dword, reason:DWORD, reserved1:DWORD
    .if reason == DLL_PROCESS_ATTACH
push hInst
pop hInstance
mov eax, TRUE           
    .endif
    ret
LibMain Endp

TestProc proc IntPtr_:DWORD
invoke MessageBox,0,chr$("Masm TestProc"),0,MB_OK
p__ equ chr$("Masm Param2")
push p__
push 101
call dword ptr IntPtr_
ret
TestProc endp

End LibMain


LibMain should return TRUE?
LibMain proc hInst:dword, reason:DWORD, reserved1:DWORD
    .if reason == DLL_PROCESS_ATTACH
push hInst
pop hInstance
    .endif
    mov eax, TRUE           
    ret
LibMain Endp


It turned out that this problem is all about .NET internals
Here're  several  useful links:
An Overview of Managed/Unmanaged Code Interoperability (https://msdn.microsoft.com/en-us/library/ms973872.aspx)
Passing a Managed Function Pointer to Unmanaged Code (http://blogs.msdn.com/b/pfedev/archive/2009/11/08/passing-a-managed-function-pointer-to-unmanaged-code.aspx)
Interoperating with Unmanaged Code (https://msdn.microsoft.com/en-us/library/sd10k43k.aspx)

Also book  ".NET 2.0 Interoperability Recipes: A Problem-Solution Approach " by Bruce Bukovics (available on books.google) - see page 173: Passing managed objects

Created by Visual Studio 2012 .net framwork 4.5 and RadAsm 2.2

ok mabdelouahab, Is correct. Thank.