Lanzador Ultra Fácil

» 03 Ene 2012 03:55

Buenas, este es un "APORTE" medio humilde que ya todos devén saber hacerlo ademas de que todos van a saber mejorarlo y agregarle mas chiches pero bueno, esto es lo que cree sin una minima idea de VB

Si no me equivoco es funcional para TODAS las verciones de argentum.

Este lanzador es muy facil de hacer.

1Paso --> En VB Creamos un nuevo frm llamado frmLanzador o frmX(Nombre que quieran)

2Paso--> Buscamos en Proyecto --> ARGENTUM propiedades y buscamos en la lista que dice StartUp Object El nombre de el formulario que contiene el lanzador.

3Paso--> Una vez creado el formulario y posteriormente Modificada la ruta de inicio del Ejecutable vamos a crear 3 imagenes ( Digo 3 pero depende de la cantidad de cosas que quieran ponerle a su servidor )

4Paso--> Una vez creadas las Imagenes vamos a ubicaras a gusto ... La imagen que nos CONECTE al server va a tener el siguiente código

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Private Sub Image2_Click()
 Call Main
End Sub

5Paso-->La proxima imagen yo la diseñe para que me abra un manual que cree con VB y es Un ejecutable aparte... (Si quieren puedo dejarles como lo hice es muy simple tambien) a este ejecutable o a cualquier otro lo podremos "llamar" de esta forma:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Private Sub Manual_Click()
Call Shell(App.path & "\manual.exe", vbNormalFocus)
Exit Sub
End Sub

6Paso--> En este imagen cierra el lanzador y solo utilice esta linea

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Private Sub Image1_Click()
     End
End Sub

***** Si quieren agregar mas cosas como un registrador de dll's o El AOsetup es tan simple como el manual *** Solo crean nuevas imagenes y ponen

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Private Sub Manual_Click()
Call Shell(App.path & "\XPROGRAMA.EXE", vbNormalFocus)
Exit Sub
End Sub

No considero a esto como un aporte, solo lo estoy exponiendo para que el que lo quiere que lo tome, Sinceramente no necesito que nadie me critique el "trabajo" ni que se burlen de mi, No soy programador ni me daría el bocho para hacerlo, Gracias y mucha suerte!