29/08/2011, 04:43
|
المشاركة رقم: 1
|
| المعلومات |
| الكاتب: |
|
| اللقب: |
عـضـــو كسول |
| الصورة الرمزية |
|
|
| البيانات |
| التسجيل : |
Nov 2010 |
| العضوية : |
787 |
| الاهتمامات : |
|
| الإقامة : |
|
| المواضيع : |
71493 |
| الردود : |
-1 |
| المجموع : |
71,492 |
| بمعدل : |
12.66 يوميا |
| الاختراقات : |
[] |
| مجتمعنا : |
[] |
| الصنف : |
Not Hacker |
| آخر تواجد : |
13/11/2010/22:11 |
| سبب الغياب : |
|
| معدل التقييم: |
87 |
| نقاط التقييم: |
12 |
شكراً: 0
تم شكره 79 مرة في 78 مشاركة
| الإتصالات |
| الحالة: |
|
| وسائل الإتصال: |
|
|
[ شرح ] : اجعل جهازك ينطق ما تكتبه ويحيك عند دخولك

اهلا بكل الفهيمه الكرام اليوم سوف
نعرض خدعة ظريفه جدا نرفه بيها عن انفسنا
ونخرج من الشكل الرسمي لافهم كمبيوتر والمواضيع الكببيره
سوف نقوم بعمل اسكربت vbs من خلاله نجعل الكمبيوتر ينطق ما نكتبه داخله
--------------------------------------------------------------------------------------------------------
1 • افتح ملف نصي جديد والصق به التالي مع التغير
رمز Code:
Dim speaks, speech
speaks="AMR SELIM , Welcome to your Computer"
Set speech=CreateObject("sapi.spvoice")
speech.Speak speaks
او استخدم الكود التالي مع التغير
رمز Code:
CreateObject("SAPI.SpVoice").Speak "EFHAM COMPUTER"

2 • احفظ الملف باسم computer voice.vbs
3 • دبلل كلك على الملف واستمع للصوت
-------------------------------------------------------------------------------------------------------------------------
رابط الموضوع الاصلي
آخر مواضيع » ADMINISTRATOR |
|
|
|
|
|