Tutorial de visual basic script:Este tutorial ha sido hecho por mi cogiendo ejemplos de script de fuentes.
1 Entorno de compilación:Para "compilar" script podemos usar el bloc de notas del windows o el propio visual basic, aunque el mas barato es el bloc de notas
.
Bloc de notas:Se introduce como simple texto, luego se da a archivo/guardar como..., y en el diálogo de guardar le das a elegir Todos los archivos y guardas el archivo con formato *.vbs.
Visual basic:Colocas el código en el evento donde quieras que se produzca.
2 Los objetos mas importantesEn visual basic script trabajamos con objetos que son rutinas especializadas de Visual Basic Script que reune un conjunto de librerias o rutinas que
simplifican la programacion en VBS, dependiendo de lo que queramos hacer llamamos a un objeto del windows o de algún programa, los mas importantes son:
"Scripting.FileSystemObject": Se utiliza para operaciones con ficheros, copiar, pegar, mover etc...
"WScript.Shell" Se utiliza para shell's comandos en el sistema, ejecuta ficheros, abrir navegador, usar el registro.
"outlook.application": El famoso outlook y su propagación de los gusanitos.
Excel.Application: El programa de calculo excel.
Estos son los objetos mas importantes en visual basic script.
Se definen:
Set variable = CreateObject("nombreOBJ")
Y luego cuando queremos hacer una opcion de ese objeto
variable.accion "parametro"
El objeto Scripting.FileSystemObject:Como ya dijimos este objeto se utiliza para operaciones con ficheros, puedes poner:
.\ si está en el mismo directorio.
C:\carpeta especificando el directorio
Acciones que podemos hacer con este objeto:---------------------------------------------------------------------------------------------------------------------
Copiar archivos
---------------------------------------------------------------------------------------------------------------------
CopyFile
Con este comando, podemos copiar archivos en la pc.
Ejemplo:
Set variable = CreateObject("Scripting.FileSystemObject")
variable.CopyFile ".\ejemplo_Copyfile.vbs","C:\perro.txt"
Copia el archivo "ejemplo_Copyfile.vbs" como "perro.txt" en la unidad C, puedes copiar otros archivos
aparte del mismo vbs.
---------------------------------------------------------------------------------------------------------------------
Mover archivo
---------------------------------------------------------------------------------------------------------------------
MoveFile
Con este comando, podemos mover archivos de la pc.
Ejemplo:
Set variable = CreateObject("Scripting.FileSystemObject")
variable.MoveFile ".\ejemplo_MoverArchivo.vbs", "C:\ejemplo_MoverArchivo.vbs"
Esto mueve el archivo "ejemplo_MoverArchivo.vbs" a C, puedes mover otros archivos aparte del mismo vbs.
---------------------------------------------------------------------------------------------------------------------
Borrar archivos
---------------------------------------------------------------------------------------------------------------------
DeleteFile
Con este comando borramos archivos en la pc.
Ejemplo:
Set variable = CreateObject("Scripting.FileSystemObject")
variable.DeleteFile "C:\perro.txt"
Esto borrara el archivo "perro.txt" de la unidad C. Si pones *.* ¡borraria todos los archivos!, ¡cuidado!
---------------------------------------------------------------------------------------------------------------------
Crear una carpeta
---------------------------------------------------------------------------------------------------------------------
CreateFolder
Sirve para crear carpetas en el pc.
Ejemplo:
Set variable = CreateObject("Scripting.FileSystemObject")
variable.CreateFolder "C:\perro"
Esto creara la carpeta "perro" en la unidad C
---------------------------------------------------------------------------------------------------------------------
Borrar una carpeta
---------------------------------------------------------------------------------------------------------------------
DeleteFolder
Este comando sirve para borrar carpetas.
Ejemplo:
Set variable = CreateObject("Scripting.FileSystemObject")
variable.DeleteFolder "C:\perro"
Esto borrara la carpeta "perro" de la unidad C. Si pones *.* borraria todos las carpetas!
---------------------------------------------------------------------------------------------------------------------
Crear un archivo
---------------------------------------------------------------------------------------------------------------------
CreateTextFile
Sirve para crear archivos en la pc.
Set variable = CreateObject("Scripting.FileSystemObject")
variable.CreateTextFile "C:\perro.mp3"
Estás son las funciones de Scripting.FilesystemObject te permite hacer todas las operaciones con ficheros del sistema.
4 El objeto WScript.Shell:Este objeto es para mandar shell al sistema, para abrir el navegador, para abrir ficheros, para modificar el registro.
Ejemplos:---------------------------------------------------------------------------------------------------------------------
Ejecutar y/o abrir archivos o paginas web
---------------------------------------------------------------------------------------------------------------------
Run
Sirve para ejecutar archivos y abrir paginas web.
Ejemplo:
On Error Resume Next
Set variable = CreateObject("WScript.Shell")
variable.Run "C:\perro.txt"
Esto ejecutara el archivo "perro.txt" si este existe en la ruta actual, Si escibes un URL este seria abierto
por el navegador de internet, pero es necesario que pongas las "www", como
www.geocities.com/reydelmundo11jorge; y si
la url no comienza con "www", tienes que anteponer el "http:\\", como http:\\foro.elhacker.net
---------------------------------------------------------------------------------------------------------------------
Crea y/o modificar una entrada de registro de Windows
---------------------------------------------------------------------------------------------------------------------
RegWrite
Con este comando podemos escribir en el registro de Windows
Ejemplo:
Set zonavirus = CreateObject("WScript.Shell")
zonavirus.RegWrite "HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}
\InfoTip","Entrada modificada"
Modifica el mensaje que muestra el windows al pasar el mouse en el icono "MI PC" y le pone otro valor, en este
caso le cambia el mensaje que desplegaba, compruebalo ejecutando el vbs de ejemplo y despues pasando el mouse
sobre el icono "MI PC" y veras.
Si quieres que tu VBS sea residente lo que puedes hacer es crear una linea en el registro que servira para que el
VBS se ejecute a cada inicio de Windows, haciendose residente.
Ejemplo:
Set zonavirus = CreateObject("WScript.Shell")
zonavirus.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\ejemplo",
"C:\ejemplo_residente.vbs"
Esto hara que el archivo "ejemplo_residente.vbs" se ejecute cada vez que se inicie Windows, siempre y cuando el
VBS exista en C:
---------------------------------------------------------------------------------------------------------------------
Borrar una entrada de registro de Windows
---------------------------------------------------------------------------------------------------------------------
RegDelete
Borra entradas de registro
Ejemplo:
On Error Resume Next
Set zonavirus = CreateObject("WScript.Shell")
zonavirus.RegDelete "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\
ejemplo"
Borra la entrada de registro declarada, si no existe, omite el error y no hace nada. En este caso, la clave que inicia
a nuestro ejemplo, haciendo que pierda la permanencia.
---------------------------------------------------------------------------------------------------------------------
Lee una entrada de registro de Windows
---------------------------------------------------------------------------------------------------------------------
RegRead
Sirve para verificar los valores de una entrada de registro. Por ejemplo, el VBS puede saber leyendo una entrada
de registro si se encuentra infectado la PC, y si no, proceder con la infecccion.
La entrada de registro a leer debe de estrar dentro de parentesis y comillas... bueno a mi solo me funciona asi.
Ejemplo:
On Error Resume Next
Set zonavirus = CreateObject("WScript.Shell")
X = zonavirus.regRead ("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\GEDZAC")
If X = "1" Then
MsgBox "Esta Pc esta infectada con el Worm.P2P.TorresGemelas"
Else
MsgBox "Esta Pc esta NO infectada con el Worm.P2P.TorresGemelas"
End If
Estas son las funciones mas importantes del objeto shell aunque también se pueden usar otras cosas como por ejemplo:
zonavirus.Run "C:\WINDOWS\RUNDLL32.EXE user.exe,ExitWindows"
6 Objetos para situarnosTambién los objetos te puede servir para que te devuelva las carpetas mas importantes del sistema.
Podemos obtener directorios de mis documentos,boton inicio etc.. con el objeto
WScript.Shell:
zonavirus.SpecialFolders("MyDocuments")
zonavirus.SpecialFolders("SendTo")
zonavirus.SpecialFolders("StartMenu")
zonavirus.SpecialFolders("Startup")
Con el objeto
Scripting.FileSystemObject puedes:
zonavirus.GetSpecialFolder (0) 'Obtener la dirección de la carpeta windows
zonarvirus.GetSpecialFolder (1) 'Obener la dirección de la carpeta System
zonavirus.GetSpecialFolder (2) 'Obtener la dirección de la carpeta temp
Si nos queremos situar como se llama el script que esta ejecutando podemos poner
Wscript.ScriptFullName sin definir objeto alguno.
8 Errores mas comunes entre vbs y vb:Pueden surgiros errores al transladar un script a visual basic tendríais.
Wscript.ScriptFullName que se sustituiria por app.exename
También cuando haceis algo del registro el comando tiene que estar todo en la misma linea si no el visual basic te da error.
Estos son los mas comunes.
9 Despedida:Este tutorial ha sido hecho por kaguasanagui aunque algunas cosas han sido hechas por mi. Espero que hos sea util.
P.S Si tengo algún error comentadmelo.
Autor
En línea
