'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
MsgBox WhereAmI()
;)
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)
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 :P
HOLA!!!
Muy buena funcion, practica para obtener reemplazos :D
GRACIAS POR LEER!!!
muy bueno como siempre Karcrack