GS-Zone

Launcher (Cliente). Ir al Indice

Reglas del Foro
* Por favor, lee las reglas de los foros de Programación antes de hacer un nuevo tema!

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

23
Este tema se encuentra cerrado.

Nota » 02 Sep 2010 23:34

Bueno este es un Launcher pero con particularidad va todo dentro del cliente.

Cliente:

-Creamos un formulario llamado: Frmlauncher:

-Vamos a la pestaña proyecto, propiedades de Argentum y donde dice Objeto Inicial: Sub Main Lo cambiamos por Frmlauncher.

Configuramos propiedades del Frmlauncher:

-Caption: (no pongan nada).
-Borderstyle: 0 None
-StarUpPosition: 2 Center Screen
-Height: A su elección.
-Left: A su elección.

-Creamos un Label llamado "Entrar"

Dentro del codigo del Label ponemos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Call Main
  2.  


-Creamos otro Label llamado "Salir"

Dentro del label salir ponemos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.  
  2. End


-Creamos otro Label llamado "WEB"

Ponen este como codigo del label:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.  
  2. Private Sub Labelweb_Click()
  3. Dim X
  4. X = ShellExecute(Me.hwnd, "Open", "http://www.gs-zone.org", &O0, &O0, vbNormalFocus)
  5. End Sub


La web la reemplazan por la de su AO.

Estado del server:

Ponemos al final del codigo del formulario:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.  
  2. Private Sub Form_Load()
  3. If Winsocklauncher.State <> sckClosed Then
  4. Winsocklauncher.Close
  5. End If
  6. Winsocklauncher.Connect "Aca va su IP", "Aca va su puerto"
  7. End If
  8. End Sub


Creamos un Winsock llamado "Winsocklauncher" y el codigo tiene que quedar así:
(Agregar esto al formulario)

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Private Sub Winsocklauncher_Connect()
  2. Label5.ForeColor = vbGreen
  3. Label5.Caption = "Online Puede ingresar"
  4. End Sub
  5.  
  6. Private Sub WinsockLauncher_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
  7. Label5.ForeColor = vbRed
  8. Label5.Caption = "Offline Intente mas Tarde"
  9. End Sub



Testeado: Y listo, launcher funciónal para la versión 13.0 del Argentum Online y supongo que para otras lo único que puede variar es el call main, espero que les sirva.

PD: Ustedes pueden poner dentro del launcher la imagen que quieran, y en vez de hacerlo con labeles pueden hacerlo mediante Image, Command Botton, es lo mismo, solo tienen que poner el codigo.

Suerte!!! , Elaine.

Imagen
Elaine
:!: :!: :!: :!:
18 (+5)
Oraculo [1]
Registrado: Años de membresía
Mensajes: 1194
Aportes: 13
Arriba

Nota » 03 Sep 2010 00:21

Lindo aporte eh...
Seguí así.

* Paciente: ¿Qué es eso?
* House: Analgésicos.
* Paciente: Ah, para usted, por la pierna.
* House: No, es que soy yonqui. Imagen
Dr. House
Aprendiz [5]
Registrado: Años de membresíaAños de membresía
Mensajes: 382
Aportes: 3
Arriba

Nota » 03 Sep 2010 01:04

Lindo Aporte Elaine, bastante Completo, lindo y Proligo :D, seguì asì :D...

Saludos

Imagen
By Francoxe
II XTREEM II
^[ Inbooker Ao ]^ Busca Programador con mucha exp.
35
Oraculo [2]
Embajador (1)
Premios: 1
Registrado: Años de membresía
Mensajes: 1355
Aportes: 5
Arriba

Nota » 03 Sep 2010 01:31

Ya hay varios aportes de launcher en el foro, todos sirven para todas las verciones
Ano
Arriba

Nota » 03 Sep 2010 10:45

Ano escribió:Ya hay varios aportes de launcher en el foro, todos sirven para todas las verciones


Los aportes que vi de Launcher son Proyecto aparte, este va dentro del cliente.
Suerte.

Imagen
Elaine
:!: :!: :!: :!:
18 (+5)
Oraculo [1]
Registrado: Años de membresía
Mensajes: 1194
Aportes: 13
Arriba

Nota » 03 Sep 2010 18:00

Buen aporte elaine, estas a fondo.
Rodrigito
216
Counter Strike TeamDragon Ancestral [1]
Registrado: Años de membresíaAños de membresía
Mensajes: 2524
Aportes: 7
Arriba

Nota » 04 Sep 2010 03:19

Rodrigito escribió:Buen aporte elaine, estas a fondo.


