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

Link:
[Solo Miembros registrados ven los enlaces. ]

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:

[Solo Miembros registrados ven los enlaces. ]

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

[Solo Miembros registrados ven los enlaces. ]

Mirror 2

[Solo Miembros registrados ven los enlaces. ]

Code del Cliente:

[Solo Miembros registrados ven los enlaces. ]



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.

Post Original: [Solo Miembros registrados ven los enlaces. ]