Ayuda con el mod twist



  • Bueno hola mi nombre es lucas y les queria preguntar si alguien savia canviar los codigos de mod twist. Por que yo estuve mirando con el visual bacik 6.0 y hize casi todo pero llego a los dos ultimos puntos y no se que hacer porfa vor espero que me ayuden

    DESDE YA MUCHAS GRACIAS.aca dejo la guia asi me ayudan. MARCO EN ROJO LO QUE NO SE.

    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.

    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.

    BUENO ESO ES TODO LO QUE NO SE…:bye:


Log in to reply