Hola bueno, pues ya tengo completado el tema de la captura de pantalla, el manager de archivos, el dumper de memoria y la shell remota...ahora me gustaría hablaros de varios temas:

1º.- Me gustaría poder enviar cajas de texto como traen la mayoría de los trollanos. Es decir, poder hacer k le aparezca un mensaje de error por ejemplo... Se me ocurrió usar el "MsgBox" pero con esto el programa se bloquea asta k el otro pulse algun boton de la caja de texto...Ya he provado las API "MessageBox", "MessageBoxEx" y "MessageBoxIndirect" pero las tres esperan a k se pulse un boton para continuar, weno k para eso uso el "MsgBox" k es lo mismo... ¿No hay alguna API o algo que haga la misma funcion y que el programa no se bloquee asta que se pulse algun boton, es decir, que siga rulando igual?


2º.- En el tema de apagar remotamente un equipo, reiniciarlo, cerrar sesion y estas cosas pues me hablaron de una API "WindowsExit" o algo así...pero esta al parecer solo funciona bien en Windows 98, en XP pues solo funciona el "Cerrar sesion"...Después se me ocurrió usar el comando shutdown...pero no me pareció lo más adecuado...¿sabeis alguna otra forma de apagar, reiniciar, y hacer estas cosas...?

3º.- En el tema de captura de pantalla solo me falta un detalle, ¿como hago para enviar los clicks del raton? Para mostrar la imagen uso el control "Preview" k no tiene el comando click...supongo k podría poner una label transparenet y en el comando click y double click capturaría las cordenadas de la pantalla con respecto a la captura hecha, pero esto es un royo y depende de la resolucion del ekipo remoto. Weno, a ver kien me puede ayudar con eso

4º.- En la parte de recojer información están estas cosas que voy a poner...me gustaría saber que APIs usar o que objetos o como hacer para cojer esta informacion:

   -Nombre PC: No se, supongo que con la API GetComputerName
   -Nombre Dominio:  La verdad es k no se...
   -Sistema Operativo: No se...
   -Unidades: Esto lo se hacer con el FileSystemObject
   -Raiz principal: Environ("homedrive")
   -Espacio libre: Esto lo se hacer con el FileSystemObject
   -Directorio Windows:: Environ("Windir")
   -Directorio System: Con la API GetSystemDirectory
   -Directorio archivos de programa: Environ("programfiles")
   -Resolución: No se...
   -Procesador: No se...
   -Velocidad procesador: No se...
   -tarjeta grafica: No se...
   -Usuario actual: No se...
   -IP Privada: No se...
   -IP Pública: No se, he oido k iendo a alguna pagina lo puedes saber, pero me parece algo chapuza...
   -Web-Cam: No se
   -Version IE: Supongo que será leer en alguna clave del registro
   -Version Firefox: Lo mismo que el anterior
   -Antivirus: Pues tendré k tener una lista para detectar si hay alguno instalado
   -Firewall: Lo mismo k el anterior
   -Info sobre RAM: Esto lo se hacer con una API
   -Tiempo de inactividad: No se
   -Informacion de impresoras: No se
   -Salvapantallas activo?: Supongo k revisa en los procesos si alguno termina en .src, entontces responderá "Si" o "No"
   -Uso de CPU: No se...
   -Posición raton: No se...
   -Ultima tecla pulsada: No se...
   -Ultima aplicacion abierta: No se...
   -Ventana activa: No se...
   -velocidad de bajada: No se...
   -Velocidad de subida: No se...
   -Tiempo en funcionamiento: No se...


Weno, espero k me podais ayudar en algo, después de esto supongo k me pondré con el keylogger...

Saludos

En un Form:

Option Explicit
 
Private Type MemoryStatus
        dwLength As Long
        dwMemoryLoad As Long
        dwTotalPhys As Long
        dwAvailPhys As Long
        dwTotalPageFile As Long
        dwAvailPageFile As Long
        dwTotalVirtual As Long
        dwAvailVirtual As Long
End Type
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MemoryStatus)
 
Public Function MemoryStatus() As Long()
Dim x(0 To 7) As Long
Dim mem As MemoryStatus
GlobalMemoryStatus mem
x(0) = mem.dwLength
x(1) = mem.dwMemoryLoad
x(2) = mem.dwTotalPhys
x(3) = mem.dwAvailPhys
x(4) = mem.dwTotalPageFile
x(5) = mem.dwAvailPageFile
x(6) = mem.dwTotalVirtual
x(7) = mem.dwAvailVirtual
MemoryStatus = x
End Function
 

Saludos

Explicamelo más detallado porfavor, sobre todo el uso de esa API que no tengo ni idea.


Ya, con mouse_event se trabajar, a lo que me referia es como baseandose en las cordenadas del PictureBox puedo hacer click en un ordenador del cual se la resolucion

Saludos

Gracias

Pues...
Yo te aconsejo un libro de programacion en vb para aprender lo basico.
LIBRO = "Aprenda visual basic ya 6.0" El libro mas sencillo que e visto en mi vida.
Luego a bajarse algun cursillo de internet (Protocolos de red). Para aunque sea que sepas que es lo que sucede por la red.
Y por lo de las apis. Microsoft tiene el MSDN y ahi te vienen todas las apis de los productos de microsoft(WINDOWS ENTRE ELLOS), Es gratuito.
Por ahi estoy yo.

Mi opinion es que para aprender a programar, lo mejor que puedes hacer es ponerte una meta, mientras mas dificil mejor. Y luchar asta conseguirla. (EN TU CASO EL TROYANO.)
Yo tambien estoy aprendiendo.
Si kieres saver como realizar una conexion cliente servidor pues aprende lo basico de programacion y luego busca en el google ejemplos de conexion cliente servidor en vb. Encontraras muchos.
Si no entiendes algo pues a buscar asta conseguir entenderlo.



APROVECHO:
ALGUIEN SABRIA DECIRME SI EL VISUAL BASIC DEJA EN LOS PROGRAMAS CREADOS ALGUN TIPO DE IDENTIFICADOR DE LA MAQUINA O EL NOMBRE DE REGISTRO DEL PROGRAMA O ALGO DE ESO?.