налить сто грамм глотнуть занюхать и посмотреть по сторонам и если мир не изменился то повторить эксперимент
Где наткнулась, не помню. Хотите определить пол вашего компьютера? Проделайте нехитрые манипуляции.
1) Откройте блокнот
2) Наберите сами или скопируйте
CreateObject("SAPI.SpVoice").Speak"I love you"
3) Сохраните как computer_sex.vbs
4) Запустите файл.
Если вы услышите мужской голос, поздравляю, у вас пацан, если женский - девочка.
У меня мальчик. Брутальный такой. И зовут его Сэм. Имя узнать можно тем же путем, только в блокнот вставляем вот это текст: Set VObj = CreateObject("SAPI.SpVoice")
For Each Voice In VObj.getvoices
msgbox "" & Voice.GetDescription
Next
Сохраняем под тем же именем, запускаем и читаем в окошке имя. Кстати, не пойму, Microsoft - это фамилия моего Сэма?
1) Откройте блокнот
2) Наберите сами или скопируйте
CreateObject("SAPI.SpVoice").Speak"I love you"
3) Сохраните как computer_sex.vbs
4) Запустите файл.
Если вы услышите мужской голос, поздравляю, у вас пацан, если женский - девочка.
У меня мальчик. Брутальный такой. И зовут его Сэм. Имя узнать можно тем же путем, только в блокнот вставляем вот это текст: Set VObj = CreateObject("SAPI.SpVoice")
For Each Voice In VObj.getvoices
msgbox "" & Voice.GetDescription
Next
Сохраняем под тем же именем, запускаем и читаем в окошке имя. Кстати, не пойму, Microsoft - это фамилия моего Сэма?
