تجميعة لافضل خدع الNotepad التي لم تسمع عنها من قبل - الجزء 2
السلام عليكم ..
قدمت في موضوع سابق مقالة حول : تجميعة لافضل خدع الNotepad التي لم تسمع عنها من قبل , و قد اثارت هذه المقالة اعجاب الجميع , خصوصا بالخدع البسيطة التي اعجب بها الجميع , و حسب طلب اخواننا المتتبعين , و الذين ارادو بشدة المزيد من الخدع , ها انا ذا اقدم لكم المزيد منها في الجزء الثاني من مقالتنا حول هذا الموضوع .. لنبدأ :
ما رأيك بفيروس الكتابة ؟
في هذه الخدعة , سنريك كيفية صناعة ملف يقوم بكتابة جملة او عبارة بشكل متتابع دون ان يقف ابدا , يكتبها في اي مكان , فور ان تعطيه الفرصة للكتابة , حقا هذه الخدعة ستجنن كل من سيقوم بها .. ههه , لنكتشف الاكواد :
اول شيئ نفتح ملف Notepad جديد و خالي , و نكتب الكود التالي :
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "Hacked By AQUA WEB"
loop
do
wscript.sleep 100
wshshell.sendkeys "Hacked By AQUA WEB"
loop
بعد ان تقوم بنسخه في ملف Notepad , قم بحفظه على امتداد vbs مثل : VirusWrite.vbs
و اضغط عليه مرتين لتصاب بالجنون ههه ,
ملاحظة : لايقاف الكتابة , عليك باعادة تشغيل جهازك , لذلك تأكد من اغلاقك لكل البرامج المهمة بالنسبة لك قبل تجريبها .
ملاحظة : يمكنك تغيير Hacked By Aqua Web باي عبارة تريدها ان تكتب بشكل مستمر .
ما رأيك ان نجعل حاسوبك يتحدث ؟
نعم , في خدعتنا التالية , سنريك اخي الكريم , كيف تجعل حاسوبك يتحدث انطلاقا مما تكتبه له , نعم بدون برامج , فقط من الNotepad ... لنكتشف معا :
اولا و كما هو الحال دائما , نفتح الNotepad بصفحة جديدة , و نقوم بنسخ الاكواد التالية :
الان نقوم بحفظه بامتداد vbs مثلا , يمكننا تسميته ب SpeakComputer.vbs , و بعد ان نحفظه , ستظهر لنا نافذة بسيطة شبيهة بهذه :
يمكنك الان كتابة ما تريد , انا مثلا كتبت : Hello Aqua Web , يمكنك ان تكتب ما تريد , و بعدها تضغط OK , و استمع الى حاسوبك :D .
في الحقيقة , كان بودي ان اقدم المزيد و المزيد , لكني ملتزم بعدد اسطر محدد في كل موضوع , لذلك , لا زال بإذن الله الجزء الثالث من الخدع .
اذا اعجبتك هذه الخدع , لا تنسى ان تنشرها مع اصدقاءك :D
و اضغط عليه مرتين لتصاب بالجنون ههه ,
ملاحظة : لايقاف الكتابة , عليك باعادة تشغيل جهازك , لذلك تأكد من اغلاقك لكل البرامج المهمة بالنسبة لك قبل تجريبها .
ملاحظة : يمكنك تغيير Hacked By Aqua Web باي عبارة تريدها ان تكتب بشكل مستمر .
ما رأيك ان نجعل حاسوبك يتحدث ؟
نعم , في خدعتنا التالية , سنريك اخي الكريم , كيف تجعل حاسوبك يتحدث انطلاقا مما تكتبه له , نعم بدون برامج , فقط من الNotepad ... لنكتشف معا :
اولا و كما هو الحال دائما , نفتح الNotepad بصفحة جديدة , و نقوم بنسخ الاكواد التالية :
Dim Message, Speak
Message=InputBox("Enter text","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message
Message=InputBox("Enter text","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message
الان نقوم بحفظه بامتداد vbs مثلا , يمكننا تسميته ب SpeakComputer.vbs , و بعد ان نحفظه , ستظهر لنا نافذة بسيطة شبيهة بهذه :
يمكنك الان كتابة ما تريد , انا مثلا كتبت : Hello Aqua Web , يمكنك ان تكتب ما تريد , و بعدها تضغط OK , و استمع الى حاسوبك :D .
في الحقيقة , كان بودي ان اقدم المزيد و المزيد , لكني ملتزم بعدد اسطر محدد في كل موضوع , لذلك , لا زال بإذن الله الجزء الثالث من الخدع .
اذا اعجبتك هذه الخدع , لا تنسى ان تنشرها مع اصدقاءك :D