Mensajes

Muy bueno, gracias

[no buscado como resolverlo]

Hola Camaradas, esta vez acudo a ustedes ya que me ha surgio un problema que no buscado como resolverlo [...]

WTF!, entonces busca y después nos cuentas xD

Muchas gracias RHL por ayudarme y enseñarma, estoy practicando con muchas APIS y me va de lujo.   

[Ultima pregunta:]

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?

Código (vb) [Seleccionar] Expandir


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.

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

Código [Seleccionar] Expandir

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

Ninguno me funciona. ¿Qué estoy haciendo mal?

Código (vb) [Seleccionar] Expandir


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

[(NO ME FUNCIONA):]

Ejemplo cualquiera para practicar el uso de Kinvoke; codigo normal con la API declarada

Código (vb) [Seleccionar] Expandir

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):

Código (vb) [Seleccionar] Expandir


       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

Muchas Gracias Psyke1, ¡sos un grande!
Me sirvió especialmente este ejemplo para entender la utilización concreta del RegExp, específicamente en lo que andaba buscando:
http://foro.elhacker.net/programacion_visual_basic/ayudita_expresion_regular-t308911.0.html;msg1535937#msg1535937

Adapte del PHP esto

Código [Seleccionar] Expandir

<td><span>IPQueQuiero</span></td>
que era el patron que se repetia con todas las Ips e hice algo parecido con los puertos.

Fue inexplicable la felicidad (aunque efímera, felicidad al fin) la que sentí cuando extrajo la primera IP, es por ese tipo de cosas que me gusta tanto programar.
Repito, gracias Psyke1  

Edito: Me gustaba mas tu Avatar anterior de P vs. Z 

[RegExp]

Genial, yo estaba luchando con un MultiSplit, no sabia de la existencia de RegExp (expresioner regulares).
Estoy investigando y leyendo, por ahora no he encontrado nada que me ilumine.
¿Me recomiendas algun manual o guía sobre el tema?

¡Gracias por leer y por responder!