Šis skriptas išmes popup lenteles ir net kalbės !!!
Vėlgi atsidarome notepad ir kopijuojame tekstą.
Taigi kalbomoji dalis bus štaitokia:

strtext="Čia parašome ką norėtumėte, kad pasakytų kompiuteris"
set objvoice=createobject("sapi.spvoice")
objvoice.rate=0.5
objvoice.speak strtext

Ir lentelės:

X=msgbox("Parašome ką norime, rašytų lentelėje") Viena lentelė
X=msgbox("geras ne? ") Kita lentelė

Viską galima maišyti, tarkim pirma lentelė tada balsas tada vėl lentelė ir panašiai.
Tada vėlgi išsaugome *.vbs formatu
tai padarysime paspaudę File>Save as..


Jeiu kas labai jau nesupratot gal mano video padės
[You must be registered and logged in to see this link.]