Ако сакате да го менувате гласот на вашиот пц (машки, женски + со англиски изговор или американски), повелете код:
Код:
Dim recenica, govor
recenica="Hello Heptagram, Welcome to your Network!"
Set govor=CreateObject("sapi.spvoice")
with govor
Set .voice = .getvoices.item(1)
end with
govor.Speak recenica
Променливата recenica може да биде што сакате текст таму (на англиски)!
Со методот getvoices.item(1) може да менувате еден од трите гласови во пц-то:0,1,2.
Кај мене е 1 (женски глас со англиски акцент) во заградите, вие пробајте со 0, со 2 - пробајте и со 4, но мислам дека ќе даде грешка!
Па кажете како е.
П.С. Овој фајл ime.vbs ставете го во фолдерот: C:\Users\ВАШЕ КОРИСНИЧКО ИМЕ НА ПЦ\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup
И кога и да се логирате или вклучите пц-то ќе добиете поздрав од вашиот пц со глас кој сте го избрале и ваша реченица
Пробајте