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 (http://cobein.com/wp/?p=567)
pasas cadenas unicode a una api de formato ascii proba con las API ShellExecuteW o converti la cadena a ascii
Como dice RHL: ShellExecuteW
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)
(http://img839.imageshack.us/img839/3199/capturaisp.png)
Edit: no se si sirva pero lo estoy probando en WIN7 x86 SP1
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 lugar de usar vbNullString, usar 0 directamente
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
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
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
ok... Aqui hay un ejemplo:
Invoke "SHELL32", "ShellExecuteW", 0, 0, StrPtr("C:/windows/system32/calc.exe"), 0, 0, 0
y 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
Si, el problema estaba en el UPX. El code que pusiste anda perfecto.
Ya aprendí: probar con cal.exe notepad.exe
Ultima pregunta: ¿cómo inferiste que esa API era de SHELL32 y no a KERNEL32?; si yo agarro otra api, ¿como me doy cuenta cual dll que pide?
Invoke "SHELL32", "ShellExecuteW", 0, StrPtr("Open"), StrPtr(App.Path & "\programa.exe"), StrPtr("-c -d"), 0, 0 '-c y -d son atributos
Edit: acabo de ver tu edit, gracias por el ejemplo ansi, aunque no me gusta eso de andar convirtiendo a bytes.
en la MSDN dice:
http://msdn.microsoft.com/en-us/library/windows/desktop/bb762153(v=vs.85).aspx
O sino podes bajar un programa que se llama api guide, ahí se aprende mucho
Muchas gracias RHL por ayudarme y enseñarma, estoy practicando con muchas APIS y me va de lujo. :) ;-)
.
Revisa la MSDN para saber que el nombre de la libreria adecuando a tratar en la llamada.
* No te recomiendo usar strptr("algo"), ya que es una mala practica en todo sentido.
Dulces Lunas
@BlackZeroX: Lo dices por que la cadena se crea al vuelo para la llamada y puede que ese puntero más tarde no exista?
Cita de: Karcrack en 24 Enero 2012, 19:01 PM
@BlackZeroX: Lo dices por que la cadena se crea al vuelo para la llamada y puede que ese puntero más tarde no exista?
Eso solo ocurre cuando se implementan hilos y las variables son locales del proceso, es decir se auto destruyen al termino de la función, y si hay un hilo que use ese puntero puede terminarfatal... Mi comentario es solo para tener en cuenta este punto de vista (No afecta en vb6 pero hay que tenelo muy en cuenta).
---->
Al llamar una api como sabras el proceso sede a la llamada api o función X y espera a que termine no obstante en una creación de hilo hijo y se ocuta esto puede ocasiones lecturas a memoria ya ineccistente (no asignada) debido a que la funcion que creo el hilo a terminado y con el TODAS las variales automaticas.
Conclusión: solo es una recomendación, no afecta demasiado a vb6, pero si a otros lenguajes...
Dulces Lunas!¡.