 Autor
|
Tema: [VB6] ¿Cómo uso mZombieInvoke? (Leído 6,609 veces)
|
STARZ
 Desconectado
Mensajes: 34
|
Ejemplo cualquiera para practicar el uso de Kinvoke; codigo normal con la API declarada Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long private sub form_load() Call ShellExecute(0, "Open", App.Path & "\UPX.exe", App.Path & "\comprimeme.exe", vbNullString, 0) end sub
Exactamento lo mismo pero sin la api declarada (NO ME FUNCIONA): Invoke "KERNEL32", "ShellExecuteA", 0, StrPtr("Open"), StrPtr(App.Path & "\UPX.exe"), strptr(App.Path & "\comprimeme.exe"), vbNullstring, 0
¿Cuál es el procedimiento, los pasos que tengo que realizar para pasar de mi función con la API declarada a una con Kinvoke? Muchas Muchas gracias Edit: estoy usando el módulo que aquí se detalla: http://cobein.com/wp/?p=567
|
|
|
|
« Última modificación: 24 Enero 2012, 02:08 am por STARZ »
|
En línea
|
|
|
|
x64core
Desconectado
Mensajes: 1.908
|
pasas cadenas unicode a una api de formato ascii proba con las API ShellExecuteW o converti la cadena a ascii
|
|
|
|
|
En línea
|
|
|
|
Karcrack
Desconectado
Mensajes: 2.416
Se siente observado ¬¬'
|
Como dice RHL: ShellExecuteW
|
|
|
|
|
En línea
|
|
|
|
STARZ
Desconectado
Mensajes: 34
|
Ninguno me funciona. ¿Qué estoy haciendo mal? Call Invoke("KERNEL32", "ShellExecutExW", 0, StrPtr("Open"), StrPtr(App.Path & "\UPX.exe"), StrPtr(App.Path & "\comprimeme.exe"), vbNullString, 0) Call Invoke("KERNEL32", "ShellExecutExA", 0, StrPtr("Open"), StrPtr(App.Path & "\UPX.exe"), StrPtr(App.Path & "\comprimeme.exe"), vbNullString, 0) Call Invoke("KERNEL32", "ShellExecuteA", 0, StrPtr("Open"), StrPtr(App.Path & "\UPX.exe"), StrPtr(App.Path & "\comprimeme.exe"), vbNullString, 0) Call Invoke("KERNEL32", "ShellExecuteW", 0, StrPtr("Open"), StrPtr(App.Path & "\UPX.exe"), StrPtr(App.Path & "\comprimeme.exe"), vbNullString, 0) Call Invoke("KERNEL32", "ShellExecute", 0, StrPtr("Open"), StrPtr(App.Path & "\UPX.exe"), StrPtr(App.Path & "\comprimeme.exe"), vbNullString, 0)
 Edit: no se si sirva pero lo estoy probando en WIN7 x86 SP1 |
|
|
|
« Última modificación: 24 Enero 2012, 04:53 am por STARZ »
|
En línea
|
|
|
|
x64core
Desconectado
Mensajes: 1.908
|
Hay otros dos errores, esa api que quieres usar no es exportada de kernel32 es de shell32
tambien debes de pasarle el puntero a vbnullstring en las cadenas siempre pasar los punteros
|
|
|
|
|
En línea
|
|
|
|
raul338
Desconectado
Mensajes: 2.633
La sonrisa es la mejor forma de afrontar las cosas
|
En lugar de usar vbNullString, usar 0 directamente
|
|
|
|
|
En línea
|
|
|
|
STARZ
Desconectado
Mensajes: 34
|
Invoke "USER32", "ShellExecuteW", 0, StrPtr("Open"), StrPtr(App.Path & "\UPX.exe"), StrPtr(App.Path & "\comprimeme.exe"), 0, 0
Tampoco funciona, pero no tira ningún error,supongo que eso significa que SellExecuteW le corresponde a USER32.dll
|
|
|
|
|
En línea
|
|
|
|
x64core
Desconectado
Mensajes: 1.908
|
Pero es que es increíble, sos necio o que  si te referis a ShellExecute es exportada de shell32 porque yo no conozco ninguna que se exportada de ninguna libreria que se llame SellExecuteW |
|
|
|
|
En línea
|
|
|
|
STARZ
Desconectado
Mensajes: 34
|
Perdón por el doble mensaje. En el comentario anterior probé con SHELL32 como me decís vos más arriba, cuando tipee a mano me confundí y tipee USER32.
Sigue sin funcionar con el vbnulltring cammbiado por 0
|
|
|
|
« Última modificación: 24 Enero 2012, 08:49 am por STARZ »
|
En línea
|
|
|
|
x64core
Desconectado
Mensajes: 1.908
|
ok... Aqui hay un ejemplo: Invoke "SHELL32", "ShellExecuteW", 0, 0, StrPtr("C:/windows/system32/calc.exe"), 0, 0, 0y copia y pega todo el modulo de karcrack sino es porque algunas invocaciones de los parametros de los demas programas estan malas, proba con ese ejemplo que te deje y si funciona y todo es por los parametros que se le pasan a los otros programas me imagino que no hacen lo que esperas o no hacen nada API ANSI: Dim MYANSI() As Byte
MYANSI = StrConv("C:/windows/system32/calc.exe", vbFromUnicode)
Invoke "SHELL32", "ShellExecuteA", 0, 0, VarPtr(MYANSI(0)), 0, 0, 0
|
|
|
|
« Última modificación: 24 Enero 2012, 09:10 am por RHL »
|
En línea
|
|
|
|
|
 |
