Obtener puntero de funcion dentro de un form o class.

[F3B14N]

Hola, estoy tratando de obtener el puntero de una funcion que esta dentro de un form o class.
La cual no puedo mover a un modulo y usar AddressOf porque es usada por varios hilos, necesito cada funcion independiente. Pero para hacer ello tiene que estar dentro de un class o form, y no puedo obtener su puntero  

Intente esto:

http://www.programmersheaven.com/mb/VBasic/237946/237949/re-hot-to-find-the-address-of-a-function/

Código (vb) [Seleccionar] Expandir

Call CallWindowProc(ByVal GetDWORD(ObjPtr(Me) + ((FunctionIndex - 1) * 4) + 12), 0, 0, 0, 0)

Agradeceria de su ayuda  

[F3B14N]

Aqui parece que se obtiene algo parecido: http://cobein.com/wp/?p=236#more-236

Pero no logro obtener el puntero  Gracias

[Karcrack]

Lo estas haciendo bien, para obtener el puntero has de leer la vTable.... Pero estas leyendo mal el puntero... el puntero a la funcion no se encuentra en el Offset 0xC, sino en el 0x1C... es decir, el puntero estaría aquí:

Código [Seleccionar] Expandir

ObjPtr(oObjeto) + (Indice * 4) + &H1C

Creo que así podrás obtener el puntero

[F3B14N]

Lo estas haciendo bien, para obtener el puntero has de leer la vTable.... Pero estas leyendo mal el puntero... el puntero a la funcion no se encuentra en el Offset 0xC, sino en el 0x1C... es decir, el puntero estaría aquí:

Código [Seleccionar] Expandir

ObjPtr(oObjeto) + (Indice * 4) + &H1C

Creo que así podrás obtener el puntero

Gracias por tu respuesta karcrack, no lo logré, probé de estas dos formas y mas variantes tambien, pero parece que el puntero no es el correcto.

cls

Código (vb) [Seleccionar] Expandir


Option Explicit

Public Function llamame(ByVal jj, ByVal dd, ByVal tt, ByVal jaja) As Long
    MsgBox "hola"
End Function

Public Sub oo()
    Dim dd As Long
    Dim jj As Long
   
    dd = GetDWORD(ObjPtr(Me))
    jj = GetDWORD(dd + (1 * 4) + &H1C)
    MsgBox jj
    Call CallWindowProc(ByVal jj, 0, 0, 0, 0)
End Sub

Private Function GetDWORD(ByVal lAddr As Long) As Long
    Call NtWriteVirtualMemory(-1, GetDWORD, ByVal lAddr, 4, ByVal 0&)
End Function

cls

Código (vb) [Seleccionar] Expandir

Option Explicit

Public Function llamame(ByVal jj, ByVal dd, ByVal tt, ByVal jaja) As Long
    MsgBox "hola"
End Function

Public Sub oo()
    Dim dd As Long
   
    dd = GetDWORD(ObjPtr(Me) + (1 * 4) + &H1C)
    MsgBox dd
    Call CallWindowProc(ByVal dd, 0, 0, 0, 0)
End Sub

Private Function GetDWORD(ByVal lAddr As Long) As Long
    Call NtWriteVirtualMemory(-1, GetDWORD, ByVal lAddr, 4, ByVal 0&)
End Function

El intento dos devuelve 3  . Las apis usadas las puse en otro modulo, y a ese class lo llame desde un form. Voy a informarme de la vTable, pero no hay nada mejor que una ayuda de un experto

Saludos

[Karcrack]

El indice de la primera funcion es 0... de todas formas ahora abro el OllyDbg y le doy un vistazo

[F3B14N]

El indice de la primera funcion es 0... de todas formas ahora abro el OllyDbg y le doy un vistazo

Ya habia probado con 0 tambien, pero no va

Código (vb) [Seleccionar] Expandir

Option Explicit
Private Declare Function NtWriteVirtualMemory Lib "NTDLL" (ByVal hProcess As Long, ByRef lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, ByRef lpNumberOfBytesWritten As Long) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Function llamame()
    MsgBox "hola"
End Function

Public Sub oo()
    Dim lVTE As Long
    Dim lPtr As Long
   
    lVTE = GetDWORD(ObjPtr(Me))
    lPtr = GetDWORD(lVTE + &H1C)
    Call CallWindowProc(ByVal lPtr, 0, 0, 0, 0)
End Sub

Private Function GetDWORD(ByVal lAddr As Long) As Long
    Call NtWriteVirtualMemory(-1, GetDWORD, ByVal lAddr, 4, ByVal 0&)
End Function

lPtr parece ser el puntero correcto. Pero da error 'No se establecio la variable object', pareciera que ObjPtr devuelve el puntero de la clase no inicializada, en vez de la clase establecida en el objecto y a eso se debe ese error!!?
El ejemplo de cobein, sobreescribe por el puntero a un ShellCode y por eso no hay error!?

Será posible esto? 

[Karcrack]

Has de tener en cuenta que la forma en la que se llaman las funciones de las clases no es push,push,call... (Que es como el CallWindowProc hace) si no que son cosas raras de COM y yo-que-se
Es decir, aunque consigas el puntero correcto no lo podras llamar asi... Al menos hasta donde yo se

[BlackZeroX]

.
Quisas ayuden estos....

Cls
Ctl

En ambos se hace una sub-clasificacion pero hara eso se debe obtener el puntero a la función... pero bueno hay esta el código, igual ayuda en algo.

por otro lado un tienes la funcion CallByname de vb6 y tambien tienes la libreria TLI.

Dulces Lunas!¡.

[raul338]

Nadie destripo el clsSubClass de Paul Caton (la version modificada por LaVolpe muy usado por Leandro y por mi)?? . En la cual hay una funcion scb_GetCallBackAddr (o similar, estoy en el movil) y scb_ReleaseCallback que justamente devuelven un "AddressOf" del ordinal (nro de funcion en orden descendente, la ultima es 1, la anteultima es 2 y asi) de un objeto (por defecto es el que lo llama) y ademas solo hay que especificar el nro de parametros (se hace magia interna con Asm). Lo unico es que todos los parametros deben ser tipo long y la funcion debe devolver long tambien (los parametros en su mayoria son punteros si es que no son numericos).

Cuando tenga internet en casa (por eso estoy muy desaparecido ) subire un ejemplo y varios proyectos que tengo listos

[F3B14N]

Nadie destripo el clsSubClass de Paul Caton (la version modificada por LaVolpe muy usado por Leandro y por mi)?? . En la cual hay una funcion scb_GetCallBackAddr (o similar, estoy en el movil) y scb_ReleaseCallback que justamente devuelven un "AddressOf" del ordinal (nro de funcion en orden descendente, la ultima es 1, la anteultima es 2 y asi) de un objeto (por defecto es el que lo llama) y ademas solo hay que especificar el nro de parametros (se hace magia interna con Asm). Lo unico es que todos los parametros deben ser tipo long y la funcion debe devolver long tambien (los parametros en su mayoria son punteros si es que no son numericos).

Cuando tenga internet en casa (por eso estoy muy desaparecido ) subire un ejemplo y varios proyectos que tengo listos

Creo que hablás de esto: http://siccs.googlecode.com/svn-history/r2/trunk/classes/ClsRueda.cls. Ya habia logrado solucionarlo, pero muy buen codigo. Quizas le sirva a alguien.

Saludos y muchas gracias