هل جهازك ذكر ام انثى؟؟!

تريد ان تعرف اذا كان جهازك ذكر ام انثى؟ تريد ان تعرف اسم جهازك؟ اتبع الخطوات التالية:

الخطوة الاولى:
افتح برنامج Notepad (الدفتر. اضغط على ابدأ - البرامج الملحقة - Notepad)

الخطوة الثانية:
انسخ الكود هذا و ضعه في الدفتر

CreateObject("SAPI.SpVoice").Speak"Nice to meet YOU"

الخطوة الثالثة:
احفظ الملف بأسم
Myvoice.vbs

الخطوة الرابعة:
مكان الحفظ - سطح المكتب او اي مكان سهل الوصول اليه.

الخطوة الخامسة: شغل البرنامج و تعرف الجواب!

------------

ما اسم جهازي؟

الخطوة الاولى:
افتح نفس البرنامج و ضع الكود هذا

Set VObj = CreateObject("SAPI.SpVoice")
with VObj
Set .voice = .getvoices.item(0)
.Volume = 100
.Rate = 1
end with

Set VObj = CreateObject("SAPI.SpVoice")
For Each Voice In VObj.getvoices
I = I + 1
msgbox "I am " & Voice.GetDescription
Next

و احفظ الملف بأسم
name.vbs

و شغل البرنامج.

ملاحظة: اسم الذكر بالعادة Sam و اسم الانثى Anna.

ان شاء الله تعجبكم الحركة الخفيفة, و اي اسئلة انا حاضر.