Efecto maquina de escribir en Vbs para Consola

Iniciado por .:: KsV ::., 24 Junio 2015, 00:45 AM

0 Miembros y 1 Visitante están viendo este tema.

.:: KsV ::.

Les traigo un efecto sus script. Es un efecto parecidio al que sale en Matrix  cuando Neo esta en frente de la pc y en la pantalla aparece

Neo,levantate .Sigue al conejo blanco

Bueno aqui esta la funcion  y tambien una breve explicacion de cada parte del codigo

Code:
Código (vb) [Seleccionar]
  'llamamos a la funcion MaqEsc() con el texto incluido casi
'al final esta un numero este indica el tiempo en milisegundos
'en que iran apareciendo las letras

call MaqEsc("HOLA SOY EL USUARIO .::KSV::. DEL FORO DE ELHACKER.NET",60)
Function MaqEsc(Striing,tt)
For i = 1 To Len(Striing) 'Iniciamos un for hasta la ultima letra ,para saber
X = (Mid(Striing, i, 1)) 'cuantas letras son usamos Len() esto regresa la cantidad de letras 'nos movemos letra x letra con mid(cadenaDeTexto,EmpezandoPor,CantidadDeLetrasAprosesar)

If x= " " then 'Si el caracter que estamos analizando
wscript.sleep 00 'es espacio se ignora y "aparece de inmediato"
else 'De lo contrario se espera tt tiempo wscript.sleep tt 'tt = al tiempo q se le asigna en mi caso 60 milisegundos
End If
Wscript.StdOut.Write x  'Escribe caracter por caracter tambien se puede usar wscript.echo x
Next
wscript.sleep 3000 'esperamos 3000 milisegundos osea 3 s. y cerramos
End function



Espero que les guste Adios
No confíes en aquel que una vez te defraudó.... William Shakespeare