Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: Sai-To en 19 Noviembre 2007, 04:40 AM

Título: Tengo una duda?
Publicado por: Sai-To en 19 Noviembre 2007, 04:40 AM
Bueno saludos e estado trabajando y estudiando, y depaso leyendo MUCHOS manuales de troyanos, joiners, etc.. pero SIEMPRE, SIEMPRE se me presenta un problema y es este!:

Private Sub ws_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim Datos As String
Dim vDatos As Variant

ws(Index).GetData Datos
vDatos = Split(Datos, "|")

Select Case vDatos(0)
Case "hola" 'Nos saludan, luego lo añadiremos a la lista xDD
    Lv.ListItems.Add(, Index & "|", "Nuevo").SubItems(1) = ws(Index).RemoteHostIP

End Select

End Sub


Bueno el problema se me presenta aqui en:

Split

Siempre se presenta ya sea que segui un curso y puse eso y no me da error, es que de verdad ya estoy picado! :¬¬ porque es que siempre sale y me dice esto:

No se a decalraro Sub o Function a que se debe esto???????
Si alguien sabe de verdad que se lo agradeceria muchisimoo!!

Salu2's!
Título: Re: Tengo una duda?
Publicado por: LeandroA en 19 Noviembre 2007, 19:36 PM
estas seguro que el winsock (ws) es una matriz,

fijate en su propiedad "Index" si tiene algun valor si no lo tinene ponele 0

saludos

PD: si no explica un poco mejor, aver que puede ser.

Título: Re: Tengo una duda?
Publicado por: Sai-To en 20 Noviembre 2007, 00:18 AM
bueno saludos amigo mira de aqui es donde esto aprendiendo

Citarhttp://foro.elhacker.net/index.php/topic,177919.0.html

de hay y baja y veraz que lo estoy haciendo en VB y me sigue diceindo lo del split que puedo hacer!:S

Salu2's! 8)
Título: Re: Tengo una duda?
Publicado por: GroK en 20 Noviembre 2007, 04:50 AM
Total que no pusiste el fallo que te daba; de todas maneras, creo que el fallo esta en la declaracion de la variable vDatos. Tal como esta declarada es una variable simple, de una sola dimension. Si la declaras asi:

Código (vb) [Seleccionar]
Dim vDatos() As Variant

Ya el compilador sabe que vDatos es una matriz de Variant's. De este modo las partes que se vayan spliteando iran en vDatos(0), vDatos(1), etc. Y luego miramos a ver si vDatos(0) es igual a "hola" (Porque el servidor en teoria deberia mandar una cadena que empiece con "hola|blablabl..."). Si es igual pues mete nuestra nueva conexion en el listbox.

Prueba con eso a ver que tal, saludos
Título: Re: Tengo una duda?
Publicado por: Sai-To en 28 Noviembre 2007, 13:37 PM
saludos bueno amigo mira me tieera el error en el Split me dice que no se a declararo Sub, bueno el problem es que deseguro el uso VB6 yo tengo es VB5 como hago para arreglarlo???

saludos
Título: Re: Tengo una duda?
Publicado por: demoniox12 en 28 Noviembre 2007, 15:21 PM
Cita de: brache en 28 Noviembre 2007, 13:37 PM
saludos bueno amigo mira me tieera el error en el Split me dice que no se a declararo Sub, bueno el problem es que deseguro el uso VB6 yo tengo es VB5 como hago para arreglarlo???

saludos

bajate el 6.0 :)

salu2!
Título: Re: Tengo una duda?
Publicado por: Sai-To en 29 Noviembre 2007, 03:50 AM
Well, them problem is! de donde lo puedo bajar ya que por p2p no puedo porque tengo LimeWire PRO 4.14.8 y eso hasta las canciones traen virus, y por el ares no aparece nada! si me pudieras recoemndar alguna pagina o algo te lo agradeceria!

Saludos y disculpa las molestias!
Título: Re: Tengo una duda?
Publicado por: demoniox12 en 29 Noviembre 2007, 04:29 AM
bajate el emule y luego le das a este link:

ed2k://|file|Visual.Basic.6.0.Professional.(Espa%C3%B1ol).zip|119529385|E32540566D6AB94703379960F0598B11|/

salu2!
Título: Re: Tengo una duda?
Publicado por: Sai-To en 29 Noviembre 2007, 15:35 PM
Ya me descarge el 6 ahora tengo el 5 y 6 pero buehh vere como arreglo el problema y luego vuelvo a preguntar!

saludos