PDF de programación - Uso Avanzado y Ejemplos de Visual Basic Scrip

Tutorial escrito por ScSWinter

http://scswinter.110mb.com

Uso Avanzado y Ejemplos de

Visual Basic Script

PARTES DEL TUTORIAL:

Programación en Visual Basic Script: Usos Alternativos

Programación en Visual Basic Script: Arrays y Matrices

Programación en Visual Basic Script: Ejemplos y Códigos

Programación en Visual Basic Script: Uso de las Referencias

Programación en Visual Basic Script: Notas Finales

SOBRE LOS TUTORIALES:

Visual Basic Script es un lenguaje de programación mediante Scripts (no genera .exe al no ser
compilado), de alto nivel. En general es uno de los lenguajes más básicos y es, sin duda alguna, la base
del Visual Basic 6, ya que todo lo que se aprende aquí, luego puede ser usado en él sin ningún cambio. En
otras palabras, es el lenguaje que se suele aprender antes del Visual Basic 6. Es por eso que todo
programador de Visual Basic que se precie debe conocerlo.

Con este motivo, para aquellos que se quieran iniciar en el mundo de la programación con un lenguaje
sencillo de aprender, antes de estudiar en la universidad ya otros más avanzados, he decidido poner aquí
un tutorial de aprendizaje de Visual Basic Script desde lo más básico hasta lo más avanzado, y
posteriormente, como adaptar lo aprendido a Visual Basic 6, y un tutorial sobre él. En definitiva, lo que
yo llamo un proceso de aprendizaje desde lo más simple hasta el nivel que te permitirá realizar programas
como los que yo ofrezco...

Introducción en Programación en Visual Basic Script.
Programación con Objetos (ActiveX, “.ocx”)

•
•
• Uso avanzado y Ejemplos de VBScript

De estos tres simples, pero largos documentos está compuesto el tutorial de Visual Basic Script. Deberás
aprender por orden cada uno de ellos para continuar con el siguiente, pero no te apures, no es difícil.

Y no lo olvides, para dudas o consultas escribe a: [email protected]

Y no dudes en visitar: http://scswinter.110mb.com

Página 1 de 25

Tutorial escrito por ScSWinter

http://scswinter.110mb.com

Programación en Visual Basic Script:


Usos Alternativos




Para tener un uso avanzado de Visual Basic Script sería necesario cumplir los siguientes
puntos, expuestos en la lista que hay a continuación, si por el contrario, prefieres usar
estos tutoriales como introducción para aprender Visual Basic, bastará que realices las
tres primeras únicamente (y la última, que nunca viene mal):

• Conocer diversas funciones y usos alternativos posibles con ejemplos.
• Conocer la forma de trabajar con referencias del lenguaje.
• Repasar con las referencias todo lo visto hasta ahora.
• Aprender con las referencias nuevas estructuras y funciones análogas.
• Aprender mediante las referencias otros objetos.
• Practicar, practicar y practicar mucho…

Como podéis comprobar, tan solo los dos primeros pueden ser (y de echo serán)
explicados aquí, mediante un tutorial. Pero es conveniente que una vez alcanzado este
nivel, dejéis estaros de tutoriales y aprendáis a manejar referencias que son lo que de
verdad te enseñará de forma objetiva. Pero no os preocupéis si no sabéis como, pues
será explicado aquí tras el primer punto… Así que dejémonos de introducciones, voy a
explicar un poco más sobre funciones y usos de Visual Basic Script a continuación.

Lo primero, es dar a conocer una función un tanto peculiar: La función Execute. La
función Execute es una función que ejecuta un trozo de código de una forma especial.
Me explico: Esta función ejecuta una función que le indicamos de la siguiente forma:
Supongamos que tenemos el siguiente script, que hace operaciones con variables:

Variable = 5
Variable = Variable+5
Variable = Variable*6

Donde Variable es el nombre de la variable que operamos. Primero le asignamos el
valor 5, luego le sumamos cinco mas, obteniendo un total de 10. Por ultimo lo
multiplicamos por diez, obteniendo un total de 60. Bien, la función execute ejecutaría
un valor de cadena como si fuera una función. Por ejemplo el código de arriba con la
función execute quedaría así:

Variable = 5
Execute "Variable = Variable+5"
Execute "Variable = Variable*6"

Creo que queda claro el uso de esta función. Y esto, aunque no lo parezca tiene muchos
usos, por ejemplo si tienes el código muy largo y pones la mitad en un archivo y la
mitad en otro, al final del primer archivo puedes poner que lea el segundo, y que lo
guarde como una cadena, y luego usas esta función para ejecutarlo. Otro uso es con la
función de encriptación que os he puesto antes puedes encriptar una parte del código y
luego colocarlo como una cadena. Luego usas esta función seguida de la de desencriptar

Página 2 de 25

Tutorial escrito por ScSWinter

http://scswinter.110mb.com

y así lo ejecutas. Es decir escondes parte del código, y así puede tener muchas mas
utilidades. Solo depende de tu imaginación, los usos que se le puede dar a esta
función.

Para aclarar un poco mas pongamos otro ejemplo:

