Código: Seleccionar todo
Option Explicit
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Public Function Getp0isPath() As String
'Programador: p0is0n -123
'Obtencion de la propia ruta,con el API GetModuleFileNameA de Kernel32
'Para Indetectables.Net
Dim sSave As String
sSave = Space(300)
Call GetModuleFileName(0, sSave, 300)
Getp0isPath = Replace(sSave, " ", "")
'Ejemplo de Uso ; Msgbox Getp0isPath
End Function