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:
'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