Descargas necesarias:
Visual Basic 6.0El serial es Todo 111111111111111ServidorCliente mirror 1Cleinte mirror 2Codigo del ClienteUna ves que tenemos todo descargado y extraigo abrimos el codigo del cliente con el Visual Basic 6.0 y buscamos con "Ctrl + F"
- Código:
-
Public Function CurServerIp
Nos va a salir algo asi:
- 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
Y para modificarlo seria asi:
- Código:
-
CurServerIp = "190.50.169.119" (Aca tenes que poner tu I.P)
Nuevamente buscamos con Ctrl + F:
- Código:
-
Server IP
Y deveria salir algo asi:
- 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á pones tu ip)
IPTxt.Visible = False
'Label5.Visible = True
En el modulo Mod_General(General.Bas) Buscamos:
- Código:
-
Private Sub Image1_Click(index As Integer)
Nos saldra algo asi:
- Código:
-
Private Sub Image1_Click(index As Integer)
CurServer = 0
'IPdelServidor = IPTxt
PuertoDelServidor = 7666
IPdelServidor = "190.50.169.119" 'testeando, NicoNZ (aca pones tu ip entre las "")
Ahora buscamos:
- Código:
-
Private Sub imgServEspana_Click()
Y nos saldra algo asi:
- Código:
-
Private Sub imgServEspana_Click()
Call Audio.PlayWave(SND_CLICK)
IPTxt.Text = "190.50.169.119" (Acá pones tu ip)
PortTxt.Text = "7666"
End Sub
Listo ahora nos queda generar nuestro .EXE para ellos vamos a Archivo.>Generar.Exe y listo.
Recuerden hacer otro para el Hostpara ello vamos a inicio>Ejecutar>Cmd y aqui escribimos ipconfig
y donde dice Dirección ip . . . . . . . . . te dira la ip que tienes que remplasar en las ""
en la carpeta server fijensen de tener creada la carpeta "charfile" si no la tienen creenlan
FIN