Visual Basic Nanoinvoke 2

[top10]

[HIDE-THANKS][LENGUAJE=VB6]Private Declare Function CallWindowProcW Lib "USER32" (ByRef first_asm As Currency, ByRef params() As Variant, ByVal lib As String, ByVal fnc As String, Optional ByVal null0 As Long = 0) As Long

'---------------------------------------------------------------------------------------

' Author : Karcrack

' Date : 12092013

' Credits: sonykuccio

'---------------------------------------------------------------------------------------

Public Function NanoInvoke(ByRef sLib As String, ByRef sFnc As String, ParamArray params() As Variant) As Long

Dim asm(11) As Currency

Dim p() As Variant

If UBound(params) >= 0 Then p = params

asm(0) = -881438862054780.1504@: asm(1) = -140193315782017.312@: asm(2) = 93112413858165.2867@: asm(3) = 593189448021741.0902@

asm(4) = 843045704464075.3748@: asm(5) = -4834317066834.7356@: asm(6) = 260429944098681.7488@: asm(7) = 537140947255014.6699@

asm(8) = 7683543183094.8624@: asm(9) = 598313605633923.5838@: asm(10) = -200740417519275.4208@: asm(11) = 109.8337@

NanoInvoke = CallWindowProcW(asm(0), p, sLib, sFnc)

End Function[/LENGUAJE][/HIDE-THANKS]

Ejemplo de uso:

Código

Call NanoInvoke("user32", "MessageBoxW", 0, StrPtr("test"), StrPtr("karcrack"), 0)

Call NanoInvoke("kernel32", "ExitProcess", 0)