Шэдька Вредная
Хотите определить пол вашего компьютера?
1) Откройте блокнот
2) Наберите сами или скопируйте
CreateObject("SAPI.SpVoice").Speak"I love you"
3) Сохраните как computer_sex.vbs
4) Запустите файл.
Если вы услышите мужской голос, поздравляю, у вас пасан, если женский - дефочка.
***
P.S. (от Primiya Du) А, чтобы определить имя компьютера, нужно сделать тоже самое, только в блокнот вставить:
Set VObj = CreateObject("SAPI.SpVoice")
For Each Voice In VObj.getvoices
msgbox "" & Voice.GetDescription
Next
у меня девочка
1) Откройте блокнот
2) Наберите сами или скопируйте
CreateObject("SAPI.SpVoice").Speak"I love you"
3) Сохраните как computer_sex.vbs
4) Запустите файл.
Если вы услышите мужской голос, поздравляю, у вас пасан, если женский - дефочка.
***
P.S. (от Primiya Du) А, чтобы определить имя компьютера, нужно сделать тоже самое, только в блокнот вставить:
Set VObj = CreateObject("SAPI.SpVoice")
For Each Voice In VObj.getvoices
msgbox "" & Voice.GetDescription
Next
у меня девочка
Сэм звучал приятней. Х_Х
А я на хп по прежнему.
Про настройки ("start" - "settings" - "control panel" - "speech") смешно получилось. У семёрки как раз фирменная фишка, что настройки перемешаны и хер чё найдёшь.
У человека, видимо, сборка с закосом под висту стоит.
В простой хп сп3 идет майкрософт сэм, "ас зэ компьютер дэфалт войс".