Maldito Sinfo! como sacarlo?

Estado
Cerrado para nuevas respuestas.

Dj Mixer

Destructor Lvl 1
Holas.. Bueno toy con el cliente propio pero necesito q no carge la info de Sinfo.dat
bue si no tenes el sinfo , hay que poner el codigo que seria asi:

En general mas precisamente en Main buscamos:

Call CargarServidores
ServersRecibidos = True

Y debajo ponemos esto:

IPdelServidor = Nuestra IP o NO-IP
PuertoDelServidor = 7666

Y Luego buscamos:

Public Sub CargarServidores()
On Error GoTo errorH
Dim f As String
Dim C As Integer
Dim I As Integer

f = App.Path & "\init\sinfo.dat"
C = Val(GetVar(f, "INIT", "Cant"))

ReDim ServersLst(1 To C) As tServerInfo
For I = 1 To C
ServersLst(I).desc = GetVar(f, "S" & I, "Desc")
ServersLst(I).Ip = Trim(GetVar(f, "S" & I, "Ip"))
ServersLst(I).PassRecPort = Val(GetVar(f, "S" & I, "P2"))
ServersLst(I).Puerto = Val(GetVar(f, "S" & I, "PJ"))
Next I
CurServer = 1
Exit Sub

errorH:
Call MsgBox("Error cargando los servidores, actualicelos de la web", vbCritical + vbOKOnly, "Argentum Online")
End Sub


y lo borramos

Ups un error

si borras la funcion
CargarServidores Tmb Trate con el Codigo De Shura (En seccion codigos) que es casi igual al de arriba (posteado por frozen) pero me saltan "casi" o los mismos errores..
 
A

Anonymous

Invitado
Lo podes completar porfa, que a mi me pasa lo mismo? :D :D
 

Chily

Yo le hice un gol a GS
MM, yo una vez hice para que no se conecte con el sinfo, pero no lo podias borrar...
 

CHOTS

Director LapsusAO
Lo q hice yo, q me parece lo mejor y mas sencillo es:

En el boton de conectar y crear pj poner

Iptxt.text= "IP"
Porttxt.text= "Puerto"

Al toq
 
Estado
Cerrado para nuevas respuestas.
Arriba