3 امور عجيبة يمكن فعلها فقط بالنوت باد Notepad :D
السلام عليكم ورحمة الله وبركاتة
احببت اليوم ان اقدم لكم بعض الخدع الطريفة التي يمكن عملها فقط بالمفكرة ( Notepad )
لن اطيل عليكم تابعوا......
الخدعة الاولى: جعل النوت باد تكتب لوحدها وكأن الجهاز يتحدث معك O.o
'Coded by: Ahmad - Al-Swariah'
set AMS = wscript.CreateObject("wScript.Shell")
AMS.run "Notepad"
wscript.sleep 200
B = "Ahmad AL-Swariah - The GeeK :D"
for i = 1 to Len(b)
AMS.sendkeys mid(b,i,1)
wscript.sleep 100
next
4.قم بكتابة اسم الملف بالامتداد .vbs مثلا AMS.vbs وحدد نوع الحفظ :All Files كما في الصورة
الخدعة الثانية: جعل الجهاز يتحدث وينطق ما تقوم بكتابته :)
Dim userInput
userInput = InputBox("Write your message here")
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
Sapi.speak userInput
4.قم بكتابة اسم الملف بالامتداد .vbs مثلا Speek.vbs وحدد نوع الحفظ :All Files كما في الصورة
الخدعة الثالثة: كن كالهكر مع هذه الخدعة الطريفة :)
@echo off color 2 :start echo %random% %random% % random% %random% %random % %random% %random% % random% %random% %random % %random% %random% % random% %random% goto start
كلمة شكر لا تأخذ منك ثانيه وتحفزنا بشكل كبير :)
Ahmad Al-Swariah
احمد السواريه
: من
المملكة الاردنيه
,
لا اجيد التعبير عن نفسي جيدا ، باختصار انا "مهووس" بكل شي يعمل بالكهرباء ،مبرمج اعتقد بمستوى جيد ،سأحاول مساعدة كل من يطلب العون بقدر استطاعتي
تقييم : 10 من 10 مرتكز على 24 تقييم.
الكاتب : احمد السواريه



1 التعليقات :
اضغط لإضافة التعليقاتبارك الله بيك اخي احمد
ردتحياتي
حسن الساهري
* بإمكانك إدراج الأكواد الغير قابلة لنشر بتحويله عبر محول الأكواد
تحويل الأكواد إغلاق التعبيرات إخفاء