خبايا bloc notes

[matic dz]

نــــعُوذُ بِالْلهِ تَعَالَى مِنْ شُــــرُورِ أَنْفُسِنَا وَ مِنْ سَيِّئَــــاتِ أَعْمَالِنَا

مَنْ يَـــهْدِهِ الْلهُ تَعَالَى فَلَا مُضِــــلَّ لَهُ، وَ مَنْ يُـضْلِلْ فَلَا هَــــادِىَ لَه

وَ أَشْــــــــــهَدُ أَلَّا إِلَهَ إِلَّا الْلهُ وَحْــــــدَهُ لَا شَــــــرِيكَ لَه

وَ أَشْـــهَدُ أَنَّ مُحَمَّداً عَبْدُهُ وَ رَسُولُهُ، صَلَّى الْلهُ عَلَيْهِ وَ آلِهِ وَ سَلَّمَ تَسْلِيمَاً كَثِيرَا.



عَنِالأَعْمَشِ،عَنْأَبِي صَالِحٍ، عَنْأَبِي هُرَيْرَةَ، قَالَ : قَالَ رَسُولُ اللَّهِ صَلَّى اللَّهُ عَلَيْهِ وَسَلَّمَ : " وَالَّذِي نَفْسِي بِيَدِهِ ,لا تَدْخُلُوا الْجَنَّةَ



حَتَّى تُؤْمِنُوا ، وَلا تُؤْمِنُوا حَتَّى تَحَابُّوا ، أَوَلا أَدُلُّكُمْ عَلَى شَيْءٍ إِذَا فَعَلْتُمُوهُ تَحَابَبْتُمْ ؟ أَفْشُوا السَّلامَ بَيْنَكُمْ " .

كل الاحترام و التقدير لعمــــــار منتدانا الحبيب

الذين قدموا و مازالوا يقدموا أحسن ما يملكون

لإكمال مسيـــرة النـــور مسيــــرة الخيــــــر و البـــــركة ..

اليوم بمشيئة الله سنقوم باستعراض بعض الامور التي تقوم بها المفكرة او BLOC NOTES

بعض الامور والخبايا التي لايعرفها الكثير من مستعملي الحاسوب

نبدأ بالامر الاول : صعب ورهق عندما يكون لديك مجموعة من المواقع وترغب في فتحها جميعا حيث يتوجب عليك الذهاب لكل موقع وتقوم بفتحه عبر المتصفح الخاص بك لكن سيصبح امرا سهلا عندما ننشأ **** يشمل المواقع التي تريد فتحها وبتشغيلك لهذا الملف يتم فتح هذه المواقع دفعة واحدة بمقدورك فعل ذلك من خلال فتح المفكرة ولصق الكود التالي:

@ echo off
start "Site Name" "Site URL "

قم بتغيير الجملة site name باسم الموقع مثلا facebook

وقم بتغيير site URL برابط الموقع

بعد القيام بالتغييرات نحفظ الملف بصيغة .(bat.)

الأمر الثاني شبيه بالامر الاول لكنه خاص بالبرامج حيث يقوم هذا الامر بفتح مجموعة من البرامج دفعة واحدة دون تكبد عناء فتح كل برنامج على حدى

نقوم بلصق الكود التالي :

@ echo off

cd''مسار ملف البرنامج''

start اسم البرنامج

بعد الانتهاء نحفظالملف بصيغة bat

الامر الثالث هو امر خاص باظهار ***** ال***** الخاص بالويندوز خاصتك

نقوم بلصق الامر التالي:

Set WshShell = CreateObject("W--SS--.Shell ")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Micro soft\Windows NT\CurrentVersion\DigitalProductId "))
-- # وصلة ممنوعة 1778 # -- ConvertToKey(Key )
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789 "
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1 ) & KeyOutput
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = "-" & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End -- # وصلة ممنوعة 1778 # --

الان سنقوم بحفظ الملف بصيغة vbs

الامر الاخير هو كيف تجعل الحاسوب ينطق ماتكتبه

نقوم بلصق الكود التالي:

Dim message, sapi
message=InputBox("What shall I say ")
Set sapi=CreateObject("sapi.spvoice ")
sapi.Speak message

نقوم بحفظ اللف على صيغة vbs

وعند تشغيل الملف يعطيك نافذة صغيرة كما في الصورة نقوم بكتابة ما نريد ان يسمعه لنا الحاسوب

في الخانة

هنا ينتهي موضوعي كانت هذه بعض الاموامر الخفية التي يمكن القيام بها من خلال المفكرة

لكن يوجد اوامر اخرى غير هذه .....

في الاخير اتمنى ان اكون قد وفقت في شرحي للموضوع

وشكرا لمشريفينا الاعزاء

تحيااتي