Test Foro de elhacker.net SMF 2.1

Hola gente de elhacker
bue yo quisiera hacer lo siguiente
por ejemplo
tengo una carpeta llenisima de archivos, uno de todos esos archivos se llama programa.exe

entonces yo pongo mi programa que cree en visual basic en la carpeta que esta llenisima de archivos  y al apretar el un boton ejecute automaticamente la aplicacion programa.exe
Alguien me ayudaria? :)

HA?!?!?!?!?!

A ver.. tu tienes un programa, que quieres que ejecute otro que esta en la misma carpeta?

Incorporados en vb6
    Shell()
API's
    CreateProcess
    ShellExecute
    ShellExecuteEx

Busca que hay mucho en google

Dulces Lunas!¡.

busque solamente encontre esto

System.Diagnostics.Process.Start(My.Application.Info.DirectoryPath & "\programa.exe")


pero eso es para visual basic 2008 o algo asi.. yo nesesito para vb 6 :S

Eso es para .Net

yo no te voy a ayudar hasta que no respondas mi pregunta.

Cita de: Skeletron en  6 Diciembre 2009, 05:56 AM
HA?!?!?!?!?!

A ver.. tu tienes un programa, que quieres que ejecute otro que esta en la misma carpeta?

sisi es como vos desis

ok aqui tienes la gran apiguide online

http://allapi.mentalis.org/apilist/apilist.php

busca las apis que te acabo de proporcionar en esa pagina bienen con ejemplos
lo de la funcion shell es en:

http://www.recursosvisualbasic.com.ar/ o similares

Dulces Lunas!¡.

:http://www.todoexpertos.com/categorias/tecnologia-e-internet/programacion/visual-basic/respuestas/306084/comando-shell
eso?

tamo loco!!

era

Private Sub Command1_Click()
Shell ("programa.exe")
End Sub


gracias a los 2  :)

haber ya que si no se me confunde el amigo y eso es lo quenos deseo:

vb6

Shell()



res = shell (Ruta archivo, Modo de la ventana)



CreateObject y Wscript.shell



   Dim ObjShell As Object                                  '   //  Donde se almacena
   Set ObjShell = CreateObject("Wscript.shell")            '   //  Creamos un objeto X
   If Not ObjShell Is Nothing Then                         '   //  Verificamos que se haya creado
       strResult = ObjShell.run("c:\a.txt", 1, True)       '   //  ejecutamos un archivo X
       Set ObjShell = Nothing                              '   //  Descarhamos el objeto de la memoria
   Else                                                    '   //  Si no se creo el objeto hacer
       MsgBox "no se pudo crear el objecto Wscript.shell"  '   //  Mensaje de error
   End If



Las PIS lo consultas en la pagina de la ApiGuide no hay mejor pagina aparentemente xP.

Dulces Lunas!¡.

Cita de: Wii900 en  6 Diciembre 2009, 21:34 PM
tamo loco!!

era

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Shell ("programa.exe")
End Sub


gracias a los 2  :)

asi como lo tienes lo ejecuita de la carpeta de system32 directamente si es de una hubicacion ajena a dicha carpeta debes espesificar la dirección completa.

si el archivo a ejecutar esta en la misma carpeta que el EXE ejecutor seria asi

App.path & "\Nombrearchiv.extensión"

Dulces Lunas!¡.

Private Sub Form_Load()
Shell App.Path & "\programa.exe", vbNormalFocus
End
End Sub


Cita de: agus0 en  7 Diciembre 2009, 01:25 AM

Código [Seleccionar] Expandir

Private Sub Form_Load()
Shell App.Path & "\programa.exe", vbNormalFocus
End
End Sub


malo malo malo no usar End seria mas recomendable Unload Me es solo por si carga otras cosas por hay en compañero ¬¬#

igual solo puede agregar un modulo y quitar el formulario y solo agregar


Sub Main()
   Shell App.Path & "\programa.exe", vbNormalFocus
end sub


y en el proyecto seleccionar el proceso inicial Sub Main() y Yap

Con esto evitamos en el End y el UnLoad Me

Dulces Lunas!¡.

Cita de: agus0 en  7 Diciembre 2009, 01:25 AM

Código [Seleccionar] Expandir

Private Sub Form_Load()
Shell App.Path & "\programa.exe", vbNormalFocus
End
End Sub


Se sobreentiende (por lo menos de mi parte) que el End es solo para este ejemplo simple y rapido.

Cuantas ideas para algo tan simple, en google y aqui ahi muchas cosas que tratan sobre esto. Y existe mas de una manera, no creo que le sea complicación.