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

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

تجميعة لافضل خدع ال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

بعد ذلك تقوم بحفظ الملف بصيغة 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

بعد ان تقوم بنسخه , قم بحفظه مجددا , لكن هذه المرة ليس بامتداد .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

بعد ان تنسخ الكود , احفظه ايضا على شكل Disco.vbs مثلا , المهم ان يكون الامتداد .vbs , بعدها اضغط عليه مرتين لتبدأ الاضواء في الرقص . 
يمكنك ان توقفه عبر الذهاب الى Task Manager / Gestionaire des taches و ايقاف السكربت من هناك . 

في الحقيقة , لازالت لدي الكثير و الكثير من الخدع , فاذا وجدت ان الكثيرين مهتمين بها , فسأقدم المزيد و المزيد في مواضيع قادمة بإذن الله . 



شاركه على :