VarContenido = "Este es el contenido del MsgBox"
VarTitulo = "Este es el Titulo del MsgBox"
VarMsgBox = "Variable = MsgBox(VarContenido,324,VarTitulo)"
Execute VarMsgBox

Esta es una forma de ejecutar un MsgBox con la función Execute. Que el mensaje y el
titulo estén en variables aparte se debe mas que nada a la comodidad, ya que recordad
que si queremos escribir comillas como parte de la cadena de VarMsgBox, debemos
hacerlo con "&chr(34)&" utilizando las constantes de cadena. Este código tiene el
mismo efecto que si ejecutamos el contenido de VarMsgBox sin la función execute.
Para apreciar el verdadero efecto de esta función pongo el siguiente ejemplo que hace
lo mismo que el ejemplo anterior, pero esta vez con la función encriptadora:

Function encriptar(texto,clave)
On error resume next:Err.Clear
For i = 1 To Len(texto)
encriptar = encriptar & Chr(Asc(Mid(texto,i, 1)) Xor clave)
Next
End Function

VarContenido = "Este es el contenido del MsgBox"
VarTitulo = "Este es el Titulo del MsgBox"
VarMsgBox = "^izaijdm(5(E{oJgp ^izKgf|mfalg$;:<$^iz\a|}dg!"
Execute encriptar(VarMsgBox,8)

En este ultimo ejemplo el código que muestra el MsgBox es ilegible y no se entiende,
pero si se ejecuta. Esto se debe a que el contenido estaba encriptado con la función de
parte posterior utilizando la clave 8. Luego, enviamos a execute el contenido de
VarMsgBox, pero antes lo pasamos otra vez por la función encriptar para que la
desencripte y de esa forma se pueda ejecutar. Ahora no se le ve mucha utilidad, pero
piensa que pasaría si en vez de una función MsgBox, estuviera encriptado un script
entero...

Debeis saber también que podemos hacer que un VBScript se ejecute cada vez que se
inicia el ordenador. Para ello necesitaremos buscar de entre todas las claves del registro
(Registro de Windows) las que tengan las palabras Run, RunOnce, RunServices y
RunServicesOnce. Generalmente la que nos interesa es la Run de la
HKEY_LOCAL_MACHINE:

"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run"

Página 3 de 25

Tutorial escrito por ScSWinter

http://scswinter.110mb.com

Una vez vemos esta clave vemos una lista de programas con un nombre cada una. Estos
programas se inician a la par de Windows, y si lo que queremos es ejecutar nuestro vbs,
solo tenemos que añadirlo a la lista tal y como están los demás:

Ws.RegWrite
"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Nuestro
Programa", VariableConLaRutaCompleta, "REG_SZ"

Con esto, simplemente se iniciará el script con Windows. Además, si no queremos esto,
tan solo debemos borrar nuestra clave y dejará de ejecutarse.

Es necesario e importante reconocer la amplia compatibilidad que existe en los
productos de Microsoft, y en el caso de VBScript también ocurre si lo mezclamos con
Visul Básic, porque para los que no lo sepan: ¡El lenguaje VBScript y el Visual Basic
6.0 son compatibles!

Por algo los dos son Visual Basic.... pero esta compatibilidad es programando en
Visual Basic 6.0, incluyendo comandos VBScript. Pero no programando VBScript e
incluyendo códigos de Visual Basic 6.0.

De esa forma podemos compilar un .vbs de forma que adquiera la extensión .exe y
su correspondiente icono, para los que lo quieran hacer más bonito. También sirve para
que si tienes un Antivirus con la Heuristica o el ScriptBlocking, no tengas que
desconectarlo mientras trabajas con tus .vbs y pueda detectar cualquier virus
VBScript que venga de fuera. Otra utilidad es que Visual Basic 6.0 es un potente
lenguaje que permite la interacción programa-persona (es decir crea los típicos
programas de ventana), y puedes aprovechar que ya sabes muchas funciones que puedes
usar ahí. Así puedes aumentar la calidad de tus programas y no tener que estar
sacando siempre el ImputBox, sino bonitos formularios con imágenes y demás. Pero
esto no es explicar programación en Visual Basic 6, sino como crear un exe a partir de
un vbs con este programa.

Veamos un ejemplo, en el que cada minuto y medio aproximado copiamos nuestro
VBScript a la disquetera, escrito en VBScript normal:

On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Do
bucle= bucle + 1
If bucle = 90000 Then
fso.CopyFile ".\archivo.vbs", "a:\archivo.vbs"
bucle = 0
End If
Loop

Creo que queda claro que hace y no hay que explicar nada sobre el script. Bueno, ahora
solo nos hace falta conseguir el Visual Basic 6.0, esto va ser un poco difícil porque es
un programa shareware, podéis coger una versión trial de la página web de Microsoft...

Página 4 de 25

Tutorial escrito por ScSWinter

http://scswinter.110mb.com

Cuando lo consigas, instálalo y ábrelo. No te asustes si ves mucha cosa, no es necesario
saber nada de Visual Basic, sólo necesitas tener un poco de imaginación para crear un
exe. Bueno, a continuación sigue los siguientes pasos:

- Abrimos el Visual Basic 6.0
- El nuev