Foro de elhacker.net

Bueno, tenia la necesidad de hacer esa comprobacion... asi que lo comparto, de esta forma el codigo no se desperdiciara en un proyecto a medias :laugh: :laugh:

Option Explicit
'MSVBVM60
Private Declare Sub GetMem1 Lib "MSVBVM60" (ByVal lpSource As Any, ByRef Destination As Any)
 
Private Sub DumbSub(): End Sub
 
Public Function IsPCode() As Boolean
    Dim bTmp    As Byte
 
    Call GetMem1(AddressOf DumbSub, bTmp)
    IsPCode = (bTmp <> &HC3)
End Function

Como promete el titulo de la funcion comprueba si hemos sido compilados como P-Code o bien como Native Code :)

Saludos ;)