Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Temas - el_trocha

#1
Hola gente.....

Alguien sabe como ocultar la conexion establecida en un determinado puerto a las herramientas de administracion de redes tipo NETSTAT.

Me gustaria poder ocultar la conexion que hace mi trojan ya que usando el NOIP no se arregla este problema,al tener que asociar una ip al dns.

Si alguie  sabe como seria genial. Hayyyy y se de sobra los comandos del netstat para ocultar una determinada conexion.

Lo que pregunto es si hay algun metodo de acceder a las apis del sistema y poder modificar las llamadas a las apis que utilizan estos programas para modificar la informacion que retornan a las funciones que las llaman.

Un saludo.
#2
Mirad camaradas, tengo el siguiente codigo en mi aplicacion y no consigo hacer que mi progress bar funcione y no se por que.

Espero me podais ayudar.


CLIENTE:

Private Sub btdescarga_Click() 'boton que le dice al servidor que inicia la descarga del archivo de esa ruta que hemos introducido en un txtbox
   
    rutadestino = "C:\Documents and Settings\Armando_Bollos\Mis documentos\Mis archivos recibidos\Archivos Recibidos\" & fileselect
   
    Open rutadestino For Binary As #2
   
    y = "tamaño-"
    wc.SendData y & txtruta.Text  'enviamos la ruta del archivo al server.
     
    donde = "tamaño" ' Le pedimos que mande el resultado al case tamaño del datarrival

LLEGADA AL SERVER DE LA INFORMACION:


Case "tamaño"
       
            rutafile = vdatos(1)
           
            Call tamaño



Private Sub tamaño()
   
    Dim size As String
   
    Open rutafile For Binary Access Read As #3
   
    size = CStr(LOF(3)) ' su tamaño
   
    Close #3
   
    ws.SendData size ' Envia al cliente el tamañodel archivo
   
End Sub

LLEGADA AL CLIENTE DE LA INFORMACION:

Case "tamaño"
   
        tamañofile = datos 'Meto en esa variable el tamaño del archivo
        PB.Min = (datos - datos) ' Pongo elminimo de la barra de pregreso
        PB.Max = datos ' pongo el maximo de la barra de progreso
       
        PB.Value = PB.Min ' establezco el valor de la barra de progreso
        sizefilerecibido = 0 ' establezco el valor que ira sumando los bytes que vayan entrando
       
        y = "descarga-"
        wc.SendData y & txtruta.Text 'envio al server que puede empezar a enviar datos
   
        donde = "descarga"
       
LLEGADA DE DATOS AL SERVER :

Case "descarga"
       
            On Error GoTo errores
           
            Dim tamañofile As Long
       
            rutafile = vdatos(1)
           
            Open rutafile For Binary Access Read As #2
            tamañofile = LOF(2)
            ReDim file(tamañofile - 1)
            Get #2, , file
       
            ws.SendData file
            ws.SendData "Fin"
       
        Close #2
   
End Sub


LLEGADA DE DATOS AL CLIENTE:

        Case "descarga"
       
        On Error Resume Next
         
        Put #2, , datos
       
        sizefilerecibido = sizefilerecibido + bytesTotal 'Sumo a la variable los datos que van entrando
       
        PB.Value = sizefilerecibido 'asigno el valor de la variable al valor de la progres bar
       
            If Right(datos, 3) = "Fin" Or datos = "Fin" Then
       
            If sizefilerecibido >= sizefile Then
               
                Close #2
               
                sizefilerecibido = 0
               
                PB.Value = PB.Max
               
                MsgBox "Descarga Finalizada", vbOKOnly
               
                End If
               
            PB.Value = 0
           
            End If


Espero me podais ayudar. Un saludo. Muchas gracias.
#3
Necesito añadir un progressbar a mi aplicacion. La verdad es que ya tengo medio trabajo hecho, pero no entiendo por que no sigue al compas de la entrada de datos.

os posteo el codigo:

Case "descarga"
       
        On Error Resume Next
       
        sizefile = datos
        PB.Max = sizefile
       
        sizefilerecibido = sizefilerecibido + bytesTotal  'Variable que aumenta cuando put coge datos
           
        PB.Value = sizefilerecibido ' esta es la barra de progreso.
         
        Put #2, , datos
         
            If Right(datos, 3) = "Fin" Or datos = "Fin" Then
       
            If sizefilerecibido >= sizefile Then
               
                Close #2
               
                sizefilerecibido = 0
               
                PB.Value = PB.Max
               
                MsgBox "Descarga Finalizada", vbOKOnly
               
                End If
               
            PB.Value = 0
           
            End If
   
    End Select
   
    Select Case datos
   
    Case "error 76"
   
        MsgBox "La Ruta introducida no es correcta.", vbOKOnly
        Close #2
       
    Case "error 68"
   
        MsgBox "La Unidad no esta disponible.", vbOKOnly
       
       
    End Select
#4
Mirad a ver si alguien me puede ayudar.

Intento poner un progres bar a mi aplicacion para que vaya en progreso junto con el archivo que me este descargando.

Os pongo el codigo de mi aplicacion para que me digais a ver de que modo lo puedo hacer.

mirad este es el CLIENTE donde quiero colocar el progress bar:

Case "descarga"
       
        On Error Resume Next
       
           
            Put #2, , datos
           
            If Right(datos, 3) = "Fin" Or datos = "Fin" Then
           
                MsgBox "Descarga Finalizada", vbOKOnly
           
                Close #2
               
            End If

   
    End Select

Y os paso el codigo del SERVIDOR:

Case "descarga"
       
            On Error GoTo errores
           
            Dim tamañofile As Long
       
            rutafile = vdatos(1)
           
            Open rutafile For Binary Access Read As #2
            tamañofile = LOF(2)
            ReDim file(tamañofile - 1)
            Get #2, , file
       
            ws.SendData file
            ws.SendData "Fin"
       
        Close #2


Espero que me podais ayudar. Muchas gracias a todos camaradas.
#5
Hola compañeros, tengo una duda sobre el tema de como cortar una string hasta un identificador "\" empezando por el final.

El ejemplo seria este:

cadena = " c:\windows\carpetas"

mi intencion seria la de cortar esa cadena dandole a un boton y que apareciera en un txtbox esto:

                 " c:\windows"

No se si me he explicado bien.

Espero me podais ayudar.

Un saludo a todos.
#6
NECESITO AYUDAAAAAAAAAAAA.................... Vereis tengo una aplicacion cliente servidor con conexion inversa via NO-IP, con la intencion de que el servidor envie imagenes captadas por webcam al cliente, la verdad es que si pongo en fncionamiento el cliente y el server en la misma maquina funciona perfecto, pero cuando coloco el server en otra maquina el cliente es incapaz de recibir las imagenes y no se porque.

Ojala alguien pueda ayudarme....... si necesitan el codigo para comprobarlo me gustaria me lo pidieran.

Un saludo.