Mensajes

[Ejemplo de Worm (gusano) en VB]

Una cosa es un gusano que se reproduce y otra cosa un virus que infecta archivos.

Si lo que querés es un worm puse un ejemplo hace un tiempo:

Ejemplo de Worm (gusano) en VB

Si la idea era infectar archivos ya es algo mucho más avanzado que requiere conocimientos de asm, la estructura de los archivos ejecutables, métodos de infección, entre otros.

Si conoces a fondo la estructura de los ejecutables entonces sólo es realizar pruebas. Para más información acerca de su formato mira el siguiente post:

http://foro.elhacker.net/index.php/topic,73694.msg338298.html#msg338298

Y VBS es lo peor para realizar worms, por empezar lo detectan los AVs y segundo que es lentisimo, pero eso no significa que no sirva.

Saludos.

Lee el protocolo del MSN, es bastante sencillo hacerlo.

Saludos.

Podrían ser por ejemplo los índices de registros en una base de datos, o identificadores de recursos.

Saludos.

Podrías usar un número para representar a cada respuesta y luego generar un nº aleatorio utilizando la función Rnd para obtener una de las respuestas.

Saludos.

ANG no escribas más en mayúsculas, en el foro se considera que estás gritando.

Modifiqué el tema para que se pueda leer. La fuente es MSDN Library.

Hay que comprender algo y es que utilizar Visual Basic Scripting NO es un buen método. Tiene muchas desventajas.

1. Es mucho más lento porque tiene que crear el objeto.
2. Los antivirus, awares, lo detectan como un virus.
3. Si el administrador deshabilita la modificación del registro del sitema no funciona.
4. Es una mala costumbre para un programador depender de objetos externos.

Y hay algunas más para tener en cuenta que afectan el rendimiento pero no quiero entrarme tanto en el tema. Así que es mejor utilizar la API y es lo correcto.

P.D: reydelmundo11 deja de hacer SPAM, la próxima vez te modifico el post, si necesitan saber sobre vbscript que busquen, el post tiene chincheta y todo.

Saludos.

[Windows API (Ansi)]

Primero, usa las etiquetas CODE cuando pongas código, eso ayuda muchísimo para leerlo.

Y cuando digo "Agrega una referencia" significa que agregues una referencia . Primero bajas el archivo, lo descomprimis en el directorio del sistema, luego en VB vas a Proyecto -> Referencias -> Examinar y agregas ese archivo. Eso te va a dar acceso a todas las funciones de la API de Windows sin necesidad de declararlas con la instrucción Declare.

Veo que ese link de descarga ya no funciona, así que te dejo uno que funciona correctamente para que puedas bajar la librería.

Windows API (Ansi)

Saludos.

Si ponés el código me fijo cómo podrías aumentar el rendimiento.

Saludos.

La propiedad WindowState del formulario. Puede ser vbMinimized, vbNormal o vbMaximized.

Para mover la ventana (supongo que será tu próxima pregunta) lo podés hacer de la siguiente manera. Suponiendo que la barra de título es un control Label con el nombre de lblTitle.

Código [Seleccionar] Expandir


Private snCoord(2) As Single

Private Sub lblTitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  snCoord(1) = X
  snCoord(2) = Y
End Sub

Private Sub lblTitle_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then
    Call Move((Left - snCoord(1)) + X, (Top - snCoord(2)) + Y)
  End If
End Sub


Saludos.