 Autor
|
Tema: [SNIPPET][VB6] WhereAmI, thisexe, GetMyPath... (Leído 3,108 veces)
|
Karcrack
 Desconectado
Mensajes: 2.416
Se siente observado ¬¬'
|
'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()
|
|
|
|
|
En línea
|
|
|
|
|
|
Karcrack
Desconectado
Mensajes: 2.416
Se siente observado ¬¬'
|
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  |
|
|
|
|
En línea
|
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!! Muy buena funcion, practica para obtener reemplazos  GRACIAS POR LEER!!! |
|
|
|
|
En línea
|
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"
79137913 *Shadow Scouts Team*
|
|
|
|
LeandroA
|
muy bueno como siempre Karcrack
|
|
|
|
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
ShellElevated [snippet]
Programación Visual Basic
|
cobein
|
0
|
1,202
|
15 Julio 2008, 12:37 pm
por cobein
|
|
|
|
[SNIPPET] GetTitleActiveApp (VB6)
« 1 2 »
Programación Visual Basic
|
The Swash
|
10
|
5,620
|
1 Abril 2010, 15:01 pm
por Karcrack
|
|
|
|
[Snippet]GetAdapterInfo
Programación Visual Basic
|
Mi4night
|
2
|
1,861
|
15 Julio 2010, 22:04 pm
por Mi4night
|
|
|
|
[Snippet]Suicide
Programación Visual Basic
|
Mi4night
|
1
|
1,988
|
27 Julio 2010, 10:48 am
por fary
|
|
|
|
[m][SNIPPET] IsUserAnAdmin?
Programación Visual Basic
|
Karcrack
|
5
|
3,176
|
30 Julio 2010, 17:38 pm
por Karcrack
|
 |
