Publicado: 02 Sep 2010 23:34Bueno 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:
-Creamos otro Label llamado "Salir"
Dentro del label salir ponemos:
-Creamos otro Label llamado "WEB"
Ponen este como codigo del label:
La web la reemplazan por la de su AO.
Estado del server:
Ponemos al final del codigo del formulario:
Creamos un Winsock llamado "Winsocklauncher" y el codigo tiene que quedar así:
(Agregar esto al formulario)
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.
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:
- Call Main
-Creamos otro Label llamado "Salir"
Dentro del label salir ponemos:
-Creamos otro Label llamado "WEB"
Ponen este como codigo del label:
- Private Sub Labelweb_Click()
- Dim X
- X = ShellExecute(Me.hwnd, "Open", "http://www.gs-zone.org", &O0, &O0, vbNormalFocus)
- End Sub
La web la reemplazan por la de su AO.
Estado del server:
Ponemos al final del codigo del formulario:
- Private Sub Form_Load()
- If Winsocklauncher.State <> sckClosed Then
- Winsocklauncher.Close
- End If
- Winsocklauncher.Connect "Aca va su IP", "Aca va su puerto"
- End If
- End Sub
Creamos un Winsock llamado "Winsocklauncher" y el codigo tiene que quedar así:
(Agregar esto al formulario)
- Private Sub Winsocklauncher_Connect()
- Label5.ForeColor = vbGreen
- Label5.Caption = "Online Puede ingresar"
- End Sub
- 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)
- Label5.ForeColor = vbRed
- Label5.Caption = "Offline Intente mas Tarde"
- 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.
, seguì asì 
, na jodaa.. Buen aporte Elaine seguie asi.
