شركة كريالتي للطابعات ثلاثية الأبعا
شركة كريالتي للطابعات ثلاثية الأبعاد
تجميعة لافضل خدع الNotepad التي لم تسمع عنها من قبل - الجزء 2

تجميعة لافضل خدع الNotepad التي لم تسمع عنها من قبل - الجزء 2

تجميعة لافضل خدع الNotepad التي لم تسمع عنها من قبل - الجزء 2


السلام عليكم .. 
قدمت في موضوع سابق مقالة حول : تجميعة لافضل خدع الNotepad التي لم تسمع عنها من قبل  , و قد اثارت هذه المقالة اعجاب الجميع , خصوصا بالخدع البسيطة التي اعجب بها الجميع , و حسب طلب اخواننا المتتبعين , و الذين ارادو بشدة المزيد من الخدع , ها انا ذا اقدم لكم المزيد منها في الجزء الثاني من مقالتنا حول هذا الموضوع .. لنبدأ : 

ما رأيك بفيروس الكتابة ؟ 
في هذه الخدعة , سنريك كيفية صناعة ملف يقوم بكتابة جملة او عبارة بشكل متتابع دون ان يقف ابدا , يكتبها في اي مكان , فور ان تعطيه الفرصة للكتابة , حقا هذه الخدعة ستجنن كل من سيقوم بها .. ههه , لنكتشف الاكواد : 
اول شيئ نفتح ملف Notepad جديد و خالي , و نكتب الكود التالي : 

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "Hacked By AQUA WEB"
loop
بعد ان تقوم بنسخه في ملف Notepad , قم بحفظه على امتداد vbs مثل : VirusWrite.vbs
و اضغط عليه مرتين لتصاب بالجنون ههه , 
ملاحظة : لايقاف الكتابة , عليك باعادة تشغيل جهازك , لذلك تأكد من اغلاقك لكل البرامج المهمة بالنسبة لك قبل تجريبها . 
ملاحظة : يمكنك تغيير Hacked By Aqua Web باي عبارة تريدها ان تكتب بشكل مستمر . 

ما رأيك ان نجعل حاسوبك يتحدث ؟ 
نعم , في خدعتنا التالية , سنريك اخي الكريم , كيف تجعل حاسوبك يتحدث انطلاقا مما تكتبه له , نعم بدون برامج , فقط من الNotepad ... لنكتشف معا : 
اولا و كما هو الحال دائما , نفتح الNotepad بصفحة جديدة , و نقوم بنسخ الاكواد التالية : 


  Dim Message, Speak
          Message=InputBox("Enter text","Speak")
          Set Speak=CreateObject("sapi.spvoice")
          Speak.Speak Message

الان نقوم بحفظه بامتداد vbs مثلا , يمكننا تسميته ب SpeakComputer.vbs , و بعد ان نحفظه , ستظهر لنا نافذة بسيطة شبيهة بهذه : 

يمكنك الان كتابة ما تريد , انا مثلا كتبت : Hello Aqua Web , يمكنك ان تكتب ما تريد , و بعدها تضغط OK , و استمع الى حاسوبك :D . 

في الحقيقة , كان بودي ان اقدم المزيد و المزيد , لكني ملتزم بعدد اسطر محدد في كل موضوع , لذلك , لا زال بإذن الله الجزء الثالث من الخدع . 
اذا اعجبتك هذه الخدع , لا تنسى ان تنشرها مع اصدقاءك :D 

شاركه على :