Se con los post :P, na jodaa.. Buen aporte Elaine seguie asi.
Saludoos.-

Leooh.-
- IstheriusAO Staff -
83
Aprendiz [5]
Embajador (1)
Premios: 1
Registrado: Años de membresíaAños de membresía
Ubicación: Adolfo gonzales chaves
Mensajes: 408
Aportes: 2
Arriba

Nota » 12 Sep 2010 02:09

Muy bueno, sirve y aparte es simple...

Saludos.

No a la S.O.P.A! - Si a la P.O.L.E.N.T.A!

Imagen
Imagen
Samke
Staff Zeiked-Games
260
Narnia AO StaffDragon Ancestral [3]
Usuario omnipresente (1) Embajador (2)
Premios: 3
Registrado: Años de membresía
Ubicación: Castelar
Mensajes: 3194
Aportes: 57
Arriba

Nota » 23 Sep 2010 18:12

Funciona para 0.13.0 ?

ccccontala como qieras ;)
maTih.- escribió:LuuQ : Personaje patético, uno de los más lamentables que pisaron las tierras de Noicad, complicidad con los atentados de Perrox y abuso de su condicion de ex programador para aplicar bugs : luqaspeola1@hotmail.com
Luuq
272
Oraculo [3]
Registrado: Años de membresía
Mensajes: 1599
Aportes: 23
Arriba

Nota » 23 Sep 2010 18:17

Buen aporte se agradese :D,
Suerte

Imagen
-.AnDy.-
:!:Director HunterAO
224
Oraculo [1]
Registrado: Años de membresía
Ubicación: Colombia
Mensajes: 1185
Aportes: 3
Arriba

Nota » 25 Sep 2010 22:31

No me funca la de la pagina web osea no me aparece nada :S
Bodom21
Usuario Registrado
Newbie [2]
Registrado: Años de membresía
Mensajes: 51
Arriba

Nota » 26 Sep 2010 11:02

Elaine te cambio 2 cositas nomas :)

Primero el que dice " SALIR " le pusiste de codigo
" DENTRO DEL LABEL DE SALIR PUSISTE ESO "
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. End


que pasa al poner eso cuando el usuario entra al juego seguramente va a querer
cerrar ese formulario que utilizas como launcher y casi seguro pone salir
al poner salir con ese code lo que haces es cerrar toda la aplicacion
al estar dentro del cliente cerras toda la aplicacion.

Reemplazarlo por :
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Unload Me



Segundo la web :
la web no le funciona a nadie por que no es con un label que se hace eso , sino que se utiliza un WebBrowser masomenos asi se escribia no me acuerdo jejej y toy sin vb :) xD
En el form_load del launcher ponen

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. webbrowser1.navigate "http://google.com"
  2. ' no me acuerdo si era asi o asi
  3. webbrowser1.navigate ("http://google.com")




Bueno espero que les sirva esta observacion a los que lo ivan a implementar ,
pero yo pienso que mejor es el Launcher de proyecto aparte.

Saludos muy atentamente


Carlos.-

Lider de Tierras Oscuras Ao

Imagen
Class
Fumador compulsivo
119
Newbie [6]
Embajador (1)
Premios: 1
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: PcH
Mensajes: 188
Aportes: 2
Arriba

Nota » 26 Sep 2010 15:06

1- Anda perfecto ejecutar la web desde un label, lo que hace el label es abrir tu navegador y llevarte hacia la web.

2- Solamente con "END", alcanza.

Imagen
Elaine
:!: :!: :!: :!:
18 (+5)
Oraculo [1]
Registrado: Años de membresía
Mensajes: 1194
Aportes: 13
Arriba

Nota » 28 Sep 2010 15:56

No anda el Winsocklauncher no dice nada, puse hasta un label que se llama Label5 y tampoco aparecio nada, puse el puerto y la ip y tampoco.

Ayudame plis :? :? :? :? :?

Imagen
branx150
Staff KlaiconAO
Newbie [2]
Registrado: Años de membresía
Mensajes: 52
Arriba

Nota » 28 Sep 2010 17:01

branx150 escribió:No anda el Winsocklauncher no dice nada, puse hasta un label que se llama Label5 y tampoco aparecio nada, puse el puerto y la ip y tampoco.

Ayudame plis :? :? :? :? :?


Lo acabo de hacer y anda perfecto...

Segui bien los pasos!

Imagen
Elaine
:!: :!: :!: :!:
18 (+5)
Oraculo [1]
Registrado: Años de membresía
Mensajes: 1194
Aportes: 13
Arriba
Este tema se encuentra cerrado.
Siguiente

Volver a Otras versiones

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados