Jump to content
YOUR-AD-HERE
HOSTING
TOOLS
SERVICE

Locked Nanoinvoke 2


top10

Recommended Posts

[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)

Link to comment
Share on other sites

Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.