Launcher para tu AO

» 30 May 2009 22:08

Bueno, este es mi ultimo codigo que hize, y lo aporto a la comunidad de GS Zone. Es un codigo simple pero util para tu AO.

Empezamos descargando los codigos de aqui: SOLO los Usuarios Registrados pueden ver los enlaces!

» 30 May 2009 22:43

Ta bueno se agradece, aunque es sensillo pero eficaz!
Felicitaciones!

» 03 Jun 2009 02:21

sos lo mas yo puse uno en mi sv pero no funka

pongo este y digo si anda

» 03 Jun 2009 13:02

luminum escribió:sos lo mas yo puse uno en mi sv pero no funka pongo este y digo si anda

Acordate de poner bien el nombre del archivo del juego en el codigo del comannd buton que abre el juego. No te olvides el .exe. Probalo y me decis

.

» 03 Jun 2009 13:09

lo voy ap asar a 11.5 pero en todo caso si encuentro un Bug edito y lo arreglas

Edit:Sin ningun Bug

ta muy bueno y anda para todas las versiones postealo en 11.5 y 12.x

Edit2:Tendrias que decirles que cambien el name del Launcher...osea que ponga frmLauncher

#Este post ha sido eliminado por Chily en 03 Jun 2009 14:00. Arriba

#

Este post ha sido eliminado por Chily en 03 Jun 2009 14:00.

» 03 Jun 2009 21:17

luminum escribió:Edit2:Tendrias que decirles que cambien el name del Launcher...osea que ponga frmLauncher

Estas hablando de la Caption? No entendi bien

» 04 Jun 2009 10:23

El Launcher cuando quieras ejecutar el cliente no va a ejecutar es mas si no me equivoco cuando compilan tiene que tirar error .

por ahi me equivoco ojo

Pero Creen un Modulo que se llama Mod_General

Y Adentro Pongan

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

Public 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

Luego Vallan a Los Command Bottons que estan en el form1

Y Los Codigos Los Reemplazan por :

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

Private Sub Command1_Click() ShellExecute Me.hWnd, "open", App.Path & "\Cliente1.exe", "", "", 1
    End
End Sub
 
Private Sub Command2_Click() 
ShellExecute Me.hWnd, "open", App.Path & "\Cliente2.exe", "", "", 1
    End
End Sub
 
Private Sub Command3_Click() 
ShellExecute Me.hWnd, "open", App.Path & "\AutoUpdate.exe", "", "", 1
    End
End Sub

Despues lo demas lo veo bien , ojo por ahi en lo que puse arriba me equivoque fijense:) saludos

Class

» 08 Jun 2009 20:57

Class escribió:El Launcher cuando quieras ejecutar el cliente no va a ejecutar es mas si no me equivoco cuando compilan tiene que tirar error .

por ahi me equivoco ojo

Pero Creen un Modulo que se llama Mod_General

Y Adentro Pongan
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
Public 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

Luego Vallan a Los Command Bottons que estan en el form1

Y Los Codigos Los Reemplazan por :
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
Private Sub Command1_Click() ShellExecute Me.hWnd, "open", App.Path & "\Cliente1.exe", "", "", 1
End
End Sub

Private Sub Command2_Click()
ShellExecute Me.hWnd, "open", App.Path & "\Cliente2.exe", "", "", 1
End
End Sub

Private Sub Command3_Click()
ShellExecute Me.hWnd, "open", App.Path & "\AutoUpdate.exe", "", "", 1
End
End Sub

Despues lo demas lo veo bien , ojo por ahi en lo que puse arriba me equivoque fijense:) saludos
Class

Nono, nada que ver. No hay que declarar nada y asi como lo puse yo anda de 10. Esta testeado completamente y funciona.

» 08 Jun 2009 21:10

Muy buen aporte,Me olvide de felicitarte

Saludos

Launcher para tu AO

¿Quién está conectado?