Convidado Convidado
| Assunto: Mudar ip interno Qui 07 Jul 2011, 14:02 | |
| Meu amigo no msn ta perguntando como muda ip interno, eu falei pra ele ir modclienttcp e q mudaria a linha q tinha config.ini, do ip só esquecio oque fazer, alguem explica |
|
Lucas Roberto Administrador
Mensagens : 711
| Assunto: Re: Mudar ip interno Qui 07 Jul 2011, 14:06 | |
| como assim... ele quer que mude o ip interno sem editar no Cliente ? bom se for isto ai esta a resposta Procura no modClientTCP POR: - Código:
-
Sub TcpInit() SEP_CHAR = Chr(169) END_CHAR = Chr(174) NEXT_CHAR = Chr(171) GoDebug = NO PlayerBuffer = vbNullString Dim FileName As String FileName = App.Path & "\config.ini"
frmMirage.Socket.RemoteHost = GetVar(FileName, "IPCONFIG", "IP") frmMirage.Socket.RemotePort = Val(GetVar(FileName, "IPCONFIG", "Porta")) End Sub mude para: - Código:
-
Sub TcpInit() SEP_CHAR = Chr(169) END_CHAR = Chr(174) NEXT_CHAR = Chr(171) GoDebug = NO PlayerBuffer = vbNullString Dim FileName As String FileName = App.Path & "\config.ini"
frmMirage.Socket.RemoteHost = GetVar(FileName, "IPCONFIG", "seu ip") frmMirage.Socket.RemotePort = Val(GetVar(FileName, "IPCONFIG", "sua porta")) End Sub explicado: oque vai mudar vai ser esta duas linhas - Citação :
- frmMirage.Socket.RemoteHost = GetVar(FileName, "IPCONFIG", "seu ip")
frmMirage.Socket.RemotePort = Val(GetVar(FileName, "IPCONFIG", "sua porta") ) | |
|