تجميعة لافضل خدع الNotepad التي لم تسمع عنها من قبل
السلام عليكم :D
مرحبا بكم مجددا في موضوع جديد و مشوق و رائع ايضا .
ان كنت تعتقد اخي الكريم , ان محرر النصوص Notepad او Bloc Note , هو فقط محرر نصوص بدائي و غير احترافي او لا ادري , فانت مخطأ بالطبع , في هذا الموضوع , ساريك بعضا من اهم الخدع التي يمكنك اضافتها في الNotepad التي ستجعلك تغير نظرتك لهذا البرنامج .. لنبدأ باسم الله :
Matrix Filling Code - تأثير الماتركس :
طبعا الكل يعرف هذا التأثير , و قد سبق و قمت بشرحه في احد التدوينات , لكن لا ضرر من الاعادة , ادخل الى الNotepad و قم بنسخ الاكواد التالية فيه :
@echo off
color 02
:tricks
echo %random%%random%%random%%random%%random%%random%%random%%random%
goto tricks
color 02
:tricks
echo %random%%random%%random%%random%%random%%random%%random%%random%
goto tricks
بعد ذلك تقوم بحفظ الملف بصيغة Bat .. يعني يمكنك تسمية الملف مثلا Matrix.bat , و قم بحفظها مثلا على سطح المكتب , بعد ذلك ستلاحظ انه تكون ملف تنفيذي في سطح مكتبك , اضغط عليه و تمتع بالخدعة الاولى :D .
ما سنقوم به الان في هذه الخدعة , هو جعل قارئ الاقراص الخاص بك او الCD/DVD الموجود في حاسوبك يخرج و يدخل بشكل جنوني سيفقدك اعصابك ههه , كل ما عليك فعله , هو اخذ الكود التالي و نسخه في صفحة Notepad فارغة :
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
بعد ان تقوم بنسخه , قم بحفظه مجددا , لكن هذه المرة ليس بامتداد .bat , بل سنحفظه بامتداد .vbs مثلا يمكنك تسميته :
Virus.vbs
و بعدها اضغط عليه مرتين او ارسله لاحد اصدقاءك حتى يجن جنونه هه .
ملاحظة : سيتوجب عليك اعادة تشغيل جهازك من اجل توقيف هذا الفيروس البسيط .
لنجعل لوحة المفاتيح ترقص :
لا بد و ان لديك في لوحة مفاتيحك 3 مصابيح صغيرة , كل واحدة منها تضيئ عند الضغط على مفاتيح معين مثل مفتاح Lock الخاص بكتابة حروف كبيرة , ما رأيك اذن ان نجعلها مثل الDisco ؟ ترقص و تتناغم عشوائيا ؟
حسنا , افتح صفحة Notepad فارغة وقم بلصق الكود التالي :
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop
بعد ان تنسخ الكود , احفظه ايضا على شكل Disco.vbs مثلا , المهم ان يكون الامتداد .vbs , بعدها اضغط عليه مرتين لتبدأ الاضواء في الرقص .
يمكنك ان توقفه عبر الذهاب الى Task Manager / Gestionaire des taches و ايقاف السكربت من هناك .
في الحقيقة , لازالت لدي الكثير و الكثير من الخدع , فاذا وجدت ان الكثيرين مهتمين بها , فسأقدم المزيد و المزيد في مواضيع قادمة بإذن الله .