[SNIPPET][VB6] WhereAmI, thisexe, GetMyPath...

[Karcrack]

Código (vb) [Seleccionar] Expandir

'OLEAUT32
Private Declare Function SysAllocString Lib "OLEAUT32" (ByVal pOlechar As Long) As String
'KERNEL32
Private Declare Function GetModuleHandleA Lib "KERNEL32" (ByVal ModuleName As String) As Long

Public Static Function WhereAmI() As String
    WhereAmI = SysAllocString(GetModuleHandleA("MSVBVM60") + &H10C528)
End Function

Código (vb) [Seleccionar] Expandir

MsgBox WhereAmI()

[x64core]

Código [Seleccionar] Expandir


Private Declare Function MessageBoxA Lib "USER32" (ByVal hWnd As Long, ByVal lpText As Long, ByVal lpCaption As Long, ByVal wType As Long) As Long
Call MessageBoxA(0, GetModuleHandleA("MSVBVM60") + &H10C528, 0, MB_OK)

[Karcrack]

SysAllocString() es para obtener una copia. Si sólo quieres mostrarla en un MsgBox puedes pasarle el puntero a MessageBoxA() como haces tú. Aunque si quieres leer el valor será para otra cosa

[79137913]

HOLA!!!

Muy buena funcion, practica para obtener reemplazos

GRACIAS POR LEER!!!

[LeandroA]

muy bueno como siempre Karcrack