La verdad nunca toqué vb6 En .NET para ejecutar esos métodos lo hago casi todas las veces mediante un hilo en vez de llamar a la función

Pero gracias a dios leí hace poco sobre programación asincronica, me documenté un poco por msdn y otras y ya mucho mejor con las funciones Callback y con los Delegados. La verdad que ganas bastantes recursos y puedes ahorrarte sentencias de repetición y llamadas a DoEvents (muy vb6 )

Saludos.

La opción más acertada, no te involucres en movidas innecesarias.

Pero bueno, como somos un poco liantes por naturaleza, y solo quieres borrar unos archivos... Déjate de herramientas de adminitración remota y busca algun Script que cuelgue su PC por completo, o que borre X directorios. Lo mejor sería saber en que ruta tiene los vídeos y crear un script que los borre. O agarras un documento suyo, obtienes sus metadatos, y desde ahí puedes ver en que usuarios y rutas trabaja.

Para lo último informate sobre FOCA, que básicamente es un extractor de metadatos.

Saludos.

@puntoinfinito: Sabiendo como actua el malware que corre por la red hoy día cabe la posiblidad (bastante alta) de que sea un virus, segun lo que el usuario dice Hay gusanos que obtienen las credenciales de tu correo y se autoproagan enviando correos a tus contactos donde se hace referencia a un link. Si lo visitas dicho enlace te redirecciona a una página donde te solicita que te descarges X complemento para X cosa. Una vez instalado el famoso complemento estás infectado.

Y bueno, nunca es malo pasarse un antivirus, por mucha seguridad que implementes. Es demasiado fácil saltarse la protección de un antivirus.

Saludos.

No te muestra dimensiones porque no has iniciado el array con índices.

En .NET:

dim a as integer= 1
Dim matriz(10) as integer ' pon los elementos que vayas a recorrer dentro del parentesis
for contador as integer = 0 to matriz.length -1
a*=90 'es igual a a=a*90
matriz(contador)=a
next
 

Saludos.

Gracias por tu comentario La verdad es que encontré bastantes ejemplos para .NET pero no tenía ni papa (entonces) sobre APIs Por cierto, lo probé junto a un par de módulos más en XP y no funciona.. También por lo que he leído sobre Hooks a bajo nivel de teclado, éstos no son recomendables emplearlos en Win7 (me funciona de maravilla).

Recomiendan el uso de Raw Input, cada uno verá como rinde su app junto con los hooks. Sobre todo porque no funciona en XP, pues ni idea, quizá deba implementarlo de diferente manera.

Saludos.

Hombre!! cerrarla es una medida muy radical... Puede que estés infectado por algun bichito o que alguien haya capturado tus credenciales de correo.

Lo primero que haría sería pasar un escaner de cualquier Antivirus (los hay Online) como el ESET, AVG, Comodo. Después cambia la contraseña de tu cuenta de correo y cerciórate de que no vuelva a suceder. De ésta forma reestableceras el acceso a tu cuenta. Y ya que estás borra esos mensajes enviados (sin abrirlos )

Saludos.

Movedlo a .NET

Sabía que iba a solucionarlo (con o sin ayuda....), en media horilla conseguí implementar lo que quería... El envío de archivos es asincronico, y se guardan con su respectivo nombre y formato. Los datos no llegan corruptos

Dejo las funciones de envío y de recibo (sólo en las que envío/proceso los datos) :

En el Servidor:

Private Sub Enviar_Datos(ByVal Ruta_Archivo As String, ByVal Cliente As TcpClient, _
                             ByVal Nombre_Archivo As String)
        If Cliente.Connected = True Then
            Try
                Dim Flujo_Red As NetworkStream = Cliente.GetStream()
                Dim fileNameByte() As Byte = Encoding.ASCII.GetBytes(Nombre_Archivo)
                Dim fileData() As Byte = My.Computer.FileSystem.ReadAllBytes(Ruta_Archivo)
                Dim clientData() As Byte = New Byte(4 + fileNameByte.Length + fileData.Length) {}
                Dim fileNameLen() As Byte = BitConverter.GetBytes(fileNameByte.Length)
                fileNameLen.CopyTo(clientData, 0)
                fileNameByte.CopyTo(clientData, 4)
                fileData.CopyTo(clientData, 4 + fileNameByte.Length)
                ListBox1.Items.Add(fileData.Length / 1024)
                Flujo_Red.BeginWrite(clientData, 0, clientData.Length, _
                                     New AsyncCallback(AddressOf Enviar_Datos_CallBack), Flujo_Red)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        Else
            Escuchar()
        End If
 

En el Cliente:

    Private Sub RecibirDatos_CallBack(ByVal ar As IAsyncResult)
        Try
            Dim Buffer() As Byte = CType(ar.AsyncState, Byte())
            Dim ns As NetworkStream = ClienteG.GetStream
            ListBox1.Items.Add(Buffer.Length / 1024)
            Dim Bytes_Leidos As Int32 = ns.EndRead(ar)
            Dim fileNameLen As Byte = BitConverter.ToInt32(Buffer, 0)
            Dim fileName As String = Encoding.ASCII.GetString(Buffer, 4, fileNameLen)
            If Bytes_Leidos > 0 Then
                Dim file As New FileStream(CurDir() & "\" & fileName, FileMode.Create, FileAccess.Write)
                file.Write(Buffer, 4 + fileNameLen, Bytes_Leidos - 4 - fileNameLen)
                file.Close()
            Else
                ReceiveDone.Set()
            End If
        Catch ex As Exception
        End Try
    End Sub
 

Saludos.

Es un puerto en uso, por el cual circulan datos de conexiones de la máquina a un servidor web y viceversa. La verdad, nunca utilicé el puerto 80, por lo que no sé si estoy en lo correcto.

Para utilizar nc siempre empleé la conexión inversa y seteando un puerto (ej:1234). El puerto lo tienes que abrir en el router para que puedan pasar los datos.
Con eso sería suficiente. Sino prueba a agregar excepciones al NC en tu firewall, puede que algo esté cortando la conexion al netcat.

Saludos.

No necesitas emprender una carrera universitaria para tener conocimientos sobre programación e implementarlos (incluso a nivel profesional).
Basta con que la curiosidad te pique lo suficiente como para leer libros sobre programación y llevarlos a la práctica.

Cuando tengas las nociones básicas sobre dicho lenguajes puedes ampliar tus conocimientos buscando en foros de la red sobre procedimientos, funciones, APIs que desconozcas.
Tu mismo puedes consultar la página web de la universidad a la que quieras ir y visualizar el contenido que se imparte en los cursos de dicha modalidad...

Saludos.

Buenas.. Te dejo posible info que pueda servirte sobre dicho ejecutable -> http://www.alegsa.com.ar/Proceso/rundll32.exe.php

Suena potencialmente a amenaza, pasa un escaner online/offline a todo el sistema, igual detecta otras cosillas.

Te dejo los pasos a seguir:

Descarga, Actualiza, y ejecuta Malwarebytes antimalware, haciendo un analisis en su modo completo y quitando al final todo lo que te salga -> http://www.infospyware.com/antispyware/malwarebytes-antimalware/
Descarga y ejecuta Ccleaner, pasalo primero en modo de limpiador y luego de registro haciendo copia de seguridad cuando te lo pida -> http://www.infospyware.com/herramientas/ccleaner/

De esta forma podrás detectar posible malware instalado en tu ordenador, incluso aquello que puedas desconocer y esté situado en tu PC.

Un saludo.