[GUIA] Crear Server de Twist Ao

Tema: [GUIA] Crear Server de Twist Ao Dom Sep 14, 2008 11:16 pm

Primero que todo necesitamos el visual basic 6.0 se puede descargar de aca.

Link:
http://rapidshare.com/files/10026831...sic_6.rar.html
El serial es Todo 111111111111111
Bueno una vez que tenemos el Visual Basic descargamos El Codigo del cliente/Servidor y si no lo tienen el cliente completo

Servidor:

RapidShare: 1-Click Webhosting

Cliente: Dice tiempos ao porque es el comun de Twist nada mas que subido con otro nombre...no tiene nada lo unico cambien el .Exe

Mirror 1

RapidShare: 1-Click Webhosting

Mirror 2

Free file hosting by Savefile.com

Code del Cliente:

Free file hosting by Savefile.com

Bueno cuando tenemos El Vb 6.0 y el code del cliente van a notar que
ahora pueden ver un nuevo icono son como unas ventanitas y unos palitos
rojos y amarillos. (Se llama Proyecto).

Abrimos el proyecto y buscamos en modulos:"Mod_General(General.Bas) Tocamos Control + F y buscamos.

Código:
Public Function CurServerIp

Nos va a aparecer esto.

Código:
Public Function CurServerIp() As String
CurServerIp = "190.50.169.119" (Aca ponemos nuestra ip)
'CurServerIp = "190.2.45.10" (Esto no importa)
End Function

Código:
CurServerIp = "190.50.169.119" (Aca ponen su I.P recuerden que no se puede usar no-ip)

Ahora Tocamos Control + F De nuevo y buscamos

Código:
Server IP

Nos aparece esto

Código:
'Make Server IP and Port box visible
If KeyCode = vbKeyI And Shift = vbCtrlMask Then

'Port
PortTxt.Visible = False
'Label4.Visible = True

'Server IP
PortTxt.Text = "7666"
IPTxt.Text = "190.50.169.119" (Acá ponemos nuestra ip)
IPTxt.Visible = False
'Label5.Visible = True

Luego buscamos: Private Sub Image1_Click(index As Integer)

Recuerden Tildar la Opción Modulo Actual

Aparece esto:

Código:

Private Sub Image1_Click(index As Integer)
CurServer = 0
'IPdelServidor = IPTxt
PuertoDelServidor = 7666
IPdelServidor = "190.50.169.119" 'testeando, NicoNZ (Nuestra ip entre las "")

Tocamos Control + F Nuevamente y buscamos:

Código:
Private Sub imgServEspana_Click()

Aparece esto:

Código:

Private Sub imgServEspana_Click()
Call Audio.PlayWave(SND_CLICK)
IPTxt.Text = "190.50.169.119" (Acá ponemos nuestra ip)
PortTxt.Text = "7666"
End Sub

Luego de poner nuestra ip, Código:
vamos a Archivo>Generar.Exe esperamos y listo

Recuerden hacer otro para el Host.
Como me preguntaron como era para hacer el del host vamos a inicio>Ejecutar>Cmd>ipconfig

y donde dice

Dirección ip . . . . . . . . . : (Acá nos aparece la ip que tenemos que remplazar por lo marcado en rojo) no la otra.

La guía la hice yo
es mi primer guía si no se entiende pregunte si hay algo mal corrijan.
Yo de esa manera y viendo el código con paciencia lo Logre.

A LOS QUE LES TIRA ERROR DE PJ O SE LES VA A LA PANTALLA DE LOGUEO FIJENSEN SI TIENEN LA CARPETA CHARFILE CREADA!!

Sino la tienen creado Vamos a la carpeta del server:

Click derecho>Nueva carpeta

Le ponemos de nombre "Charfile" Sin comillas.

Tema: Re: [GUIA] Crear Server de Twist Ao Mar Sep 16, 2008 10:49 pm

Holas!! Buenisimo, pero mi PC no me deja crear srvs :S Ya probe con los 3 que postiaron, ¿Si alguien tiene IAO 1.3 o 1.2, y una guia me la pasaria?

desde ya muchas gracias

Tema: Re: [GUIA] Crear Server de Twist Ao Miér Sep 17, 2008 6:22 am

Plz no desvirtuen desde ahora. abran otro tema.CLOSED

» [GUIA] Crear Server AO Comun
» [APORTE] Crear server 1.02D
» [APORTE] Crear Server de FenixAo
» [GUIA] Sacar ip de un server de ao
» [APORTE] Guia crear servidor cs 1.6