|
VBSCRIPT Visual Basic Script Cuando alguien construye un programa, lo escribe en texto, obteniendo lo que se llama código fuente. Para que el programa lo pueda ejecutar un usuario hay que convertirlo en binario éste paso se llama compilar. Al compilarlo obtenemos un archivo de extensión .exe que podremos ejecutar directamente. (No hablamos aquí del programa objeto ni del linkado, otros pasos intermedio, a veces necesarios). Un SCRIPT es un programa en código fuente, en textos, que no necesita ser compilado para funcionar. La aplicación que lo lee es capaz de ejecutarlo al leer sus códigos textuales. El Visual Basic Script, VBScript, es un lenguaje basado en Visual Basic para construir Scripts. Más tarde lo podremos utilizar con las páginas ASP.
|
Documentos VBSCRIPT:
|
|
Voy a distinguir VBScript en tres niveles: 1.- VBScript Simple, son programas con las ordenes "sencillas" de Visual Basic FOR NEXT, CLS, IF THEN ELSE, INPUTBOX, MSGBOX, DO LOOP, SELECT CASE, SUB, DATE, TIME, NOW, SQR, RND, SIN, MID, LEFT, RIGHT, LEN, CHR etcétera. Podemos realizar textualmente un programa, un archivo con estos comandos (y los que faltan) y luego guardarlo con la extensión .vbs. Cuando pulsemos sobre el archivo, se ejecutará. Por ejemplo creamos con el Bloc de notas un archivo de texto y escribimos:
Guárdalo como edad.vbs.
Ejecútalo. Fácil ¿verdad?, pues bien quién
conozca las órdenes de Visual Basic, puede hacer Scripts
de éste tipo. 2.- VBScript con Objetos. Estos son programas como el comentado en el apartado anterior, con las órdenes del Visual Basic, pero además se insertan Objetos. Un Objeto en éste caso es: (dicho de forma poco académica) un archivo que nos dá la posibilidad de tener más comandos. Fíjate en este VBScript. Cuando lo ejecuta crea un Objeto.
Este Objeto creado nos dá la posibilidad de manejar archivos.
En este caso vamos a crear un archivo llamado C:\amigo.doc. Esto
empieza a ser peligroso pues lo mismo que puede crear un archivo,
lo puede borrar de manera que puede dañar al sistema.
|
3.- VBScript en página HTM.
Esto sería poner códigos de VBScript en páginas HTM
de manera que al activarse la página se activa también el
código VBScript que está insertado dentro de ella. (El VBScript
en páginas web es como el JavaScript pero tal vez menos potente).
Bueno, no tan menos potentes, pues muchos virus y gusanos están
escrito en VBS de tal manera que pueden entrar en nuestro ordenador a
través de correos o páginas web y desconfigurarnos el sistema.
¿Recuerdas el I LOVE YOU?, pues era un virus VBS que solía
venir por e-mail. Hay que tener cuidado que en una página no nos
inserten códigos VBS. De todos modos el Internet Explorer tiene
un sistema de seguridad, que hemos de configurar para que cada vez que
un código VBS quiera entrar en nuestro sistema, nos avise. En el
documento 50.htm nos informa sobre como configurar el sistema de seguridad.
En nuestro caso los programas VBS que vamos a realizar son inocuos, por
lo cual nos es conveniente activar la entrada de ActiveX (o sea, que actúen
los VBS). Por supuesto los VBS insertados en páginas web también
pueden hacer uso de los Objetos.
Aquí presento un sencillo ejemplo de VBS insertado en una página
web.
| <HTML> <HEAD> <TITLE>Adivina</TITLE> </HEAD> <BODY> Se trata de que el ordenador (mediante VBS) cree un número, que hemos de adivinar.<br> <SCRIPT LANGUAGE="VBSCRIPT"> Randomize x=CInt(1 + Int(Rnd()*19)) Do t=CInt(InputBox("Introduce un número del 1 al 12")) If x<t Then r=MsgBox("Mi número es más pequeño.") If x>t Then r=MsgBox("Mi número es mayor.") Loop Until x=t MsgBox("Has acertado") </SCRIPT> <br> Ya veo que has acertado. Espero que tes des cuenta de que trata esto de VBScript en paginas web. </BODY> </HTML> |
Aquí puedes ver su funcionamiento, pulsa adivina.htm
Otra de la forma de evitar que en tu ordenador no funcionen los VBScript es quitar la Aplicación que los ejecuta, pero de esta forma te dejará el ordenador sin esa posibilidad que muchas veces es muy agradecida, para ello:
1) Mi PC/Panel de control.
2). Pulsa en: Agregar o quitar programas.
3). Instalación de Windows.
4). Marca: Accesorios.
5). Pulsa en: Detalles.
6). Busca hacia bajo: Windows Scripting Host y desmárcalo.
En fin, tu sabrás ...... no te lo recomiendo.
La aplicación que hace funcionar a los VBScript es : wscript.exe,
si buscas esa aplicación y la renombras 000wscript.exe, no te funcionarán
los vbs.
Esto lo puedes hacer para que no te metan gusanos en vbs.
Ahora voy a presentar unos sencillos ejemplos (como siempre) de VBS. Te recuerdo que el sistema de Seguridad del Internet Explorer debe tener activada la entrada de ActiveX para que funcionen los VBS.
Los primeros ejemplos son archivos VBS independientes, o sea, no están insertados en páginas web, (pertenecen al primer y segundo grupo) es posible que cuando los intentes ejecutar salga éste mensaje:
Déjalo como Ejecutar este programa desde Internet.
Más tarde puedes ponerlo como Guardar este programa en disco y
ver su código con un editor de textos.
También te puede salir un mensaje advirtiéndote sobre
la seguridad de los ActiveX, pulsa Sí.
(Algunos de estos Script no funcionan en XP, pero
es símplemente porque la ruta de las aplicaciones no se corresponden
con las del XP. Entra en su código fuente y cambia la ruta.)
1.- 01Mensaje.vbs
2.- 02Mensaje.vbs
3.- 03MensajeElige.vbs
4.- 04Respuesta.vbs
5.- 05Hora.vbs
6.- 06Multiplicar.vbs
7.- 07CrearArchivo.vbs Con Objeto. Set
fso = CreateObject("Scripting.FileSystemObject")
8.- 08EscribeArchivo.vbs Con Objeto
Set fso = CreateObject("Scripting.FileSystemObject")
9.- 09CopiaArchivo.vbs Con Objeto Set
fso = CreateObject("Scripting.FileSystemObject")
10.- 10Pitagoras.vbs
11.- 11ANDOR.vbs
12.- 12Dias.vbs
13.- 13Semana.vbs
14.- 14Multi.vbs
15.- 15Mayuscula.vbs
16.- 16Adivina.vbs
17.- 17Coseno.vbs
18.- 18DoUntil.vbs
19.- 19Registro.vbs Modifica el Registro
de Windows y cambia la página de inicio de Internet.
20.- 20RegiFondo.vbs Modifica el Registro
de Windows y cuando reinicies el ordenador tendrá otro fondo
de pantalla.
21.- 21Run.vbs Ejecuta el Bloc de notas con el
autoexec.bat
22.- 22Runprograma.vbs Ejecuta el desfragmentador
de discos.
23.- 23CrearCarpeta.vbs Con Objeto Set
fso = CreateObject("Scripting.FileSystemObject")
24.- 24AnexarArchivo.vbs Cada vez que
lo ejecutes añade la frase -Hola a todos- al archivo prueba1.txt
que debe existir(Depurar)
25.- 25Temporizador.wsf Entra en un bucle,
éste es mejor que lo descarges y lo estudies. Mira que son los
wsf.
26.- 26mensaje.vbs Enviar mensajes a otros
ordenadores de la red.
Aquí te presento VBS insertados en páginas HTM (pertenecen al tercer grupo). Algunos están basado en los anteriores, visualízalo y estudia su código fuente.
50.- 50.htm Presentación
50.- 50Mensaje.htm
51.- 51Alert.htm
52.- 52Document.htm
53.- 53Respuesta.htm
54.- 54Clave.htm
55.- 55Respuesta.htm
56.- 56Hora.htm
57.- 57OtraHora.htm
58.- 58Pitagoras.htm
59.- 59Dias.htm
60.- 60Semana.htm
61.- 61Multi.htm
62.- 62Mayuscula.htm
63.- 63Adivina.htm
64.- 64Coseno.htm
65.- 65Registro.htm
66.- 66Regifondo.htm
67.- 67CrearArchivo.htm
68.- 68Run.htm
69.- 69EscribeArchivo.htm
70.- 70CopiarArchivo.htm
71.- 71CrearCarpeta.htm
72.- 72AnexarArchivo.htm
73.- 73Boton.htm
74.- 74BotonOtro.htm
75.- 75Objetos.htm
76.- 76Calculadora.htm
77.- 77VerDiscos.htm
78.- 78Usuario.htm