неделя, 9 юни 2013 г.

Малко свалки с VBS



Една идея: Пратете на момичето което харесвате файл които като го отвори да и казва колко я обичате!

За целта ви трябва да си направите един нотпад файл да го отворите и да поставите тоя код по доло в него и да го запазите с разширение .vbs :)

Ето кода:

Dim msg, sapi
msg="I love u for ever to the end of world"
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

Край на кода

Може да задавате каквато сикате стиност на msg стига да е на англииски или да пишете на български с латиница но произнушението е скапано