سلام الله عليكم .. ^_^
اليوم أحببت أن أقدم لكم تدوينة عن أسرار وخدع لا تعرفها عن المفكرة فالجميع يعرف برنامج notepad المدمج مع الويندوز والجميع يقتصر علية فى تسجيل الملاحظات
وبعض البيانات المهمة لكن الجميع تقريبا يجهل وجود خدع يمكن تنفيذها عن طريق المفكرة فقط عن طريق بعض الأوامر التى سوف أطرحها فى هذة التدوينة وأتمنى أن تنال أعجابكم ولا تبخل علينا بمشاركة رابط الحلقة من أسفل من زر مشاركة
الخدعة الاولى : خدعة CD-ROM..
1-فتح وأغلاق السيدى روم بدون توقف: تجعل السيدى روم يفتح ويغلق بدون توقف حتى يعيد تشغيل الحاسوب لتنفيذ هذة الخدعة قم بنسخ الأمر التالى :
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 3000
loop
ثم فتح new txt decoment ولصقة بها الامر ثم قم بالحفظ بامتداد cdtrick.vbs
-----------------------------------------------------------------------------------------
الخدعة الثانية : خدعة رسالة الخطأ..
2-أظهار رسالة خطأ: هذة الخدعة تستخدم لأظهار رسالة خطأ لأزعاج أى شخص يجلس على حاسوبك فقط كل ما عليك نسخ النص التالى :
X=Msgbox(“Your Error Message”,0+16,”Title of Error box “)
الخدعة الثالثة : خدعة الماتركس Matrix..
3-Matrix Falling: الجميع تقريبا شاهد فلم matrix وشاهد خدعة البيانات
هذة خدعة مشابهة سوف تفعل كما فعلنا فى الخدع السابقة أنسخ الملف التالى :
ثم قم بوضع هذا الأمر فى txt decoment ثم قم بتسمية الملف matrix.bat مع مراعات أظهار أمتداد الملفات حتى تعمل معك الطريق
-----------------------------------------------------------------------------------------
الخدعة الرابعة : خدعة لوحة المفاتيح..
4-lights:هذة الخدعة تستخدم لفتح وأغلاق جميع أضواء أزرار الكيبورد بأستمرار مثل أزرار Capslock, Scroll lock, Numlock
قم بنسخ الامر التالي :
Set Wshshell =wscript.Createobject ("wscript.shell")
do
Wscript.sleep 100
wshShell.sendkeys "(numlock)"
wshShell.sendkeys "(scrolllock)"
wshShell.sendkeys "(capslock)"
loop
ثم قم بوضع هذا الأمر فى txt decoment ثم قم بتسمية الملف lights.vbs مع مراعات أظهار أمتداد الملفات حتى تعمل معك الطريقة
-----------------------------------------------------------------------------------------
اليوم أحببت أن أقدم لكم تدوينة عن أسرار وخدع لا تعرفها عن المفكرة فالجميع يعرف برنامج notepad المدمج مع الويندوز والجميع يقتصر علية فى تسجيل الملاحظات
وبعض البيانات المهمة لكن الجميع تقريبا يجهل وجود خدع يمكن تنفيذها عن طريق المفكرة فقط عن طريق بعض الأوامر التى سوف أطرحها فى هذة التدوينة وأتمنى أن تنال أعجابكم ولا تبخل علينا بمشاركة رابط الحلقة من أسفل من زر مشاركة
الخدعة الاولى : خدعة CD-ROM..
1-فتح وأغلاق السيدى روم بدون توقف: تجعل السيدى روم يفتح ويغلق بدون توقف حتى يعيد تشغيل الحاسوب لتنفيذ هذة الخدعة قم بنسخ الأمر التالى :
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 3000
loop
ثم فتح new txt decoment ولصقة بها الامر ثم قم بالحفظ بامتداد cdtrick.vbs
-----------------------------------------------------------------------------------------
الخدعة الثانية : خدعة رسالة الخطأ..
2-أظهار رسالة خطأ: هذة الخدعة تستخدم لأظهار رسالة خطأ لأزعاج أى شخص يجلس على حاسوبك فقط كل ما عليك نسخ النص التالى :
X=Msgbox(“Your Error Message”,0+16,”Title of Error box “)
ثم قم بوضع هذا الأمر فى txt decoment ثم قم بتسمية الملف arwebzone.vbs مع مراعات أظهار أمتداد الملفات حتى تعمل معك الطريقة
-----------------------------------------------------------------------------------------
الخدعة الثالثة : خدعة الماتركس Matrix..
3-Matrix Falling: الجميع تقريبا شاهد فلم matrix وشاهد خدعة البيانات
هذة خدعة مشابهة سوف تفعل كما فعلنا فى الخدع السابقة أنسخ الملف التالى :
@echo off
color 02
:arwebzone
echo %random%%random%%random%%random%%random%%random%%random%%random%
goto arwebzone
ثم قم بوضع هذا الأمر فى txt decoment ثم قم بتسمية الملف matrix.bat مع مراعات أظهار أمتداد الملفات حتى تعمل معك الطريق
-----------------------------------------------------------------------------------------
الخدعة الرابعة : خدعة لوحة المفاتيح..
4-lights:هذة الخدعة تستخدم لفتح وأغلاق جميع أضواء أزرار الكيبورد بأستمرار مثل أزرار Capslock, Scroll lock, Numlock
قم بنسخ الامر التالي :
Set Wshshell =wscript.Createobject ("wscript.shell")
do
Wscript.sleep 100
wshShell.sendkeys "(numlock)"
wshShell.sendkeys "(scrolllock)"
wshShell.sendkeys "(capslock)"
loop
-----------------------------------------------------------------------------------------
لقد كانت هذه خدع اليوم .. الى خده اخرى ان شاء الله على مدونة مبتكري ويب
اففففف . لقد ضيعت 5 دقائق من حياتي بلا فائدة
ردحذفلماذا يا اخي هل لم تعمل معك الخدع.. ! و بالمناسبة الله يطول في عمرك =D
حذفخدع رائعة اخي
ردحذفhttp://tknielantrnat.blogspot.com/
العفو .. اخي الكريم :)
ردحذف