Hola amigos, en este manual les voy a mostrar como hacer comandos en .vbs y si lo convinan bien podrian hacer algun virus.
Este manual es para los que estan pensando en empezar a programar en VBS y especialmente para los que van a comenzar a
utilizar el lenguaje Visual Basic.
Los programas en VBS se leen igual que los BATCH, como una carta desde la primera instrucción hasta la última, VBS quiere decir Visual Basic Script.
Este lenguaje se usa principalmente para la reproducción de gusanos via Outlock Express.
Explicaré las variables principales de este sistema, con el cual se puede hacer lo que sea en el manejo de ficheros, carpetas y aplicaciones.
Las variables que explicaré como se usan son "FileSystemObject" y "WScript.Shell", para definirlas hay que hacerlo de la
siguiente forma:
Set VAR = ("FileSystemObject" ) - SCRIPTING
Set PV1 = ("WScript.Shell" )
Ahora, Con "FileSystemObject" podemos hacer todo lo que es el manejo de ficheros, Copiar, Borrar, Eliminar, Crear Archivos,
Borrar Carpetas, Leer y Borrar El Registro.
Example Número 1: Copiar Archivos.
----------------------------------------------------------------------------------------
Set PV1 = CreateObject("Scripting.FileSystemObject" )
PV1.copyfile "File.DOC","C:Max.DOC"
Podemos ver como la variable afirma la orden Copyfile, encargada de copiar archivos.
----------------------------------------------------------------------------------------
Example Número 2: Crear Carpetas.
----------------------------------------------------------------------------------------
Set PV2 = CreateObject("Scripting.FileSystemObject" )
PV2.createfolder "C:SiS"
Podemos ver como la variable afirma la orden CreateFolder, encargada de crear carpetas.
----------------------------------------------------------------------------------------
Example Número 3: Crear Archivo / Texto.
----------------------------------------------------------------------------------------
Set PV3 = CreateObject("Scripting.FileSystemObject" )
PV3.createtextfile "C:WindowsWin98.Com"
Podemos ver como la variable afirma la orden CreateTextFile, encargada de crear archivos.
----------------------------------------------------------------------------------------
Example Número 4: Borrar Archivos.
----------------------------------------------------------------------------------------
Set PV4 = CreateObject("Scripting.FileSystemObject" )
PV4.deletefile "C:Comman.com"
Podemos ver como la variable afirma la orden DeleteFile, encargada de borrar archivos.
----------------------------------------------------------------------------------------
Example 5: Borrar Carpetas.
----------------------------------------------------------------------------------------
Set PV5 = CreateObject("Scripting.FileSystemObject" )
PV5.deletefolder "gato"
Podemos ver como la variable afirma la orden deletefolder, encargada de borrar carpetas.
----------------------------------------------------------------------------------------
Example 6: Mover Archivos.
----------------------------------------------------------------------------------------
Set PV6 = CreateObject("Scripting.FileSystemObject" )
PV6.MoveFile "File.VB","File.VBS"
Podemos ver como la variable afirma la orden movefile, encargada de mover archivos.
----------------------------------------------------------------------------------------
Example 7: Abrir Archivos
----------------------------------------------------------------------------------------
Set PV7 = CreateObject("WScript.Shell" )
PV7.Run "C:pe.txt"
Podemos ver como la variable afirma la orden run, encargada de abrir archivos
----------------------------------------------------------------------------------------
Si vos vas a programar virus te recomienda que pongas la order "On Error Resume Next" en la cabecera del archivo para omitir caulquier error.